open-junk-file+howmでサンプルコードテスト環境を構築
ぼくはプログラマーではないけど、作業の自動化などを図るためにときどきパッチワークコードを試すことがある。 この目的のために多くの人は、open-junk-file.elを使っているみたいなので素直に見習う。
ぼくはプログラマーではないけど、作業の自動化などを図るためにときどきパッチワークコードを試すことがある。 この目的のために多くの人は、open-junk-file.elを使っているみたいなので素直に見習う。
メモ機能に特化したhowmの設定を紹介します。
;*************************************************************************
;; howm-memo.el last updated: 2017/06/09
;*************************************************************************
;; M-x package-install howm
;; (use-package key-chord)
;; (use-package use-package-chords
;; :config (key-chord-mode 1))
;;-----------------------------------------------------------------------
(use-package howm
:init
(setq howm-view-title-header "#"
howm-directory "~/Dropbox/howm"
howm-file-name-format "%Y/%m/%Y-%m%d-%H%M.md"
:config
(setq howm-view-split-horizontally t ;; 一覧バッファと内容バッファを横に並べる
howm-view-summary-persistent nil ;; RET でファイルを開く際一覧バッファを消す
:chords ((",," . howm-create) ;; メモを書く
("@@" . howm-list-all))) ;; メモ一覧を開く
;; 空になったファイルを尋ねずに自動削除:howm以外でも有効
(defun my:delete-file-if-no-contents ()
(when (and (buffer-file-name (current-buffer))
(= (point-min) (point-max)))
(delete-file
(buffer-file-name (current-buffer)))))
(if (not (memq 'my:delete-file-if-no-contents after-save-hook))
(setq after-save-hook
(cons 'my:delete-file-if-no-contents after-save-hook)))
;***********************************************************************
; end of file