From 257026682c70ac27ef5f3e5a1acb2bb20d83edb8 Mon Sep 17 00:00:00 2001
From: Ian Keane <ian@keane.sh>
Date: Tue, 28 Nov 2023 12:11:35 -0500
Subject: [PATCH] Minor emacs config tweaks

---
 guix/init.org | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

diff --git a/guix/init.org b/guix/init.org
index bf0151e..a8022d5 100644
--- a/guix/init.org
+++ b/guix/init.org
@@ -1,5 +1,5 @@
 #+title Ian's Emacs Config
-#+PROPERTY: header-args:emacs-lisp :tangle (if eq system-type 'darwin "~/dotfiles/guix/init.el" "~/.config/emacs/init.el")
+#+PROPERTY: header-args:emacs-lisp :tangle (if (eq system-type 'darwin) "~/dotfiles/guix/init.el" "~/.config/emacs/init.el")
 
 * First things first
 ** Literate Config Setup
@@ -263,7 +263,8 @@ To get started, run =C-c C-v t=
 #+end_src
 ** Windows and Workspaces
 #+begin_src emacs-lisp
-  (use-package perspective)
+  (use-package persp-mode
+    :diminish persp-mode)
   (unless (equal persp-mode t)
     (persp-mode))
   (use-package ace-window)
@@ -507,9 +508,9 @@ To get started, run =C-c C-v t=
       "ms"	'(empv-display-current	:which-key "show currently playing")
 
       "mr"	'(:ignore t :which-key "radio")
-      "mrr"	'(empv-play-radio)
-      "mrR"	'(empv-play-random-channel)
-      "mrl"	'(empv-log-current-radio-song-name)
+      "mrr"	'(empv-play-radio                    :which-key "play")
+      "mrR"	'(empv-play-random-channel           :which-key "play random")
+      "mrl"	'(empv-log-current-radio-song-name   :which-key "log song name")
 
       "mp"	'(:ignore t :which-key "playlist")
       "mpP"	'(empv-playlist		:which-key "playlist")
@@ -547,7 +548,7 @@ To get started, run =C-c C-v t=
       "ol"  '(org-store-link                        :which-key "Org store link")
       "oc"  '(org-capture                           :which-key "Org Capture")
       "oC"  '(org-capture-goto-target               :which-key "Goto Capture")
-      "ot"  '(org-babel-tangle-file                 :which-key "Org Tangle")
+      "ot"  '(org-babel-tangle                      :which-key "Org Tangle")
       "oy"  '(+org/export-to-clipboard              :which-key "Org export to clipboard")
       "oY"  '(+org/export-to-clipboard-as-rich-text :which-key "Org export to clipboard (rich)")
       "oe" '(:ignore t :which-key "export")
@@ -719,7 +720,7 @@ Idk I think this came from the vertico readme
 #+begin_src emacs-lisp
   (use-package embark
   :ensure t
-
+  :diminish eldoc-mode
   :bind
   (("C-." . embark-act)         ;; pick some comfortable binding
    ("C-;" . embark-dwim)        ;; good alternative: M-.
@@ -745,7 +746,8 @@ Idk I think this came from the vertico readme
 #+end_src
 ** Snippets
 #+begin_src emacs-lisp
-  (use-package yasnippet)
+  (use-package yasnippet
+    :diminish yas-minor-mode)
   (use-package yasnippet-snippets
     :after lsp-mode)
   (yas-global-mode)
@@ -766,6 +768,7 @@ Idk I think this came from the vertico readme
   (use-package lsp-treemacs)
   (use-package flycheck
     :ensure t
+    :diminish
     :init (global-flycheck-mode))
 #+end_src
 ** Rust
@@ -815,7 +818,8 @@ Uses the external fish program to provide fish-style completions to eshell etc
 #+end_src
 * Git
 #+begin_src emacs-lisp
-  (use-package git-gutter+)
+  (use-package git-gutter+
+    :diminish)
   (global-git-gutter+-mode t)
   (use-package magit)
   (use-package magit-todos)
@@ -927,19 +931,19 @@ Uses the external fish program to provide fish-style completions to eshell etc
     :ensure t
     :after org
     :hook (org-mode . (lambda () evil-org-mode))
-    ; :config
-    ; (require 'evil-org-agenda)
-    ; (evil-org-agenda-set-keys)
+					  ; :config
+					  ; (require 'evil-org-agenda)
+					  ; (evil-org-agenda-set-keys)
     )
   (use-package evil-collection
     :after evil
     :ensure t
+    :diminish evil-collection-unimpaired-mode
     :config
-    (evil-collection-init))
+    (evil-collection-init)
 
-  (setq evil-want-C-u-scroll t)
-  (setq evil-want-C-i-jump nil)
-  (setq evil-respect-visual-line-mode t)
+    (setq evil-want-C-i-jump t
+	  evil-respect-visual-line-mode t))
 #+end_src
 * Web browsing and youtube
 #+begin_src emacs-lisp