From 9d06e1ac0789f24f66689b34b969a0660842bf11 Mon Sep 17 00:00:00 2001
From: Alcah <27054757+alcah@users.noreply.github.com>
Date: Mon, 2 Aug 2021 18:25:01 +0930
Subject: optionally use highlighted region as link text

---
 zettelkasten.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/zettelkasten.el b/zettelkasten.el
index 10e4639..df24679 100644
--- a/zettelkasten.el
+++ b/zettelkasten.el
@@ -90,10 +90,10 @@ aims to remove."
   (string-match "[^0-9]*\\([0-9]+\\)" note)
   (match-string 1 note))
 
-(defun zettelkasten--format-link (note)
+(defun zettelkasten--format-link (note &optional link-text)
   "Format a link to a NOTE."
   (format zettelkasten-link-format
-          (zettelkasten--get-note-title note)
+          (or link-text (zettelkasten--get-note-title note))
           (zettelkasten--get-id note)
           zettelkasten-extension))
 
@@ -375,11 +375,16 @@ publishing."
 ;;; ---------------------
 
 (defun zettelkasten-insert-link (note)
-  "Insert a link to another NOTE in the current note."
+  "Insert a link to another NOTE in the current note.
+if region is active use that as link text"
   (interactive
    (list (completing-read "Notes: "
                           (zettelkasten--list-notes) nil 'match)))
-  (insert (zettelkasten--format-link (zettelkasten--get-id note))))
+  (let ((region-text (when (use-region-p)
+                       (prog1 (buffer-substring-no-properties (region-beginning)
+                                                              (region-end))
+                         (delete-region (region-beginning) (region-end))))))
+    (insert (zettelkasten--format-link (zettelkasten--get-id note) region-text))))
 
 (defun zettelkasten-create-new-note (prefix)
   "Create a new zettelkasten.
-- 
cgit