diff --git a/modules/ui/pretty-code/config.el b/modules/ui/pretty-code/config.el
index 89a1a698b..c7aa9836c 100644
--- a/modules/ui/pretty-code/config.el
+++ b/modules/ui/pretty-code/config.el
@@ -57,16 +57,16 @@ besides what is listed.")
       (?$  . ,(regexp-opt '("$>" "$>>")))
       (?%  . ,(regexp-opt '("%%" "%%%")))
       (?&  . ,(regexp-opt '("&&" "&&&")))
-      (?*  . ,(regexp-opt '("*" "**" "***" "**/" "*/" "*>")))
-      (?+  . ,(regexp-opt '("+" "++" "+++" "+>")))
-      (?-  . ,(regexp-opt '("--" "---" "-->" "-<" "-<<" "->" "->>" "-}" "-~")))
-      (?.  . ,(regexp-opt '(".-" ".." "..." "..<" ".=")))
+      (?*  . ,(regexp-opt '("*" "**" "***" "**/" "*/" "*>" "*)")))
+      (?+  . ,(regexp-opt '("+" "++" "+++" "+>" "+:")))
+      (?-  . ,(regexp-opt '("--" "---" "-->" "--->" "->-" "-<" "-<-" "-<<" "->" "->>" "-}" "-~" "-:" "-|")))
+      (?.  . ,(regexp-opt '(".-" ".." "..." "..<" ".=" ".>")))
       (?/  . ,(regexp-opt '("/*" "/**" "//" "///" "/=" "/==" "/>")))
-      (?:  . ,(regexp-opt '(":" "::" ":::" ":=" ":<" ":=" ":>")))
+      (?:  . ,(regexp-opt '(":" "::" ":::" ":=" ":<" ":=" ":>" ":+")))
       (?0  . "0\\(?:\\(x[a-fA-F0-9]\\).?\\)") ; Tries to match the x in 0xDEADBEEF
       ;; (?x . ,(regexp-opt '("x"))) ; Also tries to match the x in 0xDEADBEEF
       (?\; . ,(regexp-opt '(";;")))
-      (?<  . ,(regexp-opt '("<!--" "<$" "<$>" "<*" "<*>" "<+" "<+>" "<-" "<--" "<->" "</" "</>" "<<" "<<-" "<<<" "<<=" "<=" "<=" "<=<" "<==" "<=>" "<>" "<|" "<|>" "<~" "<~~")))
+      (?<  . ,(regexp-opt '("<!--" "<$" "<$>" "<*" "<*>" "<**>" "<+" "<+>" "<-" "<--" "<---" "<->" "<-->" "<--->" "</" "</>" "<<" "<<-" "<<<" "<<=" "<=" "<=<" "<==" "<=>" "<===>" "<>" "<|" "<|>" "<~" "<~~" "<." "<.>" "<..>")))
       (?=  . ,(regexp-opt '("=/=" "=:=" "=<<" "==" "===" "==>" "=>" "=>>")))
       (?>  . ,(regexp-opt '(">-" ">->" ">:" ">=" ">=>" ">>" ">>-" ">>=" ">>>")))
       (??  . ,(regexp-opt '("??" "?." "?:" "?=")))
@@ -75,8 +75,9 @@ besides what is listed.")
       (?^  . ,(regexp-opt '("^=" "^==")))
       (?w  . ,(regexp-opt '("www" "wwww")))
       (?{  . ,(regexp-opt '("{-" "{|" "{||" "{|}" "{||}")))
-      (?|  . ,(regexp-opt '("|=" "|>" "||" "||=" "|->" "|=>" "|]" "|}")))
+      (?|  . ,(regexp-opt '("|=" "|>" "||" "||=" "|->" "|=>" "|]" "|}" "|-")))
       (?_  . ,(regexp-opt '("_|_" "__")))
+      (?\( . ,(regexp-opt '("(*")))
       (?~  . ,(regexp-opt '("~-" "~=" "~>" "~@" "~~" "~~>")))))
   "An alist of all ligatures used by `+prog-ligatures-modes'.