format-all

flake.lock

@@ -25,11 +25,11 @@
         ]
       },
       "locked": {
-        "lastModified": 1779969295,
+        "lastModified": 1782233665,
-        "narHash": "sha256-HwIJ3tOcwSMiV75L7KqJXciXR9UfT+d7rwOZMX7cTnA=",
+        "narHash": "sha256-h/xOtrByoA/Ak1lWHn0O1lVZz4qWYbwOSLQ8YSwQO0I=",
         "owner": "nix-community",
         "repo": "home-manager",
-        "rev": "61e2c9659324181e0f0ed911958c536333b1d4f6",
+        "rev": "062581938b4a378a82dfbb294b494808157153a1",
         "type": "github"
       },
       "original": {
@@ -65,11 +65,11 @@
         ]
       },
       "locked": {
-        "lastModified": 1779604987,
+        "lastModified": 1782030356,
-        "narHash": "sha256-ZQ5z+fVhxYKtIFwtqGp5O0PD84BM1riASvqDaN5Xs+s=",
+        "narHash": "sha256-h4WpMr455AfRub0FXBaon6Vcpe0waUyJ4GivIW6oyd4=",
         "owner": "nix-community",
         "repo": "nix-index-database",
-        "rev": "8fba98c80b48fa013820e0163c5096922fea4ddd",
+        "rev": "3017088b49efd404f78e3b104f553b97e4af786b",
         "type": "github"
       },
       "original": {
@@ -80,11 +80,11 @@
     },
     "nixpkgs": {
       "locked": {
-        "lastModified": 1779560665,
+        "lastModified": 1781577229,
-        "narHash": "sha256-tpyBcxPpcQb8ukyNF7DoCwfSY3VPsxHoYwj00Cayv5o=",
+        "narHash": "sha256-lrp67w8AulE9Ks53n27I45ADSzbOCn4H+CNW1Ck8B+8=",
         "owner": "nixos",
         "repo": "nixpkgs",
-        "rev": "64c08a7ca051951c8eae34e3e3cb1e202fe36786",
+        "rev": "567a49d1913ce81ac6e9582e3553dd90a955875f",
         "type": "github"
       },
       "original": {

flake.nix

@@ -41,7 +41,7 @@
             '';
         };
     in {
-      homeConfigurations.shibumi =
+      homeConfigurations.redbook =
         let pkgs = import nixpkgs { system = "aarch64-darwin"; config.allowUnfree = true; };
             modules = modules-for-system pkgs;
         in home-manager.lib.homeManagerConfiguration {
@@ -52,8 +52,8 @@
               nix-index-database.homeModules.default
               "${modules}/base.nix"
               "${modules}/desktop.nix"
-              "${modules}/shibumi.nix"
+              "${modules}/redbook.nix"
-              "${modules}/shibumi-desktop.nix"
+              "${modules}/redbook-desktop.nix"
             ] ++
             [{
               home.stateVersion = "22.05";

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
+       postgresql
-       awscli2
-       kube
-       kubectl
-       mariadb.client
        openssh
      ];
 
@@ -191,6 +187,7 @@ These programs require a full desktop environment:
     home.packages = with pkgs; [
       google-chrome
       nerd-fonts.jetbrains-mono
+      nerd-fonts.symbols-only
       (iosevka-bin.override { variant = "Aile"; })
       (iosevka-bin.override { variant = "Etoile"; })
       (iosevka-bin.override { variant = "SGr-IosevkaTerm"; })
@@ -205,7 +202,9 @@ These programs require a full desktop environment:
   {pkgs, ...}:
   {
     home.packages = with pkgs; [
+      linear
       slack
+      teams
     ];
   }
 #+END_SRC
@@ -314,6 +313,7 @@ We all know what ~git~ does.
       enable = true;
       settings.user.name = "Joe Frikker";
       settings.user.email = "joe@redbookcattle.com";
+      settings.github.user = "joe@redbookcattle.com";
     };
 
     programs.delta = {
@@ -985,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: .*"
@@ -997,7 +1014,8 @@ content to be.
                "\\*EGLOT connections\\*"
                "\\*trace-output\\*"
                "\\*occur\\*"
-               ".*eshell\\*")
+               ".*eshell\\*"
+               "\\*SQL: .*")
              (display-buffer-in-side-window)
              (side . bottom)
              (slot . 0)
@@ -1007,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)))))
 
@@ -1051,9 +1072,11 @@ This configuration affects general text editing, across all modes. First, some p
         avy
         edit-indirect
         embark
-        evil
+        format-all
-        evil-collection
+        god-mode
-        evil-org
+        # evil
+        # evil-collection
+        # evil-org
         string-inflection
       ];
       extraConfig = builtins.readFile ./emacs-editing.el;
@@ -1073,17 +1096,32 @@ cancel them more frequently). In the end, I opted for Devil mode. It avoids modi
 its own devil-mode-only repeat maps that don't interfere when using normal modifier key sequences.
 
  #+BEGIN_SRC elisp
-  (setopt evil-want-keybinding nil)
+   ;; (setopt evil-want-keybinding nil)
-  (require 'evil)
+   ;; (require 'evil)
-  (evil-mode 1)
+   ;; (evil-mode 1)
-  (require 'evil-collection)
+   ;; (require 'evil-collection)
-  (evil-collection-init)
+   ;; (evil-collection-init)
 
-  (require 'evil-org)
+   ;; (require 'evil-org)
-  (add-hook 'org-mode-hook 'evil-org-mode)
+   ;; (add-hook 'org-mode-hook 'evil-org-mode)
-  (evil-org-set-key-theme '(navigation insert textobjects additional calendar))
+   ;; (evil-org-set-key-theme '(navigation insert textobjects additional calendar))
-  (require 'evil-org-agenda)
+   ;; (require 'evil-org-agenda)
-  (evil-org-agenda-set-keys) 
+   ;; (evil-org-agenda-set-keys)
+   (require 'god-mode)
+   (require 'which-key)
+
+   (bind-keys :map god-local-mode-map
+              ("i" . (lambda () (interactive) (god-mode-all -1)))
+              ("z" . repeat))
+   (bind-keys ("<escape>" . (lambda () (interactive) (god-mode-all 1))))
+   (defun my-god-mode-update-cursor-type ()
+     (setq cursor-type (cond
+                        (org-present-mode nil)
+                        ((or (and (featurep 'god-mode) god-local-mode) buffer-read-only) 'box)
+                        (t 'bar))))
+
+   (add-hook 'post-command-hook 'my-god-mode-update-cursor-type)
+   (which-key-enable-god-mode-support)
 #+END_SRC
 
 Avy allows jumping to any place on the screen with just a few keystrokes. I've stolen most of these
@@ -1141,6 +1179,34 @@ Just "silently" wrap when searching at the bottom of a document.
   (bind-keys ("C-x 4 n" . edit-indirect-region))
 #+END_SRC
 
+** Workflow
+:PROPERTIES:
+:header-args:elisp: :tangle target/desktop/emacs-workflow.el
+:END:
+
+#+BEGIN_SRC nix :tangle target/desktop/emacs-workflow.nix
+  {
+    programs.emacs = {
+      enable = true;
+      extraPackages = epkgs: with epkgs; [
+        bufferlo
+      ];
+      extraConfig = builtins.readFile ./emacs-workflow.el;
+    };
+  }
+#+END_SRC
+
+#+BEGIN_SRC elisp
+  (bufferlo-mode)
+
+  (with-eval-after-load 'bufferlo
+    (setq mode-line-misc-info
+          (assq-delete-all 'bufferlo-mode mode-line-misc-info)))
+
+  (bind-keys
+   ("s-b" . bufferlo-switch-to-buffer))
+#+END_SRC
+
 ** Language Support
 :PROPERTIES:
 :header-args:elisp: :tangle target/desktop/emacs-languages.el
@@ -1157,11 +1223,11 @@ 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;
         })
-        lispyville
+        # lispyville
         lua-mode
         nix-mode
         rust-mode
@@ -1342,15 +1408,15 @@ for completion. That makes it really annoying to use; don't use yasnippet with e
   (setopt lispy-compat '(god-mode edebug))
   (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))
   (add-hook 'lisp-mode-hook (lambda () (lispy-mode 1)))
-  (with-eval-after-load 'lispy
+  ;; (with-eval-after-load 'lispy
-    (require 'lispyville)
+  ;;   (require 'lispyville)
-    (add-hook 'lispy-mode-hook #'lispyville-mode)
+  ;;   (add-hook 'lispy-mode-hook #'lispyville-mode)
-    (bind-keys :map lispy-mode-map
+  ;;   (bind-keys :map lispy-mode-map
-               ("i" . (lambda ()
+  ;;              ("i" . (lambda ()
-                        (interactive)
+  ;;                       (interactive)
-                        (if (and (featurep 'god-mode) god-global-mode)
+  ;;                       (if (and (featurep 'god-mode) god-global-mode)
-                            (god-mode-all -1)
+  ;;                           (god-mode-all -1)
-                          (special-lispy-tab))))))
+  ;;                         (special-lispy-tab))))))
 #+END_SRC
 
 *** Typescript
@@ -1359,7 +1425,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.
@@ -1519,7 +1585,6 @@ for completion. That makes it really annoying to use; don't use yasnippet with e
 
    ;; ("C-x M-:" . consult-complex-command)
    ("C-x b" . consult-buffer)
-   ("s-b" . consult-project-buffer)
    ("s-B" . consult-buffer)
    ("C-x 4 b" . consult-buffer-other-window)
    ("C-x 5 b" . consult-buffer-other-frame)