From 21d452bab1d1697b26456473de80de6101b9f979 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Mon, 8 Apr 2024 18:01:56 +0300
Subject: emacs:(init) minor restracutes

---
 .emacs.d/init.el | 26 +++++++++++++++++---------
 1 file 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
-- 
cgit v1.2.3