emacs: remove transperancy, add gruvbox org theme

1 files changed, 26 insertions, 2 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 8054e0c..63d47e4 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -92,8 +92,8 @@ Contains the list of packages that need to be installed.")
 
 (setq inhibit-startup-message nil)
 ;; Transparency
-(set-frame-parameter (selected-frame) 'alpha '(90 90))
-(add-to-list 'default-frame-alist '(alpha 90 90))
+(set-frame-parameter (selected-frame) 'alpha '(100 100))
+(add-to-list 'default-frame-alist '(alpha 100 100))
 
 (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
 (when (equal (system-name) "hephaestus")
@@ -731,6 +731,30 @@ you have the correctly set the OPENAI_API_KEY variable"
 		      :height 1.0
 		      :foreground "#A66CFF"))
 
+(defun apollo/org-theme-gruvbox ()
+  "Enable Darkone theme for Org headers."
+  (interactive)
+  (dolist
+      (face
+       '((org-level-1 1.70 "#fb4934" bold)
+	 (org-level-2 1.55 "#98971a" bold)
+	 (org-level-3 1.40 "#458588" bold)
+	 (org-level-4 1.20 "#b16286" semi-bold)
+	 (org-level-5 1.20 "#689d6a" normal)
+	 (org-level-6 1.20 "#d3869b" normal)
+	 (org-level-7 1.10 "#8ec07c" normal)
+	 (org-level-8 1.00 "#ebdbb2" normal)))
+    (set-face-attribute (nth 0 face) nil
+			:font "Jetbrains Mono"
+			:weight (nth 3 face)
+			:height (nth 1 face)
+			:foreground (nth 2 face)))
+  (set-face-attribute 'org-table nil
+		      :font "Jetbrains Mono"
+		      :weight 'normal
+		      :height 1.0
+		      :foreground "#A66CFF"))
+
 (require 'ox-md nil t)
 
 (setq org-directory "~/org/"