✨ (linkding) Function for adding URL at point

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