Add Hasklig pretty-code configuration

Took the list of symbols from
https://github.com/minad/hasklig-mode/blob/master/hasklig-mode.el ,
only rudimentary testings has been done on this

modules/ui/pretty-code/+hasklig.el

@@ -0,0 +1,58 @@
+;;; ui/pretty-code/+hasklig.el -*- lexical-binding: t; -*-
+
+(defvar +pretty-code-hasklig-font-name "Hasklig"
+  "Name of the hasklig ligature font.")
+
+(defvar +pretty-code-hasklig-font-ligatures
+  '(("&&"      . #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)))
+
+
+(defun +pretty-code|setup-hasklig-ligatures ()
+  (set-fontset-font t '(#Xe100 . #Xe129) +pretty-code-hasklig-font-name)
+  (setq-default prettify-symbols-alist
+                (append prettify-symbols-alist
+                        (mapcar #'+pretty-code--correct-symbol-bounds
+                                +pretty-code-hasklig-font-ligatures))))
+
+(add-hook 'doom-init-ui-hook #'+pretty-code|setup-hasklig-ligatures)

modules/ui/pretty-code/config.el

@@ -4,6 +4,8 @@
        (load! "+fira"))
       ((featurep! +iosevka)
        (load! "+iosevka"))
+      ((featurep! +hasklig)
+       (load! "+hasklig"))
       ((featurep! +pragmata-pro)
        (load! "+pragmata-pro")))