diff --git a/.xmonad/README.org b/.xmonad/README.org
index 977b870..339ef6e 100644
--- a/.xmonad/README.org
+++ b/.xmonad/README.org
@@ -7,7 +7,6 @@
- [[#about-this-config][About This Config]]
- [[#imports][Imports]]
- [[#variables][Variables]]
-- [[#color-scheme][Color Scheme]]
- [[#autostart-the-startup-hook][Autostart (The Startup Hook)]]
- [[#gridselect][Gridselect]]
- [[#scratchpads][Scratchpads]]
@@ -105,6 +104,19 @@ import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.NamedScratchpad
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
import XMonad.Util.SpawnOnce
+
+ -- ColorScheme module (SET ONLY ONE!)
+ -- Possible choice are:
+ -- DoomOne
+ -- Dracula
+ -- GruvboxDark
+ -- MonokaiPro
+ -- Nord
+ -- OceanicNext
+ -- SolarizedDark
+ -- SolarizedLight
+ -- TomorrowNight
+import Colors.DoomOne
#+END_SRC
* Variables
@@ -143,32 +155,6 @@ windowCount :: X (Maybe String)
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
#+END_SRC
-* Color Scheme
-Set the color scheme for xmobar.
-#+begin_src haskell
--- Set the color scheme. The following are valid color schemes:
- -- doom-one
- -- dracula
- -- gruvbox-dark
- -- monokai-pro
- -- nord
- -- oceanic-next
- -- solarized-dark
- -- solarized-light
- -- tomorrow-night
-
-colorScheme :: String
-colorScheme = "doom-one"
-
-colorCurrent01 = "#c792ea"
-colorVisible01 = "#c792ea"
-colorHidden01 = "#82aaff"
-colorHiddenNW01 = "#82aaff"
-colorTitle01 = "#b3afc2"
-colorSep01 = "#b3afc2"
-colorUrgent01 = "#c45500"
-#+end_src
-
* Autostart (The Startup Hook)
These are commands we want XMonad to execute on startup, such as running a compositor, setting our wallpaper, starting the emacs daemon, and starting our system tray and the applications that belong in it.
@@ -656,21 +642,21 @@ main = do
>> hPutStrLn xmproc1 x -- xmobar on monitor 2
>> hPutStrLn xmproc2 x -- xmobar on monitor 3
-- Current workspace
- , ppCurrent = xmobarColor colorCurrent01 "" . wrap
- ("") ""
+ , ppCurrent = xmobarColor color06 "" . wrap
+ ("") ""
-- Visible but not current workspace
- , ppVisible = xmobarColor colorVisible01 "" . clickable
+ , ppVisible = xmobarColor color06 "" . clickable
-- Hidden workspace
- , ppHidden = xmobarColor colorHidden01 "" . wrap
- ("") "" . clickable
+ , ppHidden = xmobarColor color05 "" . wrap
+ ("") "" . clickable
-- Hidden workspaces (no windows)
- , ppHiddenNoWindows = xmobarColor colorHiddenNW01 "" . clickable
+ , ppHiddenNoWindows = xmobarColor color05 "" . clickable
-- Title of active window
- , ppTitle = xmobarColor colorTitle01 "" . shorten 60
+ , ppTitle = xmobarColor color16 "" . shorten 60
-- Separator character
- , ppSep = " | "
+ , ppSep = " | "
-- Urgent workspace
- , ppUrgent = xmobarColor colorUrgent01 "" . wrap "!" "!"
+ , ppUrgent = xmobarColor color02 "" . wrap "!" "!"
-- Adding # of windows on current workspace to the bar
, ppExtras = [windowCount]
-- order of things in xmobar
diff --git a/.xmonad/lib/Colors/DoomOne.hs b/.xmonad/lib/Colors/DoomOne.hs
new file mode 100644
index 0000000..9e26946
--- /dev/null
+++ b/.xmonad/lib/Colors/DoomOne.hs
@@ -0,0 +1,21 @@
+module Colors.DoomOne where
+
+import XMonad
+
+colorScheme = "doom-one"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/Dracula.hs b/.xmonad/lib/Colors/Dracula.hs
new file mode 100644
index 0000000..0c4e661
--- /dev/null
+++ b/.xmonad/lib/Colors/Dracula.hs
@@ -0,0 +1,21 @@
+module Colors.Dracula where
+
+import XMonad
+
+colorScheme = "dracula"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/GruvboxDark.hs b/.xmonad/lib/Colors/GruvboxDark.hs
new file mode 100644
index 0000000..e0c6fac
--- /dev/null
+++ b/.xmonad/lib/Colors/GruvboxDark.hs
@@ -0,0 +1,21 @@
+module Colors.GruvboxDark where
+
+import XMonad
+
+colorScheme = "gruvbox-dark"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/MonokaiPro.hs b/.xmonad/lib/Colors/MonokaiPro.hs
new file mode 100644
index 0000000..29a5ef5
--- /dev/null
+++ b/.xmonad/lib/Colors/MonokaiPro.hs
@@ -0,0 +1,21 @@
+module Colors.MonokaiPro where
+
+import XMonad
+
+colorScheme = "monokai-pro"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/Nord.hs b/.xmonad/lib/Colors/Nord.hs
new file mode 100644
index 0000000..33a4510
--- /dev/null
+++ b/.xmonad/lib/Colors/Nord.hs
@@ -0,0 +1,21 @@
+module Colors.Nord where
+
+import XMonad
+
+colorScheme = "nord"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/OceanicNext.hs b/.xmonad/lib/Colors/OceanicNext.hs
new file mode 100644
index 0000000..4ae177e
--- /dev/null
+++ b/.xmonad/lib/Colors/OceanicNext.hs
@@ -0,0 +1,21 @@
+module Colors.OceanicNext where
+
+import XMonad
+
+colorScheme = "oceanic-next"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/SolarizedDark.hs b/.xmonad/lib/Colors/SolarizedDark.hs
new file mode 100644
index 0000000..21e2dbc
--- /dev/null
+++ b/.xmonad/lib/Colors/SolarizedDark.hs
@@ -0,0 +1,21 @@
+module Colors.SolarizedDark where
+
+import XMonad
+
+colorScheme = "solarized-dark"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/SolarizedLight.hs b/.xmonad/lib/Colors/SolarizedLight.hs
new file mode 100644
index 0000000..a7a54e6
--- /dev/null
+++ b/.xmonad/lib/Colors/SolarizedLight.hs
@@ -0,0 +1,21 @@
+module Colors.SolarizedLight where
+
+import XMonad
+
+colorScheme = "solarized-light"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/lib/Colors/TomorrowNight.hs b/.xmonad/lib/Colors/TomorrowNight.hs
new file mode 100644
index 0000000..65ec832
--- /dev/null
+++ b/.xmonad/lib/Colors/TomorrowNight.hs
@@ -0,0 +1,21 @@
+module Colors.TomorrowNight where
+
+import XMonad
+
+colorScheme = "tomorrow-night"
+color01 = "#1c1f24"
+color02 = "#ff6c6b"
+color03 = "#98be65"
+color04 = "#da8548"
+color05 = "#51afef"
+color06 = "#c678dd"
+color07 = "#5699af"
+color08 = "#202328"
+color09 = "#5b6268"
+color10 = "#da8548"
+color11 = "#4db5bd"
+color12 = "#ecbe7b"
+color13 = "#3071db"
+color14 = "#a9a1e1"
+color15 = "#46d9ff"
+color16 = "#dfdfdf"
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 2914bac..7f4cbad 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -66,6 +66,19 @@ import XMonad.Util.NamedScratchpad
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
import XMonad.Util.SpawnOnce
+ -- ColorScheme module (SET ONLY ONE!)
+ -- Possible choice are:
+ -- doom-one
+ -- dracula
+ -- gruvbox-dark
+ -- monokai-pro
+ -- nord
+ -- oceanic-next
+ -- solarized-dark
+ -- solarized-light
+ -- tomorrow-night
+import Colors.DoomOne
+
myFont :: String
myFont = "xft:SauceCodePro Nerd Font Mono:regular:size=9:antialias=true:hinting=true"
@@ -97,28 +110,6 @@ myFocusColor = "#46d9ff" -- Border color of focused windows
windowCount :: X (Maybe String)
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
--- Set the color scheme. The following are valid color schemes:
- -- doom-one
- -- dracula
- -- gruvbox-dark
- -- monokai-pro
- -- nord
- -- oceanic-next
- -- solarized-dark
- -- solarized-light
- -- tomorrow-night
-
-colorScheme :: String
-colorScheme = "doom-one"
-
-colorCurrent01 = "#c792ea"
-colorVisible01 = "#c792ea"
-colorHidden01 = "#82aaff"
-colorHiddenNW01 = "#82aaff"
-colorTitle01 = "#b3afc2"
-colorSep01 = "#b3afc2"
-colorUrgent01 = "#c45500"
-
myStartupHook :: X ()
myStartupHook = do
spawnOnce "lxsession &"
@@ -537,21 +528,21 @@ main = do
>> hPutStrLn xmproc1 x -- xmobar on monitor 2
>> hPutStrLn xmproc2 x -- xmobar on monitor 3
-- Current workspace
- , ppCurrent = xmobarColor colorCurrent01 "" . wrap
- ("") ""
+ , ppCurrent = xmobarColor color06 "" . wrap
+ ("") ""
-- Visible but not current workspace
- , ppVisible = xmobarColor colorVisible01 "" . clickable
+ , ppVisible = xmobarColor color06 "" . clickable
-- Hidden workspace
- , ppHidden = xmobarColor colorHidden01 "" . wrap
- ("") "" . clickable
+ , ppHidden = xmobarColor color05 "" . wrap
+ ("") "" . clickable
-- Hidden workspaces (no windows)
- , ppHiddenNoWindows = xmobarColor colorHiddenNW01 "" . clickable
+ , ppHiddenNoWindows = xmobarColor color05 "" . clickable
-- Title of active window
- , ppTitle = xmobarColor colorTitle01 "" . shorten 60
+ , ppTitle = xmobarColor color16 "" . shorten 60
-- Separator character
- , ppSep = " | "
+ , ppSep = " | "
-- Urgent workspace
- , ppUrgent = xmobarColor colorUrgent01 "" . wrap "!" "!"
+ , ppUrgent = xmobarColor color02 "" . wrap "!" "!"
-- Adding # of windows on current workspace to the bar
, ppExtras = [windowCount]
-- order of things in xmobar