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

Organized some dmenu code, went back to Xfce4-dict for dictionary app.

Browse Source
This commit is contained in:
trey 2018-08-10 22:27:59 -04:00
parent 8da6c07068
commit 3a673f819e
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
xmonad.hs
View File

@ -104,7 +104,15 @@ toggleHomeScreens = do
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 "while true; do ~/bin/battery; echo -n ' '; echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; cal; sleep 1; done | dzen2 -dock -p -x 1680 -w 235 -e 'onstart:uncollapse;button1=togglecollapse;button2=togglehide' -h 24 -ta l -fg #aaaaaa -bg #000000 -fn Terminus-10 -xs 1 -l 8 &"
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 &"
spawn "while true; do ~/bin/battery; echo -n ' '; echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; cal; sleep 1; 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 &"
spawn "while true; do ~/bin/battery; echo -n ' '; echo -n $(cat /tmp/temp); echo -n ' '; date '+%a, %b %d %T'; cal; sleep 1; 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 &"
{- 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 &"
@ -224,7 +232,7 @@ myStartup :: X ()
myStartup = do
setWMName "LG3D"
toggleHomeScreens
spawn "trayer --edge top --align right --widthtype request --margin 243 --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 true --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'"
@ -348,8 +356,8 @@ myKeys = [
--, ((winKey , xK_i), spawnHere "iceweasel")
--, ((winKey , xK_i), spawnHere "clementine")
, ((winKey , xK_i), ifWindows (className =? "Clementine") (mapM_ killWindow) (spawnHere "clementine"))
--, ((winKey , xK_d), spawnHere "xfce4-dict")
, ((winKey , xK_d), ifWindows (className =? "Gnome-dictionary") (mapM_ killWindow) (spawnHere "gnome-dictionary"))
, ((winKey , xK_d), ifWindows (className =? "Xfce4-dict") (mapM_ killWindow) (spawnHere "xfce4-dict"))
--, ((winKey , xK_d), ifWindows (className =? "Gnome-dictionary") (mapM_ killWindow) (spawnHere "gnome-dictionary"))
, ((winKey , xK_f), spawnHere (myTerminal ++ " -e vifm . ~"))
--, ((winKey , xK_f), spawnHere ("export SHELL=/bin/bash && " ++ myTerminal ++ " -e mc"))
--, ((winKey , xK_e), spawnHere ("export SHELL=/bin/bash && " ++ myTerminal ++ " -e mc")) -- key stroke matches Win+E (from Win7)