diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ss-keys.el | 1 | ||||
| -rw-r--r-- | lisp/ss-org.el | 11 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ss-keys.el b/lisp/ss-keys.el index fe45572..c83c1e5 100644 --- a/lisp/ss-keys.el +++ b/lisp/ss-keys.el @@ -24,6 +24,7 @@ (when (ss-feature-enabled-p 'org) (global-set-key (kbd "C-c n M") #'ss-open-moc) + (global-set-key (kbd "C-c n j") #'ss-open-journal-full) (global-set-key (kbd "C-c n d") #'ss-open-journal)) (when (ss-feature-enabled-p 'crm) 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) |