From 60b20b6c6664297eacd5e04bd0ab5e133c1751cf Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 5 Jan 2021 17:17:27 -0600 Subject: Update README --- README.md | 114 ++++++++++++++++++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 100 insertions(+), 14 deletions(-) diff --git a/README.md b/README.md index 63c5086..302d5dc 100644 --- a/README.md +++ b/README.md @@ -1434,20 +1434,17 @@ I’m only enabling this at home for now, since it requires building stuff. (cuss mu4e-confirm-quit nil) (cuss mu4e-bookmarks - '(( - :name "Unread" - :query - "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam" - :key ?u) - ( - :name "Today" - :query "date:today..now and not maildir:/Spam" - :key ?t) - ( - :name "This week" - :query "date:7d..now and not maildir:/Spam" - :hide-unread t - :key ?w))) + '((:name "Unread" + :query + "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam" + :key ?u) + (:name "Today" + :query "date:today..now and not and not flag:trashed maildir:/Spam" + :key ?t) + (:name "This week" + :query "date:7d..now and not maildir:/Spam and not flag:trashed" + :hide-unread t + :key ?w))) (cuss mu4e-headers-fields '((:human-date . 12) @@ -1456,12 +1453,101 @@ I’m only enabling this at home for now, since it requires building stuff. (:from-or-to . 22) (:subject))) + (cuss mu4e-maildir-shortcuts + `(("/INBOX" . ?i) + (,mu4e-refile-folder . ?a) + (,mu4e-sent-folder . ?s) + (,mu4e-drafts-folder . ?d) + (,mu4e-trash-folder . ?t))) + (defun acdw/setup-mu4e-view-mode () (visual-fill-column-mode +1)) (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode)) +### Add a keybinding + + (defun acdw/mu4e-or-warn () + "If `mu4e' is around, run it, or tell the user it isn't." + (interactive) + (if (featurep 'mu4e) + (mu4e) + (warn "Mu4e isn't available :/."))) + + (define-key acdw/map "m" #'acdw/mu4e-or-warn) + + +## Smolweb + + +### Elpher + + (straight-use-package '(elpher + :repo "git://thelambdalab.xyz/elpher.git")) + + (with-eval-after-load 'no-littering + (cuss elpher-certificate-directory + (no-littering-expand-var-file-name "elpher-certificates/"))) + + (cuss elpher-ipv4-always t) + + (cussface '(elpher-gemini-heading1 + ((t (:inherit (modus-theme-heading-1)))))) + (cussface '(elpher-gemini-heading2 + ((t (:inherit (modus-theme-heading-2)))))) + (cussface '(elpher-gemini-heading3 + ((t (:inherit (modus-theme-heading-3)))))) + + (defun elpher:eww-browse-url (original url &optional new-window) + "Handle gemini/gopher links with eww." + (cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url) + (require 'elpher) + (elpher-go url)) + (t (funcall original url new-window)))) + (advice-add 'eww-browse-url :around 'elpher:eww-browse-url) + + (with-eval-after-load 'elpher + (define-key elpher-mode-map "n" #'elpher-next-link) + (define-key elpher-mode-map "p" #'elpher-prev-link) + (define-key elpher-mode-map "o" #'elpher-follow-current-link) + (define-key elpher-mode-map "G" #'elpher-go-current)) + + (add-hook 'elpher-mode-hook #'visual-fill-column-mode) + + (bind-key acdw/map "e" #'elpher) + + +### Gemini-mode + + (straight-use-package '(gemini-mode + :repo "https://git.carcosa.net/jmcbray/gemini.el.git")) + + (add-to-list 'auto-mode-alist + '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode)) + + (cussface '(gemini-heading-face-1 + ((t (:inherit (elpher-gemini-heading1)))))) + (cussface '(gemini-heading-face2 + ((t (:inherit (elpher-gemini-heading2)))))) + (cussface '(gemini-heading-face3 + ((t (:inherit (elpher-gemini-heading3)))))) + + (defun acdw/setup-gemini-mode () + (visual-fill-column-mode +1) + (variable-pitch-mode -1)) + + (add-hook 'gemini-mode-hook #'acdw/setup-gemini-mode) + + +### Gemini-write + + (straight-use-package '(gemini-write + :repo "https://alexschroeder.ch/cgit/gemini-write")) + + ;; TODO : add tokens ... somehow + + # Appendices -- cgit 1.4.1-21-gabe81