diff --git a/configs/xmonad/build b/configs/xmonad/build
index a7351da..682f56d 100755
--- a/configs/xmonad/build
+++ b/configs/xmonad/build
@@ -1,7 +1,8 @@
#!/bin/sh
+PATH="$HOME"/.ghcup/bin:"$PATH"
# Recompile
-cd "$XMONAD_CONFIG_DIR" && stack-bin install || exit
+cd "$XMONAD_CONFIG_DIR" && stack install || exit
# Create a hard link at the requested destination, replacing any existing one.
-ln -f -T "$(stack-bin exec -- which xmonad)" "$1"
+ln -f -T "$(stack exec -- which xmonad)" "$1"
diff --git a/configs/xmonad/icons/floating.xpm b/configs/xmonad/icons/floating.xpm
index 581a0f2..173154a 100644
--- a/configs/xmonad/icons/floating.xpm
+++ b/configs/xmonad/icons/floating.xpm
@@ -1,7 +1,7 @@
/* XPM */
static char * floating_xpm[] = {
"20 20 3 1",
-" c #113844",
+" c #292552",
". c #B6BDCA",
"+ c #ABB2BF",
" ",
diff --git a/configs/xmonad/icons/full.xpm b/configs/xmonad/icons/full.xpm
index 5de9075..355108b 100644
--- a/configs/xmonad/icons/full.xpm
+++ b/configs/xmonad/icons/full.xpm
@@ -1,7 +1,7 @@
/* XPM */
static char * full_xpm[] = {
"20 20 2 1",
-" c #113844",
+" c #292552",
". c #ABB2BF",
" ",
" ",
diff --git a/configs/xmonad/icons/mirrortiled.xpm b/configs/xmonad/icons/mirrortiled.xpm
index 8fb810f..6961ed7 100644
--- a/configs/xmonad/icons/mirrortiled.xpm
+++ b/configs/xmonad/icons/mirrortiled.xpm
@@ -1,7 +1,7 @@
/* XPM */
static char * mirrortiled_xpm[] = {
"20 20 2 1",
-" c #113844",
+" c #292552",
". c #ABB2BF",
" ",
" ",
diff --git a/configs/xmonad/icons/tiled.xpm b/configs/xmonad/icons/tiled.xpm
index 4a50038..aa04519 100644
--- a/configs/xmonad/icons/tiled.xpm
+++ b/configs/xmonad/icons/tiled.xpm
@@ -1,7 +1,7 @@
/* XPM */
static char * tiled_xpm[] = {
"20 20 2 1",
-" c #113844",
+" c #292552",
". c #ABB2BF",
" ",
" ",
diff --git a/configs/xmonad/scripts/volume.sh b/configs/xmonad/scripts/volume.sh
index c32d404..eb45e92 100755
--- a/configs/xmonad/scripts/volume.sh
+++ b/configs/xmonad/scripts/volume.sh
@@ -6,7 +6,7 @@ VOLUME=${VOLUME:-$(pactl get-sink-volume @DEFAULT_SINK@ | awk '{print $5}' | sed
if [[ "${MUTE}" = "yes" ]] ; then
echo ""
elif [[ "${MUTE}" = "no" ]] && [[ "${VOLUME}" -eq 0 ]] ; then
- echo "${VOLUME}%"
+ echo "${VOLUME}"
elif [[ "${MUTE}" = "no" ]] && [[ "${VOLUME}" -gt 0 ]] ; then
- echo "${VOLUME}%"
+ echo "${VOLUME}"
fi
diff --git a/configs/xmonad/src/main.hs b/configs/xmonad/src/main.hs
index ea31163..92f6658 100644
--- a/configs/xmonad/src/main.hs
+++ b/configs/xmonad/src/main.hs
@@ -55,7 +55,6 @@ main =
. fullscreenSupport
. ewmh
. Hacks.javaHack
- -- . withEasySB xmobar2 toggleSB
. withEasySB xmobar toggleSB
. withSB xmobar2
$ myConfig
@@ -75,12 +74,12 @@ myLauncher :: String
myLauncher = myHomeDir ++ "/.config/rofi/launchers/type-6/launcher.sh"
-- Default Launcher
-myWinSwitch :: String
-myWinSwitch = myHomeDir ++ "/.config/rofi/launchers/type-6/tab.sh"
+-- myWinSwitch :: String
+-- myWinSwitch = myHomeDir ++ "/.config/rofi/launchers/type-6/tab.sh"
-- Default Launcher
myFileManager :: String
-myFileManager = "thunar"
+myFileManager = "kitty -e ranger"
-- Default Browser
myBrowser :: String
@@ -158,7 +157,7 @@ myAdditionalKeys =
("M-", sendMessage NextLayout),
("M-n", refresh),
("M-S-q", io exitSuccess),
- ("C-S-r", spawn "xmonad --recompile && pkill xmobar2 && pkill xmobar && xmonad --restart"),
+ ("C-S-r", spawn "xmonad --recompile && killall xmobar2 ; killall xmobar ; xmonad --restart"),
("C-S-q", spawn "pkill -KILL -u $USER")
]
-- Window management keybinds.
@@ -192,7 +191,7 @@ myAdditionalKeys =
("C-", unGrab *> spawn screenShotApp),
("", spawn screenShotFullscreen),
("M-S-", spawn myLauncher),
- ("M1-", spawn myWinSwitch),
+ -- ("M1-", spawn myWinSwitch),
("M-e", spawn myFileManager)
]
-- Multimedia keybinds.
@@ -227,19 +226,19 @@ myStartupHook = do
spawnOnce
[ "sh ~/scripts/screenlayout.sh",
"nitrogen --restore &",
+ -- "sh ~/scripts/wallpaper.sh",
"touch ~/tmp/touchy && rm -rf ~/tmp/*",
- myHomeDir ++ "/.local/bin/picom-jonaburg -b --experimental-backends &",
+ myHomeDir ++ "/.local/bin/picom-pijulius -b --experimental-backends &",
"nm-applet &",
-- "picom",
- "xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Profile Enabled' 0, 1 && xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Speed' 0.1",
+ "xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Profile Enabled' 0, 1 && xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Speed' 0.5",
"setxkbmap -option ctrl:nocaps br abnt2",
"nm-applet",
- "trayer-srg -l --edge top --align right --SetDockType true --SetPartialStrut true --expand true --widthtype request --tint 0x002b36 --height 30 --distance 15 --margin 10 --alpha 0 --monitor 0 --transparent true",
- "mpd &",
+ "trayer-srg --edge top --align right --SetDockType true --SetPartialStrut true --expand true --widthtype request --tint 0x2F2F2F --height 25 --distance 0 --margin 0 --alpha 0 --monitor 0 --transparent true",
"dunst &",
"lxqt-policykit-agent &",
"xrdb -load ~/.Xresources",
- "redshift -t 5700:3600 -l -23.5475:-46.63611 -b 0.9:0.7"
+ "redshift -t 4500:2500 -l -23.5475:-46.63611 -b 0.9:0.6"
]
setDefaultCursor xC_left_ptr
setWMName "zmonad"
@@ -361,6 +360,7 @@ myManageHook = manageRules
className =? "steam_app_1551360" <&&> title /=? "Forza Horizon 5" --> doHide, -- Prevents black screen when fullscreening.
className =?? "league" --> doShift "gfx" <> doCenterFloat <> hasBorder False,
className =?? "riot" --> doShift "gfx" <> doCenterFloat <> hasBorder False,
+ className =?? "csgo" --> doShift "gfx" <> doCenterFloat <> hasBorder False,
className =? "gamescope" --> doShift "gfx" <> doCenterFloat <> hasBorder False,
title =? "Wine System Tray" --> doHide, -- Prevents Wine System Trays from taking input focus.
className =?? "steam_" --> doShift "gfx" <> hasBorder False
@@ -391,17 +391,18 @@ myXmobarPP =
clickablePP $
filterOutWsPP ["NSP"] $
def
- { ppCurrent = xmobarColor "#d5d5d5" "" . xmobarFont 5 . wrap "[" "]",
- ppVisibleNoWindows = Just (xmobarColor "#71bec0" ""),
- ppHidden = xmobarColor "#558c8e" "",
- ppHiddenNoWindows = xmobarColor "#595959" "",
- ppUrgent = xmobarColor "#F7768E" "" . wrap "!" "!",
- ppTitle = xmobarColor "#d5d5d5" "" . shorten 49,
+ { ppCurrent = xmobarColor "#ece1d7" "" . xmobarBorder "Bottom" "#89b3b6" 2,
+ ppVisible = xmobarColor "#A0A0A0" "" . xmobarBorder "Bottom" "#78997a" 2,
+ ppVisibleNoWindows = Just (xmobarBorder "Bottom" "#78997a" 2 . xmobarColor "#A0A0A0" ""),
+ ppHidden = xmobarColor "#c1a78e" "" . xmobarBorder "Top" "#f0c674" 2,
+ ppHiddenNoWindows = xmobarColor "#c1a78e" "",
+ ppUrgent = xmobarColor "#D47786" "" . wrap "!" "!",
+ ppTitle = xmobarColor "#ece1d7" "" . shorten 40,
ppSep = wrapSep " ",
ppTitleSanitize = xmobarStrip,
- ppWsSep = xmobarColor "" "#002b36" " ",
+ ppWsSep = " ",
ppLayout =
- xmobarColor "#002b36" ""
+ xmobarColor "#292522" ""
. ( \case
"Spacing Tall" -> ""
"Spacing Mirror Tall" -> ""
@@ -414,8 +415,8 @@ myXmobarPP =
wrapSep :: String -> String
wrapSep =
wrap
- (xmobarColor "#002b36" "#002b36:7" (xmobarFont 2 "\xe0b4"))
- (xmobarColor "#002b36" "#002b36:7" (xmobarFont 2 "\xe0b6"))
+ (xmobarColor "#292522" "#292522" (xmobarFont 2 "\xe0b4"))
+ (xmobarColor "#292522" "#292522" (xmobarFont 2 "\xe0b6"))
myXmobar :: String
myXmobar = (myHomeDir ++ "/.local/bin/xmobar " ++ myHomeDir ++ "/.config/xmonad/src/xmobar.hs")
diff --git a/configs/xmonad/src/pretty-good-xmobar.hs b/configs/xmonad/src/pretty-good-xmobar.hs
new file mode 100644
index 0000000..c303cb5
--- /dev/null
+++ b/configs/xmonad/src/pretty-good-xmobar.hs
@@ -0,0 +1,102 @@
+import System.Environment
+import System.IO.Unsafe (unsafeDupablePerformIO)
+import Xmobar
+
+main :: IO ()
+main = xmobar =<< configFromArgs =<< myConfig
+
+-- main = xmobar =<< myConfig
+
+myHomeDir :: String
+myHomeDir = unsafeDupablePerformIO (getEnv "HOME")
+
+myConfig :: IO Config
+myConfig =
+ do
+ pure
+ baseConfig
+ { template =
+ concat $
+ [ " \xe0b6\
+ \\xf30d \
+ \\xe0b4 "
+ ]
+ <> ["@UnsafeXMonadLog@}"]
+ <> [ "\xe0b6\
+ \\xf001 \
+ \@music@\
+ \\xe0b4{"
+ ]
+ <> [ "\xe0b6\
+ \\xf2db \
+ \CPU: @cpu@%\
+ \\xe0b4 "
+ ]
+ <> [ "\xe0b6\
+ \\xf538 \
+ \Mem: @memory@% \
+ \\xe0b4 "
+ ]
+ <> [ "\xe0b6\
+ \@volicon@\
+ \@vol@\
+ \\xe0b4 "
+ ]
+ <> [ "\xe0b6\
+ \\xf017 \
+ \@date@\
+ \\xe0b4 "
+ ]
+ <> ["@_XMONAD_TRAYPAD@"],
+ commands = myCommands
+ }
+
+myCommands :: [Runnable]
+myCommands =
+ [ Run UnsafeXMonadLog,
+ Run $ Com (myHomeDir <> "/.config/xmonad/scripts/volume.sh") ["vol"] "vol" 100,
+ Run $ Com (myHomeDir <> "/.config/xmonad/scripts/volumeicon.sh") ["volicon"] "volicon" 100,
+ Run $ Date "%-l:%M %p" "date" 600,
+ Run $ Cpu ["-t", "", "-f", ":", "-H", "75", "-L", "25", "-h", "#56B6C2", "-n", "#4797a1", "-l", "#3a7b83"] 100,
+ Run $ Memory ["-t", "", "-f", ":", "-H", "75", "-L", "25", "-h", "#c678dd", "-n", "#9f60b1", "-l", "#855094"] 100,
+ -- , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/gputemp.sh") ["gpu"] "gpu" 5
+ Run $ XPropertyLog "_XMONAD_TRAYPAD",
+ Run $ Com (myHomeDir <> "/.config/xmonad/scripts/mpd.sh") ["music"] "music" 100
+ -- , Run $ Com (myHomeDir <> "/.config/xmonad/src/trayer-padding.sh") ["trayer"] "trayer" 50
+ -- , Run $ MPD ["-h", "127.0.0.1", "-p", "6600", "-t", "