wip

home.org

@@ -752,19 +752,19 @@ These are just some general settings that apply everywhere. First, a few package
 Turn off some default settings that I don't find useful.
 
 #+BEGIN_SRC elisp
-  (setq inhibit-startup-screen t)
+  (setopt inhibit-startup-screen t)
-  (setq initial-scratch-message nil)
+  (setopt initial-scratch-message nil)
   (menu-bar-mode -1)
   (scroll-bar-mode -1)
   (tool-bar-mode -1)
-  (setq make-backup-files nil)
+  (setopt make-backup-files nil)
-  (setq split-width-threshold 200)
+  (setopt split-width-threshold 200)
-  (setq split-height-threshold nil)
+  (setopt split-height-threshold nil)
   (setopt display-buffer-base-action
    '((display-buffer-reuse-window display-buffer-same-window
       display-buffer-in-previous-window
       display-buffer-use-some-window)))
-  (setq view-read-only t)
+  (setopt view-read-only t)
 #+END_SRC
 
 Make sure which-key mode is always on. The on-the-fly keymap help it gives is indespensable.
@@ -791,7 +791,7 @@ From the docs: "If ‘complete’, TAB first tries to indent the current line, a
 already indented, then try to complete the thing at point." Recommended by [[https://github.com/minad/corfu][the ~corfu~ readme]].
 
 #+BEGIN_SRC elisp
-  (setq tab-always-indent 'complete)
+  (setopt tab-always-indent 'complete)
 #+END_SRC
 
 Set the cursor to be a bar. I'm not sure what the benefit would be of a block cursor, since the
@@ -845,7 +845,6 @@ cool, so I'm turning it on in prog mode. The enabled ligatures are font-specific
 ligature wiki]].
 
 #+BEGIN_SRC elisp
-  (require 'ligature)
   (ligature-set-ligatures 'prog-mode 
                           '("--" "---" "==" "===" "!=" "!==" "=!="
                             "=:=" "=/=" "<=" ">=" "&&" "&&&" "&=" "++" "+++" "***" ";;" "!!"
@@ -878,7 +877,6 @@ Use variable-width fonts in text buffers. ~mixed-pitch-mode~ keeps most code blo
 A basic ace-window setup. Allows switching between windows quickly (although avy can do the same...).
 
 #+BEGIN_SRC elisp
-  (require 'ace-window)
   (bind-keys ("M-o" . ace-window)
              ("s-o" . ace-window))
   (setopt aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
@@ -890,8 +888,10 @@ Set up a few project- / workspace-related key bindings.
 #+BEGIN_SRC elisp
   (bind-keys ("s-f" . project-find-file)
              ("s-F" . project-switch-project))
+  
+  (with-eval-after-load tab-bar-mode
     (bind-keys :map tab-bar-mode-map
-             ("s-s" . tab-bar-switch-to-tab))
+               ("s-s" . tab-bar-switch-to-tab)))
 #+END_SRC
 
 Don't run a server. I'm not using this, I can always turn it back on if I need to.
@@ -904,7 +904,7 @@ All the beeping is annoying. This flashes a huge icon over the screen, which is
 less so?
 
 #+BEGIN_SRC elisp
-  (setq visible-bell t)
+  (setopt visible-bell t)
 #+END_SRC
 
 I'm trying this out. This disables visual selections. It's bold, which is why I like it :)
@@ -922,14 +922,19 @@ change when drilling into a help page or something. I've set up repeat mode to m
 move backward / forward through history.
 
 #+BEGIN_SRC elisp
-  (require 'tab-bar)
-
   (bind-keys :repeat-map tab-bar-repeat-map
              ("<left>" . tab-bar-history-back)
              ("<right>" . tab-bar-history-forward))
+
   (tab-bar-history-mode)
 #+END_SRC
 
+Make compilation mode buffers auto-scroll to the first error:
+
+#+BEGIN_SRC elisp
+  (setopt compilation-scroll-output 'first-error)
+#+END_SRC
+
 *** Window Placement
 This section contains rules about where ~display-buffer~ should place windows. I guess I'm currently
 going for an IDE-style layout, with one main editor window, and auxiliary bottom and right side
@@ -987,6 +992,7 @@ content to be.
                     window-persistent-parameters))
 #+END_SRC
 
+
 ** Editing
 :PROPERTIES:
 :header-args:elisp: :tangle target/desktop/emacs-editing.el
@@ -1062,11 +1068,9 @@ ideas from Karthinks' article [[https://karthinks.com/software/avy-can-do-anythi
 his article.
 
 #+BEGIN_SRC elisp
-  (require 'avy)
-  (require 'embark)
-
   (defun avy-goto-char-timer-embark ()
     (interactive)
+    (require 'avy)
     (let ((avy-action-oneshot
            (lambda (pt)
              (unwind-protect
@@ -1090,7 +1094,6 @@ Just "silently" wrap when searching at the bottom of a document.
 #+END_SRC
 
 #+BEGIN_SRC elisp
-  (require 'string-inflection)
   (defun string-inflection-rust-style-cycle-function (str)
     (cond
      ((string-inflection-snake-case-p str)
@@ -1102,6 +1105,7 @@ Just "silently" wrap when searching at the bottom of a document.
 
   (defun string-inflection-rust-style-cycle ()
     (interactive)
+    (require 'string-inflection)
     (string-inflection--symbol-or-region #'string-inflection-rust-style-cycle-function))
 
   (bind-keys :repeat-map string-inflection-java-map
@@ -1126,6 +1130,7 @@ Just "silently" wrap when searching at the bottom of a document.
         consult-eglot
         haskell-ts-mode
         jenkinsfile-mode
+        jq-mode
         lispy
         lua-mode
         nix-mode
@@ -1149,7 +1154,11 @@ available? It seems to work for now anyway...
 #+BEGIN_SRC elisp
   (electric-pair-mode 1)
 
-  (require 'prog-mode)
+  (autoload 'flymake-show-project-diagnostics "flymake")
+  (autoload 'flymake-goto-next-error "flymake")
+  (autoload 'flymake-goto-prev-error "flymake")
+
+  (with-eval-after-load 'prog-mode
     (defun my-prog-fill-reindent-defun (&optional argument)
       "Refill or reindent the paragraph or defun that contains point.
 
@@ -1176,30 +1185,28 @@ available? It seems to work for now anyway...
 
     (advice-add 'prog-fill-reindent-defun :override #'my-prog-fill-reindent-defun)
 
-  (require 'flymake)
     (bind-keys :map prog-mode-map
                ("C-c D" . flymake-show-project-diagnostics)
                ("M-n" . flymake-goto-next-error)
                ("M-p" . flymake-goto-prev-error))
+    (defun jf-init-fill-column ()
+      (display-fill-column-indicator-mode 1))
+    (add-hook 'prog-mode-hook 'jf-init-fill-column))
 
   (setq-default indent-tabs-mode nil)
   (setq-default tab-width 4)
   (global-tree-sitter-mode 1)
   (setq-default fill-column 100)
 
-  (defun jf-init-fill-column ()
-    (display-fill-column-indicator-mode 1))
-  (add-hook 'prog-mode-hook 'jf-init-fill-column)
-
   (setopt eglot-ignored-server-capabilities '(:inlayHintProvider :semanticTokensProvider))
   (add-hook 'eglot-managed-mode-hook (lambda () (eglot-inlay-hints-mode -1)) nil t)
-  (require 'eglot)
   (setopt eglot-code-action-indications nil)
+  (with-eval-after-load 'eglot
     (bind-keys :map eglot-mode-map
                ("C-c a" . eglot-code-actions)
                ("C-c r" . eglot-rename)
                ("C-c i" . eglot-find-implementation))
-  (add-to-list  'eglot-stay-out-of 'yasnippet)
+    (add-to-list 'eglot-stay-out-of 'yasnippet))
 
   (setopt ediff-split-window-function 'split-window-horizontally)
 
@@ -1208,9 +1215,9 @@ available? It seems to work for now anyway...
     (nix-flake (project-root (project-current t))))
   (bind-keys ("C-x p n" . project-nix-flake))
 
-  (require 'flymake)
+  (with-eval-after-load 'flymake
     (bind-keys :map flymake-project-diagnostics-mode-map
-             ("q" . quit-window))
+               ("q" . quit-window)))
   #+END_SRC
 
 *** Rust
@@ -1219,15 +1226,13 @@ available? It seems to work for now anyway...
 
   (setopt rust-mode-treesitter-derive t)
 
-  (require 'rust-ts-mode)
+  (with-eval-after-load 'rust-prog-mode
-  (bind-keys :map rust-ts-mode-map
+    (bind-keys :map rust-mode-map
-             ("C-c u" . string-inflection-rust-style-cycle))
+               ("C-c u" . string-inflection-rust-style-cycle)))
 #+END_SRC
 
 *** YAML
 #+BEGIN_SRC elisp
-  (require 'yaml-ts-mode)
-  
   (defun yaml-validate ()
     (interactive)
     (compile (concat "yamllint -d '{extends: default, rules: {indentation: {indent-sequences: false}, braces: {max-spaces-inside: 1}}}' " (buffer-file-name)) t))
@@ -1242,19 +1247,19 @@ available? It seems to work for now anyway...
   (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)))
-  (require 'lispy)
+  (with-eval-after-load 'lispy
     (bind-keys :map lispy-mode-map
                ("i" . (lambda ()
                         (interactive)
-                      (if god-global-mode
+                        (if (and (featurep 'god-mode) god-global-mode)
                             (god-mode-all -1)
-                        (special-lispy-tab)))))
+                          (special-lispy-tab))))))
 #+END_SRC
 
 *** Typescript
 #+BEGIN_SRC elisp
   (setopt typescript-ts-mode-indent-offset 4)
-  (require 'typescript-ts-mode)
+  (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.
   Check if a node type is available, then return the right indent rules."
@@ -1266,12 +1271,12 @@ available? It seems to work for now anyway...
         (treesit-query-error
          `(((match "<" "jsx_text") parent 0)
            ((parent-is "jsx_text") grand-parent typescript-ts-mode-indent-offset)))))
-  (advice-add 'tsx-ts-mode--indent-compatibility-b893426 :override #'my-tsx-ts-mode--indent-compatibility-b893426)
+    (advice-add 'tsx-ts-mode--indent-compatibility-b893426 :override #'my-tsx-ts-mode--indent-compatibility-b893426))
 #+END_SRC
 
 *** Java
 #+BEGIN_SRC elisp
-  (require 'java-ts-mode)
+  (with-eval-after-load 'java-ts-mode
     (bind-keys :map java-ts-mode-map
                ("C-c u" . string-inflection-java-style-cycle))
     (push `((n-p-gp nil "block" "lambda_expression") parent-bol java-ts-mode-indent-offset)
@@ -1294,7 +1299,7 @@ available? It seems to work for now anyway...
                 (setq result path)))))))
 
     (defun jf/compile-class-to-file ()
-    (jf/class-name-to-file (concat (match-string 1) (match-string 2))))
+      (jf/class-name-to-file (concat (match-string 1) (match-string 2)))))
 
                                           ;(add-to-list 'compilation-error-regexp-alist-alist
                                           ;             '(java-stack-trace .
@@ -1357,7 +1362,7 @@ available? It seems to work for now anyway...
 #+END_SRC
 
 #+BEGIN_SRC elisp
-  (setq magit-define-global-key-bindings 'recommended)
+  (setopt magit-define-global-key-bindings 'recommended)
 
   (setopt magit-save-repository-buffers 'dontask)
   (setopt magit-commit-show-diff nil)
@@ -1445,15 +1450,16 @@ available? It seems to work for now anyway...
    ("M-s" . consult-history)
    ("M-r" . consult-history))
 
-  (add-hook 'completion-list-mode-hook 'consult-preview-at-point-mode)
-
   (advice-add 'register-preview :override #'consult-register-window)
   (setopt register-preview-delay 0.5)
 
   (setopt xref-show-xrefs-function 'consult-xref)
   (setopt xref-show-definitions-function 'consult-xref)
 
-  (require 'consult)
+  (eval-when-compile
+    (require 'consult))
+
+  (with-eval-after-load 'consult
     (consult-customize
      consult-theme :preview-key '(:debounce 0.2 any)
      consult-ripgrep consult-git-grep consult-grep consult-man
@@ -1461,7 +1467,7 @@ available? It seems to work for now anyway...
      consult-source-bookmark consult-source-file-register
      consult-source-recent-file consult-source-project-recent-file
      ;; :preview-key "M-."
-   :preview-key '(:debounce 0.4 any))
+     :preview-key '(:debounce 0.4 any)))
 
   (setopt consult-narrow-key "<") ;; "C-+"
 
@@ -1476,11 +1482,8 @@ available? It seems to work for now anyway...
   (setopt corfu-popupinfo-mode nil)
   (setopt corfu-quit-at-boundary nil)
   (setopt corfu-on-exact-match 'show)
-  ;; (global-corfu-mode)
+  (global-corfu-mode)
-  (setq completion-in-region-function #'consult-completion-in-region)
+  ;; (setq completion-in-region-function #'consult-completion-in-region)
-
-  ;; Consult users will also want the embark-consult package.
-  (add-hook 'embark-collect-mode-hook 'consult-preview-at-point-mode)
 
   (add-hook 'completion-at-point-functions 'cape-file)
 #+END_SRC
@@ -1753,10 +1756,7 @@ available? It seems to work for now anyway...
 #+END_SRC
 
 #+BEGIN_SRC elisp
-  (require 'claude-code)
-
   (global-set-key (kbd "C-c c") claude-code-command-map)
-  (claude-code-mode)
 #+END_SRC
 * Theme
 I like Catppuccin Frappe as my theme. Let's use it in as many places as we can.