✨ (scribbles) Add API integration package

config.org

@@ -476,15 +476,6 @@ Sometimes (most often a work) I share my screen during a video call to discuss s
   (set-face-attribute 'fixed-pitch nil :font mmk2410/fixed-font-name :height mmk2410/fixed-font-present-height :weight 'regular))
 #+end_src
 
-Additionally like to adjust some faces to my personal liking.
-
-#+begin_src emacs-lisp
-  (with-eval-after-load 'elfeed
-    (set-face-attribute 'message-header-subject nil
-                        :font mmk2410/variable-font-name
-                        :height 220))
-#+end_src
-
 ** Set theme
 
 Installing and enabling Gruvbox light theme. /Disabled in favor of the Doom themes./
@@ -1923,6 +1914,8 @@ Source: [[https://github.com/joaotavora/eglot][GitHub:joaotavora/eglot]]
 
 #+begin_src emacs-lisp
 (use-package eglot
+  :config
+  (add-to-list 'eglot-server-programs '(php-mode . ("~/.local/bin/phpactor" "language-server")))
   :hook ((python-mode . eglot-ensure)
          (go-mode . eglot-ensure)
          (php-mode . eglot-ensure)
@@ -2264,8 +2257,14 @@ Source: [[https://github.com/skeeto/elfeed][GitHub: skeeto/elfeed]]
 #+begin_src emacs-lisp
 (use-package elfeed
   :demand t
-  :config (setq elfeed-sort-order 'ascending)
-  :bind (("C-c e" . elfeed)))
+  :config
+  (setq elfeed-sort-order 'ascending)
+  (defun my/elfeed-search-toggle-star ()
+    (interactive)
+    (elfeed-search-toggle-all 'star))
+  :bind (("C-c e" . elfeed)
+         :map elfeed-search-mode-map
+         ("f" . my/elfeed-search-toggle-star)))
 #+end_src
 
 ** Storing articles

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