Xmonad questions

Question

so i got so tired of awesome constantly breaking my config that i switched to xmonad. ive got pretty much everything working the way i like it. just a few things though..
1.)  does anyone have a battery script for xmobar? ive searched and cant find anything
2.)  i want to be able to click my wifi applet in xmobar and it launch urxvt -e wicd-curses. possible?
3.)  in awesome, i had a function to send an application to workspace X or to take it to workspace X with me. is there anyway i can do that with xmonad? heres the lua code for a frame of reference:
-- Take client to tag i
awful.key({ modkey, "Control" }, i,
function ()
if client.focus then
if tags[client.focus.screen][i] then
awful.client.movetotag(tags[client.focus.screen][i])
local screen = mouse.screen
if tags[screen][i] then
awful.tag.viewonly(tags[screen][i])
end
end
end
end),
-- Send client to tag i
awful.key({ modkey, "Shift" }, i,
function ()
if client.focus and tags[client.focus.screen][i] then
awful.client.movetotag(tags[client.focus.screen][i])
end
end),
thanks.

Answer 1

vogt wrote:1) one of the default plugins for xmobar is battery...
PEBCAK
vogt wrote:2) xmobar doesn't provide any ability to respond to clicks afaik. Perhaps it wouldn't be so difficult to add such a feature?
do you know if it supports a popup feature like awesome's naughty?
vogt wrote:
3) The default keybindings M-S-n where n is 1...9 seem to do the first part.
For the second part, you can accomplish this with the following codes, I've also included some stuff for including it with the rest of your config... which probably needs to be adapted:
-- imports you might have to add
import qualified XMonad.StackSet as W
import Data.Monoid
import qualified Data.Map as M
viewShift :: WorkspaceId -> X ()
viewShift ws = windows $ W.greedyView ws . W.shift ws
And then to set up the keybindings for all 1..9 keys the following list comprehension (here you hold you mod4 and controlMask):
shiftFollowKeys :: XConfig Layout -> M.Map (KeyMask,KeySym) (X ())
shiftFollowKeys conf = M.fromList [ ((modMask conf .|. controlMask, k), viewShift $ show n)
| (k,n) <- zip [xK_0 .. xK_9] [1..9] ]
Then you've specified additional keybindings somewhere and you can just append the shiftFollowKeys using the ++ operator, otherwise you can do something like:
main :: IO ()
main = xmonad $ defaultConfig { keys = mconcat [shiftFollowKeys,myKeys,keys defaultConfig] }
Depending if you've defined myKeys and what type it has (that is, if it is a M.Map or a list), you can leave that one out, or you may have to apply a M.fromList somewhere, so do ask if you're having trouble with that part.
thanks a lot. ill try and give it a shot.