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

---
 init.el        |  2 ++
 lisp/km-org.el | 10 ++++++++++
 2 files changed, 12 insertions(+)

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