207 lines
5.7 KiB
EmacsLisp
207 lines
5.7 KiB
EmacsLisp
;;; ui/pretty-code/+pragmata-pro.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +pretty-code-pragmata-pro-font-name "PragmataPro"
|
|
"Name of the Pragmata Pro ligature font.")
|
|
|
|
(defvar +pretty-code-pragmata-pro-font-ligatures
|
|
'(("!!" . #XE900)
|
|
("!=" . #XE901)
|
|
("!==" . #XE902)
|
|
("!!!" . #XE903)
|
|
("!≡" . #XE904)
|
|
("!≡≡" . #XE905)
|
|
("!>" . #XE906)
|
|
("!=<" . #XE907)
|
|
("#(" . #XE920)
|
|
("#_" . #XE921)
|
|
("#{" . #XE922)
|
|
("#?" . #XE923)
|
|
("#>" . #XE924)
|
|
("##" . #XE925)
|
|
("#_(" . #XE926)
|
|
("%=" . #XE930)
|
|
("%>" . #XE931)
|
|
("%>%" . #XE932)
|
|
("%<%" . #XE933)
|
|
("&%" . #XE940)
|
|
("&&" . #XE941)
|
|
("&*" . #XE942)
|
|
("&+" . #XE943)
|
|
("&-" . #XE944)
|
|
("&/" . #XE945)
|
|
("&=" . #XE946)
|
|
("&&&" . #XE947)
|
|
("&>" . #XE948)
|
|
("$>" . #XE955)
|
|
("***" . #XE960)
|
|
("*=" . #XE961)
|
|
("*/" . #XE962)
|
|
("*>" . #XE963)
|
|
("++" . #XE970)
|
|
("+++" . #XE971)
|
|
("+=" . #XE972)
|
|
("+>" . #XE973)
|
|
("++=" . #XE974)
|
|
("--" . #XE980)
|
|
("-<" . #XE981)
|
|
("-<<" . #XE982)
|
|
("-=" . #XE983)
|
|
("->" . #XE984)
|
|
("->>" . #XE985)
|
|
("---" . #XE986)
|
|
("-->" . #XE987)
|
|
("-+-" . #XE988)
|
|
("-\\/" . #XE989)
|
|
("-|>" . #XE98A)
|
|
("-<|" . #XE98B)
|
|
(".." . #XE990)
|
|
("..." . #XE991)
|
|
("..<" . #XE992)
|
|
(".>" . #XE993)
|
|
(".~" . #XE994)
|
|
(".=" . #XE995)
|
|
("/*" . #XE9A0)
|
|
("//" . #XE9A1)
|
|
("/>" . #XE9A2)
|
|
("/=" . #XE9A3)
|
|
("/==" . #XE9A4)
|
|
("///" . #XE9A5)
|
|
("/**" . #XE9A6)
|
|
(":::" . #XE9AF)
|
|
("::" . #XE9B0)
|
|
(":=" . #XE9B1)
|
|
(":≡" . #XE9B2)
|
|
(":>" . #XE9B3)
|
|
(":=>" . #XE9B4)
|
|
(":(" . #XE9B5)
|
|
(":-(" . #XE9B6)
|
|
(":)" . #XE9B7)
|
|
(":-)" . #XE9B8)
|
|
(":/" . #XE9B9)
|
|
(":\\" . #XE9BA)
|
|
(":3" . #XE9BB)
|
|
(":D" . #XE9BC)
|
|
(":P" . #XE9BD)
|
|
(":>:" . #XE9BE)
|
|
(":<:" . #XE9BF)
|
|
("<$>" . #XE9C0)
|
|
("<*" . #XE9C1)
|
|
("<*>" . #XE9C2)
|
|
("<+>" . #XE9C3)
|
|
("<-" . #XE9C4)
|
|
("<<" . #XE9C5)
|
|
("<<<" . #XE9C6)
|
|
("<<=" . #XE9C7)
|
|
("<=" . #XE9C8)
|
|
("<=>" . #XE9C9)
|
|
("<>" . #XE9CA)
|
|
("<|>" . #XE9CB)
|
|
("<<-" . #XE9CC)
|
|
("<|" . #XE9CD)
|
|
("<=<" . #XE9CE)
|
|
("<~" . #XE9CF)
|
|
("<~~" . #XE9D0)
|
|
("<<~" . #XE9D1)
|
|
("<$" . #XE9D2)
|
|
("<+" . #XE9D3)
|
|
("<!>" . #XE9D4)
|
|
("<@>" . #XE9D5)
|
|
("<#>" . #XE9D6)
|
|
("<%>" . #XE9D7)
|
|
("<^>" . #XE9D8)
|
|
("<&>" . #XE9D9)
|
|
("<?>" . #XE9DA)
|
|
("<.>" . #XE9DB)
|
|
("</>" . #XE9DC)
|
|
("<\\>" . #XE9DD)
|
|
("<\">" . #XE9DE)
|
|
("<:>" . #XE9DF)
|
|
("<~>" . #XE9E0)
|
|
("<**>" . #XE9E1)
|
|
("<<^" . #XE9E2)
|
|
("<!" . #XE9E3)
|
|
("<@" . #XE9E4)
|
|
("<#" . #XE9E5)
|
|
("<%" . #XE9E6)
|
|
("<^" . #XE9E7)
|
|
("<&" . #XE9E8)
|
|
("<?" . #XE9E9)
|
|
("<." . #XE9EA)
|
|
("</" . #XE9EB)
|
|
("<\\" . #XE9EC)
|
|
("<\"" . #XE9ED)
|
|
("<:" . #XE9EE)
|
|
("<->" . #XE9EF)
|
|
("<!--" . #XE9F0)
|
|
("<--" . #XE9F1)
|
|
("<~<" . #XE9F2)
|
|
("<==>" . #XE9F3)
|
|
("<|-" . #XE9F4)
|
|
("<<|" . #XE9F5)
|
|
("==<" . #XEA00)
|
|
("==" . #XEA01)
|
|
("===" . #XEA02)
|
|
("==>" . #XEA03)
|
|
("=>" . #XEA04)
|
|
("=~" . #XEA05)
|
|
("=>>" . #XEA06)
|
|
("=/=" . #XEA07)
|
|
("≡≡" . #XEA10)
|
|
("≡≡≡" . #XEA11)
|
|
("≡:≡" . #XEA12)
|
|
(">-" . #XEA20)
|
|
(">=" . #XEA21)
|
|
(">>" . #XEA22)
|
|
(">>-" . #XEA23)
|
|
(">==" . #XEA24)
|
|
(">>>" . #XEA25)
|
|
(">=>" . #XEA26)
|
|
(">>^" . #XEA27)
|
|
(">>|" . #XEA28)
|
|
(">!=" . #XEA29)
|
|
("??" . #XEA40)
|
|
("?~" . #XEA41)
|
|
("?=" . #XEA42)
|
|
("?>" . #XEA43)
|
|
("???" . #XEA44)
|
|
("?." . #XEA45)
|
|
("^=" . #XEA48)
|
|
("^." . #XEA49)
|
|
("^?" . #XEA4A)
|
|
("^.." . #XEA4B)
|
|
("^<<" . #XEA4C)
|
|
("^>>" . #XEA4D)
|
|
("^>" . #XEA4E)
|
|
("\\\\" . #XEA50)
|
|
("\\>" . #XEA51)
|
|
("\\/-" . #XEA52)
|
|
("@>" . #XEA57)
|
|
("|=" . #XEA60)
|
|
("||" . #XEA61)
|
|
("|>" . #XEA62)
|
|
("|||" . #XEA63)
|
|
("|+|" . #XEA64)
|
|
("|->" . #XEA65)
|
|
("|-->" . #XEA66)
|
|
("|=>" . #XEA67)
|
|
("|==>" . #XEA68)
|
|
("|>-" . #XEA69)
|
|
("|<<" . #XEA6A)
|
|
("||>" . #XEA6B)
|
|
("|>>" . #XEA6C)
|
|
("~=" . #XEA70)
|
|
("~>" . #XEA71)
|
|
("~~>" . #XEA72)
|
|
("~>>" . #XEA73)
|
|
("[[" . #XEA80)
|
|
("]]" . #XEA81)
|
|
("\">" . #XEA90))
|
|
"Defines the character mappings for ligatures for Pragmata Pro.")
|
|
|
|
(defun +pretty-code-setup-pragmata-pro-ligatures-h ()
|
|
(setq-default prettify-symbols-alist
|
|
(append prettify-symbols-alist
|
|
(mapcar #'+pretty-code--correct-symbol-bounds
|
|
+pretty-code-pragmata-pro-font-ligatures))))
|
|
|
|
(add-hook 'doom-init-ui-hook #'+pretty-code-setup-pragmata-pro-ligatures-h)
|