07/02/22 18:11:44
>>261
ファイラーっていってもemacs内部にdiredっていうファイラーがあるんだし、効率悪いかな。
(interactive) (delete-file (buffer-file-name (current-buffer)))
な内容の関数をキーバインドに割り当てるか、
;; 内容が 0 ならファイルごと削除する
(if (not (memq 'delete-file-if-no-contents after-save-hook))
(setq after-save-hook
(cons 'delete-file-if-no-contents after-save-hook)))
(defun delete-file-if-no-contents ()
(when (and
(buffer-file-name (current-buffer))
(string-match "\\.howm" (buffer-file-name (current-buffer)))
(= (point-min) (point-max)))
(delete-file
(buffer-file-name (current-buffer)))))