Implement fixes for the upgrade to Emacs 28.

1 files changed, 16 insertions, 8 deletions

diff --git a/init.el b/init.el
index cff580e..23873a1 100644
--- a/init.el
+++ b/init.el
@@ -106,6 +106,10 @@
 ;;; The Core of GNU Emacs
 ;;;
 
+;; [HACK] Use the correct `emacsclient' binary on Gentoo.
+(when (cl-search "28" (emacs-version))
+  (setq with-editor-emacsclient-executable "emacsclient-emacs-28-vcs"))
+
 ;; Having Emacs open to `*scratch*' feels as though it's inviting me to punch
 ;; out some Lisp forms and evaluate them. I like to pretend that my computers
 ;; are Lisp machines.
@@ -288,7 +292,6 @@ scrolling functions."
 
 (setq scroll-conservatively most-positive-fixnum)
 
-
 
 ;;;
 ;;; Appearance
@@ -596,7 +599,7 @@ as `org-src-fontify-natively' is non-nil."
    `(org-agenda-done ((,class (:foreground ,green-3 :background ,nil))))
    `(org-agenda-dimmed-todo-face ((,class (:foreground ,white-0 :background ,red-2))))
    `(org-priority ((,class (:foreground ,red-1 :background ,nil))))
-   `(org-block ((,class (:foreground ,white-1 :background ,black-4))))
+   `(org-block ((,class (:foreground ,white-1 :background ,black-4 :extend t))))
    `(org-block-begin-line ((,class (:foreground ,black-3))))
    `(org-block-end-line ((,class (:foreground ,black-3))))
    `(org-block-background ((,class (:background ,white-1))))
@@ -620,6 +623,8 @@ as `org-src-fontify-natively' is non-nil."
    `(ansi-color-names-vector [,black-5 ,red-0 ,green-0 ,yellow-1
                               ,blue-1 ,purple-1 ,blue-0 ,white-1])))
 
+(enable-theme 'chayote)
+
 
 ;;;
 ;;; Modeline
@@ -797,7 +802,7 @@ RIGHT aligned respectively."
 
 (defun pass-password-files ()
   "Returns the paths of every password managed by `pass'."
-  (let ((prefix-length (1+ (length (expand-file-name password-store-directory))))
+  (let ((prefix-length (1+ (length password-store-directory)))
         (suffix-length (length ".gpg")))
     (map 'list
          #'(lambda (path) (cl-subseq path prefix-length (- suffix-length)))
@@ -1032,13 +1037,16 @@ very important questions."
   :bind
   ("C-c k" . counsel-ag))
 
-;; Hide the targets of symbolic links in `dired' listings. This is a visual
-;; preference of mine.
-
 (use-package dired
   :straight nil
+  ;; Hide the targets of symbolic links in `dired' listings. This is a visual
+  ;; preference of mine.
   :init
-  (setq-default dired-listing-switches "-alL"))
+  (setq-default dired-listing-switches "-alL")
+
+  ;; Show '.eln' files the same way that '.elc' files are.
+  :config
+  (push ".eln" completion-ignored-extensions))
 
 (use-package dired-rmjunk
   ;; Set up a keybinding for invoking `dired-rmjunk' from `dired-mode'.
@@ -1098,7 +1106,7 @@ very important questions."
   ;; File system of hygene.
   :init
   (setq-default org-id-locations-file "~/.cache/emacs/org-id-locations"
-                org-latex-preview-ltxpng-directory "~/.cache/emacs/ltximg/"
+                org-preview-latex-image-directory "~/.cache/emacs/ltximg/"
                 org-preview-latex-image-directory "~/.cache/emacs/ltximg/")
 
   ;; General appearance and quality-of-life settings.