aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--shoshimacs.el15
-rw-r--r--shoshimacs.org26
2 files changed, 37 insertions, 4 deletions
diff --git a/shoshimacs.el b/shoshimacs.el
index 8d22251..bee6420 100644
--- a/shoshimacs.el
+++ b/shoshimacs.el
@@ -153,6 +153,18 @@
(package-install 'markdown-mode)
+(setq org-default-notes-file (concat org-directory "/notes.org"))
+
+(setq org-capture-templates
+ `(("p" "Protocol" entry (file+headline ,org-default-notes-file "Inbox")
+ "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")
+ ("L" "Protocol Link" entry (file+headline ,org-default-notes-file "Inbox")
+ "* %? [[%:link][%:description]] \nCaptured On: %U")))
+
+(setq org-refile-use-outline-path t
+ org-refile-allow-creating-parent-nodes t
+ org-refile-targets '((nil . (:maxlevel . 2))))
+
(defun my-org-top-level-heading ()
(interactive)
(let ((moo 1))
@@ -376,11 +388,10 @@
(accent . (telephone-line-major-mode-segment))
(evil . (telephone-line-airline-position-segment))))
+(telephone-line-mode t)
(set-face-background 'telephone-line-evil-normal "deep pink")
(set-face-background 'telephone-line-evil-insert "Dark Turquoise")
-(telephone-line-mode t)
-
(defun screenshot-svg ()
"Save a screenshot of the current frame as an SVG image.
Saves to a temp file and puts the filename in the kill ring."
diff --git a/shoshimacs.org b/shoshimacs.org
index a7c35ba..41099e3 100644
--- a/shoshimacs.org
+++ b/shoshimacs.org
@@ -643,6 +643,29 @@ the paren balancing. We'll see how it goes
#+end_src
** org mode
+*** capture
+
+Org capture is a way to quickly get entries from various places into one of your
+org files.
+
+#+begin_src emacs-lisp
+ (setq org-default-notes-file (concat org-directory "/notes.org"))
+
+ (setq org-capture-templates
+ `(("p" "Protocol" entry (file+headline ,org-default-notes-file "Inbox")
+ "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")
+ ("L" "Protocol Link" entry (file+headline ,org-default-notes-file "Inbox")
+ "* %? [[%:link][%:description]] \nCaptured On: %U")))
+#+end_src
+
+*** refile
+
+#+begin_src emacs-lisp
+ (setq org-refile-use-outline-path t
+ org-refile-allow-creating-parent-nodes t
+ org-refile-targets '((nil . (:maxlevel . 2))))
+#+end_src
+
*** jump to top level parent heading
a friend was wanting this functionality, so i dug around in the org functions
@@ -1251,10 +1274,9 @@ for theme development.
(accent . (telephone-line-major-mode-segment))
(evil . (telephone-line-airline-position-segment))))
+ (telephone-line-mode t)
(set-face-background 'telephone-line-evil-normal "deep pink")
(set-face-background 'telephone-line-evil-insert "Dark Turquoise")
-
- (telephone-line-mode t)
#+end_src
** SVG Screenshot