https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/TTimo_xmonad.hs&feed=atom&action=history
Xmonad/Config archive/TTimo xmonad.hs - Revision history
2024-03-19T13:04:53Z
Revision history for this page on the wiki
MediaWiki 1.35.5
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/TTimo_xmonad.hs&diff=38730&oldid=prev
TTimo: New page: xmonad.hs: <haskell> import XMonad import XMonad.Hooks.DynamicLog import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers import XMonad.Layout.NoBorders import XMonad.Layout.Gap...
2011-02-13T03:27:18Z
<p>New page: xmonad.hs: <haskell> import XMonad import XMonad.Hooks.DynamicLog import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers import XMonad.Layout.NoBorders import XMonad.Layout.Gap...</p>
<p><b>New page</b></p><div>xmonad.hs:<br />
<br />
<haskell><br />
import XMonad<br />
import XMonad.Hooks.DynamicLog<br />
import XMonad.Hooks.ManageDocks<br />
import XMonad.Hooks.ManageHelpers<br />
import XMonad.Layout.NoBorders<br />
import XMonad.Layout.Gaps<br />
import XMonad.Util.Run(spawnPipe)<br />
import XMonad.Util.EZConfig(additionalKeys)<br />
import System.IO<br />
<br />
-- NOTES: 0.10 works much better than 0.9, unfortunately distros mostly package 0.9 atm<br />
-- xmobar and fullscreen flash vids (youtube): http://code.google.com/p/xmobar/issues/detail?id=41<br />
<br />
-- TODO: would still like fullscreen flash vids to not crop and leave xmobar drawn<br />
-- TODO: remove the red border when doing fullscreen? tried adding 'smartBorders' to the layoutHook but that didn't work<br />
-- TODO: hook in TopicSpaces, start specific apps on specific workspaces<br />
<br />
main = do<br />
xmproc <- spawnPipe "/usr/bin/xmobar /home/timo/.xmonad/xmobarrc"<br />
xmonad defaultConfig {<br />
modMask = mod4Mask, <br />
terminal = "urxvt",<br />
-- if you are using xmonad 0.9, you can avoid web flash videos getting cropped in fullscreen like so:<br />
-- manageHook = ( isFullscreen --> doFullFloat ) <+> manageDocks <+> manageHook defaultConfig,<br />
-- (no longer needed in 0.10)<br />
manageHook = manageDocks <+> manageHook defaultConfig,<br />
layoutHook = avoidStruts $ layoutHook defaultConfig,<br />
logHook = dynamicLogWithPP $ xmobarPP<br />
{ ppOutput = hPutStrLn xmproc,<br />
ppTitle = xmobarColor "green" "" . shorten 50<br />
}<br />
}<br />
</haskell><br />
<br />
xmobarrc:<br />
<br />
<haskell><br />
Config {<br />
font = "xft:Monospace:pixelsize=11",<br />
-- used to make the bar appear correctly after Mod-q in older xmonad implementations (0.9.x)<br />
-- doesn't seem to do anything anymore (0.10, darcs)<br />
-- lowerOnStart = False,<br />
commands = [<br />
-- Addison, TX<br />
Run Weather "KADS" ["-t"," <tempF>F","-L","64","-H","77","--normal","green","--high","red","--low","lightblue"] 36000,<br />
Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10,<br />
Run Memory ["-t","Mem: <usedratio>%"] 10,<br />
Run Swap [] 10,<br />
Run Date "%a %b %_d %l:%M" "date" 10,<br />
Run Network "ra0" [] 10,<br />
Run StdinReader<br />
]<br />
, sepChar = "%"<br />
, alignSep = "}{"<br />
, template = "%StdinReader% }{ %ra0% | %cpu% | %memory% * %swap% <fc=#ee9a00>%date%</fc> | %KADS%"<br />
}<br />
</haskell></div>
TTimo