tDiary – tdiary-mode-hook
tdiary-mode-hookは、次のように設定している。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
(add-hook 'tdiary-mode-hook '(lambda () (add-local-hook 'kill-buffer-hook '(lambda () (and (buffer-modified-p) (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? " (buffer-name)))) (error "Aborted")))) (local-set-key "\C-i" 'tdiary-complete-plugin) (defun tdiary-read-title (date) (and (or (not (stringp tdiary-title)) (eq (length tdiary-title) 0)) (string-match "\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)" tdiary-date) (setq tdiary-title (concat (match-string 1 tdiary-date) "-" (match-string 2 tdiary-date) "-" (match-string 3 tdiary-date) "の日記"))) (read-string (concat "Title for " date ": ") tdiary-title)))) |
Emacsではファイルに結びついていないバッファは確認なしにkillできてしまうので、書き… 続きを読む »