diff options
Diffstat (limited to '.emacs.d/init.el')
| -rw-r--r-- | .emacs.d/init.el | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 93dc969..394a322 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -366,6 +366,7 @@ ("f" . 'isearch-forward) ("r" . 'isearch-backward) ("s" . 'consult-line) + ("i" . 'change-inner) ("C-f" . 'consult-find) ("C-g" . 'consult-grep) ("C-i" . 'consult-info) @@ -443,6 +444,7 @@ :defer t :hook ((emacs-lisp-mode . rainbow-delimiters-mode) (lisp-mode . rainbow-delimiters-mode) + (clojure-mode . rainbow-delimiters-mode) (scheme-mode . rainbow-delimiters-mode))) ;; (use-package paredit @@ -452,6 +454,9 @@ ;; (clojure-mode . paredit-mode) ;; (scheme-mode . paredit-mode))) +(use-package sly + :init (setf inferior-lisp-program "sbcl") + :defer t) (use-package helpful :defer t @@ -462,7 +467,8 @@ ("C-h ." . 'helpful-at-point) ("C-h F" . 'helpful-function) ("C-h C-k" . 'helpful-kill-buffers) - ("C-h A" . 'apropos))) + ("C-h a" . 'apropos) + ("C-h C-m" . 'info-apropos))) (use-package password-store :defer t) @@ -486,8 +492,7 @@ :defer t :config (setf magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1) - :bind (:map project-prefix-map - ("g" . 'project-magit))) + :bind (:map project-prefix-map ("g" . 'project-magit))) (use-package corfu :ensure t @@ -551,10 +556,6 @@ :after expand-region :bind ((:map thanos/search ("i" . 'change-inner)))) -(use-package sly - :init (setf inferior-lisp-program "sbcl") - :defer t) - (use-package nov :defer t :config @@ -614,6 +615,12 @@ (thanos/set-eshell-aliases thanos/aliases) (display-line-numbers-mode -1))))) +(use-package eat + :after 'eshell + :config + (add-hook 'eshell-load-hook #'eat-eshell-mode) + (setf eat-term-name "xterm-256color")) + (use-package eshell-git-prompt :straight '(eshell-git-prompt :type git :host nil @@ -692,7 +699,8 @@ :config (setf yeetube-results-limit 20 yeetube-mpv-disable-video t - yeetube-display-thumbnails t) + yeetube-display-thumbnails t + yeetube-play-function #'yeetube-mpv-play) :bind (("C-c y" . 'thanos/yeetube-map) :map thanos/yeetube-map ("s" . 'yeetube-search) @@ -707,7 +715,7 @@ (use-package gnosis :straight (gnosis :local-repo "~/Dev/emacs-lisp/gnosis") - :defer t + :ensure t :init (define-prefix-command 'thanos/gnosis-map) :config (setf gnosis-vc-auto-push (when (or is-hermes |