From c039865e428d5efc9e88390f069bcc90f0a39539 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 26 Dec 2022 17:50:11 -0500
Subject: org: Add command to copy plain file link

---
 lisp/km-org.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp')

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
 
-- 
cgit v1.2.3