✨ (scribbles) Add API integration package

packages/scribbles.el

@@ -0,0 +1,29 @@
+;;; scribbles.el --- Scribbles Integration -*- lexical-binding: t -*-
+
+;;; Commentary:
+;;; Integration with my Scribbles microblog on mmk2410.org
+
+;;; Code:
+(require 'json)
+(require 'plz)
+
+(defun scribbles--get-api-key ()
+  "Get Scribbles API key from auth store."
+  (let ((result (auth-source-search :host "mmk2410.org" :user "scribbles")))
+    (if result
+        (funcall (plist-get (car result) :secret))
+      nil)))
+
+(defun scribbles--build-headers ()
+  "Build headers for Scribbles Lab API request."
+  `(("Content-Type" . "application/json")
+    ("Api-Key" . ,(scribbles--get-api-key))))
+
+(defun scribbles-post (message)
+  "Post MESSAGE to Scribbles."
+  (interactive "sScribble: ")
+  (plz 'post "https://mmk2410.org/my/api/v1/scribble"
+    :headers (scribbles--build-headers)
+    :body (json-encode `(("text" . ,message)))))
+
+;;; scribbles.el ends here