Remove unused packages

config.org

@@ -18,7 +18,7 @@
     (load-directory (concat (file-name-as-directory fileroot) "admin/emacs/custom/"))
 #+END_SRC
 
-* =$whoami=, a big neckbeard, that’s who
+* Identity
 
 Set name and location based on who I’m being right now.
 
@@ -30,16 +30,7 @@ Set name and location based on who I’m being right now.
       (load-file (concat (file-name-as-directory fileroot) "admin/emacs/identity-home.el"))))
 #+END_SRC
 
-* Sonic arts
-
-Stop Emacs making sounds. I don’t think it ever made sounds before, but everyone is very insistent about the need to stop Emacs making sounds.
-
-#+BEGIN_SRC emacs-lisp
-  (setq ring-bell-function 'ignore)
-  (setq visible-bell t)
-#+END_SRC
-
-Also suppress certain warnings that would otherwise come up all the time and contribute very little to the experience.
+* Suppress certain warnings
 
 #+BEGIN_SRC emacs-lisp
   (setq ad-redefinition-action 'accept)
@@ -57,7 +48,7 @@ I don’t want finding files to be case-sensitive, same as in =zsh=:
   (setq read-buffer-completion-ignore-case t)
 #+END_SRC
 
-Make the +window+ /frame/ look nice and clean. Scroll bars behave pointlessly on Windows anyway. Not hiding the menu bar because I’m not quite that leet yet. One day …
+Remove certain graphical elements.
 
 #+BEGIN_SRC emacs-lisp
   (setq inhibit-startup-screen t)
@@ -76,7 +67,7 @@ Make everything just a little tiny bit transparent unless I’m using the boring
       (add-to-list 'default-frame-alist '(alpha . 95))))
 #+END_SRC
 
-Stop creating all those =~= files everywhere. Put them somewhere that I can ignore them.
+Stop creating all those =~= files everywhere. Put them somewhere I can ignore them.
 
 #+BEGIN_SRC emacs-lisp
   (setq backup-directory-alist '(("." . "~/.emacs.d/backups")))
@@ -129,7 +120,7 @@ And to narrow to them.
   (put 'narrow-to-region 'disabled nil)
 #+END_SRC
 
-It’s +2022+ +2023+ nearly the second half of 2024.
+It’s +2022+ +2023+ unquestionably the python3 era.
 
 #+BEGIN_SRC emacs-lisp
   (setq python-shell-interpreter "python3")
@@ -187,7 +178,7 @@ Android has enormous issues with keybindings, so requiring =yes-or-no-p= where p
 
 * =use-package=
 
-Set up package handling, including =use-package=. Some of the =org= tools I use are from Non-GNU ELPA, I think. Most of this is the standard =use-package= setup stuff.
+Set up package handling, including =use-package= in the standard way.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
@@ -227,23 +218,6 @@ I use BibLaTeX for better compatibility with accented characters and generally b
     (setq bibtex-dialect 'biblatex)))
 #+END_SRC
 
-** =calibredb=
-
-This may work only on Linux (it uses SQL???), but my ebooks are only on Linux so that’s ok.
-
-#+BEGIN_SRC emacs-lisp
-  (when (string-equal system-type "gnu/linux")
-    (use-package calibredb
-      :defer t
-      :config
-      (setq calibredb-root-dir "~/Documents/calibre/books")
-      (setq calibredb-db-dir (expand-file-name "metadata.db" calibredb-root-dir))
-      (setq calibredb-library-alist '(("~/Documents/calibre/books")
-                                      ("~/Documents/calibre/ficrecs")))
-      (setq calibredb-sort-by 'author)
-      (setq calibredb-order 'asc)))
-#+END_SRC
-
 ** =csv-mode=
 
 #+BEGIN_SRC emacs-lisp
@@ -259,7 +233,7 @@ This may work only on Linux (it uses SQL???), but my ebooks are only on Linux so
 
 ** =deft=
 
-Let me search my journal files when I’m not at work, and reading notes otherwise. Set regexp search by default.
+Lets me search my journal files when I’m not at work, and reading notes otherwise. Set regexp search by default.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
@@ -292,7 +266,7 @@ Dims inactive buffers. Adjustments for =modus-themes= as suggested.
 
 ** =doom-modeline=
 
-Much nicer-looking modeline, and still my favourite over newer, trendier options. Last time I tried installing this from MELPA it made Emacs crash; I don’t know if this is fixed yet.
+Much nicer-looking modeline.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
@@ -309,7 +283,7 @@ Much nicer-looking modeline, and still my favourite over newer, trendier options
 
 ** =git-gutter=
 
-Shows, or at least purports to show, =git diff= in the left margin if the file is being tracked by =git=.
+Shows =git diff= in the left margin if the file is being tracked by =git=.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
@@ -375,7 +349,7 @@ Lists minor modes in a menu.
 
 ** =mu4e=
 
-I really only use this for DW posts, but I’m constantly surprised by how well it works. This package is the reason I can’t upgrade to =emacs28=, because it doesn’t currently seem to work; also, it uses =cl=, which is deprecated, hence suppressing warnings about it above.
+Does this work in emacs28???
 
 #+BEGIN_SRC emacs-lisp
   (when (string-equal system-type "gnu/linux")
@@ -419,52 +393,7 @@ Attempting to do TEI stuff at work but I can’t link directly to the =.rnc= fil
             (lambda () (local-set-key (kbd "<tab>") 'completion-at-point))))
   #+END_SRC
 
-Show path of current element (from [[https://emacs.stackexchange.com/questions/28606/how-to-show-xpath-for-current-location-in-an-xml-hierarchy-in-the-modeline][here]]).
-
-#+BEGIN_SRC emacs-lisp
-  (unless (string-equal system-type "android")
-    (defun nxml-where ()
-      "Display the hierarchy of XML elements the point is on as a path."
-      (interactive)
-      (let ((path nil))
-        (save-excursion
-          (save-restriction
-            (widen)
-            (while (and (< (point-min) (point)) ;; Doesn't error if point is at beginning of buffer
-                        (condition-case nil
-                            (progn
-                              (nxml-backward-up-element) ; always returns nil
-                              t)
-                          (error nil)))
-              (setq path (cons (xmltok-start-tag-local-name) path)))
-            (if (called-interactively-p t)
-                (message "/%s" (mapconcat 'identity path "/"))
-              (format "/%s" (mapconcat 'identity path "/")))))))
-    (defun xml-find-file-hook ()
-      (when (derived-mode-p 'nxml-mode)
-        (which-function-mode t)
-        (setq which-func-mode t)
-        (add-hook 'which-func-functions 'nxml-where t t)))
-    (add-hook 'find-file-hook 'xml-find-file-hook t))
-#+END_SRC
-
-** =nov=
-
-For reading ebooks. Only on Linux because I (supposedly) use it with my calibre library.
-
-#+BEGIN_SRC emacs-lisp
-  (when (string-equal system-type "gnu/linux")
-    (use-package nov
-      :init
-      (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)))
-    (defun my-nov-font-setup ()
-      "Set the font for nov-mode"
-      (face-remap-add-relative 'variable-pitch :family "Liberation Serif"
-                               :height 2.0))
-    (add-hook 'nov-mode-hook 'my-nov-font-setup))
-#+END_SRC
-
-** =org= my love
+** =org=
 
 *** Initial settings
 
@@ -524,7 +453,7 @@ Track when I complete todos.
 
 *** Export settings
 
-This can set certain headlines not to be exported. I haven’t used it yet but it sounds useful.
+Allow setting certain headlines not to be exported.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
@@ -557,7 +486,7 @@ Add a couple of classes for LaTeX export.
                    ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))))
 #+END_SRC
 
-Settings for export, mostly for DW post previews but also fic?? And work I guess, I do that sometimes.
+General export settings:
 
 #+BEGIN_SRC emacs-lisp
   (setq org-export-headline-levels 6)
@@ -603,6 +532,22 @@ Export non-breaking spaces properly; from, believe it or not, [[https://orgmode.
                  'my-latex-filter-nobreaks))
 #+END_SRC
 
+Export external links as ~target= “_blank”~, from [[https://emacs.stackexchange.com/a/48869][here]]:
+
+#+BEGIN_SRC emacs-lisp
+  (defun my-org-export-add-target-blank-to-http-links (text backend info)
+    "Add target=\"_blank\" to external links."
+    (when (and
+           (org-export-derived-backend-p backend 'html)
+           (string-match "href=\"http[^\"]+" text)
+           (not (string-match "target=\"" text)))
+      (string-match "<a " text)
+      (replace-match "<a target=\"_blank\" " nil nil text)))
+
+  (add-to-list 'org-export-filter-link-functions
+               'my-org-export-add-target-blank-to-http-links)
+#+END_SRC
+
 *** Packages
 
 **** =org-agenda-property=
@@ -663,7 +608,7 @@ Use =org-modern=. [[https://github.com/minad/org-modern/issues/5#issuecomment-13
 
 **** =org-noter=
 
-RIP =interleave=, but this does ok as a replacement.
+Annotate PDFs (kind of) in org-mode.
 
   #+BEGIN_SRC emacs-lisp
     (unless (string-equal system-type "android")
@@ -821,7 +766,7 @@ Gives me a dialog with recently opened files. Package management stuff has to be
 
 ** =tex=
 
-As previously described, “the big boy”. I know little about most of these settings, but I think they’re the default ones.
+Probably the default settings.
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
@@ -880,7 +825,7 @@ This is good for auto indentation, folding, killing elements, apparently XPath??
 
 ** =yasnippet=
 
-Per-mode text expansion. What a lifechanger.
+Per-mode text expansion.
 
 #+BEGIN_SRC emacs-lisp
     (unless (string-equal system-type "android")