From 889235c90e766343f120d503ee765d6243ab85ca Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 10 Dec 2020 19:09:56 -0600
Subject: Changes from work

---
 README.md  | 201 +++++++++++++++++++++++++++++++++++++++++++++++---------
 config.org | 217 ++++++++++++++++++++++++++++++++++++++++++++++++-------------
 2 files changed, 342 insertions(+), 76 deletions(-)

diff --git a/README.md b/README.md
index 39430ab..1347bdc 100644
--- a/README.md
+++ b/README.md
@@ -29,6 +29,8 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
 
 ### Straight.el
 
+This still doesn’t work under Windows – I have to manually download the [repo archive](https://github.com/raxod502/straight.el/archive/master.zip) and unzip it.  Not the biggest burden, I suppose.
+
     (defvar bootstrap-version)
     (let ((bootstrap-file
            (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
@@ -100,7 +102,7 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
     	       "autosaves"
     	       "undos"
     	       "elpher-certificates"))
-      (make-directory (no-littering-expand-var-file-name dir) t))
+      (make-directory (no-littering-expand-var-file-name dir) 'parents))
 
 
 ## About me
@@ -247,7 +249,8 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
       (modus-themes-diffs nil)
       (modus-themes-org-blocks 'grayscale)
       (modus-themes-headings
-       '())
+       '((1 . line)
+         (t . t)))
       (modus-themes-variable-pitch-headings t)
       (modus-themes-scale-headings t)
       (modus-themes-scale-1 1.1)
@@ -262,6 +265,27 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
       (load-theme 'modus-operandi t))
 
 
+### Change theme based on time of day
+
+    (cuss calendar-latitude 30.4515)
+    (cuss calendar-longitude -91.1871)
+    
+    (use-package circadian
+      :after solar
+      :custom
+      (circadian-themes '((:sunrise . modus-operandi)
+    		      (:sunset . modus-vivendi)))
+      :config
+      (circadian-setup))
+
+
+### Modeline
+
+    (use-package mood-line
+      :config
+      (mood-line-mode +1))
+
+
 ### Fonts
 
 1.  Define fonts
@@ -301,9 +325,9 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
         			 "Linux Libertine O-12"
         			 "Georgia-11"))
         
-            (remove-hook 'after-init-hook #'acdw/setup-fonts)))
+            (remove-function after-focus-change-function #'acdw/setup-fonts)))
         
-        (add-hook 'after-init-hook #'acdw/setup-fonts)
+        (add-function :before after-focus-change-function #'acdw/setup-fonts)
 
 2.  Variable-pitch in text modes
 
@@ -618,6 +642,41 @@ I add it to the `find-file-hook` *and* `before-save-hook` because I don't want t
       (global-aggressive-indent-mode +1))
 
 
+## Completion
+
+    (use-package company
+      :custom
+      (company-idle-delay 0.1)
+    
+      :init
+      (defun acdw/company-complete-common-or-cycle+1 ()
+        (interactive)
+        (company-complete-common-or-cycle +1))
+    
+      (defun acdw/company-complete-common-or-cycle-1 ()
+        (interactive)
+        (company-complete-common-or-cycle -1))
+    
+      :bind
+      (:map company-active-map
+    	("C-n" . acdw/company-complete-common-or-cycle+1)
+    	("C-p" . acdw/company-complete-common-or-cycle-1))
+    
+      :hook
+      (prog-mode-hook . company-mode))
+    
+    (use-package company-prescient
+      :hook
+      (company-mode-hook . company-prescient-mode))
+    
+    ;; this comes with company-quickhelp, so....
+    
+    (use-package company-posframe
+      :after (company)
+      :config
+      (company-posframe-mode +1))
+
+
 # Writing
 
 
@@ -774,8 +833,9 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin
       (interactive "P")
       (org-map-entries (lambda ()
     		     (org-with-wide-buffer
-    		      ;; `org-map-entries' narrows the buffer, which prevents us from seeing
-    		      ;; newlines before the current heading, so we do this part widened.
+    		      ;; `org-map-entries' narrows the buffer, which prevents us
+    		      ;; from seeing newlines before the current heading, so we
+    		      ;; do this part widened.
     		      (while (not (looking-back "\n\n" nil))
     			;; Insert blank lines before heading.
     			(insert "\n")))
@@ -787,9 +847,10 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin
     			 ;; Skip planning lines
     			 (forward-line))
     		       (while (re-search-forward org-drawer-regexp end t)
-    			 ;; Skip drawers. You might think that `org-at-drawer-p' would suffice, but
-    			 ;; for some reason it doesn't work correctly when operating on hidden text.
-    			 ;; This works, taken from `org-agenda-get-some-entry-text'.
+    			 ;; Skip drawers. You might think that `org-at-drawer-p'
+    			 ;; would suffice, but for some reason it doesn't work
+    			 ;; correctly when operating on hidden text.  This
+    			 ;; works, taken from `org-agenda-get-some-entry-text'.
     			 (re-search-forward "^[ \t]*:END:.*\n?" end t)
     			 (goto-char (match-end 0)))
     		       (unless (or (= (point) (point-max))
@@ -810,6 +871,82 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin
         (add-hook 'before-save-hook #'cribbed/org-mode-fix-blank-lines)
 
 
+## Elpher
+
+    (use-package elpher
+      :straight (elpher
+    	     :repo "git://thelambdalab.xyz/elpher.git"
+    	     :branch "patch_multiple_buffers")
+    
+      :custom
+      (elpher-ipv4-always t)
+    
+      :custom-face
+      (elpher-gemini-heading1
+       ((t (:inherit (modus-theme-heading-1)))))
+      (elpher-gemini-heading2
+       ((t (:inherit (modus-theme-heading-2)))))
+      (elpher-gemini-heading3
+       ((t (:inherit (modus-theme-heading-3)))))
+    
+      :config
+      (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)
+    
+      :bind (:map elpher-mode-map
+    	      ("n" . elpher-next-link)
+    	      ("p" . elpher-prev-link)
+    	      ("o" . elpher-follow-current-link)
+    	      ("G" . elpher-go-current))
+    
+      :hook
+      (elpher-mode-hook . visual-fill-column-mode))
+
+
+### Gemini mode
+
+    (use-package gemini-mode
+      :straight (gemini-mode
+    	     :repo "https://git.carcosa.net/jmcbray/gemini.el.git")
+    
+      :mode "\\.\\(gemini|gmi\\)\\'"
+    
+      :custom-face
+      (gemini-heading-face-1
+       ((t (:inherit (elpher-gemini-heading1)))))
+      (gemini-heading-face2
+       ((t (:inherit (elpher-gemini-heading2)))))
+      (gemini-heading-face3
+       ((t (:inherit (elpher-gemini-heading3)))))
+    
+      :init
+      (defun acdw/setup-gemini-mode ()
+        (visual-fill-column-mode 1)
+        (variable-pitch-mode -1))
+    
+      :hook
+      (gemini-mode-hook . acdw/setup-gemini-mode))
+
+
+### Gemini write
+
+    (use-package gemini-write
+      :straight (gemini-write
+    	     :repo "https://alexschroeder.ch/cgit/gemini-write"))
+
+
+## Pastebin
+
+    (use-package 0x0
+      :custom
+      (0x0-default-service 'ttm))
+
+
 # Appendices
 
 
@@ -822,17 +959,13 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin
 
 1.  Load config
 
-    from [Protesilaos Stavrou](https://protesilaos.com/dotemacs/#h:584c3604-55a1-49d0-9c31-abe46cb1f028).
+    inspired by [Protesilaos Stavrou](https://protesilaos.com/dotemacs/#h:584c3604-55a1-49d0-9c31-abe46cb1f028).
     
-        (let* ((conf (expand-file-name "config"
-        			       user-emacs-directory))
-               (elc (concat conf ".elc"))
-               (el (concat conf ".el"))
-               (org (concat conf ".org")))
-          (cond ((file-exists-p elc) (load-file elc))
-        	((file-exists-p el) (load-file el))
-        	(t (require 'org)
-        	   (org-babel-load-file org))))
+        (let ((conf (expand-file-name "config"
+        			      user-emacs-directory)))
+          (unless (load conf 'no-error)
+            (require 'org)
+            (org-babel-load-file (concat conf ".org"))))
 
 
 ### early-init.el
@@ -852,23 +985,29 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin
       (let ((config (expand-file-name "config.org" user-emacs-directory)))
         (save-mark-and-excursion
           (with-current-buffer (find-file config)
-           (let ((prog-mode-hook nil))
-    	 ;; generate the readme
-    	 (require 'ox-md)
-    	 (org-md-export-to-markdown)
-    	 ;; tangle config.org
-    	 (require 'org)
-    	 (let ((inits (org-babel-tangle)))
-    	   ;; byte-compile resulting files
-    	   (dolist (f inits)
-    	     (when (string-match "\\.el\\'" f)
-    	       (byte-compile-file f (not disable-load))))))))))
+    	(let ((prog-mode-hook nil))
+    	  ;; generate the readme
+    	  (when (file-newer-than-file-p config (expand-file-name
+    						"README.md"
+    						user-emacs-directory))
+    	    (require 'ox-md)
+    	    (org-md-export-to-markdown))
+    	  ;; tangle config.org
+    	  (when (file-newer-than-file-p config (expand-file-name
+    						"config.el"
+    						user-emacs-directory))
+    	    (require 'org)
+    	    (let ((inits (org-babel-tangle)))
+    	      ;; byte-compile resulting files
+    	      (dolist (f inits)
+    		(when (string-match "\\.el\\'" f)
+    		  (byte-compile-file f (not disable-load)))))))))))
 
 
 ### Add a hook to tangle when quitting
 
     (defun acdw/refresh-emacs-no-load ()
-      (refresh-emacs t))
+      (refresh-emacs 'disable-load))
     
     (add-hook 'kill-emacs-hook #'acdw/refresh-emacs-no-load)
 
diff --git a/config.org b/config.org
index 35922e6..782e318 100644
--- a/config.org
+++ b/config.org
@@ -4,7 +4,7 @@
 #+EXPORT_FILE_NAME: README.md
 #+OPTIONS: toc:nil
 #+BANKRUPTCY_COUNT: 3
-#+Time-stamp: <2020-12-10 00:40:50 acdw>
+#+Time-stamp: <2020-12-10 17:46:10 aduckworth>
 
 Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
 
@@ -35,6 +35,8 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
 
 *** Straight.el
 
+This still doesn’t work under Windows – I have to manually download the [[https://github.com/raxod502/straight.el/archive/master.zip][repo archive]] and unzip it.  Not the biggest burden, I suppose.
+
  #+begin_src emacs-lisp
    (defvar bootstrap-version)
    (let ((bootstrap-file
@@ -111,7 +113,7 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
 		 "autosaves"
 		 "undos"
 		 "elpher-certificates"))
-    (make-directory (no-littering-expand-var-file-name dir) t))
+    (make-directory (no-littering-expand-var-file-name dir) 'parents))
 #+end_src
 
 ** About me
@@ -274,7 +276,8 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
     (modus-themes-diffs nil)
     (modus-themes-org-blocks 'grayscale)
     (modus-themes-headings
-     '())
+     '((1 . line)
+       (t . t)))
     (modus-themes-variable-pitch-headings t)
     (modus-themes-scale-headings t)
     (modus-themes-scale-1 1.1)
@@ -289,20 +292,27 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
     (load-theme 'modus-operandi t))
 #+end_src
 
-*** COMMENT Modeline
+*** Change theme based on time of day
+
+#+begin_src emacs-lisp
+  (cuss calendar-latitude 30.4515)
+  (cuss calendar-longitude -91.1871)
+
+  (use-package circadian
+    :after solar
+    :custom
+    (circadian-themes '((:sunrise . modus-operandi)
+			(:sunset . modus-vivendi)))
+    :config
+    (circadian-setup))
+#+end_src
+
+*** Modeline
 
 #+begin_src emacs-lisp
-  (custom-set-faces
-   '(mode-line ((t (:height 0.8
-			    :overline t
-			    :box nil
-			    :foreground "black"
-			    :background "white"))))
-   '(mode-line-inactive ((t (:height 0.8
-				     :overline t
-				     :box nil
-				     :foreground "#808080"
-				     :background "white")))))
+  (use-package mood-line
+    :config
+    (mood-line-mode +1))
 #+end_src
 
 *** Fonts
@@ -370,7 +380,6 @@ Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
     (unicode-fonts-setup))
 #+end_src
 
-
 * Interactivity
 
 ** Selectrum
@@ -594,8 +603,6 @@ Until the =marginalia-annotators= settles, I’m disabling this section.
 
 * Files
 
-  
-
 ** Encoding
 
 *** UTF-8
@@ -717,6 +724,42 @@ Until the =marginalia-annotators= settles, I’m disabling this section.
     (global-aggressive-indent-mode +1))
 #+end_src
 
+** Completion
+
+#+begin_src emacs-lisp
+  (use-package company
+    :custom
+    (company-idle-delay 0.1)
+  
+    :init
+    (defun acdw/company-complete-common-or-cycle+1 ()
+      (interactive)
+      (company-complete-common-or-cycle +1))
+
+    (defun acdw/company-complete-common-or-cycle-1 ()
+      (interactive)
+      (company-complete-common-or-cycle -1))
+
+    :bind
+    (:map company-active-map
+	  ("C-n" . acdw/company-complete-common-or-cycle+1)
+	  ("C-p" . acdw/company-complete-common-or-cycle-1))
+
+    :hook
+    (prog-mode-hook . company-mode))
+
+  (use-package company-prescient
+    :hook
+    (company-mode-hook . company-prescient-mode))
+
+  ;; this comes with company-quickhelp, so....
+
+  (use-package company-posframe
+    :after (company)
+    :config
+    (company-posframe-mode +1))
+#+end_src
+
 * Writing
 
 ** Visual Fill Column
@@ -879,8 +922,9 @@ from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-hea
     (interactive "P")
     (org-map-entries (lambda ()
 		       (org-with-wide-buffer
-			;; `org-map-entries' narrows the buffer, which prevents us from seeing
-			;; newlines before the current heading, so we do this part widened.
+			;; `org-map-entries' narrows the buffer, which prevents us
+			;; from seeing newlines before the current heading, so we
+			;; do this part widened.
 			(while (not (looking-back "\n\n" nil))
 			  ;; Insert blank lines before heading.
 			  (insert "\n")))
@@ -892,9 +936,10 @@ from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-hea
 			   ;; Skip planning lines
 			   (forward-line))
 			 (while (re-search-forward org-drawer-regexp end t)
-			   ;; Skip drawers. You might think that `org-at-drawer-p' would suffice, but
-			   ;; for some reason it doesn't work correctly when operating on hidden text.
-			   ;; This works, taken from `org-agenda-get-some-entry-text'.
+			   ;; Skip drawers. You might think that `org-at-drawer-p'
+			   ;; would suffice, but for some reason it doesn't work
+			   ;; correctly when operating on hidden text.  This
+			   ;; works, taken from `org-agenda-get-some-entry-text'.
 			   (re-search-forward "^[ \t]*:END:.*\n?" end t)
 			   (goto-char (match-end 0)))
 			 (unless (or (= (point) (point-max))
@@ -917,6 +962,86 @@ from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-hea
   (add-hook 'before-save-hook #'cribbed/org-mode-fix-blank-lines)
 #+end_src
 
+** Elpher
+
+#+begin_src emacs-lisp
+  (use-package elpher
+    :straight (elpher
+	       :repo "git://thelambdalab.xyz/elpher.git"
+	       :branch "patch_multiple_buffers")
+  
+    :custom
+    (elpher-ipv4-always t)
+  
+    :custom-face
+    (elpher-gemini-heading1
+     ((t (:inherit (modus-theme-heading-1)))))
+    (elpher-gemini-heading2
+     ((t (:inherit (modus-theme-heading-2)))))
+    (elpher-gemini-heading3
+     ((t (:inherit (modus-theme-heading-3)))))
+  
+    :config
+    (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)
+  
+    :bind (:map elpher-mode-map
+		("n" . elpher-next-link)
+		("p" . elpher-prev-link)
+		("o" . elpher-follow-current-link)
+		("G" . elpher-go-current))
+  
+    :hook
+    (elpher-mode-hook . visual-fill-column-mode))
+#+end_src
+
+*** Gemini mode
+
+#+begin_src emacs-lisp
+  (use-package gemini-mode
+    :straight (gemini-mode
+	       :repo "https://git.carcosa.net/jmcbray/gemini.el.git")
+  
+    :mode "\\.\\(gemini|gmi\\)\\'"
+  
+    :custom-face
+    (gemini-heading-face-1
+     ((t (:inherit (elpher-gemini-heading1)))))
+    (gemini-heading-face2
+     ((t (:inherit (elpher-gemini-heading2)))))
+    (gemini-heading-face3
+     ((t (:inherit (elpher-gemini-heading3)))))
+  
+    :init
+    (defun acdw/setup-gemini-mode ()
+      (visual-fill-column-mode 1)
+      (variable-pitch-mode -1))
+  
+    :hook
+    (gemini-mode-hook . acdw/setup-gemini-mode))
+#+end_src
+
+*** Gemini write
+
+#+begin_src emacs-lisp
+  (use-package gemini-write
+    :straight (gemini-write
+	       :repo "https://alexschroeder.ch/cgit/gemini-write"))
+#+end_src
+
+** Pastebin
+
+#+begin_src emacs-lisp
+  (use-package 0x0
+    :custom
+    (0x0-default-service 'ttm))
+#+end_src
+
 * Appendices
 
 ** Emacs' files
@@ -932,18 +1057,14 @@ from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-hea
 
 **** Load config
 
-  from [[https://protesilaos.com/dotemacs/#h:584c3604-55a1-49d0-9c31-abe46cb1f028][Protesilaos Stavrou]].
+  inspired by [[https://protesilaos.com/dotemacs/#h:584c3604-55a1-49d0-9c31-abe46cb1f028][Protesilaos Stavrou]].
 
   #+begin_src emacs-lisp
-    (let* ((conf (expand-file-name "config"
-				   user-emacs-directory))
-	   (elc (concat conf ".elc"))
-	   (el (concat conf ".el"))
-	   (org (concat conf ".org")))
-      (cond ((file-exists-p elc) (load-file elc))
-	    ((file-exists-p el) (load-file el))
-	    (t (require 'org)
-	       (org-babel-load-file org))))
+    (let ((conf (expand-file-name "config"
+				  user-emacs-directory)))
+      (unless (load conf 'no-error)
+	(require 'org)
+	(org-babel-load-file (concat conf ".org"))))
   #+end_src
 
 *** early-init.el
@@ -970,24 +1091,30 @@ from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-hea
      (let ((config (expand-file-name "config.org" user-emacs-directory)))
        (save-mark-and-excursion
 	 (with-current-buffer (find-file config)
-	  (let ((prog-mode-hook nil))
-	    ;; generate the readme
-	    (require 'ox-md)
-	    (org-md-export-to-markdown)
-	    ;; tangle config.org
-	    (require 'org)
-	    (let ((inits (org-babel-tangle)))
-	      ;; byte-compile resulting files
-	      (dolist (f inits)
-		(when (string-match "\\.el\\'" f)
-		  (byte-compile-file f (not disable-load))))))))))
+	   (let ((prog-mode-hook nil))
+	     ;; generate the readme
+	     (when (file-newer-than-file-p config (expand-file-name
+						   "README.md"
+						   user-emacs-directory))
+	       (require 'ox-md)
+	       (org-md-export-to-markdown))
+	     ;; tangle config.org
+	     (when (file-newer-than-file-p config (expand-file-name
+						   "config.el"
+						   user-emacs-directory))
+	       (require 'org)
+	       (let ((inits (org-babel-tangle)))
+		 ;; byte-compile resulting files
+		 (dolist (f inits)
+		   (when (string-match "\\.el\\'" f)
+		     (byte-compile-file f (not disable-load)))))))))))
 	   #+end_src
 
 *** Add a hook to tangle when quitting
 
 #+begin_src emacs-lisp
   (defun acdw/refresh-emacs-no-load ()
-    (refresh-emacs t))
+    (refresh-emacs 'disable-load))
 
   (add-hook 'kill-emacs-hook #'acdw/refresh-emacs-no-load)
 #+end_src
-- 
cgit 1.4.1-21-gabe81