diff options
-rw-r--r-- | shoshimacs.el | 15 | ||||
-rw-r--r-- | shoshimacs.org | 26 |
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 |