diff --git a/packages/linkding.el b/packages/linkding.el index 043f78d..d759ded 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." @@ -41,7 +42,15 @@ ("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." + (interactive) + (linkding-add-bookmark (shr-url-at-point nil))) (provide 'linkding) ;;; linkding.el ends here