summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2022-12-26 17:50:11 -0500
committerKyle Meyer <kyle@kyleam.com>2023-01-05 22:19:30 -0500
commitc039865e428d5efc9e88390f069bcc90f0a39539 (patch)
tree5516f6ab350a73ab82db204cc916865671420c2a
parent773d729e7f0a63fbd7c5d05a895b10e9515aaa9c (diff)
downloademacs.d-c039865e428d5efc9e88390f069bcc90f0a39539.tar.gz
org: Add command to copy plain file link
-rw-r--r--init.el2
-rw-r--r--lisp/km-org.el10
2 files changed, 12 insertions, 0 deletions
diff --git a/init.el b/init.el
index 9ecdd7e..d3c7524 100644
--- a/init.el
+++ b/init.el
@@ -341,6 +341,8 @@
("o" . km/org-open-file)
("p" . km/org-open-file-at-point)
("r" . km/org-open-recent-file))
+ (bind-keys :map km/global-org-map
+ ("f" . km/org-copy-plain-file-link))
(define-key ctl-x-4-map "o" #'km/org-switch-to-buffer-other-window)
diff --git a/lisp/km-org.el b/lisp/km-org.el
index d4cc2f2..37ca829 100644
--- a/lisp/km-org.el
+++ b/lisp/km-org.el
@@ -537,6 +537,16 @@ beginning of the link."
(goto-char beg)
slurped))))
+;;;###autoload
+(defun km/org-copy-plain-file-link ()
+ (interactive)
+ (kill-new
+ (message
+ (concat "file:"
+ (abbreviate-file-name
+ (or (buffer-file-name)
+ (user-error "Buffer not visiting a file")))))))
+
;;; Export