From cfb2d036133e095b839ae893ccd3893dd155c955 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 28 Feb 2015 01:23:52 -0500
Subject: Make 'Link' heading in Org setup file

---
 lisp/init-org.el | 55 ++++++++++++++++++++++++++++---------------------------
 1 file changed, 28 insertions(+), 27 deletions(-)

(limited to 'lisp/init-org.el')

diff --git a/lisp/init-org.el b/lisp/init-org.el
index b32048c..312a0e0 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -17,8 +17,6 @@
       org-adapt-indentation nil
       org-blank-before-new-entry '((heading . t) (plain-list-item . auto)))
 
-(setq org-link-search-must-match-exact-headline nil)
-
 (setq org-use-speed-commands t
       org-use-extra-keys t
       org-fast-tag-selection-single-key 'expert)
@@ -60,19 +58,6 @@
 
 (add-to-list 'auto-mode-alist '("\\.org.txt\\'" . org-mode))
 
-(defvar km/org-store-link-hook nil
-  "Hook run before by `km/org-store-link-hook'.
-These are run within a `save-window-excursion' block.")
-
-(defun km/org-store-link ()
-  "Run `km/org-store-link-hook' before `org-store-link'.
-The hook functions and `org-store-link' are called within a
-`save-window-excursion' block."
-  (interactive)
-  (save-window-excursion
-    (run-hooks 'km/org-store-link-hook)
-    (call-interactively 'org-store-link)))
-
 (defun km/org-tree-to-indirect-buffer (&optional arg)
   "Run `org-tree-to-indirect-buffer', keeping previous buffer.
 By default, `org-tree-to-indirect-buffer' deletes the previous
@@ -269,15 +254,6 @@ called through the speed command interface."
   (save-excursion
     (call-interactively #'org-open-at-point)))
 
-(defun km/org-open-link-directory ()
-  "Open Dired for directory of file link at point."
-  (interactive)
-  (let ((el (org-element-lineage (org-element-context) '(link) t)))
-    (unless (and el (equal (org-element-property :type el) "file"))
-      (user-error "Not on file link"))
-    (dired (file-name-directory
-            (org-element-property :path el)))))
-
 (after 'org
   (define-key org-mode-map (kbd "C-c C-x B")
     'km/org-tree-to-indirect-buffer-current-window)
@@ -308,7 +284,6 @@ called through the speed command interface."
 
 (define-prefix-command 'km/org-prefix-map)
 (define-key km/org-prefix-map "c" 'km/org-clone-and-shift-by-repeater)
-(define-key km/org-prefix-map "d" 'km/org-open-link-directory)
 (define-key km/org-prefix-map "D" 'km/org-delete-checked-items)
 (define-key km/org-prefix-map "l" 'km/org-remove-title-leader)
 (define-key km/org-prefix-map "n" 'km/org-normalize-spaces)
@@ -319,7 +294,6 @@ called through the speed command interface."
 (global-set-key (kbd "C-c o") 'km/global-org-map)
 
 (define-key km/global-org-map "b" 'org-iswitchb)
-(define-key km/global-org-map "l" 'km/org-store-link)
 (define-key km/global-org-map "o" 'org-open-at-point-global)
 (define-key km/global-org-map "s" 'org-save-all-org-buffers)
 
@@ -542,7 +516,9 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)."
   (define-key org-agenda-mode-map "j" 'ace-jump-mode))
 
 
-;;; Custom links
+;;; Links
+
+(setq org-link-search-must-match-exact-headline nil)
 
 (after 'org
   (org-add-link-type "pmid" 'km/org-pmid-open))
@@ -554,6 +530,31 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)."
   "Seacrh for PMID at `km/org-pmid-search-url'."
   (browse-url (format km/org-pmid-search-url path)))
 
+(defvar km/org-store-link-hook nil
+  "Hook run before by `km/org-store-link-hook'.
+These are run within a `save-window-excursion' block.")
+
+(defun km/org-store-link ()
+  "Run `km/org-store-link-hook' before `org-store-link'.
+The hook functions and `org-store-link' are called within a
+`save-window-excursion' block."
+  (interactive)
+  (save-window-excursion
+    (run-hooks 'km/org-store-link-hook)
+    (call-interactively 'org-store-link)))
+
+(defun km/org-open-link-directory ()
+  "Open Dired for directory of file link at point."
+  (interactive)
+  (let ((el (org-element-lineage (org-element-context) '(link) t)))
+    (unless (and el (equal (org-element-property :type el) "file"))
+      (user-error "Not on file link"))
+    (dired (file-name-directory
+            (org-element-property :path el)))))
+
+(define-key km/org-prefix-map "d" 'km/org-open-link-directory)
+(define-key km/global-org-map "l" 'km/org-store-link)
+
 
 ;;; Export
 
-- 
cgit v1.2.3