(linkding) Function for adding URL at point

This commit is contained in:
Marcel Kapfer 2025-02-11 15:17:52 +01:00
parent 00c1b131f8
commit f0e4ae7de9
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -6,6 +6,7 @@
;;; Code: ;;; Code:
(require 'json) (require 'json)
(require 'plz) (require 'plz)
(require 'shr)
(defcustom linkding-host "" (defcustom linkding-host ""
"Hostname of the Linkding instance." "Hostname of the Linkding instance."
@ -43,5 +44,10 @@
("shared" . false) ("shared" . false)
("tag_names" . []))))) ("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) (provide 'linkding)
;;; linkding.el ends here ;;; linkding.el ends here