From a170641b0c67a7a04310ff8538a7ecf0b9beaeb0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?tr=C3=A9meur?= Date: Sun, 31 Dec 2023 10:53:38 +0000 Subject: [PATCH] Ensure journal file header is present before invoking capture --- custom/capture.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/custom/capture.el b/custom/capture.el index 0aaf01a..9d9c39d 100644 --- a/custom/capture.el +++ b/custom/capture.el @@ -5,6 +5,7 @@ (defun findread () "Find or create heading for read books" + (filedate) (goto-char (point-min)) (if (not (search-forward "** read" nil t)) (if (not (search-forward "* books" nil t)) @@ -15,6 +16,7 @@ (defun findacquired () "Find or create heading for acquired books" + (filedate) (goto-char (point-min)) (if (not (search-forward "** acquired" nil t)) (if (not (search-forward "* books" nil t)) @@ -25,6 +27,7 @@ (defun findwatched () "Find or create heading for watched films" + (filedate) (goto-char (point-min)) (if (not (search-forward "** watched" nil t)) (if (not (search-forward "* films" nil t)) @@ -35,6 +38,7 @@ (defun findvisited () "Find or create heading for visited places" + (filedate) (goto-char (point-min)) (if (not (search-forward "** visited" nil t)) (if (not (search-forward "* places" nil t)) @@ -45,6 +49,7 @@ (defun finddw () "Find or create heading for DW posts" + (filedate) (goto-char (point-min)) (if (not (search-forward "* dw" nil t)) (progn