summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el18
1 files changed, 10 insertions, 8 deletions
diff --git a/init.el b/init.el index e1b783d..c445545 100644 --- a/init.el +++ b/init.el
@@ -302,7 +302,7 @@
302 #'lin-mode 302 #'lin-mode
303 #'+dired-dim-git-ignores) 303 #'+dired-dim-git-ignores)
304 (+with-ensure-after-init ; Necessary because jabber loads later 304 (+with-ensure-after-init ; Necessary because jabber loads later
305 (:+key "C-x C-j" #'dired-jump)) 305 (:+key "C-x C-j" #'dired-jump))
306 (dolist (refresh-after-func '(dired-do-flagged-delete)) 306 (dolist (refresh-after-func '(dired-do-flagged-delete))
307 (advice-add refresh-after-func :after #'revert-buffer)) 307 (advice-add refresh-after-func :after #'revert-buffer))
308 (with-eval-after-load 'frowny 308 (with-eval-after-load 'frowny
@@ -316,10 +316,12 @@
316 (:also-load +elisp) 316 (:also-load +elisp)
317 (:option eval-expression-print-length nil 317 (:option eval-expression-print-length nil
318 eval-expression-print-level nil) 318 eval-expression-print-level nil)
319 (:with-map (emacs-lisp-mode-map lisp-interaction-mode-map) 319 (:with-mode emacs-lisp-mode
320 (:bind "C-c C-c" #'eval-defun 320 (:hook #'checkdoc-minor-mode))
321 "C-c C-k" #'+elisp-eval-region-or-buffer 321 (:bind-into (emacs-lisp-mode-map lisp-interaction-mode-map)
322 "C-c C-z" #'ielm)) 322 "C-c C-c" #'eval-defun
323 "C-c C-k" #'+elisp-eval-region-or-buffer
324 "C-c C-z" #'ielm)
323 (advice-add #'eval-region :around #'+eval-region@pulse)) 325 (advice-add #'eval-region :around #'+eval-region@pulse))
324 326
325(setup eshell 327(setup eshell
@@ -370,7 +372,7 @@
370 ;; Bind keys 372 ;; Bind keys
371 (dolist (binding '(("C-d" . +eshell-quit-or-delete-char))) 373 (dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
372 (define-key eshell-mode-map 374 (define-key eshell-mode-map
373 (kbd (car binding)) (cdr binding))) 375 (kbd (car binding)) (cdr binding)))
374 ;; Environment variables 376 ;; Environment variables
375 (dolist (environment '(("PAGER" . "cat"))) 377 (dolist (environment '(("PAGER" . "cat")))
376 (setenv (car environment) (cdr environment))))) 378 (setenv (car environment) (cdr environment)))))
@@ -1987,8 +1989,8 @@
1987 (,(intern (format "modus-themes-heading-%s" facen)) 1989 (,(intern (format "modus-themes-heading-%s" facen))
1988 fixed-pitch)) 1990 fixed-pitch))
1989 :now))))) 1991 :now)))))
1990 (:face 'modus-themes-tab-active '((t :bold nil)) 1992 (:face 'modus-themes-tab-active '((t ( :bold nil)))
1991 'modus-themes-tab-inactive '((t :italic t))) 1993 'modus-themes-tab-inactive '((t ( :italic t))))
1992 1994
1993 (define-advice modus-themes--current-theme (:around (fn &rest r)) 1995 (define-advice modus-themes--current-theme (:around (fn &rest r))
1994 "Fix a \"nil is not a Modus theme\" error." 1996 "Fix a \"nil is not a Modus theme\" error."