From c59bffecec1de4e1e88ffdc2959d15f7cd2354a8 Mon Sep 17 00:00:00 2001
From: Marius Peter <marius.peter@tutanota.com>
Date: Sat, 25 Sep 2021 18:48:10 -0700
Subject: Opening common files.

---
 smart-documents.org | 47 ++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 36 insertions(+), 11 deletions(-)

diff --git a/smart-documents.org b/smart-documents.org
index 80cec4d..1a72a86 100644
--- a/smart-documents.org
+++ b/smart-documents.org
@@ -149,17 +149,8 @@ We start the profiler now , and will interrupt it in Section
   (profiler-start)
 #+END_SRC
 
-** Jumping to this file
 
-We begin by defining a function to open this very file.
 
-#+NAME: shortcut-config
-#+BEGIN_SRC emacs-lisp :tangle yes
-  (defun my/find-literate-config ()
-    "Jump to this very file."
-    (interactive)
-    (find-file my/literate-config))
-#+END_SRC
 ** Usual paths to files & directories
 
 This section defines the paths that structure the overall {{{sd}}}
@@ -376,7 +367,14 @@ navigation cues on all modern desktop OSes. From IBM's CUA, we get the
 (Function defined in Section [[Jumping to this file]])
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-  (global-set-key (kbd "C-c c") 'my/find-literate-config)
+  (global-set-key (kbd "C-c c") 'sd-find-literate-config)
+#+END_SRC
+
+
+*** TODO Open the Org diary
+
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (global-set-key (kbd "C-c d") 'sd-find-org-diary)
 #+END_SRC
 
 *** Open a recently visited file
@@ -1454,7 +1452,34 @@ later than the keybinding definitions for two reasons:
    subsection (Section [[Keyboard shortcuts]]), the links to that name
    will resolve to the earliest heading in the document, i.e. the
    keybinding subsection, and not the subsection describing the
-   `one-click workflow'.
+   ``one-click workflow''.
+
+
+** Opening files
+
+First off, we identify files that we'd like to jump to conveniently.
+
+
+*** This very file
+
+We begin by defining a function to open this very file.
+
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (defun sd-find-literate-config ()
+    "Visit this very file."
+    (interactive)
+    (find-file sd-literate-config))
+#+END_SRC
+
+*** Org diary file
+
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (defun sd-find-org-diary()
+    "Visit the `org-agenda-diary-file'."
+    (interactive)
+    (find-file org-agenda-diary-file))
+#+END_SRC
+
 
 ** TODO Export to PDF
 
-- 
cgit v1.2.3