100 lines
3.4 KiB
EmacsLisp
100 lines
3.4 KiB
EmacsLisp
;;; ui/pretty-code/config.el -*- lexical-binding: t; -*-
|
||
|
||
(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.")
|
||
|
||
(defun +pretty-code--correct-symbol-bounds (ligature-alist)
|
||
"Prepend non-breaking spaces to a ligature.
|
||
|
||
This way `compose-region' (called by `prettify-symbols-mode') will use the
|
||
correct width of the symbols instead of the width measured by `char-width'."
|
||
(let ((len (length (car ligature-alist)))
|
||
(acc (list (cdr ligature-alist))))
|
||
(while (> len 1)
|
||
(setq acc (cons #X00a0 (cons '(Br . Bl) acc))
|
||
len (1- len)))
|
||
(cons (car ligature-alist) acc)))
|
||
|
||
(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-h ()
|
||
"Enable `prettify-symbols-mode'.
|
||
|
||
If in fundamental-mode, or a mode derived from special, comint, eshell or term
|
||
modes, this function does nothing.
|
||
|
||
Otherwise it builds `prettify-code-symbols-alist' according to
|
||
`+pretty-code-symbols-alist' for the current major-mode."
|
||
(unless (or (eq major-mode 'fundamental-mode)
|
||
(eq (get major-mode 'mode-class) 'special)
|
||
(derived-mode-p 'comint-mode 'eshell-mode 'term-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-h)
|
||
|
||
;; Font-specific ligature support
|
||
(cond ((and IS-MAC
|
||
(fboundp 'mac-auto-operator-composition-mode)
|
||
(or (featurep! +fira)
|
||
(featurep! +iosevka)
|
||
(featurep! +hasklig)
|
||
(featurep! +pragmata-pro)))
|
||
(mac-auto-operator-composition-mode))
|
||
((featurep! +fira)
|
||
(load! "+fira"))
|
||
((featurep! +iosevka)
|
||
(load! "+iosevka"))
|
||
((featurep! +hasklig)
|
||
(load! "+hasklig"))
|
||
((featurep! +pragmata-pro)
|
||
(load! "+pragmata-pro")))
|