From b3371911401f8f591332afb3df4c8c6e1ab8bffb Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Wed, 16 Aug 2023 11:33:28 +0300
Subject: [PATCH] fix(fish): colors

---
 .config/fish/config.fish |  2 +-
 Console.org              | 52 +++++++++++++++++++++-------------------
 2 files changed, 28 insertions(+), 26 deletions(-)

diff --git a/.config/fish/config.fish b/.config/fish/config.fish
index a74d923..4082100 100644
--- a/.config/fish/config.fish
+++ b/.config/fish/config.fish
@@ -57,7 +57,7 @@ set fish_color_error red
 set fish_color_escape yellow
 set fish_color_operator yellow
 set fish_color_param magenta
-set fish_color_quote brwhite
+set fish_color_quote green
 set fish_color_redirection yellow
 # Colors:1 ends here
 
diff --git a/Console.org b/Console.org
index bcf4493..09831d6 100644
--- a/Console.org
+++ b/Console.org
@@ -12,6 +12,32 @@ No matter from which side you approach penguins, more always come from behind
 #+end_quote
 - A friend of mine
 
+
+* Colors
+Noweb function to get colors.
+
+#+NAME: get-color
+#+begin_src emacs-lisp :var name="black" quote=0 :tangle no
+(let ((color (or (my/color-value name))))
+  (if (> quote 0)
+      (concat "\"" color "\"")
+    color))
+#+end_src
+
+#+NAME: get-fg-for-color
+#+begin_src emacs-lisp :var name="black" quote=0 :tangle no
+(let ((val (if (ct-light-p (my/color-value name))
+               (my/color-value 'black)
+             (my/color-value 'white))))
+  (if (eq quote 1)
+      (concat "\"" val "\"")
+    val))
+#+end_src
+
+#+begin_src emacs-lisp :tangle no
+(setq-local org-confirm-babel-evaluate nil)
+#+end_src
+
 * =.profile=
 :PROPERTIES:
 :header-args+: :tangle ./.profile
@@ -522,7 +548,7 @@ set fish_color_error red
 set fish_color_escape yellow
 set fish_color_operator yellow
 set fish_color_param magenta
-set fish_color_quote brwhite
+set fish_color_quote green
 set fish_color_redirection yellow
 #+end_src
 ** Keybindings
@@ -750,30 +776,6 @@ source ~/.tmux.line.conf
 
 [[https://github.com/alacritty/alacritty][Alacritty]] is a GPU-accelerated terminal emulator. I haven't found it to be an inch faster than st, but =yml= configuration is way more convenient than patches.
 
-The application doesn't support XResources, so here goes noweb.
-
-#+NAME: get-color
-#+begin_src emacs-lisp :var name="black" quote=0 :tangle no
-(let ((color (or (my/color-value name))))
-  (if (> quote 0)
-      (concat "\"" color "\"")
-    color))
-#+end_src
-
-#+NAME: get-fg-for-color
-#+begin_src emacs-lisp :var name="black" quote=0 :tangle no
-(let ((val (if (ct-light-p (my/color-value name))
-               (my/color-value 'black)
-             (my/color-value 'white))))
-  (if (eq quote 1)
-      (concat "\"" val "\"")
-    val))
-#+end_src
-
-#+begin_src emacs-lisp :tangle no
-(setq-local org-confirm-babel-evaluate nil)
-#+end_src
-
 References:
 - [[https://github.com/alacritty/alacritty/blob/master/alacritty.yml][default config]]