diff --git a/authinfo.gpg b/authinfo.gpg index 4b00365..af76309 100644 Binary files a/authinfo.gpg and b/authinfo.gpg differ diff --git a/config.org b/config.org index be4a4ca..bdfbc05 100644 --- a/config.org +++ b/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 diff --git a/packages/scribbles.el b/packages/scribbles.el new file mode 100644 index 0000000..3d6087d --- /dev/null +++ b/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