From 8848adb7cfb08b939f1dda56a7d7a4c82e40d9ba Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 4 Aug 2022 12:45:14 -0700 Subject: incrementally replace #+TITLE: with #+title: in old notes --- .emacs.d/init.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index cff1a4d1..c0a24fad 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -4348,6 +4348,19 @@ We don't use the FILES parameter in the entry for \"d\" in (spw/feature-add-hook howm-mode-set-buffer-name howm (howm after-save-hook)) +;; Incrementally replace #+TITLE in old notes. +(defun spw/howm-replace-title-option () + (when howm-mode + (save-excursion + (save-restriction + (widen) + (goto-char (point-min)) + (let (case-fold-search) + (when (re-search-forward "^#\\+TITLE: " nil t) + (replace-match "#+title: " t))))))) +(spw/when-library-available howm + (add-hook 'before-save-hook #'spw/howm-replace-title-option)) + (defun spw/howm-directory-howm-mode () (when-let ((file (buffer-file-name))) (when (file-in-directory-p file howm-directory) -- cgit v1.2.3