From f0e4ae7de9c28da5f6662efc8e81b44ff6d020c8 Mon Sep 17 00:00:00 2001
From: Marcel Kapfer <opensource@mmk2410.org>
Date: Tue, 11 Feb 2025 15:17:52 +0100
Subject: [PATCH] =?UTF-8?q?=E2=9C=A8=20(linkding)=20Function=20for=20addin?=
 =?UTF-8?q?g=20URL=20at=20point?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 packages/linkding.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/linkding.el b/packages/linkding.el
index 043f78d..8f0291c 100644
--- a/packages/linkding.el
+++ b/packages/linkding.el
@@ -6,6 +6,7 @@
 ;;; Code:
 (require 'json)
 (require 'plz)
+(require 'shr)
 
 (defcustom linkding-host ""
   "Hostname of the Linkding instance."
@@ -43,5 +44,10 @@
                          ("shared" . false)
                          ("tag_names" . [])))))
 
+(defun linkding-add-bookmark-at-point ()
+  "Add URL at point as bookmark to Linkding."
+  (interactive)
+  (linkding-add-bookmark (shr-url-at-point nil)))
+
 (provide 'linkding)
 ;;; linkding.el ends here