From ffbf77e1dcd085f981d10a10bfd4db77b1b579b7 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Thu, 20 Apr 2023 14:03:00 +0300
Subject: emacs: remove guix, change theme, adjust for diff machines

Remove guix configuration, change theme to gruvbox-dark, adjust font
sizes for hermes
---
 .emacs.d/init.el | 28 ++++++++--------------------
 1 file changed, 8 insertions(+), 20 deletions(-)

(limited to '.emacs.d')

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index cbb05a8..b71310a 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1,25 +1,9 @@
 (defvar is-zeus (equal (system-name) "zeus"))
-(defvar is-hephaestus (equal (system-name) "hephaestus"))
+(defvar is-hermes (equal (system-name) "hermes"))
 
 (setq browse-url-browser-function 'browse-url-generic
       browse-url-generic-program "mullvad-browser")
 
-;; When guix t, load emacs packages
-(when (or is-zeus
-	  is-hephaestus
-  (add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp")
-  (guix-emacs-autoload-packages)))
-
-(with-eval-after-load 'geiser-guile
-  (add-to-list 'geiser-guile-load-path "~/dotfiles/.config/guix"))
-
-;; Personal Information
-(setq user-full-name "Thanos Apollo"
-      user-mail-address "public@thanosapollo.com")
-
-(setq copyright-names-regexp
-      (format "%s <%s>" user-full-name user-mail-address))
-
 (defconst my-package-list '(org-snooze
 			      all-the-icons
 			      all-the-icons-dired
@@ -29,6 +13,7 @@
 			      emojify
 			      general
 			      doom-themes
+			      gruvbox-theme
 			      doom-modeline
 			      counsel
 			      which-key
@@ -109,7 +94,10 @@ Contains the list of packages that need to be installed.")
 (add-to-list 'default-frame-alist '(alpha 90 90))
 
 (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
-(when is-hephaestus
+
+
+(if is-zeus
+    (display-battery-mode 0)
   (display-battery-mode 1))
 
 (scroll-bar-mode -1)
@@ -142,7 +130,7 @@ Contains the list of packages that need to be installed.")
   (add-hook mode (lambda () (display-line-numbers-mode 0))))
 
 (defvar apollo/default-font-size 140)
-(when (equal (system-name) "hermes")
+(when is-hermes 
   (setq apollo/default-font-size 110))
 
 (set-face-attribute 'default nil
@@ -187,7 +175,7 @@ Contains the list of packages that need to be installed.")
 						   :v-adjust -0.05
 						   :face 'font-lock-keyword-face))
 
-(load-theme 'doom-ayu-dark t)
+(load-theme 'gruvbox-dark-hard t)
 (doom-modeline-mode 1)
 
 (setq doom-modeline-height 35)
-- 
cgit v1.2.3