From c0b60ff0e4f21e50bb052df8b135ca205bda469f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Sun, 29 Mar 2026 13:35:24 -0600 Subject: [PATCH] feat(emacs): toki pona ligatures --- modules/home/users/msyds/emacs/lisp/syd/ligature.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/modules/home/users/msyds/emacs/lisp/syd/ligature.el b/modules/home/users/msyds/emacs/lisp/syd/ligature.el index ac9f28f..e178cef 100755 --- 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)