emacs: remove transperancy, add gruvbox org theme

1 files changed, 28 insertions, 3 deletions

diff --git a/emacs.org b/emacs.org
index 5b5f935..9aa1e42 100755
--- a/emacs.org
+++ b/emacs.org
@@ -159,8 +159,8 @@ Fonts and basic appearance settings
 #+begin_src emacs-lisp
   (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")
@@ -837,7 +837,32 @@ Hook with ~dired-mode~
 		      :weight 'normal
 		      :height 1.0
 		      :foreground "#A66CFF"))
-
+#+end_src
+*** Gruvbox
+#+begin_src emacs-lisp
+  (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"))
 #+end_src
 ** Settings
 #+begin_src emacs-lisp