From 4c15f13f14177488a927af317e3d2a5ceb41aa1e Mon Sep 17 00:00:00 2001
From: Dorian Wood <dorian@threeraccoons.com>
Date: Tue, 30 Mar 2021 10:06:23 -0400
Subject: [PATCH] Fixing doom emacs stuff

---
 dot_config/doom/config.el |  2 --
 dot_config/doom/custom.el | 42 ++++++++++++++++++++++++++++++++++++++-
 dot_config/emacs/init.el  |  4 ++--
 3 files changed, 43 insertions(+), 5 deletions(-)

diff --git a/dot_config/doom/config.el b/dot_config/doom/config.el
index f3eeb0b..41edb6d 100644
--- a/dot_config/doom/config.el
+++ b/dot_config/doom/config.el
@@ -88,7 +88,5 @@
 ;; Set up SLIME for fscking around with LISP
 (load (expand-file-name "~/.quicklisp/slime-helper.el"))
 (setq inferior-lisp-program "sbcl")
-;; Turn off transparency
-(set-frame-parameter (selected-frame) 'alpha '(100 . 50))
 ;; Enable fast copy/move in dired when two windows are open
 (setq dired-dwim-target t)
diff --git a/dot_config/doom/custom.el b/dot_config/doom/custom.el
index 9f6e613..6f2f944 100644
--- a/dot_config/doom/custom.el
+++ b/dot_config/doom/custom.el
@@ -3,15 +3,55 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(compilation-message-face 'default)
+ '(cua-global-mark-cursor-color "#7ec98f")
+ '(cua-normal-cursor-color "#8d8b86")
+ '(cua-overwrite-cursor-color "#e5c06d")
+ '(cua-read-only-cursor-color "#8ac6f2")
+ '(custom-safe-themes
+   '("2809bcb77ad21312897b541134981282dc455ccd7c14d74cc333b6e549b824f3" default))
  '(elfeed-db-directory "~/org/elfeed")
+ '(highlight-changes-colors '("#e5786d" "#834c98"))
+ '(highlight-symbol-colors
+   '("#55204c0039fc" "#3f0a4e4240dc" "#5a2849c746fd" "#3fd2334a42f4" "#426a4d5455d9" "#537247613a13" "#46c549b0535c"))
+ '(highlight-symbol-foreground-color "#999891")
+ '(highlight-tail-colors
+   '(("#2f2f2e" . 0)
+     ("#3d464c" . 20)
+     ("#3b473c" . 30)
+     ("#41434a" . 50)
+     ("#4c4536" . 60)
+     ("#4b4136" . 70)
+     ("#4d3936" . 85)
+     ("#2f2f2e" . 100)))
+ '(hl-bg-colors
+   '("#4c4536" "#4b4136" "#504341" "#4d3936" "#3b313d" "#41434a" "#3b473c" "#3d464c"))
+ '(hl-fg-colors
+   '("#2a2a29" "#2a2a29" "#2a2a29" "#2a2a29" "#2a2a29" "#2a2a29" "#2a2a29" "#2a2a29"))
+ '(hl-paren-colors '("#7ec98f" "#e5c06d" "#a4b5e6" "#834c98" "#8ac6f2"))
+ '(lsp-ui-doc-border "#999891")
+ '(nrepl-message-colors
+   '("#ffb4ac" "#ddaa6f" "#e5c06d" "#3d464c" "#e3eaea" "#41434a" "#7ec98f" "#e5786d" "#834c98"))
  '(org-log-done 'time)
  '(org-log-into-drawer t)
  '(org-log-redeadline 'time)
  '(org-todo-keywords
    '((sequence "TODO(t@/!)" "PROJ(p)" "STRT(s)" "WAIT(w@/!)" "HOLD(h@/!)" "|" "DONE(d@)" "KILL(k@)")
      (sequence "[ ](T@)" "[-](S@/!)" "[?](W/!)" "|" "[X](D@)")))
+ '(pos-tip-background-color "#2f2f2e")
+ '(pos-tip-foreground-color "#999891")
  '(rmh-elfeed-org-files '("~/org/elfeed/elfeed.org"))
- '(w3m-default-display-inline-images t))
+ '(smartrep-mode-line-active-bg (solarized-color-blend "#8ac6f2" "#2f2f2e" 0.2))
+ '(term-default-bg-color "#2a2a29")
+ '(term-default-fg-color "#8d8b86")
+ '(vc-annotate-background-mode nil)
+ '(w3m-default-display-inline-images t)
+ '(weechat-color-list
+   '(unspecified "#2a2a29" "#2f2f2e" "#504341" "#ffb4ac" "#3d464c" "#8ac6f2" "#4c4536" "#e5c06d" "#41434a" "#a4b5e6" "#4d3936" "#e5786d" "#3b473c" "#7ec98f" "#8d8b86" "#74736f"))
+ '(xterm-color-names
+   ["#2f2f2e" "#ffb4ac" "#8ac6f2" "#e5c06d" "#a4b5e6" "#e5786d" "#7ec98f" "#e8e5db"])
+ '(xterm-color-names-bright
+   ["#2a2a29" "#ddaa6f" "#6a6a65" "#74736f" "#8d8b86" "#834c98" "#999891" "#f6f3e8"]))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
diff --git a/dot_config/emacs/init.el b/dot_config/emacs/init.el
index d795797..e98940e 100644
--- a/dot_config/emacs/init.el
+++ b/dot_config/emacs/init.el
@@ -28,8 +28,8 @@
 ;;; License: MIT
 
 ;; Fix shitty transparency
-(set-frame-parameter (selected-frame) 'alpha '(85 . 50))
-(add-to-list 'default-frame-alist '(alpha . (85 . 50)))
+(set-frame-parameter (selected-frame) 'alpha '(100 . 50))
+(add-to-list 'default-frame-alist '(alpha . (100 . 50)))
 
 ;; In the strange case that early-init.el wasn't loaded (e.g. you're using
 ;; Chemacs 1? Or you're loading this file directly?), we do it explicitly: