feat: wezterm loads default workspace.yaml if present

some other minor tweaks to wezterm config

Author: johnae

users/profiles/wezterm/default.nix

@@ -5,6 +5,17 @@
 }: let
   inherit (config) xdg home;
 in {
+  xdg.configFile."wezterm/workspace.yaml".source = pkgs.writeText "workspace.yaml" ''
+    windows:
+    - command: direnv exec . hx .
+      name: editor
+      restart: true
+      panes:
+      - size: 0.20
+        name: term
+        direction: Bottom
+        split_from: 1
+  '';
   xdg.configFile."wezterm/wezterm.fnl.lua".source =
     pkgs.runCommand "wezterm.fnl.lua" {
       nativeBuildInputs = [pkgs.fennel];
@@ -17,12 +28,14 @@ in {
     extraConfig = ''
       _G.wezterm = wezterm
       _G.dev_remote = "${config.userinfo.devRemote}"
+      -- fake
+      local function getinfo()
+      end
+      local function traceback()
+      end
+      _G.debug = {getinfo = getinfo, traceback = traceback}
       local config
       if os.getenv("WEZTERM_FNL") then
-        -- fake
-        local function getinfo()
-        end
-        _G.debug = {getinfo = getinfo}
         local fennel = dofile("${pkgs.lua54Packages.fennel}/share/lua/5.4/fennel.lua")
         config = fennel.dofile(os.getenv("WEZTERM_FNL"))
       else

users/profiles/wezterm/wezterm.fnl

@@ -80,11 +80,28 @@
       (table.insert listing line))
     listing))
 
+(local default-project-workspace-yaml-path
+       (.. wezterm.config_dir :/workspace.yaml))
+
+; (wezterm.log_info "package.loaded.fennel " package.loaded.fennel)
+; (wezterm.log_info "_G.debug " _G.debug)
+
+(fn _G.debug.traceback [] nil)
+
+(lambda default-project-workspace []
+  (let [(wsloaded err) (pcall #(with-open [wsyaml (io.open default-project-workspace-yaml-path
+                                                           :rb)]
+                                 (wezterm.serde.yaml_decode (wsyaml:read :*a))))]
+    (if wsloaded err {:windows [{}]})))
+
+(wezterm.log_info "default-project-workspace: " (default-project-workspace))
+
 (lambda project-workspace-config [window pane dir]
-  "Reads and returns the workspace config for a project"
+  "Reads and returns the effective workspace config for a project"
+  (wezterm.log_info "default-project-workspace " (default-project-workspace))
   (let [(status out err) (run-child-process window pane
                                             [:cat (.. dir :/workspace.yaml)])]
-    (if status (wezterm.serde.yaml_decode out) {:windows [{}]})))
+    (if status (wezterm.serde.yaml_decode out) (default-project-workspace))))
 
 (lambda project-jump-list [window pane]
   "Returns a jump list for use with the input selector"