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
diff --git a/modules/ui/pretty-code/+fira.el b/modules/ui/pretty-code/+fira.el
new file mode 100644
index 000000000..276f8bffd
--- /dev/null
+++ b/modules/ui/pretty-code/+fira.el
@@ -0,0 +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)))
+
+(defun +pretty-code|setup-fira-ligatures ()
+  (set-fontset-font t '(#Xe100 . #Xe16f) +pretty-code-fira-code-font-name)
+  (setq-default prettify-symbols-alist
+                (append prettify-symbols-alist
+                        (mapcar #'+pretty-code--correct-symbol-bounds
+                                +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..f2ae330fa
--- /dev/null
+++ b/modules/ui/pretty-code/+iosevka.el
@@ -0,0 +1,233 @@
+;;; ui/pretty-code/+iosevka.el -*- lexical-binding: t; -*-
+
+(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)
+    ("<--->" . #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) +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)
+
diff --git a/modules/ui/pretty-code/autoload.el b/modules/ui/pretty-code/autoload.el
index 0ed207d93..38793fb7a 100644
--- a/modules/ui/pretty-code/autoload.el
+++ b/modules/ui/pretty-code/autoload.el
@@ -1,22 +1,4 @@
-;;; 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.")
+;;; ui/pretty-code/settings.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defvar +pretty-code-symbols
@@ -49,245 +31,21 @@ besides what is listed.")
     :yield         "⟻"
     ;; Other
     :tuple         "⨂"
-    :pipe          ""
+    :pipe          "" ;; FIXME: find a non-private char
     :dot           "•")
-  "Options plist for `pretty-code-get-pairs'.")
+  "Options plist for `set-pretty-symbols!'.
 
-(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)))))
+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--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)))))))
+;;;###autoload
+(defvar +pretty-code-symbols-alist '((t))
+  "An alist containing a mapping of major modes to its value for
+`prettify-symbols-alist'.")
 
 ;;;###autodef
-(defun set-pretty-symbols! (modes &rest plist)
+(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.
@@ -298,11 +56,6 @@ 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'.
@@ -323,36 +76,22 @@ 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))))))
+    (if (null (car-safe rest))
+        (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 (pop rest)))
+            (: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
+          (delq (assq mode +pretty-code-symbols-alist)
+                +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..10738bd6e
--- /dev/null
+++ b/modules/ui/pretty-code/config.el
@@ -0,0 +1,35 @@
+;;; ui/pretty-code/config.el -*- lexical-binding: t; -*-
+
+(cond ((featurep! +fira)
+       (load! "+fira"))
+      ((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)
+
+(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)