From f0e4ae7de9c28da5f6662efc8e81b44ff6d020c8 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer 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 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."