feat(emacs): toki pona ligatures

2026-03-29 13:35:24 -06:00
parent 9ffa14e536
commit c0b60ff0e4
1 changed files with 8 additions and 3 deletions
--- a/modules/home/users/msyds/emacs/lisp/syd/ligature.el
+++ b/modules/home/users/msyds/emacs/lisp/syd/ligature.el
@@ -22,11 +22,16 @@
 			    "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
 			    "\\\\" "://"))
  ;; Sitelen pona glyphs.
-  (rx-let ((ideograph (any (#xF1900 . #xF198C))))
+  (rx-let ((ideograph (any (#xF1900 . #xF198C)))
+           (tok-punct (any "󱦜" "󱦝"))
+           (arrow (any "←-↙"))
+           (zwj "‍"))
    (ligature-set-ligatures
     'fundamental-mode
-     `(("󱦐" ,(rx (* ideograph)))
-       ("󱥍" ,(rx "󱦗" (* ideograph))))))
+     `(("󱦐" ,(rx (* (or ideograph tok-punct))))
+       ("󱥍" ,(rx "󱦗" (* (or ideograph tok-punct)) "󱦘"))
+       ("󱥁" ,(rx zwj arrow))
+       ("󱤑" ,(rx zwj ideograph)))))
  (global-ligature-mode 1))

 (provide 'syd/ligature)