Flake update, and fixing side window sizes

home.org

@@ -171,11 +171,7 @@ are still Redbook-specific; ideally I'd find another way to install them.
    {pkgs, kube, ...}:
    {
      home.packages = with pkgs; [
-       aws-iam-authenticator
-       awscli2
-       kube
-       kubectl
-       mariadb.client
+       postgresql
        openssh
      ];
 
@@ -206,7 +202,9 @@ These programs require a full desktop environment:
   {pkgs, ...}:
   {
     home.packages = with pkgs; [
+      linear
       slack
+      teams
     ];
   }
 #+END_SRC
@@ -987,6 +985,23 @@ windows. I place windows in the bottom or on the right mostly depending on how w
 content to be.
 
 #+BEGIN_SRC elisp
+  (defun jf/100-px-window (window)
+    (let* ((desired (min (/ (frame-width) 2) 101))
+           (current (window-width window))
+           (delta (- desired current)))
+      (window-resize window delta :horizontal t)))
+
+  (defun jf/enforce-right-side-heights (win)
+    (let ((slot-heights '((-1 . 10)))
+          (parent (window-parent win)))
+      (when parent
+        (let ((child (window-child parent)))
+          (while child
+            (when-let* (((eq (window-parameter child 'window-side) 'right))
+                        (height (alist-get (window-parameter child 'window-slot) slot-heights)))
+              (window-resize child (- height (window-height child))))
+            (setq child (window-next-sibling child)))))))
+
   (setq display-buffer-alist
         '(((or "\\*Flymake diagnostics .*"
                "\\*Embark Export: .*"
@@ -999,7 +1014,8 @@ content to be.
                "\\*EGLOT connections\\*"
                "\\*trace-output\\*"
                "\\*occur\\*"
-               ".*eshell\\*")
+               ".*eshell\\*"
+               "\\*SQL: .*")
              (display-buffer-in-side-window)
              (side . bottom)
              (slot . 0)
@@ -1009,25 +1025,28 @@ content to be.
             ((or "magit: *"
                  "magit-revision: .*"
                  "magit-log*"
-                 "\\*eldoc\\*"
                  "\\*Help\\*"
                  "\\*rustfmt\\*"
                  "\\*slack: .*"
                  "\\*forge: .*"
                  "new-pullreq"
                  "\\*claude:.*"
-                 "\\*Man .*")
+                 "\\*Man .*"
+                 "\\*List .*")
              (display-buffer-reuse-window display-buffer-in-side-window)
              (side . right)
              (slot . 0)
-             (window-width . 0.5)
+             (window-width . jf/100-px-window)
+             (window-height . jf/enforce-right-side-heights)
              (window-parameters (no-delete-other-windows . t)
                                 (no-other-window . t)))
-            ("\\*Embark Actions\\*"
+            ((or "\\*Embark Actions\\*"
+                 "\\*eldoc\\*")
              (display-buffer-in-side-window)
                   (side . right)
                   (slot . -1)
-                  (window-width . 0.5)
+                  (window-width . jf/100-px-window)
+                  (window-height . jf/enforce-right-side-heights)
                   (window-parameters (no-delete-other-windows . t)
                                      (no-other-window . t)))))
 
@@ -1159,7 +1178,7 @@ Just "silently" wrap when searching at the bottom of a document.
         jq-mode
         (lispy.overrideAttrs {
           packageRequires = [
-            ace-window iedit swiper zoutline
+            ace-window iedit swiper zoutline hydra
           ];
           ignoreCompilationError = true;
         })
@@ -1361,7 +1380,7 @@ for completion. That makes it really annoying to use; don't use yasnippet with e
   (push '(typescript-mode . typescript-ts-mode) major-mode-remap-alist)
   (push '("\\.tsx\\'" . tsx-mode) auto-mode-alist)
   (push '(tsx-mode . tsx-ts-mode) major-mode-remap-alist)
-  (setopt typescript-ts-mode-indent-offset 4)
+  (setopt typescript-ts-mode-indent-offset 2)
   (with-eval-after-load 'typescript-ts-mode
     (defun my-tsx-ts-mode--indent-compatibility-b893426 ()
       "Indent rules helper, to handle different releases of tree-sitter-tsx.