68 lines
2 KiB
EmacsLisp
68 lines
2 KiB
EmacsLisp
|
;;; ui/pretty-code/settings.el -*- lexical-binding: t; -*-
|
|||
|
|
|
|||
|
|
;;;###autoload
|
|||
|
|
(defvar +pretty-code-symbols
|
|||
|
|
'(;; org
|
|||
|
|
:name "»"
|
|||
|
|
:src_block "»"
|
|||
|
|
:src_block_end " "
|
|||
|
|
;; Functional
|
|||
|
|
:lambda "λ"
|
|||
|
|
:def "ƒ"
|
|||
|
|
:composition "∘"
|
|||
|
|
:map "↦"
|
|||
|
|
;; Types
|
|||
|
|
:null "∅"
|
|||
|
|
:true "𝕋"
|
|||
|
|
:false "𝔽"
|
|||
|
|
:int "ℤ"
|
|||
|
|
:float "ℝ"
|
|||
|
|
:str "𝕊"
|
|||
|
|
:bool "𝔹"
|
|||
|
|
;; Flow
|
|||
|
|
:not "￢"
|
|||
|
|
:in "∈"
|
|||
|
|
:not-in "∉"
|
|||
|
|
:and "∧"
|
|||
|
|
:or "∨"
|
|||
|
|
:for "∀"
|
|||
|
|
:some "∃"
|
|||
|
|
:return "⟼"
|
|||
|
|
:yield "⟻"
|
|||
|
|
;; Other
|
|||
|
|
:tuple "⨂"
|
|||
|
|
:pipe "" ;; FIXME: find a non-private char
|
|||
|
|
:dot "•")
|
|||
|
|
"Options plist for `set-pretty-symbols!'.
|
|||
|
|
|
|||
|
|
This should not contain any symbols from the Unicode Private Area! There is no
|
|||
|
|
universal way of getting the correct symbol as that area varies from font to
|
|||
|
|
font.")
|
|||
|
|
|
|||
|
|
;;;###autoload
|
|||
|
|
(defvar +pretty-code-symbols-alist nil
|
|||
|
|
"An alist containing a mapping of major modes to its value for
|
|||
|
|
`prettify-symbols-alist'.")
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;;###autoload
|
|||
|
|
(defun set-pretty-symbols! (modes &rest rest)
|
|||
|
|
(dolist (mode (doom-enlist modes))
|
|||
|
|
(if (null (car-safe rest))
|
|||
|
|
(setq var nil)
|
|||
|
|
(let (results merge key alist)
|
|||
|
|
(while rest
|
|||
|
|
(setq key (pop rest))
|
|||
|
|
(pcase key
|
|||
|
|
(:merge (setq merge t))
|
|||
|
|
(:alist (setq results (append (pop rest) results)))
|
|||
|
|
(_
|
|||
|
|
(unless (plist-member +pretty-code-symbols key)
|
|||
|
|
(user-error "Invalid keyword in set-pretty-symbols!: %s" key))
|
|||
|
|
(let* ((sym (pop rest))
|
|||
|
|
(char (plist-get +pretty-code-symbols key)))
|
|||
|
|
(push (cons sym char) results)))))
|
|||
|
|
(unless merge
|
|||
|
|
(assq-delete-all mode +pretty-code-symbols-alist))
|
|||
|
|
(push (cons mode results) +pretty-code-symbols-alist)))))
|