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 1/2] =?UTF-8?q?=E2=9C=A8=20(linkding)=20Function=20for=20a?=
=?UTF-8?q?dding=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
From d4a4228fc42d37b3ab06369281768c8f0909cb21 Mon Sep 17 00:00:00 2001
From: Marcel Kapfer <opensource@mmk2410.org>
Date: Tue, 11 Feb 2025 15:18:18 +0100
Subject: [PATCH 2/2] =?UTF-8?q?=E2=9C=A8=20(linkding)=20Output=20success/f?=
=?UTF-8?q?ailure=20after=20adding=20link?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
packages/linkding.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/packages/linkding.el b/packages/linkding.el
index 8f0291c..d759ded 100644
--- a/packages/linkding.el
+++ b/packages/linkding.el
@@ -42,7 +42,10 @@
("is_archived" . false)
("unread" . false)
("shared" . false)
- ("tag_names" . [])))))
+ ("tag_names" . [])))
+ :as 'string
+ :then (lambda (res) (message "URL stored successfully."))
+ :else (lambda (res) (message "Failed to store URL."))))
(defun linkding-add-bookmark-at-point ()
"Add URL at point as bookmark to Linkding."