diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/init.el b/init.el index 2d63ee6..a064bda 100644 --- a/init.el +++ b/init.el | |||
@@ -176,12 +176,15 @@ | |||
176 | ;; (icomplete-mode +1) | 176 | ;; (icomplete-mode +1) |
177 | 177 | ||
178 | ;; Emoji | 178 | ;; Emoji |
179 | (when-let* ((ffl (font-family-list)) | 179 | (let ((ffl (font-family-list))) |
180 | (symbol-font (car (or (member "Segoe UI Emoji" ffl) | 180 | (dolist (emoji-font '("Segoe UI Emoji" |
181 | (member "Noto Color Emoji" ffl) | 181 | "Noto Color Emoji" |
182 | (member "Apple Emoji" ffl))))) | 182 | "Apple Color Emoji" |
183 | (set-fontset-font t 'symbol (font-spec :family symbol-font) nil 'prepend)) | 183 | "Symbola")) |
184 | 184 | (when (member emoji-font ffl) | |
185 | (set-fontset-font t 'symbol | ||
186 | (font-spec :family emoji-font) nil 'append)))) | ||
187 | |||
185 | ;; Etc. | 188 | ;; Etc. |
186 | (:option inhibit-startup-screen t | 189 | (:option inhibit-startup-screen t |
187 | initial-buffer-choice t | 190 | initial-buffer-choice t |
@@ -560,7 +563,8 @@ | |||
560 | gnus-directory (expand-file-name "gnus/News" user-emacs-directory) | 563 | gnus-directory (expand-file-name "gnus/News" user-emacs-directory) |
561 | gnus-init-file (expand-file-name "gnus.el" user-emacs-directory)) | 564 | gnus-init-file (expand-file-name "gnus.el" user-emacs-directory)) |
562 | (when (not (file-exists-p gnus-directory)) | 565 | (when (not (file-exists-p gnus-directory)) |
563 | (make-directory gnus-directory :parents))) | 566 | (make-directory gnus-directory :parents)) |
567 | (:leader "m" gnus)) | ||
564 | 568 | ||
565 | (when (eq acdw/system :home) | 569 | (when (eq acdw/system :home) |
566 | ;; Apparently the original repo is unmaintained, thus this fork. | 570 | ;; Apparently the original repo is unmaintained, thus this fork. |
@@ -878,9 +882,11 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
878 | (eval-region (region-beginning) (region-end))) | 882 | (eval-region (region-beginning) (region-end))) |
879 | (with-message "Evaluating buffer" | 883 | (with-message "Evaluating buffer" |
880 | (eval-buffer)))) | 884 | (eval-buffer)))) |
881 | 885 | ||
886 | ;; Emulate slime's eval binds | ||
882 | (:with-map emacs-lisp-mode-map | 887 | (:with-map emacs-lisp-mode-map |
883 | (:bind "C-c C-c" acdw/eval-region-or-buffer | 888 | (:bind "C-c C-c" eval-defun |
889 | "C-c C-k" acdw/eval-region-or-buffer | ||
884 | "C-c C-z" ielm)) | 890 | "C-c C-z" ielm)) |
885 | 891 | ||
886 | (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode) | 892 | (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode) |