From c983a022f3a9952c505b4aa1499845c838349052 Mon Sep 17 00:00:00 2001 From: Marcel Kapfer Date: Mon, 10 Feb 2025 15:59:08 +0100 Subject: [PATCH] =?UTF-8?q?=E2=9C=A8=20(linkding)=20Add=20API=20integratio?= =?UTF-8?q?n=20package?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- packages/linkding.el | 47 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 packages/linkding.el diff --git a/packages/linkding.el b/packages/linkding.el new file mode 100644 index 0000000..043f78d --- /dev/null +++ b/packages/linkding.el @@ -0,0 +1,47 @@ +;;; linkding.el --- Linkding Integration -*- lexical-binding: t -*- + +;;; Commentary: +;;; Integration with Linkding. + +;;; Code: +(require 'json) +(require 'plz) + +(defcustom linkding-host "" + "Hostname of the Linkding instance." + :type '(string) + :group 'linkding) + +(defcustom linkding-user "" + "Linkding user name." + :type '(string) + :group 'linkding) + +(defun linkding--get-api-key () + "Get Linkding API key from auth store." + (let ((result (auth-source-search :host linkding-host :user linkding-user))) + (if result + (funcall (plist-get (car result) :secret)) + nil))) + +(defun linkding--build-headers () + "Build headers for Linkding Lab API request." + `(("Content-Type" . "application/json") + ("Authorization" . ,(concat "Token " (linkding--get-api-key))))) + +(defun linkding-add-bookmark (url) + "Add URL as bookmark to Linkding." + (interactive "sURL: ") + (plz 'post (concat "https://" linkding-host "/api/bookmarks/") + :headers (linkding--build-headers) + :body (json-encode `(("url" . ,url) + ("title" . "") + ("description" . "") + ("notes" . "") + ("is_archived" . false) + ("unread" . false) + ("shared" . false) + ("tag_names" . []))))) + +(provide 'linkding) +;;; linkding.el ends here