From b8890b01765c384c591c4c79feba2b82c8cfd837 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?tr=C3=A9meur?= Date: Sun, 13 Apr 2025 15:30:07 +0100 Subject: [PATCH] Remove unused packages --- config.org | 119 ++++++++++++++--------------------------------------- 1 file changed, 32 insertions(+), 87 deletions(-) diff --git a/config.org b/config.org index 4d6922a..57533fd 100644 --- a/config.org +++ b/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 "") '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 "