From 08d06ed00c9d6e98f0f8a02d243a2eb36ee4bff1 Mon Sep 17 00:00:00 2001 From: Szymon Szukalski Date: Thu, 9 Apr 2026 11:22:48 +1000 Subject: Improve CRM and journal workflows --- lisp/ss-org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/ss-org.el') diff --git a/lisp/ss-org.el b/lisp/ss-org.el index 30956e9..7df4d75 100644 --- a/lisp/ss-org.el +++ b/lisp/ss-org.el @@ -9,14 +9,15 @@ (require 'ss-core) (defun ss-open-journal () - "Open `ss-journal-file', moving to today's entry when it exists." + "Open `ss-journal-file', narrowing to today's entry when it exists." (interactive) (find-file (ss-require-existing-file ss-journal-file)) (widen) (unless (fboundp 'ss-journal-goto-date) (goto-char (point-max))) (when (fboundp 'ss-journal-goto-date) - (unless (ss-journal-goto-date) + (if (ss-journal-goto-date) + (org-narrow-to-subtree) (goto-char (point-max))))) (defun ss-open-moc () -- cgit v1.2.3