28 lines
1.1 KiB
EmacsLisp
28 lines
1.1 KiB
EmacsLisp
|
;;; ui/pretty-code/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(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.")
|
||
|
|
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(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."
|
||
|
|
(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 (alist-get major-mode +pretty-code-symbols-alist)
|
||
|
|
(default-value 'prettify-symbols-alist)))
|
||
|
|
(when prettify-symbols-mode
|
||
|
|
(prettify-symbols-mode -1))
|
||
|
|
(prettify-symbols-mode +1)))
|