a7cba67fd6
Refactors the ligature configuration to support more than just Iosevka (uses Fira Code as the second font).
67 lines
2 KiB
EmacsLisp
67 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)))))
|