feat(emacs): ligature

modules/home/users/msyds/emacs/init.el

@@ -46,7 +46,8 @@
     syd/pdf
     syd/project
     syd/display-startup-time
-    syd/dired))
+    syd/dired
+    syd/ligature))
 
 (defun syd-random-permutation (lst &optional seed)
   "Return a random permutation of list LST using SEED as the random state.  The

modules/home/users/msyds/emacs/lisp/syd/ligature.el

@@ -0,0 +1,26 @@
+;;; -*- lexical-binding: t; -*-
+
+(require 'syd/base)
+
+(use-package ligature
+  :config
+  (ligature-set-ligatures 'prog-mode
+                          '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||="
+                            "||>" ":::" "::=" "=:=" "===" "==>" "=!=" "=>>"
+                            "=<<" "=/=" "!==" "!!." ">=>" ">>=" ">>>" ">>-"
+                            ">->" "->>" "-->" "---" "-<<" "<~~" "<~>" "<*>"
+                            "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->" "<--"
+                            "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_("
+                            "..<" "..."  "+++" "/==" "///" "_|_" "www" "&&" "^="
+                            "~~" "~@" "~=" "~>" "~-" "**" "*>" "*/" "||" "|}"
+                            "|]" "|=" "|>" "|-" "{|" "[|" "]#" "::" ":=" ":>"
+                            ":<" "$>" "==" "=>" "!=" "!!" ">:" ">=" ">>" ">-"
+                            "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:" "<$"
+                            "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#="
+                            "#!"  "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?"
+                            "+>" "++" "?:" "?=" "?." "??" ";;" "/*" "/=" "/>"
+                            "//" "__" "~~" "(*" "*)" "\\\\" "://"))
+  (ligature-set-ligatures 'text-mode
+                          '("ff" "fi" "ffi")))
+
+(provide 'syd/ligature)