diff options
| author | Szymon Szukalski <szymon@szymonszukalski.com> | 2026-04-09 11:22:48 +1000 |
|---|---|---|
| committer | Szymon Szukalski <szymon@szymonszukalski.com> | 2026-04-09 11:22:48 +1000 |
| commit | 08d06ed00c9d6e98f0f8a02d243a2eb36ee4bff1 (patch) | |
| tree | dad98d4ac64219e047223c82564d93c00ddf0501 /lisp/ss-org.el | |
| parent | bc75732b9d37b77945a977ee9f7892cf6efc79c3 (diff) | |
Improve CRM and journal workflows
Diffstat (limited to 'lisp/ss-org.el')
| -rw-r--r-- | lisp/ss-org.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 () |