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-ponaI 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)