xmonad bug fix.

This commit is contained in:
2021-09-22 21:52:26 +09:00
parent c1e5a0de99
commit 8a3bb1adb5
3 changed files with 18 additions and 17 deletions

View File

@ -7,7 +7,7 @@ function run {
fi fi
} }
(sleep 2; run $HOME/.config/polybar/launch.sh) & #(sleep 2; run $HOME/.config/polybar/launch.sh) &
# cursor # cursor
xsetroot -cursor_name left_ptr & 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/polkit-gnome/polkit-gnome-authentication-agent-1 &
/usr/lib/xfce4/notifyd/xfce4-notifyd & /usr/lib/xfce4/notifyd/xfce4-notifyd &
seadrive-gui & 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 &

View File

@ -502,8 +502,7 @@ main = do
-- Launching three instances of xmobar on their monitors. -- Launching three instances of xmobar on their monitors.
-- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd" -- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd"
-- xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc_desktop_fhd" -- 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"
-- xmproc0 <- spawnPipe "polyb
-- the xmonad, ya know...what the WM is named after! -- the xmonad, ya know...what the WM is named after!
xmonad $ ewmh def xmonad $ ewmh def
{ manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks
@ -527,10 +526,10 @@ main = do
, focusedBorderColor = myFocusColor , focusedBorderColor = myFocusColor
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP , logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
-- the following variables beginning with 'pp' are settings for xmobar. -- 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 xmproc1 x -- xmobar on monitor 2
-- >> hPutStrLn xmproc2 x -- xmobar on monitor 3 -- >> 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 , ppVisible = xmobarColor "#c0a79a" "" . wrap "" "" . clickable -- Visible but not current workspace
, ppHidden = xmobarColor "#c0a79a" "" . wrap "" "" . clickable -- Hidden workspaces , ppHidden = xmobarColor "#c0a79a" "" . wrap "" "" . clickable -- Hidden workspaces
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows) , ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows)

View File

@ -525,16 +525,16 @@
-- Launching three instances of xmobar on their monitors. -- Launching three instances of xmobar on their monitors.
-- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd" -- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd"
-- xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc_desktop_fhd" -- 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! -- the xmonad, ya know...what the WM is named after!
xmonad $ ewmh def xmonad $ ewmh def
{ -- manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks
-- Run xmonad commands from command line with "xmonadctl command". Commands include: -- Run xmonad commands from command line with "xmonadctl command". Commands include:
-- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run, -- 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 -- 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. -- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors.
-- To compile xmonadctl: ghc -dynamic xmonadctl.hs -- To compile xmonadctl: ghc -dynamic xmonadctl.hs
handleEventHook = serverModeEventHookCmd , handleEventHook = serverModeEventHookCmd
<+> serverModeEventHook <+> serverModeEventHook
<+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn) <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
<+> docksEventHook <+> docksEventHook
@ -549,10 +549,10 @@
, focusedBorderColor = myFocusColor , focusedBorderColor = myFocusColor
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP , logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
-- the following variables beginning with 'pp' are settings for xmobar. -- 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 xmproc1 x -- xmobar on monitor 2
-- >> hPutStrLn xmproc2 x -- xmobar on monitor 3 -- >> 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 , ppVisible = xmobarColor "#c0a79a" "" . wrap "♼" "" . clickable -- Visible but not current workspace
, ppHidden = xmobarColor "#c0a79a" "" . wrap "○" "" . clickable -- Hidden workspaces , ppHidden = xmobarColor "#c0a79a" "" . wrap "○" "" . clickable -- Hidden workspaces
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows) , ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows)