tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused packages

Browse source
This commit is contained in:
mez 2025-04-13 15:30:07 +01:00
parent 0ae65fea85
commit b8890b0176
1 changed files with 32 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

119
config.org
View file

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