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

@@ -12,6 +12,9 @@
   (font-spec :family "JuliaMono" :size 16)
   "A monospace font secondary to `syd-fixed-pitch-font'.")
 
+(defvar syd-sitelen-pona-font
+  (font-spec :family "sitelen seli kiwen mono juniko"))
+
 (defun syd-init-fonts-h ()
   "Loads `syd-fixed-pitch-font' and `syd-variable-pitch-font'."
   (dolist (map `((default . ,syd-fixed-pitch-font)
@@ -20,7 +23,10 @@
     (pcase-let ((`(,face . ,font) map))
       (set-face-attribute face nil
 			  :width 'normal :weight 'normal
-                          :slant 'normal :font font))))
+			  :slant 'normal :font font)))
+  (set-fontset-font
+   t '(#xF1900 . #xF19FF)
+   syd-sitelen-pona-font))
 
 (let ((hook-point (if (daemonp)
                 'server-after-make-frame-hook

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

@@ -21,6 +21,12 @@
 			    "+>" "++" "?:" "?=" "?." "??" ";;" ";;;"
 			    "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
 			    "\\\\" "://"))
+  ;; 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)