complete-computing-environment/sitelen_pona_pona.org

Sitelen Pona Pona

A unicode font providing Tokipona hieroglyphics.

- name: sitelen-pona-pona is installed
  get_url:
    url: https://github.com/jackhumbert/sitelen-pona-pona/releases/download/v0.2/sitelen-pona-pona.otf
    dest: ~/.fonts/sitelen-pona-pona
    mode: 0644
  become: "{{needs_become_deescalate}}"
  become_user: "{{local_account}}"
  register: pona_installed
  tags:
  - sitelen-pona-pona
  
- name: generate fontconfig cache
  shell: fc-cache -fv
  when: pona_installed.changed
  become: "{{needs_become_deescalate}}"
  become_user: "{{local_account}}"
  tags:
  - sitelen-pona-pona

I also use linja pona maybe. in Unicode, Ligatures and Color Emoji Mickey Petersen shows ligature.el and with that loaded, I can use this minor-mode called tokipona-mode in a buffer to render the sitelen font. I don't use this right now because it causes my Emacs to become very sad.

(add-to-list 'load-path "~/org/cce")
(require 'ligature) ; currently installed in ~/org/cce

(setq tokipona-face-family "linja pona")
(ligature-set-ligatures 'org-mode
                        '("akesi" "ala" "alasa" "ale" "ali" "anpa" "apeja" "ante" "anu" "awen" "a"
                          "en" "esun" "e"
                          "ijo" "ike" "ilo" "insa"
                          "jaki" "jan" "jelo" "jo" "jan+pona"
                          "kala" "kalama" "kama" "kasi" "ken" "kepeken" "kili" "kin" "kipisi" "kiwen" "ko" "kon" "kule" "kulupu" "kute"
                          "la" "lape" "laso" "lawa" "leko" "len" "lete" "li" "lili" "linja" "lipu" "loje" "lon" "luka" "lukin" "lupa"
                          "ma" "mama" "mani" "meli" "mi" "mije" "moku" "moli" "monsi" "monsuta" "mu" "mun" "musi" "mute"
                          "nanpa" "nasa" "nasin" "nena" "ni" "nimi" "noka"
                          "o" "oko" "olin" "ona" "open"
                          "pakala" "pake" "pali" "palisa" "pan" "pana" "pi" "pilin" "pimeja" "pini" "pipi" "poka" "poki" "pona" "pu"
                          "sama" "seli" "selo" "seme" "sewi" "sijelo" "sike" "sin" "sina" "sinpin" "sitelen" "sona" "soweli" "suli" "suno" "supa" "suwi"
                          "tan" "taso" "tawa" "telo" "tenpo" "toki" "tomo" "tonsi" "tu"
                          "unpa" "uta" "utala"
                          "walo" "wan" "waso" "wawa" "weka" "wile"))
(define-minor-mode tokipona-mode
  "Show tokipona ligtures in a heiroglyph font" nil nil nil
  (if tokipona-mode
      (progn
        (setq-local tokipona-mode-remap-cookie
                    (face-remap-add-relative 'org-verbatim :family tokipona-face-family))
        (ligature-mode 1))
    (when (boundp 'tokipona-mode-remap-cookie)
      (face-remap-remove-relative tokipona-mode-remap-cookie)))))

(provide 'cce/sitelen-pona-pona)