From f1382440134ce4256e411ce437b8a7d2961d6db7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 5 Jan 2021 17:17:18 -0600
Subject: Add smolweb stuff

---
 config.org | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 74 insertions(+), 1 deletion(-)

(limited to 'config.org')

diff --git a/config.org b/config.org
index 5440fb8..8452876 100644
--- a/config.org
+++ b/config.org
@@ -5,7 +5,7 @@
 #+EXPORT_FILE_NAME: README.md
 #+OPTIONS: toc:nil
 #+BANKRUPTCY_COUNT: 3.2
-#+Time-stamp: <2021-01-05 11:52:00 acdw>
+#+Time-stamp: <2021-01-05 17:16:15 acdw>
 
 * Basics
 
@@ -1674,6 +1674,79 @@ I’m only enabling this at home for now, since it requires building stuff.
 
       (define-key acdw/map "m" #'acdw/mu4e-or-warn)
     #+end_src
+
+** Smolweb
+
+*** Elpher
+
+   #+begin_src emacs-lisp
+     (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)
+
+     (define-key acdw/map "e" #'elpher-bookmarks)
+   #+end_src
+
+*** Gemini-mode
+
+    #+begin_src emacs-lisp
+      (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)
+    #+end_src
+
+*** Gemini-write
+
+    #+begin_src emacs-lisp
+      (straight-use-package '(gemini-write
+			      :repo "https://alexschroeder.ch/cgit/gemini-write"))
+
+      ;; TODO : add tokens ... somehow
+    #+end_src
+
 * Appendices
 
 ** Emacs' files
-- 
cgit 1.4.1-21-gabe81