Compare commits
4 Commits
6e7d7fe47d
...
eaa1c58e1b
Author | SHA1 | Date |
---|---|---|
Case Duckworth | eaa1c58e1b | |
Case Duckworth | 1f8021f0ee | |
Case Duckworth | c66f44e360 | |
Case Duckworth | 2d69ea08d3 |
29
init.el
29
init.el
|
@ -302,7 +302,7 @@
|
|||
#'lin-mode
|
||||
#'+dired-dim-git-ignores)
|
||||
(+with-ensure-after-init ; Necessary because jabber loads later
|
||||
(:+key "C-x C-j" #'dired-jump))
|
||||
(:+key "C-x C-j" #'dired-jump))
|
||||
(dolist (refresh-after-func '(dired-do-flagged-delete))
|
||||
(advice-add refresh-after-func :after #'revert-buffer))
|
||||
(with-eval-after-load 'frowny
|
||||
|
@ -316,10 +316,12 @@
|
|||
(:also-load +elisp)
|
||||
(:option eval-expression-print-length nil
|
||||
eval-expression-print-level nil)
|
||||
(:with-map (emacs-lisp-mode-map lisp-interaction-mode-map)
|
||||
(:bind "C-c C-c" #'eval-defun
|
||||
"C-c C-k" #'+elisp-eval-region-or-buffer
|
||||
"C-c C-z" #'ielm))
|
||||
(:with-mode emacs-lisp-mode
|
||||
(:hook #'checkdoc-minor-mode))
|
||||
(:bind-into (emacs-lisp-mode-map lisp-interaction-mode-map)
|
||||
"C-c C-c" #'eval-defun
|
||||
"C-c C-k" #'+elisp-eval-region-or-buffer
|
||||
"C-c C-z" #'ielm)
|
||||
(advice-add #'eval-region :around #'+eval-region@pulse))
|
||||
|
||||
(setup eshell
|
||||
|
@ -370,7 +372,7 @@
|
|||
;; Bind keys
|
||||
(dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
|
||||
(define-key eshell-mode-map
|
||||
(kbd (car binding)) (cdr binding)))
|
||||
(kbd (car binding)) (cdr binding)))
|
||||
;; Environment variables
|
||||
(dolist (environment '(("PAGER" . "cat")))
|
||||
(setenv (car environment) (cdr environment)))))
|
||||
|
@ -658,6 +660,7 @@
|
|||
[f9] #'org-clock-out
|
||||
"C-c l" #'org-store-link)
|
||||
(:hook #'variable-pitch-mode
|
||||
#'visual-fill-column-mode
|
||||
#'turn-off-auto-fill
|
||||
#'org-indent-mode
|
||||
#'prettify-symbols-mode
|
||||
|
@ -1852,7 +1855,10 @@
|
|||
wrap-prefix (make-string +jabber-ws-prefix ?\ )))
|
||||
(:+leader "C-j" jabber-global-keymap)
|
||||
(advice-add 'jabber-activity-add :after #'+jabber-tracking-add)
|
||||
(advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc))
|
||||
(advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc)
|
||||
;;; Alerting hooks --- remove echo messages
|
||||
(remove-hook 'jabber-alert-muc-hooks 'jabber-muc-echo)
|
||||
(remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
|
||||
|
||||
(setup (:straight (keepassxc-shim
|
||||
:host github :repo "duckwork/keepassxc-shim.el"))
|
||||
|
@ -1987,8 +1993,8 @@
|
|||
(,(intern (format "modus-themes-heading-%s" facen))
|
||||
fixed-pitch))
|
||||
:now)))))
|
||||
(:face 'modus-themes-tab-active '((t :bold nil))
|
||||
'modus-themes-tab-inactive '((t :italic t)))
|
||||
(:face 'modus-themes-tab-active '((t ( :bold nil)))
|
||||
'modus-themes-tab-inactive '((t ( :italic t))))
|
||||
|
||||
(define-advice modus-themes--current-theme (:around (fn &rest r))
|
||||
"Fix a \"nil is not a Modus theme\" error."
|
||||
|
@ -2301,6 +2307,11 @@
|
|||
#'suspend-frame)
|
||||
(sophomore-mode +1))
|
||||
|
||||
(setup (:straight (spongebob-case
|
||||
:host github
|
||||
:repo "duckwork/spongebob-case.el"))
|
||||
(define-key +casing-map (kbd "M-s") #'spongebob-case-dwim))
|
||||
|
||||
(setup (:straight ssh-config-mode)
|
||||
(:file-match (rx "/.ssh/config" eos)
|
||||
(rx "/ssh" (? "d") "_config" eos))
|
||||
|
|
Loading…
Reference in New Issue