Changes from work

1 files changed, 172 insertions, 45 deletions

@@ -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