jao-river-zathura-kill-link

1 files changed, 7 insertions, 0 deletions

diff --git a/init.el b/init.el
index c82b04e..603788b 100644
--- a/init.el
+++ b/init.el
@@ -499,6 +499,13 @@
    (jao-river-to-ws 1)
    (jao-pdf-goto-zathura-org title t)))
 
+(defun jao-river-zathura-kill-link ()
+  (when-let* ((title (jao-river-get-focused-title))
+              (lnk (jao-pdf-zathura-org-link title)))
+    (jao-river-to-ws 1)
+    (kill-new lnk)
+    (message "Link to %s killed" title)))
+
 (defun jao-river-find-zathura-window (file)
  (let ((frx (regexp-quote (file-name-nondirectory file))))
    (seq-some (lambda (w)