diff options
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 () |