summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rw-r--r--init.el24
2 files changed, 17 insertions, 8 deletions
diff --git a/.gitignore b/.gitignore
index 7f0eb12..119e928 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,4 @@ straight/
transient/
gnus.el
*.elc
+*.eln
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.

© 2015 - 2026 Jakob L. Kreuze