msyds/sydnix
1
0
Fork 0
Code Issues 6 Pull Requests 2 Actions Packages Projects Releases Wiki Activity

feat(emacs): toki pona ligatures
All checks were successful
build / build (push) Successful in 2m40s
Details

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-29 13:35:24 -06:00
parent 9ffa14e536
commit c0b60ff0e4
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/home/users/msyds/emacs/lisp/syd/ligature.el
View File

@@ -22,11 +22,16 @@
"/*" "/=" "/>" "//" "__" "~~" "(*" "*)" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
"\\\\" "://")) "\\\\" "://"))
;; Sitelen pona glyphs. ;; Sitelen pona glyphs.
(rx-let ((ideograph (any (#xF1900 . #xF198C)))) (rx-let ((ideograph (any (#xF1900 . #xF198C)))
(tok-punct (any "󱦜" "󱦝"))
(arrow (any "←-↙"))
(zwj "‍"))
(ligature-set-ligatures (ligature-set-ligatures
'fundamental-mode 'fundamental-mode
`(("󱦐" ,(rx (* ideograph))) `(("󱦐" ,(rx (* (or ideograph tok-punct))))
("󱥍" ,(rx "󱦗" (* ideograph)))))) ("󱥍" ,(rx "󱦗" (* (or ideograph tok-punct)) "󱦘"))
("󱥁" ,(rx zwj arrow))
("󱤑" ,(rx zwj ideograph)))))
(global-ligature-mode 1)) (global-ligature-mode 1))
(provide 'syd/ligature) (provide 'syd/ligature)