Fullscreen float for xmonad and adding mail to conky

master
Dustin Swan 12 years ago
parent 863bb8f88f
commit 137acab5c4

16
conky

@ -48,6 +48,20 @@ ${endif}\
${endif}\ ${endif}\
Ñ ^fg(white)${cpu}% \ Ñ ^fg(white)${cpu}% \
# #
# Memory # Memory TODO COLORS!
^fg(\#66aaff)Î ^fg(white)${memperc}% \ ^fg(\#66aaff)Î ^fg(white)${memperc}% \
#
# Mail dustinswan@gmail.com
${if_match ${new_mails /home/dustinswan/.mail/DustinswanGmail/INBOX} == 0}^fg(\#66aaff)\
${else}^fg(\#ff0000)\
${endif}\
Ë ^fg(white)${new_mails /home/dustinswan/.mail/DustinswanGmail/INBOX} \
#
# Mail dswan@iocom.com
${if_match ${new_mails /home/dustinswan/.mail/DswanIOCOM/INBOX} == 0}^fg(\#66aaff)\
${else}^fg(\#ff0000)\
${endif}\
Ë ^fg(white)${new_mails /home/dustinswan/.mail/DswanIOCOM/INBOX} \
#
# Clock
^fg(\#66aaff)É ^fg(white)${time %d %b %R} \ ^fg(\#66aaff)É ^fg(white)${time %d %b %R} \

@ -6,6 +6,7 @@ import qualified Data.Map as M
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen)
import XMonad.Util.Run (spawnPipe) -- for spawnPipe and hPutStrLn import XMonad.Util.Run (spawnPipe) -- for spawnPipe and hPutStrLn
import qualified System.IO import qualified System.IO
@ -24,6 +25,7 @@ myModMask = mod4Mask -- command
myManageHook = composeAll myManageHook = composeAll
[ resource =? "visimeet" --> doFloat [ resource =? "visimeet" --> doFloat
, resource =? "feh" --> doFloat , resource =? "feh" --> doFloat
, isFullscreen --> doFullFloat
] ]
--myWorkspaces = [ "!" , "@" , "#" , "$" , "%", "^^", "&", "*", "(" ] --myWorkspaces = [ "!" , "@" , "#" , "$" , "%", "^^", "&", "*", "(" ]

Loading…
Cancel
Save