SKKで丸数字

memo

Meadowで、まる１とかやって①に変換したかったので、適当にでっち上げる．

(setq my-skk-maru-suji-alist
'*1
(format "○%s" num))))

で、.skk-jisyoに以下を足す。よく考えると連想配列なしで書けそうだなぁ．

まる# /(my-skk-maru-suji)/

*1:"1" . "①") ("2" . "②") ("3" . "③") ("4" . "④") ("5" . "⑤") ("6" . "⑥") ("7" . "⑦") ("8" . "⑧") ("9" . "⑨") ("10" . "⑩") ("11" . "⑪") ("12" . "⑫") ("13" . "⑬") ("14" . "⑭") ("15" . "⑮") ("16" . "⑯") ("17" . "⑰") ("18" . "⑱") ("19" . "⑲") ("20" . "⑳"))) (defun my-skk-maru-suji() (let((num (car skk-num-list))) (if (assoc num my-skk-maru-suji-alist) (cdr (assoc num my-skk-maru-suji-alist