Support for multiple ligature'd fonts
Refactors the ligature configuration to support more than just Iosevka (uses Fira Code as the second font).
This commit is contained in:
Josh Seba
parent
15f66f4b52
commit
a7cba67fd6
6 changed files with 467 additions and 358 deletions
131
modules/ui/pretty-code/+fira.el
Normal file
131
modules/ui/pretty-code/+fira.el
Normal file
|
|
@ -0,0 +1,131 @@
|
||||||
|
;;; ui/pretty-code/+fira.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(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)))
|
||||||
|
|
||||||
|
(defconst +pretty-code-fira-code-font-ligatures
|
||||||
|
(mapcar #'+pretty-code--correct-symbol-bounds
|
||||||
|
'(("www" . #Xe100)
|
||||||
|
("**" . #Xe101)
|
||||||
|
("***" . #Xe102)
|
||||||
|
("**/" . #Xe103)
|
||||||
|
("*>" . #Xe104)
|
||||||
|
("*/" . #Xe105)
|
||||||
|
("\\\\" . #Xe106)
|
||||||
|
("\\\\\\" . #Xe107)
|
||||||
|
("{-" . #Xe108)
|
||||||
|
("[]" . #Xe109)
|
||||||
|
("::" . #Xe10a)
|
||||||
|
(":::" . #Xe10b)
|
||||||
|
(":=" . #Xe10c)
|
||||||
|
("!!" . #Xe10d)
|
||||||
|
("!=" . #Xe10e)
|
||||||
|
("!==" . #Xe10f)
|
||||||
|
("-}" . #Xe110)
|
||||||
|
("--" . #Xe111)
|
||||||
|
("---" . #Xe112)
|
||||||
|
("-->" . #Xe113)
|
||||||
|
("->" . #Xe114)
|
||||||
|
("->>" . #Xe115)
|
||||||
|
("-<" . #Xe116)
|
||||||
|
("-<<" . #Xe117)
|
||||||
|
("-~" . #Xe118)
|
||||||
|
("#{" . #Xe119)
|
||||||
|
("#[" . #Xe11a)
|
||||||
|
("##" . #Xe11b)
|
||||||
|
("###" . #Xe11c)
|
||||||
|
("####" . #Xe11d)
|
||||||
|
("#(" . #Xe11e)
|
||||||
|
("#?" . #Xe11f)
|
||||||
|
("#_" . #Xe120)
|
||||||
|
("#_(" . #Xe121)
|
||||||
|
(".-" . #Xe122)
|
||||||
|
(".=" . #Xe123)
|
||||||
|
(".." . #Xe124)
|
||||||
|
("..<" . #Xe125)
|
||||||
|
("..." . #Xe126)
|
||||||
|
("?=" . #Xe127)
|
||||||
|
("??" . #Xe128)
|
||||||
|
(";;" . #Xe129)
|
||||||
|
("/*" . #Xe12a)
|
||||||
|
("/**" . #Xe12b)
|
||||||
|
("/=" . #Xe12c)
|
||||||
|
("/==" . #Xe12d)
|
||||||
|
("/>" . #Xe12e)
|
||||||
|
("//" . #Xe12f)
|
||||||
|
("///" . #Xe130)
|
||||||
|
("&&" . #Xe131)
|
||||||
|
("||" . #Xe132)
|
||||||
|
("||=" . #Xe133)
|
||||||
|
("|=" . #Xe134)
|
||||||
|
("|>" . #Xe135)
|
||||||
|
("^=" . #Xe136)
|
||||||
|
("$>" . #Xe137)
|
||||||
|
("++" . #Xe138)
|
||||||
|
("+++" . #Xe139)
|
||||||
|
("+>" . #Xe13a)
|
||||||
|
("=:=" . #Xe13b)
|
||||||
|
("==" . #Xe13c)
|
||||||
|
("===" . #Xe13d)
|
||||||
|
("==>" . #Xe13e)
|
||||||
|
("=>" . #Xe13f)
|
||||||
|
("=>>" . #Xe140)
|
||||||
|
("<=" . #Xe141)
|
||||||
|
("=<<" . #Xe142)
|
||||||
|
("=/=" . #Xe143)
|
||||||
|
(">-" . #Xe144)
|
||||||
|
(">=" . #Xe145)
|
||||||
|
(">=>" . #Xe146)
|
||||||
|
(">>" . #Xe147)
|
||||||
|
(">>-" . #Xe148)
|
||||||
|
(">>=" . #Xe149)
|
||||||
|
(">>>" . #Xe14a)
|
||||||
|
("<*" . #Xe14b)
|
||||||
|
("<*>" . #Xe14c)
|
||||||
|
("<|" . #Xe14d)
|
||||||
|
("<|>" . #Xe14e)
|
||||||
|
("<$" . #Xe14f)
|
||||||
|
("<$>" . #Xe150)
|
||||||
|
("<!--" . #Xe151)
|
||||||
|
("<-" . #Xe152)
|
||||||
|
("<--" . #Xe153)
|
||||||
|
("<->" . #Xe154)
|
||||||
|
("<+" . #Xe155)
|
||||||
|
("<+>" . #Xe156)
|
||||||
|
("<=" . #Xe157)
|
||||||
|
("<==" . #Xe158)
|
||||||
|
("<=>" . #Xe159)
|
||||||
|
("<=<" . #Xe15a)
|
||||||
|
("<>" . #Xe15b)
|
||||||
|
("<<" . #Xe15c)
|
||||||
|
("<<-" . #Xe15d)
|
||||||
|
("<<=" . #Xe15e)
|
||||||
|
("<<<" . #Xe15f)
|
||||||
|
("<~" . #Xe160)
|
||||||
|
("<~~" . #Xe161)
|
||||||
|
("</" . #Xe162)
|
||||||
|
("</>" . #Xe163)
|
||||||
|
("~@" . #Xe164)
|
||||||
|
("~-" . #Xe165)
|
||||||
|
("~=" . #Xe166)
|
||||||
|
("~>" . #Xe167)
|
||||||
|
("~~" . #Xe168)
|
||||||
|
("~~>" . #Xe169)
|
||||||
|
("%%" . #Xe16a))))
|
||||||
|
|
||||||
|
(defun +pretty-code|setup-fira-ligatures ()
|
||||||
|
(set-fontset-font t '(#Xe100 . #Xe16f) "Fira Code Symbol"))
|
||||||
|
(setq-default prettify-symbols-alist
|
||||||
|
(append prettify-symbols-alist
|
||||||
|
+pretty-code-fira-code-font-ligatures))
|
||||||
|
|
||||||
|
(add-hook! 'doom-init-ui-hook #'+pretty-code|setup-fira-ligatures)
|
||||||
231
modules/ui/pretty-code/+iosevka.el
Normal file
231
modules/ui/pretty-code/+iosevka.el
Normal file
|
|
@ -0,0 +1,231 @@
|
||||||
|
;;; ui/pretty-code/+iosevka.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(defconst +pretty-code-iosevka-font-ligatures
|
||||||
|
'(;; Double-ended hyphen arrows
|
||||||
|
("<->" . #Xe100)
|
||||||
|
("<-->" . #Xe101)
|
||||||
|
("<--->" . #Xe102)
|
||||||
|
("<---->" . #Xe103)
|
||||||
|
("<----->" . #Xe104)
|
||||||
|
;; Double-ended equals arrows
|
||||||
|
("<=>" . #Xe105)
|
||||||
|
("<==>" . #Xe106)
|
||||||
|
("<===>" . #Xe107)
|
||||||
|
("<====>" . #Xe108)
|
||||||
|
("<=====>" . #Xe109)
|
||||||
|
;; Double-ended asterisk operators
|
||||||
|
("<**>" . #Xe10a)
|
||||||
|
("<***>" . #Xe10b)
|
||||||
|
("<****>" . #Xe10c)
|
||||||
|
("<*****>" . #Xe10d)
|
||||||
|
;; HTML comments
|
||||||
|
("<!--" . #Xe10e)
|
||||||
|
("<!---" . #Xe10f)
|
||||||
|
;; Three-char ops with discards
|
||||||
|
("<$" . #Xe110)
|
||||||
|
("<$>" . #Xe111)
|
||||||
|
("$>" . #Xe112)
|
||||||
|
("<." . #Xe113)
|
||||||
|
("<.>" . #Xe114)
|
||||||
|
(".>" . #Xe115)
|
||||||
|
("<*" . #Xe116)
|
||||||
|
("<*>" . #Xe117)
|
||||||
|
("*>" . #Xe118)
|
||||||
|
("<\\" . #Xe119)
|
||||||
|
("<\\>" . #Xe11a)
|
||||||
|
("\\>" . #Xe11b)
|
||||||
|
("</" . #Xe11c)
|
||||||
|
("</>" . #Xe11d)
|
||||||
|
("/>" . #Xe11e)
|
||||||
|
("<\"" . #Xe11f)
|
||||||
|
("<\">" . #Xe120)
|
||||||
|
("\">" . #Xe121)
|
||||||
|
("<'" . #Xe122)
|
||||||
|
("<'>" . #Xe123)
|
||||||
|
("'>" . #Xe124)
|
||||||
|
("<^" . #Xe125)
|
||||||
|
("<^>" . #Xe126)
|
||||||
|
("^>" . #Xe127)
|
||||||
|
("<&" . #Xe128)
|
||||||
|
("<&>" . #Xe129)
|
||||||
|
("&>" . #Xe12a)
|
||||||
|
("<%" . #Xe12b)
|
||||||
|
("<%>" . #Xe12c)
|
||||||
|
("%>" . #Xe12d)
|
||||||
|
("<@" . #Xe12e)
|
||||||
|
("<@>" . #Xe12f)
|
||||||
|
("@>" . #Xe130)
|
||||||
|
("<#" . #Xe131)
|
||||||
|
("<#>" . #Xe132)
|
||||||
|
("#>" . #Xe133)
|
||||||
|
("<+" . #Xe134)
|
||||||
|
("<+>" . #Xe135)
|
||||||
|
("+>" . #Xe136)
|
||||||
|
("<-" . #Xe137)
|
||||||
|
("<->" . #Xe138)
|
||||||
|
("->" . #Xe139)
|
||||||
|
("<!" . #Xe13a)
|
||||||
|
("<!>" . #Xe13b)
|
||||||
|
("!>" . #Xe13c)
|
||||||
|
("<?" . #Xe13d)
|
||||||
|
("<?>" . #Xe13e)
|
||||||
|
("?>" . #Xe13f)
|
||||||
|
("<|" . #Xe140)
|
||||||
|
("<|>" . #Xe141)
|
||||||
|
("|>" . #Xe142)
|
||||||
|
("<:" . #Xe143)
|
||||||
|
("<:>" . #Xe144)
|
||||||
|
(":>" . #Xe145)
|
||||||
|
;; Colons
|
||||||
|
("::" . #Xe146)
|
||||||
|
(":::" . #Xe147)
|
||||||
|
("::::" . #Xe148)
|
||||||
|
;; Arrow-like operators
|
||||||
|
("->" . #Xe149)
|
||||||
|
("->-" . #Xe14a)
|
||||||
|
("->--" . #Xe14b)
|
||||||
|
("->>" . #Xe14c)
|
||||||
|
("->>-" . #Xe14d)
|
||||||
|
("->>--" . #Xe14e)
|
||||||
|
("->>>" . #Xe14f)
|
||||||
|
("->>>-" . #Xe150)
|
||||||
|
("->>>--" . #Xe151)
|
||||||
|
("-->" . #Xe152)
|
||||||
|
("-->-" . #Xe153)
|
||||||
|
("-->--" . #Xe154)
|
||||||
|
("-->>" . #Xe155)
|
||||||
|
("-->>-" . #Xe156)
|
||||||
|
("-->>--" . #Xe157)
|
||||||
|
("-->>>" . #Xe158)
|
||||||
|
("-->>>-" . #Xe159)
|
||||||
|
("-->>>--" . #Xe15a)
|
||||||
|
(">-" . #Xe15b)
|
||||||
|
(">--" . #Xe15c)
|
||||||
|
(">>-" . #Xe15d)
|
||||||
|
(">>--" . #Xe15e)
|
||||||
|
(">>>-" . #Xe15f)
|
||||||
|
(">>>--" . #Xe160)
|
||||||
|
("=>" . #Xe161)
|
||||||
|
("=>=" . #Xe162)
|
||||||
|
("=>==" . #Xe163)
|
||||||
|
("=>>" . #Xe164)
|
||||||
|
("=>>=" . #Xe165)
|
||||||
|
("=>>==" . #Xe166)
|
||||||
|
("=>>>" . #Xe167)
|
||||||
|
("=>>>=" . #Xe168)
|
||||||
|
("=>>>==" . #Xe169)
|
||||||
|
("==>" . #Xe16a)
|
||||||
|
("==>=" . #Xe16b)
|
||||||
|
("==>==" . #Xe16c)
|
||||||
|
("==>>" . #Xe16d)
|
||||||
|
("==>>=" . #Xe16e)
|
||||||
|
("==>>==" . #Xe16f)
|
||||||
|
("==>>>" . #Xe170)
|
||||||
|
("==>>>=" . #Xe171)
|
||||||
|
("==>>>==" . #Xe172)
|
||||||
|
(">=" . #Xe173)
|
||||||
|
(">==" . #Xe174)
|
||||||
|
(">>=" . #Xe175)
|
||||||
|
(">>==" . #Xe176)
|
||||||
|
(">>>=" . #Xe177)
|
||||||
|
(">>>==" . #Xe178)
|
||||||
|
("<-" . #Xe179)
|
||||||
|
("-<-" . #Xe17a)
|
||||||
|
("--<-" . #Xe17b)
|
||||||
|
("<<-" . #Xe17c)
|
||||||
|
("-<<-" . #Xe17d)
|
||||||
|
("--<<-" . #Xe17e)
|
||||||
|
("<<<-" . #Xe17f)
|
||||||
|
("-<<<-" . #Xe180)
|
||||||
|
("--<<<-" . #Xe181)
|
||||||
|
("<--" . #Xe182)
|
||||||
|
("-<--" . #Xe183)
|
||||||
|
("--<--" . #Xe184)
|
||||||
|
("<<--" . #Xe185)
|
||||||
|
("-<<--" . #Xe186)
|
||||||
|
("--<<--" . #Xe187)
|
||||||
|
("<<<--" . #Xe188)
|
||||||
|
("-<<<--" . #Xe189)
|
||||||
|
("--<<<--" . #Xe18a)
|
||||||
|
("-<" . #Xe18b)
|
||||||
|
("--<" . #Xe18c)
|
||||||
|
("-<<" . #Xe18d)
|
||||||
|
("--<<" . #Xe18e)
|
||||||
|
("-<<<" . #Xe18f)
|
||||||
|
("--<<<" . #Xe190)
|
||||||
|
("<=" . #Xe191)
|
||||||
|
("=<=" . #Xe192)
|
||||||
|
("==<=" . #Xe193)
|
||||||
|
("<<=" . #Xe194)
|
||||||
|
("=<<=" . #Xe195)
|
||||||
|
("==<<=" . #Xe196)
|
||||||
|
("<<<=" . #Xe197)
|
||||||
|
("=<<<=" . #Xe198)
|
||||||
|
("==<<<=" . #Xe199)
|
||||||
|
("<==" . #Xe19a)
|
||||||
|
("=<==" . #Xe19b)
|
||||||
|
("==<==" . #Xe19c)
|
||||||
|
("<<==" . #Xe19d)
|
||||||
|
("=<<==" . #Xe19e)
|
||||||
|
("==<<==" . #Xe19f)
|
||||||
|
("<<<==" . #Xe1a0)
|
||||||
|
("=<<<==" . #Xe1a1)
|
||||||
|
("==<<<==" . #Xe1a2)
|
||||||
|
("=<" . #Xe1a3)
|
||||||
|
("==<" . #Xe1a4)
|
||||||
|
("=<<" . #Xe1a5)
|
||||||
|
("==<<" . #Xe1a6)
|
||||||
|
("=<<<" . #Xe1a7)
|
||||||
|
("==<<<" . #Xe1a8)
|
||||||
|
;; Monadic operators
|
||||||
|
(">=>" . #Xe1a9)
|
||||||
|
(">->" . #Xe1aa)
|
||||||
|
(">-->" . #Xe1ab)
|
||||||
|
(">==>" . #Xe1ac)
|
||||||
|
("<=<" . #Xe1ad)
|
||||||
|
("<-<" . #Xe1ae)
|
||||||
|
("<--<" . #Xe1af)
|
||||||
|
("<==<" . #Xe1b0)
|
||||||
|
;; Composition operators
|
||||||
|
(">>" . #Xe1b1)
|
||||||
|
(">>>" . #Xe1b2)
|
||||||
|
("<<" . #Xe1b3)
|
||||||
|
("<<<" . #Xe1b4)
|
||||||
|
;; Lens operators
|
||||||
|
(":+" . #Xe1b5)
|
||||||
|
(":-" . #Xe1b6)
|
||||||
|
(":=" . #Xe1b7)
|
||||||
|
("+:" . #Xe1b8)
|
||||||
|
("-:" . #Xe1b9)
|
||||||
|
("=:" . #Xe1ba)
|
||||||
|
("=^" . #Xe1bb)
|
||||||
|
("=+" . #Xe1bc)
|
||||||
|
("=-" . #Xe1bd)
|
||||||
|
("=*" . #Xe1be)
|
||||||
|
("=/" . #Xe1bf)
|
||||||
|
("=%" . #Xe1c0)
|
||||||
|
("^=" . #Xe1c1)
|
||||||
|
("+=" . #Xe1c2)
|
||||||
|
("-=" . #Xe1c3)
|
||||||
|
("*=" . #Xe1c4)
|
||||||
|
("/=" . #Xe1c5)
|
||||||
|
("%=" . #Xe1c6)
|
||||||
|
;; Logical
|
||||||
|
("/\\" . #Xe1c7)
|
||||||
|
("\\/" . #Xe1c8)
|
||||||
|
;; Semigroup/monoid operators
|
||||||
|
("<>" . #Xe1c9)
|
||||||
|
("<+" . #Xe1ca)
|
||||||
|
("<+>" . #Xe1cb)
|
||||||
|
("+>" . #Xe1cc))
|
||||||
|
"Defines the character mappings for ligatures for Iosevka.")
|
||||||
|
|
||||||
|
(defun +pretty-code|setup-iosevka-ligatures ()
|
||||||
|
(set-fontset-font t '(#Xe100 . #Xe16f) "Iosevka")
|
||||||
|
(setq-default prettify-symbols-alist
|
||||||
|
(append prettify-symbols-alist
|
||||||
|
+pretty-code-iosevka-font-ligatures)))
|
||||||
|
|
||||||
|
(add-hook! 'doom-init-ui-hook #'+pretty-code|setup-iosevka-ligatures)
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,358 +0,0 @@
|
||||||
;;; ui/pretty-code/autoload.el -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; When you get to the right edge, it goes back to how it normally prints
|
|
||||||
(setq prettify-symbols-unprettify-at-point 'right-edge)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defvar +pretty-code-iosevka-ligatures-enabled-by-default nil
|
|
||||||
"If non-nil, iosevka ligeratures are enabled by default in modes
|
|
||||||
`set-pretty-symbols!' has been used on.
|
|
||||||
|
|
||||||
This requires the iosevka font!
|
|
||||||
|
|
||||||
Use the :iosevka property to enable (or disable) it regardless.")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defvar +pretty-code-enabled-modes t
|
|
||||||
"List of major modes in which `prettify-symbols-mode' should not be enabled.
|
|
||||||
If t, enable it everywhere. If the first element is 'not, enable it in any mode
|
|
||||||
besides what is listed.")
|
|
||||||
|
|
||||||
;;;###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 ""
|
|
||||||
:dot "•")
|
|
||||||
"Options plist for `pretty-code-get-pairs'.")
|
|
||||||
|
|
||||||
(defvar +pretty-code--iosevka-ligeratures-enabled nil)
|
|
||||||
(defun +pretty-code-setup-iosevka-ligatures ()
|
|
||||||
(unless +pretty-code--iosevka-ligeratures-enabled
|
|
||||||
(set-fontset-font t '(#xe100 . #xe16f) "Iosevka"))
|
|
||||||
(setq prettify-symbols-alist
|
|
||||||
(append prettify-symbols-alist
|
|
||||||
'(;; Double-ended hyphen arrows
|
|
||||||
("<->" . #Xe100)
|
|
||||||
("<-->" . #Xe101)
|
|
||||||
("<--->" . #Xe102)
|
|
||||||
("<---->" . #Xe103)
|
|
||||||
("<----->" . #Xe104)
|
|
||||||
;; Double-ended equals arrows
|
|
||||||
("<=>" . #Xe105)
|
|
||||||
("<==>" . #Xe106)
|
|
||||||
("<===>" . #Xe107)
|
|
||||||
("<====>" . #Xe108)
|
|
||||||
("<=====>" . #Xe109)
|
|
||||||
;; Double-ended asterisk operators
|
|
||||||
("<**>" . #Xe10a)
|
|
||||||
("<***>" . #Xe10b)
|
|
||||||
("<****>" . #Xe10c)
|
|
||||||
("<*****>" . #Xe10d)
|
|
||||||
;; HTML comments
|
|
||||||
("<!--" . #Xe10e)
|
|
||||||
("<!---" . #Xe10f)
|
|
||||||
;; Three-char ops with discards
|
|
||||||
("<$" . #Xe110)
|
|
||||||
("<$>" . #Xe111)
|
|
||||||
("$>" . #Xe112)
|
|
||||||
("<." . #Xe113)
|
|
||||||
("<.>" . #Xe114)
|
|
||||||
(".>" . #Xe115)
|
|
||||||
("<*" . #Xe116)
|
|
||||||
("<*>" . #Xe117)
|
|
||||||
("*>" . #Xe118)
|
|
||||||
("<\\" . #Xe119)
|
|
||||||
("<\\>" . #Xe11a)
|
|
||||||
("\\>" . #Xe11b)
|
|
||||||
("</" . #Xe11c)
|
|
||||||
("</>" . #Xe11d)
|
|
||||||
("/>" . #Xe11e)
|
|
||||||
("<\"" . #Xe11f)
|
|
||||||
("<\">" . #Xe120)
|
|
||||||
("\">" . #Xe121)
|
|
||||||
("<'" . #Xe122)
|
|
||||||
("<'>" . #Xe123)
|
|
||||||
("'>" . #Xe124)
|
|
||||||
("<^" . #Xe125)
|
|
||||||
("<^>" . #Xe126)
|
|
||||||
("^>" . #Xe127)
|
|
||||||
("<&" . #Xe128)
|
|
||||||
("<&>" . #Xe129)
|
|
||||||
("&>" . #Xe12a)
|
|
||||||
("<%" . #Xe12b)
|
|
||||||
("<%>" . #Xe12c)
|
|
||||||
("%>" . #Xe12d)
|
|
||||||
("<@" . #Xe12e)
|
|
||||||
("<@>" . #Xe12f)
|
|
||||||
("@>" . #Xe130)
|
|
||||||
("<#" . #Xe131)
|
|
||||||
("<#>" . #Xe132)
|
|
||||||
("#>" . #Xe133)
|
|
||||||
("<+" . #Xe134)
|
|
||||||
("<+>" . #Xe135)
|
|
||||||
("+>" . #Xe136)
|
|
||||||
("<-" . #Xe137)
|
|
||||||
("<->" . #Xe138)
|
|
||||||
("->" . #Xe139)
|
|
||||||
("<!" . #Xe13a)
|
|
||||||
("<!>" . #Xe13b)
|
|
||||||
("!>" . #Xe13c)
|
|
||||||
("<?" . #Xe13d)
|
|
||||||
("<?>" . #Xe13e)
|
|
||||||
("?>" . #Xe13f)
|
|
||||||
("<|" . #Xe140)
|
|
||||||
("<|>" . #Xe141)
|
|
||||||
("|>" . #Xe142)
|
|
||||||
("<:" . #Xe143)
|
|
||||||
("<:>" . #Xe144)
|
|
||||||
(":>" . #Xe145)
|
|
||||||
;; Colons
|
|
||||||
("::" . #Xe146)
|
|
||||||
(":::" . #Xe147)
|
|
||||||
("::::" . #Xe148)
|
|
||||||
;; Arrow-like operators
|
|
||||||
("->" . #Xe149)
|
|
||||||
("->-" . #Xe14a)
|
|
||||||
("->--" . #Xe14b)
|
|
||||||
("->>" . #Xe14c)
|
|
||||||
("->>-" . #Xe14d)
|
|
||||||
("->>--" . #Xe14e)
|
|
||||||
("->>>" . #Xe14f)
|
|
||||||
("->>>-" . #Xe150)
|
|
||||||
("->>>--" . #Xe151)
|
|
||||||
("-->" . #Xe152)
|
|
||||||
("-->-" . #Xe153)
|
|
||||||
("-->--" . #Xe154)
|
|
||||||
("-->>" . #Xe155)
|
|
||||||
("-->>-" . #Xe156)
|
|
||||||
("-->>--" . #Xe157)
|
|
||||||
("-->>>" . #Xe158)
|
|
||||||
("-->>>-" . #Xe159)
|
|
||||||
("-->>>--" . #Xe15a)
|
|
||||||
(">-" . #Xe15b)
|
|
||||||
(">--" . #Xe15c)
|
|
||||||
(">>-" . #Xe15d)
|
|
||||||
(">>--" . #Xe15e)
|
|
||||||
(">>>-" . #Xe15f)
|
|
||||||
(">>>--" . #Xe160)
|
|
||||||
("=>" . #Xe161)
|
|
||||||
("=>=" . #Xe162)
|
|
||||||
("=>==" . #Xe163)
|
|
||||||
("=>>" . #Xe164)
|
|
||||||
("=>>=" . #Xe165)
|
|
||||||
("=>>==" . #Xe166)
|
|
||||||
("=>>>" . #Xe167)
|
|
||||||
("=>>>=" . #Xe168)
|
|
||||||
("=>>>==" . #Xe169)
|
|
||||||
("==>" . #Xe16a)
|
|
||||||
("==>=" . #Xe16b)
|
|
||||||
("==>==" . #Xe16c)
|
|
||||||
("==>>" . #Xe16d)
|
|
||||||
("==>>=" . #Xe16e)
|
|
||||||
("==>>==" . #Xe16f)
|
|
||||||
("==>>>" . #Xe170)
|
|
||||||
("==>>>=" . #Xe171)
|
|
||||||
("==>>>==" . #Xe172)
|
|
||||||
(">=" . #Xe173)
|
|
||||||
(">==" . #Xe174)
|
|
||||||
(">>=" . #Xe175)
|
|
||||||
(">>==" . #Xe176)
|
|
||||||
(">>>=" . #Xe177)
|
|
||||||
(">>>==" . #Xe178)
|
|
||||||
("<-" . #Xe179)
|
|
||||||
("-<-" . #Xe17a)
|
|
||||||
("--<-" . #Xe17b)
|
|
||||||
("<<-" . #Xe17c)
|
|
||||||
("-<<-" . #Xe17d)
|
|
||||||
("--<<-" . #Xe17e)
|
|
||||||
("<<<-" . #Xe17f)
|
|
||||||
("-<<<-" . #Xe180)
|
|
||||||
("--<<<-" . #Xe181)
|
|
||||||
("<--" . #Xe182)
|
|
||||||
("-<--" . #Xe183)
|
|
||||||
("--<--" . #Xe184)
|
|
||||||
("<<--" . #Xe185)
|
|
||||||
("-<<--" . #Xe186)
|
|
||||||
("--<<--" . #Xe187)
|
|
||||||
("<<<--" . #Xe188)
|
|
||||||
("-<<<--" . #Xe189)
|
|
||||||
("--<<<--" . #Xe18a)
|
|
||||||
("-<" . #Xe18b)
|
|
||||||
("--<" . #Xe18c)
|
|
||||||
("-<<" . #Xe18d)
|
|
||||||
("--<<" . #Xe18e)
|
|
||||||
("-<<<" . #Xe18f)
|
|
||||||
("--<<<" . #Xe190)
|
|
||||||
("<=" . #Xe191)
|
|
||||||
("=<=" . #Xe192)
|
|
||||||
("==<=" . #Xe193)
|
|
||||||
("<<=" . #Xe194)
|
|
||||||
("=<<=" . #Xe195)
|
|
||||||
("==<<=" . #Xe196)
|
|
||||||
("<<<=" . #Xe197)
|
|
||||||
("=<<<=" . #Xe198)
|
|
||||||
("==<<<=" . #Xe199)
|
|
||||||
("<==" . #Xe19a)
|
|
||||||
("=<==" . #Xe19b)
|
|
||||||
("==<==" . #Xe19c)
|
|
||||||
("<<==" . #Xe19d)
|
|
||||||
("=<<==" . #Xe19e)
|
|
||||||
("==<<==" . #Xe19f)
|
|
||||||
("<<<==" . #Xe1a0)
|
|
||||||
("=<<<==" . #Xe1a1)
|
|
||||||
("==<<<==" . #Xe1a2)
|
|
||||||
("=<" . #Xe1a3)
|
|
||||||
("==<" . #Xe1a4)
|
|
||||||
("=<<" . #Xe1a5)
|
|
||||||
("==<<" . #Xe1a6)
|
|
||||||
("=<<<" . #Xe1a7)
|
|
||||||
("==<<<" . #Xe1a8)
|
|
||||||
;; Monadic operators
|
|
||||||
(">=>" . #Xe1a9)
|
|
||||||
(">->" . #Xe1aa)
|
|
||||||
(">-->" . #Xe1ab)
|
|
||||||
(">==>" . #Xe1ac)
|
|
||||||
("<=<" . #Xe1ad)
|
|
||||||
("<-<" . #Xe1ae)
|
|
||||||
("<--<" . #Xe1af)
|
|
||||||
("<==<" . #Xe1b0)
|
|
||||||
;; Composition operators
|
|
||||||
(">>" . #Xe1b1)
|
|
||||||
(">>>" . #Xe1b2)
|
|
||||||
("<<" . #Xe1b3)
|
|
||||||
("<<<" . #Xe1b4)
|
|
||||||
;; Lens operators
|
|
||||||
(":+" . #Xe1b5)
|
|
||||||
(":-" . #Xe1b6)
|
|
||||||
(":=" . #Xe1b7)
|
|
||||||
("+:" . #Xe1b8)
|
|
||||||
("-:" . #Xe1b9)
|
|
||||||
("=:" . #Xe1ba)
|
|
||||||
("=^" . #Xe1bb)
|
|
||||||
("=+" . #Xe1bc)
|
|
||||||
("=-" . #Xe1bd)
|
|
||||||
("=*" . #Xe1be)
|
|
||||||
("=/" . #Xe1bf)
|
|
||||||
("=%" . #Xe1c0)
|
|
||||||
("^=" . #Xe1c1)
|
|
||||||
("+=" . #Xe1c2)
|
|
||||||
("-=" . #Xe1c3)
|
|
||||||
("*=" . #Xe1c4)
|
|
||||||
("/=" . #Xe1c5)
|
|
||||||
("%=" . #Xe1c6)
|
|
||||||
;; Logical
|
|
||||||
("/\\" . #Xe1c7)
|
|
||||||
("\\/" . #Xe1c8)
|
|
||||||
;; Semigroup/monoid operators
|
|
||||||
("<>" . #Xe1c9)
|
|
||||||
("<+" . #Xe1ca)
|
|
||||||
("<+>" . #Xe1cb)
|
|
||||||
("+>" . #Xe1cc)))))
|
|
||||||
|
|
||||||
(defun +pretty-code--icon-to-char (l)
|
|
||||||
"Borrowed from `prettify-utils'."
|
|
||||||
(let ((glue '(Br . Bl))
|
|
||||||
(head (car l))
|
|
||||||
(tail (cdr l)))
|
|
||||||
(cond ((not (consp l)) '())
|
|
||||||
((not (consp tail)) (list head))
|
|
||||||
((cons head (cons glue (+pretty-code--icon-to-char tail)))))))
|
|
||||||
|
|
||||||
;;;###autodef
|
|
||||||
(defun set-pretty-symbols! (modes &rest plist)
|
|
||||||
"Associates string patterns with icons in certain major-modes.
|
|
||||||
|
|
||||||
MODES is a major mode symbol or a list of them.
|
|
||||||
PLIST is a property list whose keys must match keys in `+pretty-code-symbols',
|
|
||||||
and whose values are strings representing the text to be replaced with that
|
|
||||||
symbol. If the car of PLIST is nil, then unset any pretty symbols previously
|
|
||||||
defined for MODES.
|
|
||||||
|
|
||||||
The following properties are special:
|
|
||||||
|
|
||||||
:iosevka BOOL
|
|
||||||
Enables (or disables) iosevka ligeratures for MODES. See the definition of
|
|
||||||
`+pretty-code-setup-iosevka-ligatures' for more info.
|
|
||||||
`+pretty-code-iosevka-ligatures-enabled-by-default' determines the default
|
|
||||||
setting.
|
|
||||||
:alist ALIST
|
|
||||||
Appends ALIST to `prettify-symbols-alist' literally, without mapping text to
|
|
||||||
`+pretty-code-symbols'.
|
|
||||||
:merge BOOL
|
|
||||||
If non-nil, merge with previously defined `prettify-symbols-alist',
|
|
||||||
otherwise overwrite it.
|
|
||||||
|
|
||||||
For example, the rule for emacs-lisp-mode is very simple:
|
|
||||||
|
|
||||||
(set-pretty-symbols! 'emacs-lisp-mode
|
|
||||||
:lambda \"lambda\")
|
|
||||||
|
|
||||||
This will replace any instances of \"lambda\" in emacs-lisp-mode with the symbol
|
|
||||||
assicated with :lambda in `+pretty-code-symbols'.
|
|
||||||
|
|
||||||
Pretty symbols can be unset for emacs-lisp-mode with:
|
|
||||||
|
|
||||||
(set-pretty-symbols! 'emacs-lisp-mode nil)"
|
|
||||||
(declare (indent defun))
|
|
||||||
(dolist (mode (doom-enlist modes))
|
|
||||||
(let ((hook (intern (format "%s-hook" mode)))
|
|
||||||
(fn (intern (format "+pretty-code|init-%s" mode))))
|
|
||||||
(cond ((null (car-safe plist))
|
|
||||||
(remove-hook hook fn)
|
|
||||||
(unintern fn nil))
|
|
||||||
((or (eq +pretty-code-enabled-modes 't)
|
|
||||||
(if (eq (car +pretty-code-enabled-modes) 'not)
|
|
||||||
(not (memq mode (cdr +pretty-code-enabled-modes)))
|
|
||||||
(memq mode +pretty-code-enabled-modes)))
|
|
||||||
(fset fn
|
|
||||||
(lambda ()
|
|
||||||
(when (eq major-mode mode)
|
|
||||||
(unless (cadr (plist-member plist :merge))
|
|
||||||
(setq prettify-symbols-alist nil))
|
|
||||||
(if-let ((alist (plist-get plist :alist)))
|
|
||||||
(setq prettify-symbols-alist (append alist prettify-symbols-alist))
|
|
||||||
(let ((plist plist)
|
|
||||||
results)
|
|
||||||
(while plist
|
|
||||||
(let ((prop (car plist))
|
|
||||||
(sym (cadr plist)))
|
|
||||||
(when-let* ((icon (plist-get +pretty-code-symbols prop)))
|
|
||||||
(push (cons sym (+pretty-code--icon-to-char (append icon nil)))
|
|
||||||
results))
|
|
||||||
(setq plist (cddr plist))))
|
|
||||||
(setq prettify-symbols-alist (append results prettify-symbols-alist))))
|
|
||||||
(when (or (cadr (plist-member plist :iosevka))
|
|
||||||
+pretty-code-iosevka-ligatures-enabled-by-default)
|
|
||||||
(+pretty-code-setup-iosevka-ligatures))
|
|
||||||
(when prettify-symbols-mode
|
|
||||||
(prettify-symbols-mode -1))
|
|
||||||
(prettify-symbols-mode +1))))
|
|
||||||
(add-hook hook fn))))))
|
|
||||||
27
modules/ui/pretty-code/autoload/autoload.el
Normal file
27
modules/ui/pretty-code/autoload/autoload.el
Normal file
|
|
@ -0,0 +1,27 @@
|
||||||
|
;;; 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)))
|
||||||
67
modules/ui/pretty-code/autoload/settings.el
Normal file
67
modules/ui/pretty-code/autoload/settings.el
Normal file
|
|
@ -0,0 +1,67 @@
|
||||||
|
;;; 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)))))
|
||||||
11
modules/ui/pretty-code/config.el
Normal file
11
modules/ui/pretty-code/config.el
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
;;; ui/pretty-code/config.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(cond ((featurep! +fira)
|
||||||
|
(load! "+fira"))
|
||||||
|
((featurep! +iosevka)
|
||||||
|
(load! "+iosevka")))
|
||||||
|
|
||||||
|
;; When you get to the right edge, it goes back to how it normally prints
|
||||||
|
(setq prettify-symbols-unprettify-at-point 'right-edge)
|
||||||
|
|
||||||
|
(add-hook! 'after-change-major-mode-hook #'+pretty-code|init-pretty-symbols)
|
||||||
Loading…
Add table
Add a link
Reference in a new issue