summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-org.el27
1 files changed, 13 insertions, 14 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el
index bf0211e..4ca3e83 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -584,7 +584,7 @@ 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)
+(require 'org-link-edit)
(setq org-link-search-must-match-exact-headline nil)
@@ -607,24 +607,23 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)."
(dired-jump 'other-window
(expand-file-name (org-element-property :path el)))))
-(after 'org-link-edit
- (defun km/org-link-edit-slurp-link ()
- "Slurp trailing text into link.
+(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)))))
+ (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-link-dired-jump)
(define-key km/global-org-map "l" 'org-store-link)