trey/XMonad
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Flicker fixed

Browse Source
This commit is contained in:
trey 2018-08-18 09:08:59 -04:00
parent 188b5c7fd4
commit 06a146bba0
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
xmonad.hs
View File

@ -90,7 +90,7 @@ toggleHomeScreens = do
sc <- IS.countScreens
if sc == 1
then do
spawn "xrandr --output DVI-I-21 --off --output DVI-I-3-2 off"
spawn "xrandr --output DVI-I-2-1 --off --output DVI-I-3-2 off"
spawn "while true; do \n\
\~/bin/battery; \n\
\echo -n ' '; \n\
@ -99,36 +99,36 @@ toggleHomeScreens = do
\date \"+%a, %b %d %T\"; \n\
\cal | /usr/bin/sed -E \"s/($(date +%_d)\b)/^fg(green)\1^fg()/\" ; \n\
\sleep 1; \n\
\done | dzen2 -dock -p -x 1670 -w 245 -l 8 -e \"onstart:lower;button1=togglecollapse\" -u -h 24 -ta l -sa c -fg #aaaaaa -bg #000000 -fn Terminus-10 &"
\done | dzen2 -dock -p -x 1670 -w 255 -e \"onstart:lower;button1=togglecollapse\" -u -h 24 -ta l -sa c -fg #aaaaaa -bg #000000 -fn Terminus-10 &"
else if sc == 3
then do
spawn "xrandr --output eDP-1-1 --primary --auto --output DVI-I-2-1 --auto --left-of eDP-1-1 --output DVI-I-3-2 --auto --right-of eDP-1-1"
spawn "xrandr --output eDP-1-1 --primary --auto --output DVI-I-3-2 --auto --left-of eDP-1-1 --output DVI-I-2-1 --auto --right-of eDP-1-1"
-- spawn "xrandr --output eDP-1-1 --primary --auto --output DVI-I-2-1 --auto --left-of eDP-1-1 --output DVI-I-3-2 --auto --right-of eDP-1-1"
spawn "while true; do \n\
\~/bin/battery; \n\
\echo -n ' '; \n\
\echo -n $(cat /tmp/temp); \n\
\echo -n ' '; \n\
\date '+%a, %b %d %T'; \n\
\cal; sleep 1; \n\
\done | dzen2 -dock -p -x 1680 -w 235 -e 'onstart:uncollapse;button1=togglecollapse;button2=togglehide' \n\
\-h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 1 -l 8 &"
\sleep 1; \n\
\done | dzen2 -dock -p -x 1680 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 &"
spawn "while true; do \n\
\~/bin/battery; \n\
\echo -n ' '; \n\
\echo -n $(cat /tmp/temp); \n\
\echo -n ' '; \n\
\date '+%a, %b %d %T'; \n\
\cal; sleep 1; \n\
\done | dzen2 -dock -p -x 3600 -w 235 -e 'onstart:uncollapse;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 1 -l 8 &"
\sleep 1; \n\
\done | dzen2 -dock -p -x 3600 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 &"
spawn "while true; do \n\
\~/bin/battery; \n\
\echo -n ' '; \n\
\echo -n $(cat /tmp/temp); \n\
\echo -n ' '; \n\
\date '+%a, %b %d %T'; \n\
\cal; sleep 1; \n\
\done | dzen2 -dock -p -x 5520 -w 235 -e 'onstart:uncollapse;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 1 -l 8 &"
\sleep 1; \n\
\done | dzen2 -dock -p -x 5520 -w 255 -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 &"
{- spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 1710 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 1 &"
spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 3630 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 0 &"
spawn "while true; do echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; sleep 1; done | dzen2 -dock -p -x 5550 -w 210 -e 'onstart:lower;button2=togglehide' -h 24 -ta r -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 2 &" -}
@ -246,7 +246,7 @@ myStartup :: X ()
myStartup = do
setWMName "LG3D"
toggleHomeScreens
spawn "trayer --edge top --align right --widthtype request --margin 255 --expand true --align right --SetDockType true --SetPartialStrut false --tint 0x000000 --transparent true --alpha 0 --height 24 --monitor 'primary'"
spawn "trayer --edge top --align right --widthtype request --margin 255 --expand false --align right --SetDockType true --SetPartialStrut false --tint 0x000000 --transparent true --alpha 0 --height 24 --monitor 'primary'"
--spawn "gnome-gmail-notifier"
spawn "xset dpms 600"
spawn "xautolock -secure -time 10 -locker 'i3lock -c 000000'"
@ -525,7 +525,7 @@ myKeys = [
[((m .|. winKey, key), screenWorkspace sc >>= flip whenJust (windows . f))
-- | (key, sc) <- zip [xK_w, xK_r] [0..]
-- | (key, sc) <- zip [xK_Left, xK_Right] [0..] -- For arrow keys
| (key, sc) <- zip [xK_w, xK_r] [0..] -- For w,r keys
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] -- For w,r keys
-- | (key, sc) <- zip [xK_w, xK_r] [1,0] -- For w,r keys in backwards order
-- | (key, sc) <- zip [xK_w, xK_r] [1,0] -- For w,r keys in backwards order
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]