upgrade

modules/home/users/msyds/emacs/lisp/syd/clojure.el

@@ -12,6 +12,7 @@
          ("\\(?:build\\|profile\\)\\.boot\\'" . clojure-mode))
   :interpreter (("bb" . clojure-mode)
                 ("nbb" . clojurescript-mode))
+  :custom ((clojure-toplevel-inside-comment-form t))
   :config
   (add-hook 'clojure-mode-hook #'syd-lisp-mode)
   ;; Correctly indent some popular macros.
@@ -30,7 +31,8 @@
   (defun syd-clojure-eval-region (beg end)
     (cider-eval-region beg end))
 
-  (syd-handle '(clojure-mode clojurescript-mode cider-repl-mode)
+  (syd-handle '(clojure-mode clojurescript-mode cider-repl-mode
+                             cider-clojure-interaction-mode)
     :docs #'cider-doc
     :eval-region #'syd-clojure-eval-region
     :load-buffer #'cider-load-buffer)

modules/home/users/msyds/emacs/lisp/syd/direnv.el

@@ -13,6 +13,9 @@
    "e" `("Environment" . ,syd-leader-file-env-map))
   :config
   (syd-push shackle-rules
-            `("*envrc*" :custom ,#'ignore)))
+            `("*envrc*" :custom ,#'ignore))
+  (with-eval-after-load 'projection-multi
+    (advice-add #'projection-multi-compile
+                :around #'envrc-propagate-environment)))
 
 (provide 'syd/direnv)

modules/home/users/msyds/emacs/lisp/syd/eshell.el

@@ -127,7 +127,6 @@ if FILE-NAME has no TRAMP prefix."
     (cons nil file-name)))
 
 (use-package eshell
-  :defer t
   :init
   (defvar syd-eshell-data-dir
     (file-name-concat syd-data-dir "eshell"))

modules/home/users/msyds/emacs/lisp/syd/evil.el

@@ -51,6 +51,11 @@
   ;; refresh is forced.  Quick fix!  }:P
   (add-hook 'minibuffer-setup-hook #'evil-refresh-cursor)
 
+  ;; HACK: ensure insert-state is the default state for minibuffers.
+  ;; https://github.com/emacs-evil/evil/issues/2034
+  (put 'evil-default-state 'permanent-local t)
+  (put 'evil-echo-state 'permanent-local t)
+
   ;; Unbind 'C-k'.  Normally, it inserts digraphs; I have a compose key, and
   ;; it's strictly less useful than Emacs' native input methods.  It often gets
   ;; in the way of buffers with navigation, e.g. scrolling through shell/REPL
@@ -62,8 +67,8 @@
   (defun syd-evil-messages ()
     (interactive)
     (view-echo-area-messages)
-     (with-current-buffer messages-buffer-name
-       (evil-motion-state 1)))
+    (with-current-buffer messages-buffer-name
+      (evil-motion-state 1)))
   (evil-ex-define-cmd "mes[sages]" #'syd-evil-messages)
 
   ;; On ESC, remove highlighted search results.
@@ -72,7 +77,7 @@
 Otherwise, nil."
     (let ((names '(evil-ex-substitute evil-ex-search)))
       (when (-any #'evil-ex-hl-active-p names)
-          (prog1 t (evil-ex-nohighlight)))))
+        (prog1 t (evil-ex-nohighlight)))))
   (add-hook 'syd-escape-hook #'syd-evil-nohl-h)
 
   (general-def

modules/home/users/msyds/emacs/lisp/syd/instaparse.el

@@ -0,0 +1,11 @@
+;;; -*- lexical-binding: t -*-
+
+(require 'syd/base)
+
+(use-package instaparse-mode
+  :mode "\\.ebnf\\'"
+  :straight (:type git
+             :host github
+             :repo "fbauer/instaparse-mode"))
+
+(provide 'syd/cc)

modules/home/users/msyds/emacs/lisp/syd/lsp.el

@@ -41,7 +41,7 @@
   (syd-push
    shackle-rules
    `(("*lsp-help*" "*lsp-install*")
-     :select nil :size 0.42 :popup t :align bottom))
+     :select nil :size 0.2 :popup t :align bottom))
   (defun syd-lsp-handle-docs ()
     (interactive)
     (save-excursion

modules/home/users/msyds/emacs/lisp/syd/scheme.el

@@ -23,6 +23,8 @@
    `("*Geiser Documentation*" ,@syd-help-popup-options)
    `("*Geiser Debug*" ,@syd-help-popup-options)))
 
-(use-package geiser-guile)
+;; (use-package geiser-guile)
+;; (use-package geiser-gauche)
+(use-package geiser-chibi)
 
 (provide 'syd/scheme)

modules/home/users/msyds/firefox.nix

@@ -224,8 +224,8 @@ in {
           force = true;
           # Precedence of search engines.
           order = [ "Kagi" "ddg" ];
-          default = "Kagi";
-          privateDefault = "Kagi";
+          default = "ddg";
+          privateDefault = "ddg";
           engines = {
             "Kagi" = {
               urls = [{