mmk2410/dot-emacs
1
0
Fork 0
Code Issues Pull requests Activity Actions

Compare commits

base: mmk2410:00c1b131f8f7cc0e67422f43287f41eee3ff5d84
Branches Tags
mmk2410:main
...
compare: mmk2410:d4a4228fc42d37b3ab06369281768c8f0909cb21
Branches Tags
mmk2410:main

2 commits
00c1b131f8 ... d4a4228fc4

Author SHA1 Message Date
Marcel Kapfer
d4a4228fc4
✨ (linkding) Output success/failure after adding link
All checks were successful
Publish / publish (push) Successful in 13s
Details
2025-02-11 15:18:18 +01:00
Marcel Kapfer
f0e4ae7de9
✨ (linkding) Function for adding URL at point 2025-02-11 15:17:52 +01:00
1 changed files with 10 additions and 1 deletions
Show stats Expand all files Collapse all files

11
packages/linkding.el
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."
@ -41,7 +42,15 @@
("is_archived" . false) ("is_archived" . false)
("unread" . false) ("unread" . false)
("shared" . 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) (provide 'linkding)
;;; linkding.el ends here ;;; linkding.el ends here