sitelen-pona-pona or linje-pona inside Emacs?

rrix

In my tokipona notes and study cards, I colloquially wrap toki pona inside of == blocks which applies the “org-verbatim” face to the text (and also causes ispell to skip it) i would like to render those using one of the heiroglyph fonts, and I cannot for the life of me figure it out, I always struggle with the face system.

simple things like (face-remap-add-relative 'org-verbatim :font "sitelen-pona-pona") or customizing org-verbatim in this fashion don’t work, though fontconfig sees the fonts. Is anyone doing something similar, i know this is a little enclave of org-mode weirdos :) i guess it’s possible that emacs doesn’t support rendering the cartouches or stacked glyphs but even basic support would be nice, i am otherwise failing to incorporate the glyphs in to my learning.

rrix

didn’t search hard enough before posting… emacs 27.1 switched to Harfbuzz for text-placement which supports ligatures much better, they still need to be configured but Mickey has the hookup: https://www.masteringemacs.org/article/unicode-ligatures-color-emoji

the ligatures worked for a few characters, but the regular expressions that it generates will match within words so things like li and ni and o would render within words. When I fed it a table of all the tokipona words it didn’t really work. My remap call also had the wrong fontspec, consider loading this and putting this in an org-mode buffer and exceuting it:

=jan pona li pu=

#+begin_src emacs-lisp :results verbatim
(face-remap-add-relative 'org-verbatim :family "linja pona")
(ligature-set-ligatures 'org-mode
'("a" "akesi" "ala" "alasa" "ale" "ali" "anpa" "apeja" "ante" "anu" "awen"
"e" "en" "esun"
"ijo" "ike" "ilo" "insa"
"jaki" "jan" "jelo" "jo"
"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"))
#+end_src

rrix

okay, sorry for self-posting… :)

#+begin_src emacs-lisp :results none
(setq tokipona-face-family "linja pona" tokipona-toki-face 'org-verbatim)
(ligature-set-ligatures 'org-mode
                        '("a" "akesi" "ala" "alasa" "ale" "ali" "anpa" "apeja" "ante" "anu" "awen"
                          "e" "en" "esun"
                          "ijo" "ike" "ilo" "insa"
                          "jaki" "jan" "jelo" "jo"
                          "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 tokipona-toki-face :family tokipona-face-family))
        (ligature-mode 1))
    (when (boundp 'tokipona-mode-remap-cookie)
      (face-remap-remove-relative tokipona-mode-remap-cookie))))
#+end_src

this supports the basic vocabulary but does NOT support things like the cartouche or stacked glyphs. it also causes my Emacs to fall in to an unkillable loop when I un-fold a heading, either the gc gets unhappy or it loops deep inside the text-properties code, probably both!
careful with this, you can put # -*- eval: (tokipona-mode 1) -*- in the top of any file to get this code to run when it’s opened or add it to org-mode-hook to play Russian Roulette with all your org files!

ice

Personally I’ve never used org-mode (one day, maybe…) @l3kn is probably the person who’s the more knowledgeable on this topic.

l3kn

So far I’ve only used Emacs to learn toki pona, not to write it.
The ligature approach might work for sitelen pona but rendering sitelen sitelen using ligatures seems like a very hard problem.

To write toki pona and have it displayed as sitelen sitelen,
I’d use org-mode source blocks with a custom backend that uses an external converter
(e.g. https://github.com/olafjanssen/sitelen-sitelen-renderer/, live version at http://livingtokipona.smoishele.com/examples/liveinput/liveinput.html) to convert the text to svg images that get included in the org mode files.

I’ve not tried it myself but once you’ve set up the renderer locally, it should be doable with a few lines of JS and EmacsLisp.