From 285dba9fb7bbc53945d1244a23dc818c3bdcba6a Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 28 Feb 2015 01:24:18 -0500 Subject: Setup Org Link Edit --- lisp/init-org.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index 312a0e0..46054a7 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -518,6 +518,9 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)." ;;; Links +(add-to-list 'load-path "~/src/emacs/org-link-edit/") +(require 'org-link-edit-autoloads) + (setq org-link-search-must-match-exact-headline nil) (after 'org @@ -552,9 +555,38 @@ The hook functions and `org-store-link' are called within a (dired (file-name-directory (org-element-property :path el))))) +(after 'org-link-edit + (defun km/org-link-edit-slurp-link () + "Slurp trailing text into link. + + \[link\]extra -> \[\[linkextra\]\] + +After slurping, return the slurped text and move point to the +beginning of the link." + (interactive) + (cl-multiple-value-bind (beg end link desc) (org-link-edit--get-link-data) + (when (progn (goto-char end) (looking-at "[^ \t\n]+")) + (let ((slurped (match-string-no-properties 0))) + (setq link (concat link slurped) + end (match-end 0)) + (delete-region beg end) + (insert (org-make-link-string link desc)) + (goto-char beg) + slurped))))) + (define-key km/org-prefix-map "d" 'km/org-open-link-directory) (define-key km/global-org-map "l" 'km/org-store-link) +(define-key km/org-prefix-map "." + (defhydra hydra-org-link-edit () + "Org Link Edit" + ("j" org-link-edit-forward-slurp "forward slurp") + ("k" org-link-edit-forward-barf "forward barf") + ("u" org-link-edit-backward-slurp "backward slurp") + ("i" org-link-edit-backward-barf "backward barf") + ("l" km/org-link-edit-slurp-link "slurp link" :color blue) + ("q" nil "cancel"))) + ;;; Export -- cgit v1.2.3