summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-02-28 01:23:52 -0500
committerKyle Meyer <kyle@kyleam.com>2015-02-28 01:26:04 -0500
commitcfb2d036133e095b839ae893ccd3893dd155c955 (patch)
treec2c7f8df40509d187727e41e73c39a3ac07c6360 /lisp
parent5b49f86797086c9561bdb3584a372e7af67818e1 (diff)
downloademacs.d-cfb2d036133e095b839ae893ccd3893dd155c955.tar.gz
Make 'Link' heading in Org setup file
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-org.el55
1 files changed, 28 insertions, 27 deletions
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