Refine journal open shortcuts

1 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ss-org.el b/lisp/ss-org.el
index 7df4d75..4bbd92d 100644
--- a/lisp/ss-org.el
+++ b/lisp/ss-org.el
@@ -17,9 +17,18 @@
     (goto-char (point-max)))
   (when (fboundp 'ss-journal-goto-date)
     (if (ss-journal-goto-date)
-        (org-narrow-to-subtree)
+        (progn
+          (org-fold-show-entry)
+          (org-fold-show-subtree)
+          (org-narrow-to-subtree))
       (goto-char (point-max)))))
 
+(defun ss-open-journal-full ()
+  "Open `ss-journal-file' with the full buffer visible."
+  (interactive)
+  (find-file (ss-require-existing-file ss-journal-file))
+  (widen))
+
 (defun ss-open-moc ()
   "Open the central MOC note."
   (interactive)