37 lines
1.5 KiB
EmacsLisp
37 lines
1.5 KiB
EmacsLisp
;;; ui/pretty-code/config.el -*- lexical-binding: t; -*-
|
|
|
|
(cond ((featurep! +fira)
|
|
(load! "+fira"))
|
|
((featurep! +iosevka)
|
|
(load! "+iosevka"))
|
|
((featurep! +pragmata-pro)
|
|
(load! "+pragmata-pro")))
|
|
|
|
(defvar +pretty-code-enabled-modes t
|
|
"List of major modes in which `prettify-symbols-mode' should be enabled.
|
|
If t, enable it everywhere. If the first element is 'not, enable it in any mode
|
|
besides what is listed.")
|
|
|
|
;; When you get to the right edge, it goes back to how it normally prints
|
|
(setq prettify-symbols-unprettify-at-point 'right-edge)
|
|
|
|
(defun +pretty-code|init-pretty-symbols ()
|
|
"Enabled `prettify-symbols-mode'.
|
|
|
|
If the current major mode is disabled in `+pretty-code-enabled-modes', this
|
|
function does nothing. Otherwise, it sets the value of
|
|
`prettify-code-symbols-alist' according to `+pretty-code-symbols-alist' for the
|
|
current major mode."
|
|
(unless (eq major-mode 'fundamental-mode)
|
|
(when (or (eq +pretty-code-enabled-modes t)
|
|
(if (eq (car +pretty-code-enabled-modes) 'not)
|
|
(not (memq major-mode (cdr +pretty-code-enabled-modes)))
|
|
(memq major-mode +pretty-code-enabled-modes)))
|
|
(setq prettify-symbols-alist
|
|
(append (cdr (assq major-mode +pretty-code-symbols-alist))
|
|
(default-value 'prettify-symbols-alist)))
|
|
(when prettify-symbols-mode
|
|
(prettify-symbols-mode -1))
|
|
(prettify-symbols-mode +1))))
|
|
|
|
(add-hook 'after-change-major-mode-hook #'+pretty-code|init-pretty-symbols)
|