From 8a3bb1adb5db7f5649b465cb5a881926330ec75e Mon Sep 17 00:00:00 2001 From: JaeYoo-Im Date: Wed, 22 Sep 2021 21:52:26 +0900 Subject: [PATCH] xmonad bug fix. --- .xmonad/scripts/autostart.sh | 4 +++- .xmonad/xmonad.hs | 21 ++++++++++----------- .xmonad/xmonad.org | 10 +++++----- 3 files changed, 18 insertions(+), 17 deletions(-) diff --git a/.xmonad/scripts/autostart.sh b/.xmonad/scripts/autostart.sh index 12dfc5d..1c78f86 100755 --- a/.xmonad/scripts/autostart.sh +++ b/.xmonad/scripts/autostart.sh @@ -7,7 +7,7 @@ function run { fi } -(sleep 2; run $HOME/.config/polybar/launch.sh) & +#(sleep 2; run $HOME/.config/polybar/launch.sh) & # cursor xsetroot -cursor_name left_ptr & @@ -29,3 +29,5 @@ picom -b --config $HOME/.xmonad/scripts/picom.conf & /usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1 & /usr/lib/xfce4/notifyd/xfce4-notifyd & seadrive-gui & + +trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 0 --transparent true --alpha 0 --tint 0x282c34 --height 24 & diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index d6a7aad..b5d51f9 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -120,14 +120,14 @@ myStartupHook = do --spawnOnce "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 0 --transparent true --alpha 0 --tint 0x282c34 --height 24 &" --spawnOnce "/usr/bin/emacs --daemon &" -- spawnOnce "/usr/bin/emacs --daemon &" -- emacs daemon for the emacsclient - -- spawnOnce "kak -d -s mysession &" -- kakoune daemon for better performance - -- spawnOnce "urxvtd -q -o -f &" -- urxvt daemon for better performance + -- spawnOnce "kak -d -s mysession &" -- kakoune daemon for better performance + -- spawnOnce "urxvtd -q -o -f &" -- urxvt daemon for better performance - --spawnOnce "xargs xwallpaper --stretch < ~/.xwallpaper" -- set last saved with xwallpaper - -- spawnOnce "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch" -- set random xwallpaper - -- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper - -- spawnOnce "feh --randomize --bg-fill ~/wallpapers/*" -- feh set random wallpaper - -- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh + --spawnOnce "xargs xwallpaper --stretch < ~/.xwallpaper" -- set last saved with xwallpaper + -- spawnOnce "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch" -- set random xwallpaper + -- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper + -- spawnOnce "feh --randomize --bg-fill ~/wallpapers/*" -- feh set random wallpaper + -- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh setWMName "LG3D" myColorizer :: Window -> Bool -> X (String, String) @@ -502,8 +502,7 @@ main = do -- Launching three instances of xmobar on their monitors. -- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd" -- xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc_desktop_fhd" - xmproc0 <- spawnPipe "xmobar -x 2 $HOME/.config/xmobar/xmobarrc_labtop_fhd" - -- xmproc0 <- spawnPipe "polyb + xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_labtop_fhd" -- the xmonad, ya know...what the WM is named after! xmonad $ ewmh def { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks @@ -527,10 +526,10 @@ main = do , focusedBorderColor = myFocusColor , logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP -- the following variables beginning with 'pp' are settings for xmobar. - { -- ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1 + { ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1 -- >> hPutStrLn xmproc1 x -- xmobar on monitor 2 -- >> hPutStrLn xmproc2 x -- xmobar on monitor 3 - ppCurrent = xmobarColor "#FFFFFF" "" . wrap "●" "" -- Current workspace + , ppCurrent = xmobarColor "#FFFFFF" "" . wrap "●" "" -- Current workspace , ppVisible = xmobarColor "#c0a79a" "" . wrap "♼" "" . clickable -- Visible but not current workspace , ppHidden = xmobarColor "#c0a79a" "" . wrap "○" "" . clickable -- Hidden workspaces , ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows) diff --git a/.xmonad/xmonad.org b/.xmonad/xmonad.org index c3d9252..3050207 100644 --- a/.xmonad/xmonad.org +++ b/.xmonad/xmonad.org @@ -525,16 +525,16 @@ -- Launching three instances of xmobar on their monitors. -- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd" -- xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc_desktop_fhd" - -- xmproc0 <- spawnPipe "xmobar -x 2 $HOME/.config/xmobar/xmobarrc_labtop_fhd" + xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_labtop_fhd" -- the xmonad, ya know...what the WM is named after! xmonad $ ewmh def - { -- manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks + { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks -- Run xmonad commands from command line with "xmonadctl command". Commands include: -- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run, -- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run -- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors. -- To compile xmonadctl: ghc -dynamic xmonadctl.hs - handleEventHook = serverModeEventHookCmd + , handleEventHook = serverModeEventHookCmd <+> serverModeEventHook <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn) <+> docksEventHook @@ -549,10 +549,10 @@ , focusedBorderColor = myFocusColor , logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP -- the following variables beginning with 'pp' are settings for xmobar. - { --ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1 + { ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1 -- >> hPutStrLn xmproc1 x -- xmobar on monitor 2 -- >> hPutStrLn xmproc2 x -- xmobar on monitor 3 - ppCurrent = xmobarColor "#FFFFFF" "" . wrap "●" "" -- Current workspace + , ppCurrent = xmobarColor "#FFFFFF" "" . wrap "●" "" -- Current workspace , ppVisible = xmobarColor "#c0a79a" "" . wrap "♼" "" . clickable -- Visible but not current workspace , ppHidden = xmobarColor "#c0a79a" "" . wrap "○" "" . clickable -- Hidden workspaces , ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows)