2017-10-30 emacs clmemo

clmemoでChangeLogを書く

ChangeLog用にclmemo環境を構築した。 Package installでの情報は少なく、試行錯誤したが最終的には以下の設定で動くようになった。 検索は、clgrepも使ってみましたが慣れたswiperが使いやすいのでやめました。

clmemoの設定

(bind-key "C-x m" 'clmemo)
(defhydra hydra-clmemo (:hint nil :exit t)
  "
_g_: grep  _p_: copy-file-path  _t_: tag-insert  _r_: quote-region
"
  ("s" swiper-migemo)
  ("p" my-copy-file-path)
  ("t" clmemo-tag-insert-quick)
  ("r" clmemo-quote-region)
  ("q" keyboard-quit))
(bind-key "C-;" 'hydra-clmemo/body)

(setq user-full-name "Minoru Yamada.")
(setq user-mail-address "minoru@heaven.call")
(setq clmemo-file-name "~/Dropbox/howm/clmemo.txt")

;; Time-string-with-week
(setq clmemo-time-string-with-weekday t)

;; Insert-region
(setq clmemo-buffer-function-list
        '(clmemo-insert-region))

;; Enter sub-titles in the category style of chalow
(setq clmemo-subtitle-char "[")
(setq clmemo-subtitle-punctuation-char '(" ["."]"))
(setq clmemo-title-list '(("v"."Vim[") ("g"."GH[") ("m"."Mac[") ("w"."Win[") ("d"."Linux[") ("e"."Emacs[")))

;; `>' の変わりに `|' を引用記号にする例
(setq clmemo-quote-prefix "|")

;; disable tab function of clmemo
(define-key clmemo-mode-map "\t" nil)

;; Buffer-file-name copy to kill ring.
(defun my-copy-file-path ()
  "show the full path file name in the minibuffer and copy to kill ring."
  (interactive)
  (when buffer-file-name
    (kill-new (file-truename buffer-file-name))
    (message (buffer-file-name))))

;; Open in view-mode
(add-hook 'clgrep-mode-hook (lambda ()
                              (view-mode)))

参考

ChangeLomemoメモのはじめ方

Change Log メモを試してみよう

clmemo + blgrepで ChangeLog を快適に書く

2017-10-30 emacs clmemo