summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Peter <marius.peter@tutanota.com>2021-09-25 18:48:10 -0700
committerMarius Peter <marius.peter@tutanota.com>2021-09-25 18:48:10 -0700
commitc59bffecec1de4e1e88ffdc2959d15f7cd2354a8 (patch)
tree852a575d34dd5e9c1a563b41f875d660965e00c2
parent007d10a92052498be20bbb6ff5133da87521c0f4 (diff)
Opening common files.
-rw-r--r--smart-documents.org47
1 files 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
Copyright 2019--2024 Marius PETER