diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-fonts.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/acdw-fonts.el b/lisp/acdw-fonts.el index c4f16e8..6c0cb8d 100644 --- a/lisp/acdw-fonts.el +++ b/lisp/acdw-fonts.el | |||
@@ -113,5 +113,19 @@ your variable size is 14, the computed relative size will be | |||
113 | 113 | ||
114 | (add-hook 'buffer-face-mode-hook #'acdw-fonts/buffer-face-hook) | 114 | (add-hook 'buffer-face-mode-hook #'acdw-fonts/buffer-face-hook) |
115 | 115 | ||
116 | |||
117 | ;;; Emoji fonts | ||
118 | ;; from https://old.reddit.com/r/emacs/comments/mvlid5/ | ||
119 | |||
120 | (defun acdw-fonts/setup-emoji-fonts (&rest emoji-fonts) | ||
121 | "For all EMOJI-FONTS that exist, add them to the symbol fontset. | ||
122 | |||
123 | This is for emoji fonts." | ||
124 | (let ((ffl (font-family-list))) | ||
125 | (dolist (font emoji-fonts) | ||
126 | (when (member font ffl) | ||
127 | (set-fontset-font t 'symbol | ||
128 | (font-spec :family font) nil 'append))))) | ||
129 | |||
116 | (provide 'acdw-fonts) | 130 | (provide 'acdw-fonts) |
117 | ;;; acdw-fonts.el ends here | 131 | ;;; acdw-fonts.el ends here |