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(-)

(limited to 'init.el')

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(-)

(limited to 'init.el')

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(-)

(limited to 'init.el')

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