From a3faeaaf971cd4d6653e9dac416f176d8d58e3f5 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 11:33:48 -0500
Subject: Fix comments

---
 gnus.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnus.el b/gnus.el
index 185849b..994e5a1 100644
--- a/gnus.el
+++ b/gnus.el
@@ -47,9 +47,9 @@
 (setq gnus-summary-line-format
       (concat
        "%0{%U%R%z%}"
-       "%3{│%}" "%1{%d%}" "%3{│%}" ;; date
+       "%3{│%}" "%1{%d%}" "%3{│%}"      ; date
        "  "
-       "%4{%-20,20f%}"               ;; name
+       "%4{%-20,20f%}"                  ; name
        "  "
        "%3{│%}"
        " "
-- 
cgit 1.4.1-21-gabe81


From 5adbcfab5d45791fe4e0f8cf84f9d13d172251fc Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 11:34:04 -0500
Subject: Add acdw/reading-mode to read gnus articles

---
 gnus.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gnus.el b/gnus.el
index 994e5a1..6d1c21a 100644
--- a/gnus.el
+++ b/gnus.el
@@ -59,6 +59,7 @@
 (setq gnus-summary-display-arrow t)
 
 (add-hook 'gnus-group-mode-hook #'hl-line-mode)
+(add-hook 'gnus-article-mode-hook #'acdw/reading-mode)
 
 ;;; Sending mail
 (setq send-mail-function #'smtpmail-send-it
-- 
cgit 1.4.1-21-gabe81


From d466b613eafcd58d188a667abbb6a91e5744eb99 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 11:34:29 -0500
Subject: Change a couple gnus settings

---
 gnus.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gnus.el b/gnus.el
index 6d1c21a..fa20133 100644
--- a/gnus.el
+++ b/gnus.el
@@ -27,6 +27,11 @@
                 (nnir-search-engine imap))
         (nntp "news.tilde.club")))
 
+;;; Gnus behavior options
+(setq gnus-gcc-mark-as-read t
+      message-signature (or (file-exists-p message-signature-file)
+                            "~ acdw"))
+
 ;;; Gnus UI options
 (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date
                                    (not gnus-thread-sort-by-number))
-- 
cgit 1.4.1-21-gabe81


From 0298999997c8e04eb403a00490496ec7b7ce9012 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 11:35:02 -0500
Subject: Change emacs-lisp eval bindings

Try to emulate slime a little more.  I really like the flashy things, but IDK
how to get that with elisp yet.
---
 init.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/init.el b/init.el
index c65a3ea..b6a01d0 100644
--- a/init.el
+++ b/init.el
@@ -871,9 +871,11 @@ if ripgrep is installed, otherwise `consult-grep'."
           (eval-region (region-beginning) (region-end)))
       (with-message "Evaluating buffer"
         (eval-buffer))))
-  
+
+  ;; Emulate slime's eval binds
   (:with-map emacs-lisp-mode-map
-    (:bind "C-c C-c" acdw/eval-region-or-buffer
+    (:bind "C-c C-c" eval-defun
+           "C-c C-k" acdw/eval-region-or-buffer
            "C-c C-z" ielm))
 
   (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
-- 
cgit 1.4.1-21-gabe81


From 582fefbf468a1dfd1f8f1540dd971f2ae04f6970 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 11:35:40 -0500
Subject: Improve emoji font selection

Now, I loop through a list of candidates and append all that are available to
the symbol fontset.
---
 init.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/init.el b/init.el
index b6a01d0..f2224dc 100644
--- a/init.el
+++ b/init.el
@@ -182,12 +182,15 @@
   (icomplete-mode +1)
 
   ;; Emoji
-  (when-let* ((ffl (font-family-list))
-              (symbol-font (car (or (member "Segoe UI Emoji" ffl)
-                                    (member "Noto Color Emoji" ffl)
-                                    (member "Apple Emoji" ffl)))))
-    (set-fontset-font t 'symbol (font-spec :family symbol-font) nil 'prepend))
-
+  (let ((ffl (font-family-list)))
+    (dolist (emoji-font '("Segoe UI Emoji"
+                          "Noto Color Emoji"
+                          "Apple Color Emoji"
+                          "Symbola"))
+      (when (member emoji-font ffl)
+        (set-fontset-font t 'symbol
+                          (font-spec :family emoji-font) nil 'append))))
+  
   ;; Etc.
   (:option inhibit-startup-screen t
            initial-buffer-choice t
-- 
cgit 1.4.1-21-gabe81


From 7a62ff0a49d868f5e8547cd9c40e11ab5b83a6e8 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 12:58:26 -0500
Subject: Add gnus leader mapping

---
 init.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index f2224dc..a21e35d 100644
--- a/init.el
+++ b/init.el
@@ -558,7 +558,8 @@
            gnus-directory (expand-file-name "gnus/News" user-emacs-directory)
            gnus-init-file (expand-file-name "gnus.el" user-emacs-directory))
   (when (not (file-exists-p gnus-directory))
-    (make-directory gnus-directory :parents)))
+    (make-directory gnus-directory :parents))
+  (:leader "m" gnus))
 
 (when (eq acdw/system :home)
   ;; Apparently the original repo is unmaintained, thus this fork.
-- 
cgit 1.4.1-21-gabe81