The Complete Computer

Sitelen Pona Pona

LifeTechEmacsArcology

A unicode font providing Tokipona hieroglyphics.

yaml source: 
- 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.

emacs-lisp source: :tangle no :results no
(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)