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(-)

(limited to 'README.md')

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