narou-mode に傍点挿入を足す
以前、知らない子とした傍点ですが、やはりつけようということでこうなりました。
narou-mode.el の insert-ruby-notation の後ろに sidepoint を追加です。
(defun insert-sidepoint-notation () (interactive) (insert "|") (forward-char 1) (insert "《・》"))
そして C-c C-s に傍点を割り当てるために記述を少し修正。
(define-derived-mode narou-mode text-mode "narou" "Major mode for editing text of narou format." (setq-local font-lock-defaults '(narou-mode-font-lock-keywords nil nil)) (local-set-key [(C c) (C r)] 'insert-ruby-notation) (local-set-key [(C c) (C s)] 'insert-sidepoint-notation))
傍点を付けたいテキストを先に入力してから C-c C-s で傍点ガシガシ入れられます。やったね。