[emacs] Reorganize literate config

.doom.d/config.org

@@ -2,131 +2,22 @@
 #+STARTUP: indent overview
 #+PROPERTY: header-args :tangle config.el
 
-* Custom settings
+* Look And Feel
-Store options set via =customize-*= in a separate file (Emacs stores
+** Theme
-them in =init.el= by default).
-
-#+BEGIN_SRC emacs-lisp
-  (setq custom-file "~/.emacs.d/custom.el")
-  (if (file-exists-p custom-file)
-      (load custom-file))
-
-  (setf custom-safe-themes t)
-#+END_SRC
-
-* Theme
 I'm feeling the gruvbox theme lately.
 #+begin_src emacs-lisp
   (setq doom-theme 'doom-gruvbox)
 #+end_src
-* UX Improvements
+** Dashboard
-** Disable C-z backgrounding when the GUI is loaded
+Customize the Doom Emacs dashboard with commissioned artwork, chosen randomly.
-
+The dashboard can be reloaded with the =g= key.
-In OSX, this minimizes the window. It's incredibly annoying, and I accidentally
-hit it too much. I also can't think of any reason I'd want to background Emacs
-outside of a terminal session.
 
 #+begin_src emacs-lisp
-  (if (display-graphic-p)
+(defun my/choice (&rest things)
-      (global-unset-key (kbd "C-z")))
-#+end_src
-** Mixed Pitch
-Facilitates mixing monospace and proportional fonts. I'm using an MIT-licensed
-version of the [[https://github.com/edwardtufte/et-book][Edward Tufte book font]] because it's /gorgeous/.
-#+begin_src emacs-lisp
-  (use-package! mixed-pitch
-    :hook ((org-mode markdown-mode rst-mode) . mixed-pitch-mode))
-  (setq doom-variable-pitch-font (font-spec :family "ETBookOT" :size 19))
-#+end_src
-** Comic Sans Mono
-Why not, it's fun 🤣
-
-https://dtinth.github.io/comic-mono-font/
-
-#+begin_src emacs-lisp
-  (defun my/buffer-face-comic-mono ()
-    (interactive)
-    (setq buffer-face-mode-face '(:family "Comic Mono"))
-    (buffer-face-mode))
-
-  (after! php-mode
-    (add-hook 'php-mode-hook #'my/buffer-face-comic-mono))
-#+end_src
-** Frame transparency
-#+begin_src emacs-lisp
-  (set-frame-parameter (selected-frame) 'alpha '(90 . 90))
-  (add-to-list 'default-frame-alist '(alpha . (90 . 90)))
-#+end_src
-* Counsel
-** Linux application launcher
-#+begin_src emacs-lisp
-(use-package! counsel
-  :custom (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
-  :config (counsel-mode 1))
-#+end_src
-* EXWM
-
-#+begin_src sh :tangle ~/.dmrc
-[Desktop]
-session=~/.doom.d/start-exwm.sh
-#+end_src
-
-#+begin_src sh :tangle start-exwm.sh :shebang #!/bin/sh
-emacs -mm --debug-init -l ~/.doom.d/exwm.el
-#+end_src
-
-#+begin_src emacs-lisp :tangle exwm.el
-(defun my/exwm-update-class ()
-  (exwm-workspace-rename-buffer exwm-class-name))
-(defun my/run-in-background (command)
-  (let ((command-parts (split-string command "[ ]+")))
-    (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
-(defun my/set-desktop-background ()
-  (interactive)
-  (start-process-shell-command "feh" nil "feh --bg-scale ~/Pictures/Wallpapers/1520742811045.png"))
-(defun my/exwm-init-hook ()
-  ;; Start tint2 bar
-  (my/run-in-background "tint2")
-  ;; Start system tray applets
-  (my/run-in-background "nm-applet")
-  (my/run-in-background "pasystray")
-  (my/run-in-background "blueman-applet")
-  (my/run-in-background "nextcloud --background")
-  (my/run-in-background "compton"))
-(use-package! exwm
-  :config
-  (setq exwm-input-global-keys
-        `(([?\s-r] . exwm-reset)
-          ([?\s-w] . exwm-workspace-switch)
-          ,@(mapcar (lambda (i)
-                      `(,(kbd (format "s-%d" i)) .
-                        (lambda ()
-                          (interactive)
-                          (exwm-workspace-switch-create ,(- i 1)))))
-                    (number-sequence 1 9))
-          ([?\s-&] . (lambda (command)
-                       (interactive (list (read-shell-command "$ ")))
-                       (start-process-shell-command command nil command)))))
-  (setq exwm-workspace-number 4)
-  (exwm-input-set-key (kbd "s-SPC") #'counsel-linux-app)
-  (add-hook! 'exwm-update-class-hook #'my/exwm-update-class)
-  (add-hook! 'exwm-init-hook #'my/exwm-init-hook)
-  (my/set-desktop-background)
-  (exwm-enable))
-(use-package! exwm-config
-  :after exwm)
-(use-package! desktop-environment
-  :after exwm
-  :config
-  (desktop-environment-mode))
-#+end_src
-* Dashboard
-#+begin_src emacs-lisp
-    (defun my/choice (&rest things)
   (let ((index (random (length things))))
     (nth index things)))
 
-    (defun my/dashboard-randomize ()
+(defun my/dashboard-randomize ()
   (interactive)
   (let ((logo (my/choice "~/Pictures/Patreon/Jon Bliss/phoenix-and-catgirl-500.png"
                          "~/Pictures/Patreon/Jon Bliss/Bassist-final-transparent-500.png"
@@ -140,41 +31,119 @@ emacs -mm --debug-init -l ~/.doom.d/exwm.el
     (if (called-interactively-p)
         (+doom-dashboard-reload))))
 
-  (my/dashboard-randomize)
+(my/dashboard-randomize)
-  (map!
+(map!
  :map +doom-dashboard-mode-map
  "g" #'my/dashboard-randomize)
 #+end_src
-* BibTeX
+** Frame transparency
+Set the background transparency to 90% so my wallpaper shows through.
+
+#+begin_src emacs-lisp
+  (set-frame-parameter (selected-frame) 'alpha '(90 . 90))
+  (add-to-list 'default-frame-alist '(alpha . (90 . 90)))
+#+end_src
+** Comic Sans Mono
+Why not, it's fun 🤣
+
+Adds a command to switch to the monospaced Comic Sans font, and make it the
+default font for PHP buffers.
+
+https://dtinth.github.io/comic-mono-font/
+
+#+begin_src emacs-lisp
+  (defun my/buffer-face-comic-mono ()
+    (interactive)
+    (setq buffer-face-mode-face '(:family "Comic Mono"))
+    (buffer-face-mode))
+
+  (after! php-mode
+    (add-hook 'php-mode-hook #'my/buffer-face-comic-mono))
+#+end_src
+** Mixed Pitch
+Facilitates mixing monospace and proportional fonts. I'm using an MIT-licensed
+version of the [[https://github.com/edwardtufte/et-book][Edward Tufte book font]] because it's /gorgeous/.
+#+begin_src emacs-lisp
+  (use-package! mixed-pitch
+    :hook ((org-mode markdown-mode rst-mode) . mixed-pitch-mode))
+  (setq doom-variable-pitch-font (font-spec :family "ETBookOT" :size 19))
+#+end_src
+* UX Improvements
+** Disable C-z backgrounding when the GUI is loaded
+
+In OSX, this minimizes the window. It's incredibly annoying, and I accidentally
+hit it too much. I also can't think of any reason I'd want to background Emacs
+outside of a terminal session.
+
+#+begin_src emacs-lisp
+  (if (display-graphic-p)
+      (global-unset-key (kbd "C-z")))
+#+end_src
+** Custom settings
+Store options set via =customize-*= in a separate file (Emacs stores
+them in =init.el= by default).
+
+#+BEGIN_SRC emacs-lisp
+  (setq custom-file "~/.emacs.d/custom.el")
+  (if (file-exists-p custom-file)
+      (load custom-file))
+
+  (setf custom-safe-themes t)
+#+END_SRC
+** Eval and Replace
+Replace an s-expression with its value. Taken from [[http://emacsredux.com/blog/2013/06/21/eval-and-replace/][Emacs Redux]].
+
+#+begin_src emacs-lisp
+  (defun eval-and-replace ()
+    "Replace the preceding sexp with its value."
+    (interactive)
+    (backward-kill-sexp)
+    (condition-case nil
+        (prin1 (eval (read (current-kill 0)))
+               (current-buffer))
+      (error (message "Invalid expression")
+             (insert (current-kill 0)))))
+
+  (global-set-key (kbd "C-)") 'eval-and-replace)
+#+end_src
+* Writing
+
+** BibTeX
+Tell Emacs where to find my bibliography files. I keep most everything in my
+Calibre library, which I regularly export and keep synced via Nextcloud.
+
 #+begin_src emacs-lisp
   (setq my/bibliographies
         '("~/Documents/bibliography/references.bib"
           "~/Documents/bibliography/calibre.bib"))
 #+end_src
-** Helm BibTeX
+*** Helm BibTeX
 #+begin_src emacs-lisp
   (setq bibtex-completion-bibliography
         my/bibliographies)
   (setq bibtex-completion-pdf-field "File")
 #+end_src
-* Org
+** Org
 :PROPERTIES:
 :header-args: :tangle no :noweb-ref org
 :END:
 
+Configure a variety of options and tools for [[https://orgmode.org][Org Mode]], the markup I use for
+everything from simple notes to task management.
+
 #+begin_src emacs-lisp :noweb yes :tangle yes :noweb-ref org-all
   (after! org
     <<org>>)
 #+end_src
 
-** Override DOOM indentation behavior
+*** Override DOOM indentation behavior
 #+begin_src emacs-lisp
   (defun my/org-init-babel ()
     (setq org-src-preserve-indentation nil))
 
   (add-hook! 'org-mode-hook #'my/org-init-babel)
 #+end_src
-** Disable DOOM's centralized attachment system
+*** Disable DOOM's centralized attachment system
 It's incompatible with all of the org files I already have using the standard
 setup.
 #+begin_src emacs-lisp
@@ -182,7 +151,10 @@ setup.
   (remove-hook! 'org-load-hook
     #'(+org-init-centralized-attachments-h))
 #+end_src
-** Agenda
+*** Agenda
+Set up my agenda view. I use separate files for my personal TODOs and my work
+TODOs, synced externally using Nextcloud.
+
 #+begin_src emacs-lisp
   (after! org-agenda
     (require 'f)
@@ -254,8 +226,10 @@ setup.
      org-icalendar-use-scheduled '(todo-start event-if-todo)
      org-icalendar-combined-agenda-file (expand-file-name "~/Documents/org.ics")))
 #+end_src
-** LaTeX Export
+*** LaTeX Export
-*** Document Classes
+**** Document Classes
+Tell Emacs about all of the LaTeX classes I use to export documents.
+
 #+BEGIN_SRC emacs-lisp
   (use-package! ox-latex
     :config
@@ -356,12 +330,17 @@ setup.
               ("\\paragraph{%s}" . "\\paragraph*{%s}")
               ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))))
 #+END_SRC
-*** DnD
+**** DnD
+This adds an additional LaTeX export option that outputs documents resembling a
+Dungeons and Dragons manual.
+
 #+begin_src emacs-lisp
   (use-package! ox-dnd
     :after ox)
 #+end_src
-** Capture templates
+*** Capture templates
+Set up my capture templates for making new notes and journal entries.
+
 #+begin_src emacs-lisp
   (setq org-capture-templates
         `(
@@ -421,7 +400,7 @@ setup.
            :immediate-finish t
            :prepend t)))
 #+end_src
-** Custom ID generation
+*** Custom ID generation
 Because I'm all kinds of crazy, I like the custom IDs of my work log entries to
 be based on their headings.
 
@@ -515,7 +494,9 @@ be based on their headings.
             id))))))
 
 #+end_src
-** Publish projects
+*** Publish projects
+Tell Emacs how to build the document collections I export to HTML.
+
 #+begin_src emacs-lisp
   (require 'org-attach)
 
@@ -781,13 +762,19 @@ be based on their headings.
 
   (bind-key "C-c o p" #'my/org-publish)
 #+end_src
-** Enhanced Confluence export
+*** Enhanced Confluence export
+Adds [[https://github.com/correl/ox-confluence-en][my own package]] that extends the built-in Confluence wiki markup exporter
+with better formatting and macro support.
+
 #+begin_src emacs-lisp
   (use-package! ox-confluence-en
     :after ox
     :commands ox-confluence-en-export-as-confluence)
 #+end_src
-** Reload images on source execution
+*** Reload images on source execution
+Force images to redisplay after executing a source code block, so I can
+immediately see the result of regenerating graphs and diagrams.
+
 #+begin_src emacs-lisp
   (defun my/redisplay-org-images ()
     (when org-inline-image-overlays
@@ -796,13 +783,15 @@ be based on their headings.
   (add-hook 'org-babel-after-execute-hook
             'my/redisplay-org-images)
 #+end_src
-** Sticky headers
+*** Sticky headers
+Keeps the current heading visible at the top of the Emacs window.
+
 #+begin_src emacs-lisp
   (use-package! org-sticky-header
     :hook (org-mode . org-sticky-header-mode)
     :config (setq org-sticky-header-full-path 'full))
 #+end_src
-** Library of Babel
+*** Library of Babel
 
 Load shared code snippets to be used in org documents.
 
@@ -813,7 +802,7 @@ Load shared code snippets to be used in org documents.
                          (seq-map (lambda (path) (f-join path "library-of-babel.org"))
                                   org-dirs))))
 #+end_src
-** Nicer looking timestamps
+*** Nicer looking timestamps
 #+begin_src emacs-lisp
   (setq org-time-stamp-custom-formats '("<%A, %B %d %Y>" . "<%A, %B %d %Y %H:%M>"))
 
@@ -832,12 +821,14 @@ Load shared code snippets to be used in org documents.
      'org-export-filter-timestamp-functions
      'org-export-filter-timestamp-remove-brackets))
 #+end_src
-** Tufte HTML
+*** Tufte HTML
+Gorgeous HTML exports.
+
 #+begin_src emacs-lisp
   (use-package! ox-tufte
     :after ox)
 #+end_src
-** Journal
+*** Journal
 #+begin_src emacs-lisp
   (use-package org-journal
     :if (f-dir? "~/org-aweber")
@@ -847,7 +838,9 @@ Load shared code snippets to be used in org documents.
     (org-journal-dir "~/org-aweber")
     (org-journal-date-format "%A, %d %B %Y"))
 #+end_src
-** Ref
+*** Ref
+Tools for linking and taking notes on books and papers.
+
 #+begin_src emacs-lisp
   (use-package! org-ref
     :config
@@ -857,8 +850,12 @@ Load shared code snippets to be used in org documents.
           org-ref-default-bibliography my/bibliographies
           org-ref-pdf-directory "~/Documents/bibliography/bibtex-pdfs/"))
 #+end_src
-** Roam
+*** Roam
-*** Add backlinks to org-roam exports
+Powerful cross-linked note-taking.
+
+https://orgroam.com
+
+**** Add backlinks to org-roam exports
 
 Adapted from https://org-roam.readthedocs.io/en/master/org_export/.
 #+begin_src emacs-lisp
@@ -979,7 +976,9 @@ Adapted from https://org-roam.readthedocs.io/en/master/org_export/.
 
   (add-hook 'org-export-before-processing-hook 'my/org-export-preprocessor)
 #+end_src
-*** Org Roam Bibtex
+**** Org Roam Bibtex
+Make it easy to take notes on books and papers that I'm reading.
+
 #+begin_src emacs-lisp
   (use-package! org-roam-bibtex
     :after org-roam
@@ -987,12 +986,16 @@ Adapted from https://org-roam.readthedocs.io/en/master/org_export/.
     :bind (:map org-mode-map
            (("C-c n r a" . orb-note-actions))))
 #+end_src
-*** Org Roam Server
+**** Org Roam Server
+Provides a fun way to browse through a collection of notes.
+
 #+begin_src emacs-lisp
   (use-package! org-roam-server
     :commands org-roam-server-mode)
 #+end_src
-*** Use writeroom in org-roam buffers
+**** Use writeroom in org-roam buffers
+Makes for a much nicer note-taking experience.
+
 #+begin_src emacs-lisp
   (defun my/org-roam-writeroom ()
     ;; Use a buffer-local local variables hook to ensure the org-roam-directory is
@@ -1006,7 +1009,7 @@ Adapted from https://org-roam.readthedocs.io/en/master/org_export/.
 
   (add-hook! 'org-mode-hook #'my/org-roam-writeroom)
 #+end_src
-** Sidebar
+*** Sidebar
 Display a sidebar with file-local todos and scheduling.
 
 #+begin_src emacs-lisp
@@ -1019,7 +1022,7 @@ Display a sidebar with file-local todos and scheduling.
                org-sidebar-tree
                org-sidebar-tree-toggle))
 #+end_src
-** Transclusion
+*** Transclusion
 Show linked org document sections inline.
 
 #+begin_src emacs-lisp
@@ -1028,25 +1031,61 @@ Show linked org document sections inline.
            ("C-c l v t" . org-transclusion-mode))
     :commands (org-transclusion-mode))
 #+end_src
-* Eshell
+** Unfill
-** Change directory in the context of a remote host
+Does the opposite of =fill (M-q)=, removing line breaks from a paragraph or
+region.
+
 #+begin_src emacs-lisp
-  (defun eshell/lcd (&optional directory)
+  (use-package! unfill
-    (interactive)
+    :commands (unfill-paragraph
-    (if (file-remote-p default-directory)
+               unfill-region)
-        (with-parsed-tramp-file-name default-directory nil
+    :bind ("M-Q" . unfill-paragraph))
-          (eshell/cd (tramp-make-tramp-file-name
-                      (tramp-file-name-method v)
-                      (tramp-file-name-user v)
-                      (tramp-file-name-domain v)
-                      (tramp-file-name-host v)
-                      (tramp-file-name-port v)
-                      (or directory "")
-                      (tramp-file-name-hop v))))
-      (eshell/cd directory)))
 #+end_src
-* Email
+* Reading
-** MU4E
+** Epub reader
+A major mode for reading and navigating =.epub= files.
+
+#+begin_src emacs-lisp
+  (use-package! nov
+    :mode ("\\.epub\\'" . nov-mode)
+    :config
+    (setq nov-save-place-file (concat doom-cache-dir "nov-places")))
+#+end_src
+** Kanji Mode
+Minor mode for displaying Japanese characters' stroke orders.
+
+#+begin_src emacs-lisp
+  (use-package! kanji-mode
+    :commands kanji-mode)
+#+end_src
+** Kanji Glasses Mode
+Study kanji by overlaying hiragana readings.
+
+#+begin_src emacs-lisp
+  (use-package! kanji-glasses-mode
+    :commands kanji-glasses-mode)
+#+end_src
+* Coding
+** Erlang
+*** Kerl
+Select the active erlang installation managed with [[https://github.com/kerl/kerl][kerl]].
+
+#+begin_src emacs-lisp
+  (use-package! kerl
+    :commands (kerl-use))
+#+end_src
+** Lisp
+*** Paredit
+Adds shortcuts to edit the structure of lisp code.
+
+#+begin_src emacs-lisp
+  (use-package! paredit
+    :hook ((emacs-lisp-mode . enable-paredit-mode)))
+#+end_src
+* Applications
+** Email
+Configure MU4E to read email synced from my personal and work accounts.
+
 #+begin_src emacs-lisp
   (use-package! mu4e
     :bind (("<f9>" . mu4e))
@@ -1101,90 +1140,69 @@ Show linked org document sections inline.
     (setq mu4e-user-mail-address-list '("correlr@aweber.com"
                                         "correl@gmail.com")))
 #+end_src
-* Prodigy
+** Chat
-Manage background services
+Connect to my weechat instance for IRC and other services that I've linked it to
+using Bitlbee.
+
 #+begin_src emacs-lisp
-  (use-package! prodigy
+  (use-package! weechat
-    :defer 2
+    :commands weechat-connect
     :config
+    (require 'gnutls)
 
-    (global-set-key (kbd "<f7>") 'prodigy)
+    (setq weechat-host-default "git.phoenixinquis.net")
+    (setq weechat-port-default 9001)
+    (setq weechat-mode-default 'ssl)
+    (setq weechat-auto-monitor-buffers t)
+    (setq weechat-modules '(weechat-button
+                            weechat-complete
+                            weechat-alert
+                            weechat-tracking
+                            weechat-image
+                            weechat-speedbar))
+    (setq weechat-tracking-types
+        '(("^[[:alnum:]]+\\.#" . :highlight)
+          ("^[[:alnum:]]+\\.[^#]" . :message)))
+    (use-package! weechat-alert)
 
-    (prodigy-define-tag
-     :name 'work)
-    (prodigy-define-tag
-     :name 'personal)
 
-    ;; https://martinralbrecht.wordpress.com/2016/05/30/handling-email-with-emacs/
+    ;; Dangit, powerline. Adding to global-mode-string so tracking shows up
-    (when (executable-find "imapnotify")
+    ;; (unless (memq 'tracking-mode-line-buffers global-mode-string)
-      (prodigy-define-tag
+    ;;   (setq global-mode-string
-        :name 'email
+    ;;         (-insert-at 1 'tracking-mode-line-buffers global-mode-string)))
-        :ready-message "Checking Email using IMAP IDLE. Ctrl-C to shutdown.")
+    )
-      (prodigy-define-service
-        :name "imapnotify-work"
-        :command "imapnotify"
-        :args (list "-c" (expand-file-name "~/.config/imap_inotify/work.js"))
-        :tags '(email work autostart)
-        :kill-signal 'sigkill)
-      (unless (string-equal "croush" (user-login-name))
-        (prodigy-define-service
-          :name "imapnotify-personal"
-          :command "imapnotify"
-          :args (list "-c" (expand-file-name "~/.config/imap_inotify/personal.js"))
-          :tags '(email personal autostart)
-          :kill-signal 'sigkill)))
-    (when (f-exists? (expand-file-name "~/code/elm-dashboard"))
-      (prodigy-define-service
-        :name "elm-dashboard"
-        :command "python"
-        :args '("-m" "SimpleHTTPServer" "3000")
-        :cwd (expand-file-name "~/code/elm-dashboard")
-        :tags '(personal elm)
-        :stop-signal 'sigkill
-        :kill-process-buffer-on-stop t))
-    (when (f-exists? (expand-file-name "~/git/www"))
-      (prodigy-define-service
-        :name "AWeber WWW"
-        :command "npm"
-        :args '("start")
-        :cwd (expand-file-name "~/git/www")
-        :tags '(work)))
-    (when (f-exists? (expand-file-name "~/Public/org"))
-      (prodigy-define-service
-        :name "Org Documents"
-        :command "python"
-        :args '("-m" "http.server" "3001")
-        :cwd (expand-file-name "~/Public/org")
-        :tags '(work autostart)
-        :kill-signal 'sigkill))
-    (mapcar
-     #'prodigy-start-service
-     (-concat (prodigy-services-tagged-with 'autostart))))
 #+end_src
-* Projectile
+** Music
+Configure EMMS for playing music files on my computer.
+
 #+begin_src emacs-lisp
-  (after! projectile
+  (use-package! emms
-    (require 'dash)
+    :commands (emms
-    (require 'f)
+               emms-play-file
+               emms-play-directory
+               emms-smart-browse)
+    :config
+    (let ((emms-player-base-format-list
+           ;; Add some VGM formats to the list for VLC to play
+           (append emms-player-base-format-list '("nsf" "spc" "gym"))))
+      (require 'emms-player-vlc))
+    (require 'emms-setup)
+    (emms-all)
+    (setq emms-player-list '(emms-player-vlc))
+    ;; Use the installed VLC app if we're in OSX
+    (if (f-exists? "/Applications/VLC.app/Contents/MacOS/VLC")
+        (setq emms-player-vlc-command-name
+              "/Applications/VLC.app/Contents/MacOS/VLC")))
 
-    (setq projectile-switch-project-action #'magit-status)
+  (map! :leader
-    (let ((project-directories (-filter #'f-directory?
+        (:prefix-map ("x" . "EMMS")
-                                        '("~/code"
+          :desc "Play file" "f" #'emms-play-file
-                                          "~/git"))))
+          :desc "Play directory" "d" #'emms-play-directory
-      (-map
+          :desc "Smart Browser" "b" #'emms-smart-browse))
-       (lambda (directory)
-         (-map (lambda (project)
-                 (-> (concat  project "/") ;; Projectile likes trailing slashes
-                     (projectile-add-known-project)))
-               (-filter (lambda (f) (and (not (s-ends-with? "." f))
-                                         (f-directory? f)))
-                        (-map (lambda (f) (concat directory "/" f))
-                              (directory-files directory)))))
-       project-directories))
-
-    (projectile-cleanup-known-projects))
 #+end_src
-* Elfeed
+** News Aggregation
+Read blogs and articles from the RSS feeds I follow.
+
 #+begin_src emacs-lisp
   (use-package! elfeed
     :commands (elfeed my/elfeed my/elfeed-emacs my/elfeed-blogs)
@@ -1225,66 +1243,9 @@ Manage background services
       (interactive)
       (my/elfeed-with-filters  "@6-months-ago +unread +blog")))
 #+end_src
-* Paredit
+** Kubernetes
-#+begin_src emacs-lisp
+Manage a Kubernetes cluster and set up remote shell/file access via TRAMP.
-  (use-package! paredit
-    :hook ((emacs-lisp-mode . enable-paredit-mode)))
-#+end_src
-* UUID Generation
-#+begin_src emacs-lisp
-  (use-package! uuidgen
-    :commands (uuidgen))
-#+end_src
-* Eval and Replace
-Taken from [[http://emacsredux.com/blog/2013/06/21/eval-and-replace/][Emacs Redux]]
 
-#+begin_src emacs-lisp
-  (defun eval-and-replace ()
-    "Replace the preceding sexp with its value."
-    (interactive)
-    (backward-kill-sexp)
-    (condition-case nil
-        (prin1 (eval (read (current-kill 0)))
-               (current-buffer))
-      (error (message "Invalid expression")
-             (insert (current-kill 0)))))
-
-  (global-set-key (kbd "C-)") 'eval-and-replace)
-#+end_src
-* Unfill
-#+begin_src emacs-lisp
-  (use-package! unfill
-    :commands (unfill-paragraph
-               unfill-region)
-    :bind ("M-Q" . unfill-paragraph))
-#+end_src
-* EMMS
-#+begin_src emacs-lisp
-  (use-package! emms
-    :commands (emms
-               emms-play-file
-               emms-play-directory
-               emms-smart-browse)
-    :config
-    (let ((emms-player-base-format-list
-           ;; Add some VGM formats to the list for VLC to play
-           (append emms-player-base-format-list '("nsf" "spc" "gym"))))
-      (require 'emms-player-vlc))
-    (require 'emms-setup)
-    (emms-all)
-    (setq emms-player-list '(emms-player-vlc))
-    ;; Use the installed VLC app if we're in OSX
-    (if (f-exists? "/Applications/VLC.app/Contents/MacOS/VLC")
-        (setq emms-player-vlc-command-name
-              "/Applications/VLC.app/Contents/MacOS/VLC")))
-
-  (map! :leader
-        (:prefix-map ("x" . "EMMS")
-          :desc "Play file" "f" #'emms-play-file
-          :desc "Play directory" "d" #'emms-play-directory
-          :desc "Smart Browser" "b" #'emms-smart-browse))
-#+end_src
-* Kubernetes
 #+begin_src emacs-lisp
   (use-package! kubernetes
     :commands (kubernetes-overview)
@@ -1296,18 +1257,43 @@ Taken from [[http://emacsredux.com/blog/2013/06/21/eval-and-replace/][Emacs Redu
     :config
     (setq tramp-remote-shell-executable "sh"))
 #+end_src
-* Twitter
+** Twitter
+It's Twitter, in Emacs.
+
 #+begin_src emacs-lisp
   (define-key! twittering-mode-map
     "f" #'twittering-favorite
     "F" #'twittering-unfavorite)
 #+end_src
-* Kerl
+** Project Management
+*** Projectile
+Pre-load Projectile with projects in my usual code directories.
+
 #+begin_src emacs-lisp
-  (use-package! kerl
+  (after! projectile
-    :commands (kerl-use))
+    (require 'dash)
+    (require 'f)
+
+    (setq projectile-switch-project-action #'magit-status)
+    (let ((project-directories (-filter #'f-directory?
+                                        '("~/code"
+                                          "~/git"))))
+      (-map
+       (lambda (directory)
+         (-map (lambda (project)
+                 (-> (concat  project "/") ;; Projectile likes trailing slashes
+                     (projectile-add-known-project)))
+               (-filter (lambda (f) (and (not (s-ends-with? "." f))
+                                         (f-directory? f)))
+                        (-map (lambda (f) (concat directory "/" f))
+                              (directory-files directory)))))
+       project-directories))
+
+    (projectile-cleanup-known-projects))
 #+end_src
-* Jira
+*** Jira
+Add some commands for interacting with Jira within org documents.
+
 #+begin_src emacs-lisp
   (use-package jira-api
     :config (setq jira-api-host "jira.aweber.io"
@@ -1382,57 +1368,165 @@ Taken from [[http://emacsredux.com/blog/2013/06/21/eval-and-replace/][Emacs Redu
         "C-c j c" #'jira-api-create-issue-from-heading
         "C-c j u" #'jira-api-update-issue-from-heading)
 #+end_src
-* Weechat
+** Eshell
+*** Change directory in the context of a remote host
+Add an =lcd= command that functions similarly to =cd=, but is scoped to the
+remote host being accessed. Basically means I can use =lcd /= and other absolute
+paths and not worry about being bounced back to my local filesystem.
+
 #+begin_src emacs-lisp
-  (use-package! weechat
+  (defun eshell/lcd (&optional directory)
-    :commands weechat-connect
+    (interactive)
+    (if (file-remote-p default-directory)
+        (with-parsed-tramp-file-name default-directory nil
+          (eshell/cd (tramp-make-tramp-file-name
+                      (tramp-file-name-method v)
+                      (tramp-file-name-user v)
+                      (tramp-file-name-domain v)
+                      (tramp-file-name-host v)
+                      (tramp-file-name-port v)
+                      (or directory "")
+                      (tramp-file-name-hop v))))
+      (eshell/cd directory)))
+#+end_src
+** Background Processes
+Manage background services
+#+begin_src emacs-lisp
+  (use-package! prodigy
+    :defer 2
     :config
-    (require 'gnutls)
 
-    (setq weechat-host-default "git.phoenixinquis.net")
+    (global-set-key (kbd "<f7>") 'prodigy)
-    (setq weechat-port-default 9001)
-    (setq weechat-mode-default 'ssl)
-    (setq weechat-auto-monitor-buffers t)
-    (setq weechat-modules '(weechat-button
-                            weechat-complete
-                            weechat-alert
-                            weechat-tracking
-                            weechat-image
-                            weechat-speedbar))
-    (setq weechat-tracking-types
-        '(("^[[:alnum:]]+\\.#" . :highlight)
-          ("^[[:alnum:]]+\\.[^#]" . :message)))
-    (use-package! weechat-alert)
 
+    (prodigy-define-tag
+     :name 'work)
+    (prodigy-define-tag
+     :name 'personal)
 
-    ;; Dangit, powerline. Adding to global-mode-string so tracking shows up
+    ;; https://martinralbrecht.wordpress.com/2016/05/30/handling-email-with-emacs/
-    ;; (unless (memq 'tracking-mode-line-buffers global-mode-string)
+    (when (executable-find "imapnotify")
-    ;;   (setq global-mode-string
+      (prodigy-define-tag
-    ;;         (-insert-at 1 'tracking-mode-line-buffers global-mode-string)))
+        :name 'email
-    )
+        :ready-message "Checking Email using IMAP IDLE. Ctrl-C to shutdown.")
+      (prodigy-define-service
+        :name "imapnotify-work"
+        :command "imapnotify"
+        :args (list "-c" (expand-file-name "~/.config/imap_inotify/work.js"))
+        :tags '(email work autostart)
+        :kill-signal 'sigkill)
+      (unless (string-equal "croush" (user-login-name))
+        (prodigy-define-service
+          :name "imapnotify-personal"
+          :command "imapnotify"
+          :args (list "-c" (expand-file-name "~/.config/imap_inotify/personal.js"))
+          :tags '(email personal autostart)
+          :kill-signal 'sigkill)))
+    (when (f-exists? (expand-file-name "~/code/elm-dashboard"))
+      (prodigy-define-service
+        :name "elm-dashboard"
+        :command "python"
+        :args '("-m" "SimpleHTTPServer" "3000")
+        :cwd (expand-file-name "~/code/elm-dashboard")
+        :tags '(personal elm)
+        :stop-signal 'sigkill
+        :kill-process-buffer-on-stop t))
+    (when (f-exists? (expand-file-name "~/git/www"))
+      (prodigy-define-service
+        :name "AWeber WWW"
+        :command "npm"
+        :args '("start")
+        :cwd (expand-file-name "~/git/www")
+        :tags '(work)))
+    (when (f-exists? (expand-file-name "~/Public/org"))
+      (prodigy-define-service
+        :name "Org Documents"
+        :command "python"
+        :args '("-m" "http.server" "3001")
+        :cwd (expand-file-name "~/Public/org")
+        :tags '(work autostart)
+        :kill-signal 'sigkill))
+    (mapcar
+     #'prodigy-start-service
+     (-concat (prodigy-services-tagged-with 'autostart))))
 #+end_src
-* Kanji Mode
+** UUID Generation
-Minor mode for displaying Japanese characters' stroke orders.
-
 #+begin_src emacs-lisp
-  (use-package! kanji-mode
+  (use-package! uuidgen
-    :commands kanji-mode)
+    :commands (uuidgen))
 #+end_src
-* Kanji Glasses Mode
+* Operating Systems
-Study kanji by overlaying hiragana readings.
+** Linux
+*** EXWM
+**** Set Emacs + EXWM as the default X window manager
 
-#+begin_src emacs-lisp
+#+begin_src sh :tangle ~/.dmrc
-  (use-package! kanji-glasses-mode
+[Desktop]
-    :commands kanji-glasses-mode)
+session=~/.doom.d/start-exwm.sh
 #+end_src
-* Nov Epub reader
+
-#+begin_src emacs-lisp
+#+begin_src sh :tangle start-exwm.sh :shebang #!/bin/sh
-  (use-package! nov
+emacs -mm -l ~/.doom.d/exwm.el
-    :mode ("\\.epub\\'" . nov-mode)
+#+end_src
+**** Configure EXWM
+- Sets the desktop background
+- Starts a bar/system tray and various applets
+- Sets up workspaces
+- Names X window buffers based on which application is running
+#+begin_src emacs-lisp :tangle exwm.el
+(defun my/exwm-update-class ()
+  (exwm-workspace-rename-buffer exwm-class-name))
+(defun my/run-in-background (command)
+  (let ((command-parts (split-string command "[ ]+")))
+    (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
+(defun my/set-desktop-background ()
+  (interactive)
+  (start-process-shell-command "feh" nil "feh --bg-scale ~/Pictures/Wallpapers/1520742811045.png"))
+(defun my/exwm-init-hook ()
+  ;; Start tint2 bar
+  (my/run-in-background "tint2")
+  ;; Start system tray applets
+  (my/run-in-background "nm-applet")
+  (my/run-in-background "pasystray")
+  (my/run-in-background "blueman-applet")
+  (my/run-in-background "nextcloud --background")
+  (my/run-in-background "compton"))
+(use-package! exwm
   :config
-    (setq nov-save-place-file (concat doom-cache-dir "nov-places")))
+  (setq exwm-input-global-keys
+        `(([?\s-r] . exwm-reset)
+          ([?\s-w] . exwm-workspace-switch)
+          ,@(mapcar (lambda (i)
+                      `(,(kbd (format "s-%d" i)) .
+                        (lambda ()
+                          (interactive)
+                          (exwm-workspace-switch-create ,(- i 1)))))
+                    (number-sequence 1 9))
+          ([?\s-&] . (lambda (command)
+                       (interactive (list (read-shell-command "$ ")))
+                       (start-process-shell-command command nil command)))))
+  (setq exwm-workspace-number 4)
+  (exwm-input-set-key (kbd "s-SPC") #'counsel-linux-app)
+  (add-hook! 'exwm-update-class-hook #'my/exwm-update-class)
+  (add-hook! 'exwm-init-hook #'my/exwm-init-hook)
+  (my/set-desktop-background)
+  (exwm-enable))
+(use-package! exwm-config
+  :after exwm)
+(use-package! desktop-environment
+  :after exwm
+  :config
+  (desktop-environment-mode))
 #+end_src
-* Editing binary-compressed plist files in OSX
+***** Application launcher
+Use counsel as an application launcher. Scans for =.desktop= files in all the
+usual places.
+#+begin_src emacs-lisp
+(use-package! counsel
+  :custom (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
+  :config (counsel-mode 1))
+#+end_src
+** OSX
+*** Editing binary-compressed plist files
 From https://www.emacswiki.org/emacs/MacOSXPlist#toc1
 #+begin_src emacs-lisp
   ;; Allow editing of binary .plist files.