don't ask me it's been like months if not yearscruft/amdahl30

1 files changed, 22 insertions, 1 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 024a276..654aa0e 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -820,10 +820,15 @@ UPSTREAMS is a list of fetch URLs."
   (ediff-window-setup-function 'ediff-setup-windows-plain))
 
 (use-package eldoc
+  :custom
+  ;; TODO: causes awkward ^J in mode-line when reading passwords; perhaps
+  ;;       read-passwd--hide-password should use ; instead of \n.
+  (eldoc-help-at-pt t)
   :delight "📖")
 
 (use-package erc
   :custom
+  (erc-fill-function 'erc-fill-wrap)
   (erc-log-channels-directory
    (concat user-emacs-directory "erc/logs"))
   (erc-log-write-after-insert t)
@@ -856,7 +861,7 @@ UPSTREAMS is a list of fetch URLs."
   (erc-insert-timestamp-function 'erc-insert-timestamp-left)
   (erc-timestamp-format "[%F %H:%M] ")
   :config
-  (my/setopt-update-list erc-modules '(log notifications stamp track) '(fill))
+  (my/setopt-update-list erc-modules '(log notifications stamp track))
   (my/setopt-update-list erc-track-exclude-types '("JOIN" "PART" "QUIT")))
 
 (use-package find-dired
@@ -1056,3 +1061,19 @@ UPSTREAMS is a list of fetch URLs."
 ;; * decruftify mode-line (e.g. remove superflous parens).
 ;; * teach some modes to give better names to their buffers to reduce
 ;;   clobbering: info, occur
+
+;; Uncommitted site-stuff.
+
+;; Need to teach Emacs to only cry wolf when necessary.
+(setq ring-bell-function 'ignore)
+
+;; https://www.codingfont.com/ haþ spoken.
+(set-face-attribute
+ 'default nil
+ :family "Hack"
+ :height 105)
+(set-fontset-font
+ t 'mathematical
+ (font-spec :family "DejaVu Math TeX Gyre" :size 10.5))
+(set-fontset-font t 'symbol "DejaVu Sans Mono" nil 'prepend)
+(set-fontset-font t 'symbol "Hack" nil 'prepend)