From a7cba67fd67164861cab7535387fc60b061fa955 Mon Sep 17 00:00:00 2001
From: Josh Seba <sebajosh@outlook.com>
Date: Thu, 5 Jul 2018 19:37:06 -0700
Subject: [PATCH 1/4] Support for multiple ligature'd fonts

Refactors the ligature configuration to support more than just Iosevka
(uses Fira Code as the second font).
---
 modules/ui/pretty-code/+fira.el             | 131 +++++++
 modules/ui/pretty-code/+iosevka.el          | 231 +++++++++++++
 modules/ui/pretty-code/autoload.el          | 358 --------------------
 modules/ui/pretty-code/autoload/autoload.el |  27 ++
 modules/ui/pretty-code/autoload/settings.el |  67 ++++
 modules/ui/pretty-code/config.el            |  11 +
 6 files changed, 467 insertions(+), 358 deletions(-)
 create mode 100644 modules/ui/pretty-code/+fira.el
 create mode 100644 modules/ui/pretty-code/+iosevka.el
 delete mode 100644 modules/ui/pretty-code/autoload.el
 create mode 100644 modules/ui/pretty-code/autoload/autoload.el
 create mode 100644 modules/ui/pretty-code/autoload/settings.el
 create mode 100644 modules/ui/pretty-code/config.el

diff --git a/modules/ui/pretty-code/+fira.el b/modules/ui/pretty-code/+fira.el
new file mode 100644
index 000000000..a62b9a83c
--- /dev/null
+++ b/modules/ui/pretty-code/+fira.el
@@ -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)
diff --git a/modules/ui/pretty-code/+iosevka.el b/modules/ui/pretty-code/+iosevka.el
new file mode 100644
index 000000000..b714b2a7c
--- /dev/null
+++ b/modules/ui/pretty-code/+iosevka.el
@@ -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)
+
+
diff --git a/modules/ui/pretty-code/autoload.el b/modules/ui/pretty-code/autoload.el
deleted file mode 100644
index 0ed207d93..000000000
--- a/modules/ui/pretty-code/autoload.el
+++ /dev/null
@@ -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))))))
diff --git a/modules/ui/pretty-code/autoload/autoload.el b/modules/ui/pretty-code/autoload/autoload.el
new file mode 100644
index 000000000..5e63825c1
--- /dev/null
+++ b/modules/ui/pretty-code/autoload/autoload.el
@@ -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)))
diff --git a/modules/ui/pretty-code/autoload/settings.el b/modules/ui/pretty-code/autoload/settings.el
new file mode 100644
index 000000000..4c0ade8f3
--- /dev/null
+++ b/modules/ui/pretty-code/autoload/settings.el
@@ -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)))))
diff --git a/modules/ui/pretty-code/config.el b/modules/ui/pretty-code/config.el
new file mode 100644
index 000000000..4bea61304
--- /dev/null
+++ b/modules/ui/pretty-code/config.el
@@ -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)

From fff95477635835d79443311eeedc48954c47fd35 Mon Sep 17 00:00:00 2001
From: Josh Seba <sebajosh@outlook.com>
Date: Thu, 5 Jul 2018 22:09:29 -0700
Subject: [PATCH 2/4] Fix major mode symbols

---
 modules/lang/cc/config.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/lang/cc/config.el b/modules/lang/cc/config.el
index f87e9d344..cef9238af 100644
--- a/modules/lang/cc/config.el
+++ b/modules/lang/cc/config.el
@@ -60,7 +60,7 @@ compilation database is present in the project.")
   :config
   (set-electric! '(c-mode c++-mode objc-mode java-mode) :chars '(?\n ?\}))
 
-  (set-pretty-symbols! '(c-mode-hook c++-mode-hook)
+  (set-pretty-symbols! '(c-mode c++-mode)
     ;; Functional
     ;; :def "void "
     ;; Types

From 2a125000ae2d0be7bc0512fa0684019c1685c912 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Fri, 6 Jul 2018 19:59:16 +0200
Subject: [PATCH 3/4] Fix & document set-pretty-symbols!

---
 modules/ui/pretty-code/autoload/settings.el | 42 ++++++++++++++++++---
 1 file changed, 36 insertions(+), 6 deletions(-)

diff --git a/modules/ui/pretty-code/autoload/settings.el b/modules/ui/pretty-code/autoload/settings.el
index 4c0ade8f3..38793fb7a 100644
--- a/modules/ui/pretty-code/autoload/settings.el
+++ b/modules/ui/pretty-code/autoload/settings.el
@@ -40,21 +40,50 @@ universal way of getting the correct symbol as that area varies from font to
 font.")
 
 ;;;###autoload
-(defvar +pretty-code-symbols-alist nil
+(defvar +pretty-code-symbols-alist '((t))
   "An alist containing a mapping of major modes to its value for
 `prettify-symbols-alist'.")
 
-
-;;;###autoload
+;;;###autodef
 (defun set-pretty-symbols! (modes &rest rest)
+  "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:
+
+  :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))
     (if (null (car-safe rest))
-        (setq var nil)
+        (delq (assq mode +pretty-code-symbols-alist)
+              +pretty-code-symbols-alist)
       (let (results merge key alist)
         (while rest
           (setq key (pop rest))
           (pcase key
-            (:merge (setq merge t))
+            (:merge (setq merge (pop rest)))
             (:alist (setq results (append (pop rest) results)))
             (_
              (unless (plist-member +pretty-code-symbols key)
@@ -63,5 +92,6 @@ font.")
                     (char (plist-get +pretty-code-symbols key)))
                (push (cons sym char) results)))))
         (unless merge
-          (assq-delete-all mode +pretty-code-symbols-alist))
+          (delq (assq mode +pretty-code-symbols-alist)
+                +pretty-code-symbols-alist))
         (push (cons mode results) +pretty-code-symbols-alist)))))

From fc87a7290470613dda7f9529f74d90c1f0eee6a2 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Fri, 6 Jul 2018 20:18:04 +0200
Subject: [PATCH 4/4] ui/pretty-code: general refactor & fix premature )

---
 modules/ui/pretty-code/+fira.el               | 241 +++++++++---------
 modules/ui/pretty-code/+iosevka.el            |  10 +-
 .../{autoload/settings.el => autoload.el}     |   0
 modules/ui/pretty-code/autoload/autoload.el   |  27 --
 modules/ui/pretty-code/config.el              |  26 +-
 5 files changed, 153 insertions(+), 151 deletions(-)
 rename modules/ui/pretty-code/{autoload/settings.el => autoload.el} (100%)
 delete mode 100644 modules/ui/pretty-code/autoload/autoload.el

diff --git a/modules/ui/pretty-code/+fira.el b/modules/ui/pretty-code/+fira.el
index a62b9a83c..276f8bffd 100644
--- a/modules/ui/pretty-code/+fira.el
+++ b/modules/ui/pretty-code/+fira.el
@@ -1,131 +1,134 @@
 ;;; ui/pretty-code/+fira.el -*- lexical-binding: t; -*-
 
+(defvar +pretty-code-fira-code-font-name "Fira Code Symbol"
+  "Name of the fira code ligature font.")
+
+(defvar +pretty-code-fira-code-font-ligatures
+  '(("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--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))))
+  (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)))
 
 (defun +pretty-code|setup-fira-ligatures ()
-  (set-fontset-font t '(#Xe100 . #Xe16f) "Fira Code Symbol"))
+  (set-fontset-font t '(#Xe100 . #Xe16f) +pretty-code-fira-code-font-name)
   (setq-default prettify-symbols-alist
                 (append prettify-symbols-alist
-                        +pretty-code-fira-code-font-ligatures))
+                        (mapcar #'+pretty-code--correct-symbol-bounds
+                                +pretty-code-fira-code-font-ligatures))))
 
-(add-hook! 'doom-init-ui-hook #'+pretty-code|setup-fira-ligatures)
+(add-hook 'doom-init-ui-hook #'+pretty-code|setup-fira-ligatures)
diff --git a/modules/ui/pretty-code/+iosevka.el b/modules/ui/pretty-code/+iosevka.el
index b714b2a7c..f2ae330fa 100644
--- a/modules/ui/pretty-code/+iosevka.el
+++ b/modules/ui/pretty-code/+iosevka.el
@@ -1,6 +1,9 @@
 ;;; ui/pretty-code/+iosevka.el -*- lexical-binding: t; -*-
 
-(defconst +pretty-code-iosevka-font-ligatures
+(defvar +pretty-code-iosevka-font-name "Iosevka"
+  "Name of the iosevka ligature font.")
+
+(defvar +pretty-code-iosevka-font-ligatures
   '(;; Double-ended hyphen arrows
     ("<->" . #Xe100)
     ("<-->" . #Xe101)
@@ -221,11 +224,10 @@
   "Defines the character mappings for ligatures for Iosevka.")
 
 (defun +pretty-code|setup-iosevka-ligatures ()
-  (set-fontset-font t '(#Xe100 . #Xe16f) "Iosevka")
+  (set-fontset-font t '(#Xe100 . #Xe16f) +pretty-code-iosevka-font-name)
   (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)
-
+(add-hook 'doom-init-ui-hook #'+pretty-code|setup-iosevka-ligatures)
 
diff --git a/modules/ui/pretty-code/autoload/settings.el b/modules/ui/pretty-code/autoload.el
similarity index 100%
rename from modules/ui/pretty-code/autoload/settings.el
rename to modules/ui/pretty-code/autoload.el
diff --git a/modules/ui/pretty-code/autoload/autoload.el b/modules/ui/pretty-code/autoload/autoload.el
deleted file mode 100644
index 5e63825c1..000000000
--- a/modules/ui/pretty-code/autoload/autoload.el
+++ /dev/null
@@ -1,27 +0,0 @@
-;;; 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)))
diff --git a/modules/ui/pretty-code/config.el b/modules/ui/pretty-code/config.el
index 4bea61304..10738bd6e 100644
--- a/modules/ui/pretty-code/config.el
+++ b/modules/ui/pretty-code/config.el
@@ -5,7 +5,31 @@
       ((featurep! +iosevka)
        (load! "+iosevka")))
 
+(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)
 
-(add-hook! 'after-change-major-mode-hook #'+pretty-code|init-pretty-symbols)
+(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."
+  (unless (eq major-mode 'fundamental-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))))
+
+(add-hook 'after-change-major-mode-hook #'+pretty-code|init-pretty-symbols)