md: 2026-08-21T01:12:59+02:00

1 files changed, 101 insertions, 9 deletions

diff --git a/config.org b/config.org
index 9ea7d64..f513a4c 100644
--- a/config.org
+++ b/config.org
@@ -10,7 +10,7 @@
 (setq pgtk-wait-for-event-timeout 0.001)
 (setq package-enable-at-startup nil)
 ;; (setq-default mode-line-format t) ;; disabled: boolean t is not valid for mode-line-format
-(setq default-frame-alist '((undecorated . t)))
+(add-to-list 'default-frame-alist '(undecorated . t))
 ;; GC + file-name-handler-alist tuning lives in early-init.el now.
 (setq create-lockfiles nil)
 (setq make-backup-files nil)
@@ -40,8 +40,30 @@
   (defvar my/local-packages nil
     "Alist of (PACKAGE . DIRECTORY) loaded from a local checkout.
 Set per-host in the gitignored `local.el'.")
+  (defvar cashmere/frame-alpha-background nil
+    "Per-host frame opacity, or nil for the Emacs default.")
+  (defvar cashmere/font-height 180
+    "Per-host default font height in tenths of a point.")
+  (defvar cashmere/theme nil
+    "Per-host theme to load, or nil for no theme.")
   (load (locate-user-emacs-file "local.el") 'noerror 'nomessage))
 
+;; Apply appearance settings at runtime only.  Keeping these outside
+;; `eval-and-compile' avoids loading themes or mutating the initial daemon
+;; frame while native compilation is inspecting the configuration.
+(when cashmere/frame-alpha-background
+  (add-to-list 'default-frame-alist
+               `(alpha-background . ,cashmere/frame-alpha-background))
+  (when (display-graphic-p)
+    (set-frame-parameter nil 'alpha-background
+                         cashmere/frame-alpha-background)))
+
+(when cashmere/theme
+  (add-to-list 'custom-theme-load-path
+               (expand-file-name "themes" user-emacs-directory))
+  (unless (memq cashmere/theme custom-enabled-themes)
+    (load-theme cashmere/theme t)))
+
 (dolist (entry my/local-packages)
   (add-to-list 'load-path (expand-file-name (cdr entry))))
 
@@ -460,16 +482,16 @@ Selects the compilation window so the cursor lands in it."
 
 (defun my/erc-fetch-history (&optional count)
   "Fetch COUNT previous messages from Soju via CHATHISTORY.
-Defaults to 1000 (soju max). With prefix arg, prompts for count.
+Defaults to 100 (soju max). With prefix arg, prompts for count.
 Temporarily disables notifications during the fetch."
   (interactive "P")
   (let ((target (erc-default-target)))
     (if (not target)
         (message "Not in a channel buffer.")
       (let ((n (min (if count
-                       (read-number "Messages to fetch: " 1000)
-                     1000)
-                    1000)))
+                       (read-number "Messages to fetch: " 100)
+                     100)
+                    100)))
         (erc-notifications-disable)
         (erc-server-send (format "CHATHISTORY LATEST %s * %d" target n))
         (run-at-time 5 nil #'erc-notifications-enable)))))
@@ -662,6 +684,11 @@ Temporarily disables notifications during the fetch."
           (240 . "#74c7ec")
           (260 . "#89b4fa")
           (280 . "#b4befe"))))
+(use-package vc-fossil
+  ;; Keep from loading unnecessarily at startup.
+  :ensure t 
+  ;; This allows VC to load vc-fossil when needed.
+  :init (add-to-list 'vc-handled-backends 'Fossil t))
 #+end_src
 
 * ibuffer
@@ -2790,13 +2817,17 @@ Auto switch silos (different workspaces/folders) based on preconfigured director
 
 #+begin_src emacs-lisp
 (use-package yasnippet
-  :ensure t
+  :ensure (:wait t)
+  :demand t
   :config
   (yas-global-mode 1))
 
 (use-package yasnippet-snippets
-  :ensure t
-  :after yasnippet)
+  :ensure (:wait t)
+  :demand t
+  :after yasnippet
+  :config
+  (yas-reload-all))
 #+end_src
 
 ** nix-ts-mode
@@ -3472,6 +3503,13 @@ created later still get them."
     (set-face-attribute 'fixed-pitch frame :family "Maple Mono NF" :weight 'regular)
     (set-face-attribute 'variable-pitch frame :family "Maple Mono NF" :weight 'regular :height 1.1)))
 
+;; A daemon's first GUI frame must be born with the final font.  Applying it
+;; only from `server-after-make-frame-hook' lets the compositor show one frame
+;; with the fallback font first, which changes the window's character geometry
+;; and makes centered content visibly jump.
+(add-to-list 'default-frame-alist
+             `(font . ,(format "Maple Mono NF-%g"
+                               (/ cashmere/font-height 10.0))))
 (add-hook 'server-after-make-frame-hook #'cashmere/set-fonts)
 (cashmere/set-fonts)
 #+end_src
@@ -3592,6 +3630,11 @@ moved to local.el
 (use-package textui
   :ensure (:host github :repo "yibie/textui" :files ("*.el")))
 
+(use-package fossil-ui
+  :ensure nil
+  :after textui
+  :commands (fossil-ui fossil-ui-status))
+
 (use-package yggdrasil-ui
   :ensure nil
   :after textui
@@ -4188,6 +4231,7 @@ workspace (e.g. *scratch*)."
   "g" '(:ignore t :wk "git")
   "gc" '(magit-clone :wk "clone")
   "gg" '(magit-status :wk "status")
+  "gf" '(fossil-ui-status :wk "fossil status")
   "gl" '(magit-log-current :wk "log")
   "gi" '(magit-init :wk "init")
   "gd" '(xref-find-definitions :wk "go to definition") 
@@ -4288,7 +4332,8 @@ workspace (e.g. *scratch*)."
 (general-def '(normal visual operator) 'override
   :predicate '(not (derived-mode-p 'mu4e-main-mode 'mu4e-headers-mode
                                     'mu4e-view-mode 'mu4e-compose-mode
-                                    'croc-ui-mode 'sync-ui-mode))
+                                    'croc-ui-mode 'sync-ui-mode
+                                    'fossil-ui-mode))
   "s" 'my/s-key-dispatch)
 
 
@@ -4766,6 +4811,14 @@ reset is unnecessary, so do the handler resolution ourselves and skip
   (add-hook 'message-send-mail-hook 'mu4e-set-msmtp-account))
 #+end_src
 
+** Himalaya
+
+#+begin_src emacs-lisp
+(use-package himalaya-ui
+  :ensure nil
+  :commands (himalaya-ui))
+#+end_src
+
 ** mu4e-alerts
 
 #+begin_src emacs-lisp
@@ -5230,6 +5283,45 @@ opening another file in same project does not re-notify."
 #+end_src
 
 
+* clatter
+
+#+begin_src emacs-lisp
+(use-package clatter
+  :ensure (:host github :repo "parenworks/clatter.el")
+  :commands (clatter clatter-quick-connect)
+  :custom
+  (clatter-message-order 'oldest-first)
+  (clatter-notify-enabled t)
+  (clatter-notify-on-mention t)
+  (clatter-notify-on-dm t)
+  (clatter-notify-on-invite t)
+  (clatter-notify-on-keyword t)
+  (clatter-notify-keywords '("cashmere"))
+  (clatter-notify-current-buffer nil)
+  (clatter-notify-timeout 5000)
+  (clatter-notify-urgency 'normal)
+  (clatter-networks
+   `(("soju"
+      :server "bouncer.cashmere.rs"
+      :port 6699
+      :tls t
+      :nick "cashmere"
+      ;; Bare bouncer username: fans out to every upstream network.
+      :username "cashmere/libera"
+      :password ,(password-store-get "soju")
+      :sasl plain
+      :bouncer t)))
+  :config
+  (require 'gnutls)
+  (clatter-setup)
+  (clatter-dcc-setup)
+  (with-eval-after-load 'org
+    (require 'clatter-org)
+    (clatter-org-setup)))
+#+end_src
+
+
+
 * provide init
 
 #+begin_src emacs-lisp