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 で傍点ガシガシ入れられます。やったね。