Compare commits

..

No commits in common. "8bcd3865fc4e696955bd1ef1d84378dd5d24d579" and "10e8f3d304613703804da4eade2f04fdda1edb64" have entirely different histories.

3 changed files with 11 additions and 39 deletions

Binary file not shown.

View file

@ -476,6 +476,15 @@ 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./
@ -1914,8 +1923,6 @@ 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)
@ -2257,14 +2264,8 @@ Source: [[https://github.com/skeeto/elfeed][GitHub: skeeto/elfeed]]
#+begin_src emacs-lisp
(use-package elfeed
:demand t
: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)))
:config (setq elfeed-sort-order 'ascending)
:bind (("C-c e" . elfeed)))
#+end_src
** Storing articles

View file

@ -1,29 +0,0 @@
;;; 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