emacs: Style & adjust for hostname

1 files changed, 66 insertions, 60 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 3f4d459..5c9b748 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -42,7 +42,8 @@
       sentence-end-double-space t
       default-input-method "bulgarian-phonetic"
       ;; fix emacs hangs
-      gc-cons-threshold 5000000)
+      gc-cons-threshold 5000000
+      ispell-program-name (executable-find "hunspell"))
 
 (define-key global-map (kbd "M-<backspace>") 'backward-kill-sexp)
 (define-key global-map (kbd "C-c L") 'display-line-numbers-mode)
@@ -318,7 +319,9 @@
 	  ;; (bg-main "#1d2021") ;;grubox-hard
 	  ;; (bg-main "#191919") ;; 1337
 	  ;; (bg-main "#1d1f21") ;; tomorrow night
-	  (bg-main "#171717") ;; badger
+	  (bg-main "#151515") ;; jazz
+	  ;; (bg-main "#0C0C0C") ;; random black
+	  ;; (bg-main "#171717") ;; badger
 	  ;; (overline-heading-1 gold)
 	  (fg-heading-1 red-warmer)
 	  ;; (bg-heading-1 bg-blue-nuanced)
@@ -367,8 +370,8 @@
   :init (define-prefix-command 'thanos/search)
   :bind (("C-x r d" . 'bookmark-delete)
 	 ("C-x r C-r" . 'bookmark-rename)
-	 ("C-x r ." . 'consult-register)
-	 ("C-x r s" . 'consult-register-store)
+	 ("C-x r C-j" . 'consult-register)
+	 ("C-x r SPC" . 'consult-register-store)
 	 ("C-x r b" . 'consult-bookmark)
 	 ("C-c m" . 'consult-imenu)
 	 ("C-x b" . 'consult-buffer)
@@ -431,7 +434,9 @@
 	  ("https://planet.emacslife.com/atom.xml" emacs emacslife)
 	  ("https://localmonero.co/static/rss/the-monero-standard/feed.xml" monero)
 	  ("https://devonzuegel.com/feed" devon)
-	  ("https://www.addtoany.com/add_to/feed?linkurl=http%3A%2F%2Fwww.thelancet.com%2Frssfeed%2Flancet_online.xml&type=feed&linkname=The%20Lancet%20Online%20First&linknote=" lancet med)))
+	  ("https://www.addtoany.com/add_to/feed?linkurl=http%3A%2F%2Fwww.thelancet.com%2Frssfeed%2Flancet_online.xml&type=feed&linkname=The%20Lancet%20Online%20First&linknote=" lancet med)
+	  ("http://tools.cdc.gov/podcasts/feed.asp?feedid=183" cdc med)
+	  ("http://planet.lisp.org/rss20.xml" lisp planetlisp)))
   :bind (("C-x f" . elfeed)
 	 :map elfeed-search-mode-map
 	 ("v" . 'elfeed-mpv)
@@ -710,61 +715,62 @@
 	 ("p" . 'mocp-previous)))
 
 ;; My packages
-(use-package yeetube
-  :init (define-prefix-command 'thanos/yeetube-map)
-  :straight (yeetube :local-repo "~/Dev/emacs-lisp/yeetube")
-  :ensure t
-  :config
-  (setf yeetube-results-limit 20
-	yeetube-mpv-disable-video 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)
-	 ("b" . 'yeetube-play-saved-video)
-	 ("d" . 'yeetube-download-videos)
-	 ("C-d" . 'yeetube-download-vimeo-videos)
-	 ("p" . 'yeetube-mpv-toggle-pause)
-	 ("v" . 'yeetube-mpv-toggle-video)
-	 ("V" . 'yeetube-mpv-toggle-no-video-flag)
-	 ("C-p" . 'yeetube-mpv-toggle-video)
-	 ("k" . 'yeetube-remove-saved-video)))
-
-(use-package gnosis
-  :straight (gnosis :local-repo "~/Dev/emacs-lisp/gnosis")
-  :ensure t
-  :init (define-prefix-command 'thanos/gnosis-map)
-  :config
-  (setf gnosis-vc-auto-push (when (or is-hermes
-				      is-zeus)
-			      t)
-	gnosis-mcq-display-choices nil
-	gnosis-image-width (if is-zeus 300 150)
-	gnosis-image-height (if is-zeus 300 150))
-  (gnosis-modeline-mode)
-  :bind (("C-r" . thanos/gnosis-map)
-	 :map thanos/gnosis-map
-	 ("r" . 'gnosis-review)
-	 ("a" . 'gnosis-add-note)
-	 ("C-d" . 'gnosis-dashboard)
-	 ("d" . 'gnosis-add-deck)
-	 ("t" . 'gnosis-test-start)))
-
-;; Run vc-pull on startup
-(gnosis-vc-pull)
-
-(use-package pcmpl-emerge
-  :defer t
-  :straight (pcmpl-emerge :local-repo "~/Dev/emacs-lisp/pcmpl-emerge"))
-
-(use-package pcmpl-rc
-  :straight (pcmpl-rc :local-repo "~/Dev/emacs-lisp/pcmpl-rc")
-  :defer t)
-
-(use-package pcmpl-tailscale
-  :straight (pcmpl-tailscale :local-repo "~/Dev/emacs-lisp/pcmpl-taiscale")
-  :defer t)
+(when (or is-zeus is-hermes)
+  (use-package yeetube
+    :init (define-prefix-command 'thanos/yeetube-map)
+    :straight (yeetube :local-repo "~/Dev/emacs-lisp/yeetube")
+    :ensure t
+    :config
+    (setf yeetube-results-limit 20
+	  yeetube-mpv-disable-video 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)
+	   ("b" . 'yeetube-play-saved-video)
+	   ("d" . 'yeetube-download-videos)
+	   ("C-d" . 'yeetube-download-vimeo-videos)
+	   ("p" . 'yeetube-mpv-toggle-pause)
+	   ("v" . 'yeetube-mpv-toggle-video)
+	   ("V" . 'yeetube-mpv-toggle-no-video-flag)
+	   ("C-p" . 'yeetube-mpv-toggle-video)
+	   ("k" . 'yeetube-remove-saved-video)))
+
+  (use-package gnosis
+    :straight (gnosis :local-repo "~/Dev/emacs-lisp/gnosis")
+    :ensure t
+    :init (define-prefix-command 'thanos/gnosis-map)
+    :config
+    (setf gnosis-vc-auto-push (when (or is-hermes
+					is-zeus)
+				t)
+	  gnosis-mcq-display-choices nil
+	  gnosis-image-width (if is-zeus 300 150)
+	  gnosis-image-height (if is-zeus 300 150))
+    (gnosis-modeline-mode)
+    :bind (("C-r" . thanos/gnosis-map)
+	   :map thanos/gnosis-map
+	   ("r" . 'gnosis-review)
+	   ("a" . 'gnosis-add-note)
+	   ("C-d" . 'gnosis-dashboard)
+	   ("d" . 'gnosis-add-deck)
+	   ("t" . 'gnosis-test-start)))
+
+  ;; Run vc-pull on startup
+  (gnosis-vc-pull)
+
+  (use-package pcmpl-emerge
+    :defer t
+    :straight (pcmpl-emerge :local-repo "~/Dev/emacs-lisp/pcmpl-emerge"))
+
+  (use-package pcmpl-rc
+    :straight (pcmpl-rc :local-repo "~/Dev/emacs-lisp/pcmpl-rc")
+    :defer t)
+
+  (use-package pcmpl-tailscale
+    :straight (pcmpl-tailscale :local-repo "~/Dev/emacs-lisp/pcmpl-taiscale")
+    :defer t))
 
 ;; Emacs dev