33 lines
1.2 KiB
EmacsLisp
Executable File
33 lines
1.2 KiB
EmacsLisp
Executable File
;;; -*- lexical-binding: t; -*-
|
|
|
|
(require 'syd/base)
|
|
|
|
(use-package ligature
|
|
:config
|
|
(ligature-set-ligatures 'prog-mode
|
|
'("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||="
|
|
"||>" ":::" "::=" "=:=" "===" "==>" "=!=" "=>>"
|
|
"=<<" "=/=" "!==" "!!." ">=>" ">>=" ">>>" ">>-"
|
|
">->" "->>" "-->" "---" "-<<" "<~~" "<~>" "<*>"
|
|
"<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->" "<--"
|
|
"<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_("
|
|
"..<" "..." "+++" "/==" "///" "_|_" "www" "&&" "^="
|
|
"~~" "~@" "~=" "~>" "~-" "**" "*>" "*/" "||" "|}"
|
|
"|]" "|=" "|>" "|-" "{|" "[|" "]#" "::" ":=" ":>"
|
|
":<" "$>" "==" "=>" "!=" "!!" ">:" ">=" ">>" ">-"
|
|
"-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:" "<$"
|
|
"<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#="
|
|
"#!" "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?"
|
|
"+>" "++" "?:" "?=" "?." "??" ";;" ";;;"
|
|
"/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
|
|
"\\\\" "://"))
|
|
;; Sitelen pona glyphs.
|
|
(rx-let ((ideograph (any (#xF1900 . #xF198C))))
|
|
(ligature-set-ligatures
|
|
'fundamental-mode
|
|
`(("" ,(rx (* ideograph)))
|
|
("" ,(rx "" (* ideograph))))))
|
|
(global-ligature-mode 1))
|
|
|
|
(provide 'syd/ligature)
|