<div dir="ltr">I think I found a good example here: <a href="https://wiki.archlinux.org/index.php/xmonad">https://wiki.archlinux.org/index.php/xmonad</a><div><br></div><div>Thank you kindly for your help.</div><div><br></div>
<div><pre style="padding:0.8em 1em 1em;border-width:1px;border-style:dashed solid solid;border-color:rgb(187,204,221);line-height:1.1em;overflow:auto;margin-top:0px;background-color:rgb(235,241,245)">-- Imports.
import XMonad
import XMonad.Hooks.DynamicLog
-- The main function.
main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
-- Command to launch the bar.
myBar = "xmobar"
-- Custom PP, configure it as you like. It determines what is being written to the bar.
myPP = xmobarPP { ppCurrent = xmobarColor "#429942" "" . wrap "<" ">" }
-- Key binding to toggle the gap for the bar.
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
-- Main configuration, override the defaults to your liking.
myConfig = defaultConfig { modMask = mod4Mask }</pre></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Sun, May 4, 2014 at 11:59 PM, Eyal Erez <span dir="ltr"><<a href="mailto:oneself@gmail.com" target="_blank">oneself@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hi,<div><br></div><div>Thank you very much for your help.</div><div><br></div><div>Would you mind posting an example of how I might use statusBar? I'm kind of a Haskell newb.</div>
</div><div class="gmail_extra"><div><div class="h5">
<br><br><div class="gmail_quote">On Sun, May 4, 2014 at 4:58 PM, Brandon Allbery <span dir="ltr"><<a href="mailto:allbery.b@gmail.com" target="_blank">allbery.b@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="gmail_extra"><div><div class="gmail_quote">On Sun, May 4, 2014 at 2:49 PM, Eyal Erez <span dir="ltr"><<a href="mailto:oneself@gmail.com" target="_blank">oneself@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<div>To this:</div><div><div><font face="courier new, monospace">main = xmonad =<< xmobar defaultConfig</font></div><div><font face="courier new, monospace"> { -- no logHook defined</font></div></div>
<div>
<font face="courier new, monospace"> -- Other definitions.</font></div><div><font face="courier new, monospace"> }</font></div><div><br></div><div>This works fine, but now for some reason, Alt-B is bound to ToggleStruts. I would like this to be Ctrl-Shift-B, and I have a key binding which adds the second one, but I can't seem to get rid of the first.</div>
<div><br></div><div>How can I unbind Alt-B, and where is it coming from?</div><span><font color="#888888"><div></div></font></span></blockquote></div><br></div>It's coming from the xmobar combinator applied to defaultConfig:</div>
<div class="gmail_extra"><br></div><div class="gmail_extra"><pre style="color:rgb(0,0,0)"><span> xmobar</span> <span>conf</span> <span style="color:red">=</span> <span>statusBar</span> <span style="color:teal">"xmobar"</span> <span>xmobarPP</span> <span>toggleStrutsKey</span> <span>conf</span>
</pre><div><span><br></span></div><div><span>(see <a href="http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Hooks-DynamicLog.html#v:xmobar" target="_blank">http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Hooks-DynamicLog.html#v:xmobar</a>)</span></div>
<br clear="all"><div>If you want to replace toggleStrutsKey then you will need to use your own invocation of statusBar.</div><div><br></div><div><pre style="color:rgb(0,0,0)"><span style="color:green"> -- |</span>
<a name="145ca898a85d1290_145c907df8902754_line-231"></a><span style="color:green"> -- Helper function which provides ToggleStruts keybinding</span>
<a name="145ca898a85d1290_145c907df8902754_line-232"></a><span style="color:green"> --</span>
<a name="145ca898a85d1290_145c907df8902754_line-233"></a><span> toggleStrutsKey</span> <span style="color:red">::</span> <span>XConfig</span> <span>t</span> <span style="color:red">-></span> <span style="color:red">(</span><span>KeyMask</span><span style="color:red">,</span> <span>KeySym</span><span style="color:red">)</span>
<a name="145ca898a85d1290_145c907df8902754_line-234"></a><span> toggleStrutsKey</span> <span>XConfig</span><span style="color:red">{</span><span>modMask</span> <span style="color:red">=</span> <span>modm</span><span style="color:red">}</span> <span style="color:red">=</span> <span style="color:red">(</span><span>modm</span><span style="color:red">,</span> <span>xK_b</span> <span style="color:red">)</span><span><font color="#888888">
</font></span></pre></div><span><font color="#888888"><div><br></div>-- <br><div dir="ltr"><div>brandon s allbery kf8nh sine nomine associates</div><div><a href="mailto:allbery.b@gmail.com" target="_blank">allbery.b@gmail.com</a> <a href="mailto:ballbery@sinenomine.net" target="_blank">ballbery@sinenomine.net</a></div>
<div>unix, openafs, kerberos, infrastructure, xmonad <a href="http://sinenomine.net" target="_blank">http://sinenomine.net</a></div></div>
</font></span></div></div>
</blockquote></div><br><br clear="all"><div><br></div></div></div><div class="">-- <br><div dir="ltr"><font face="'courier new', monospace"><b>Eyal Erez <</b><a href="mailto:oneself@gmail.com" target="_blank"><b>oneself@gmail.com</b></a><b>></b><br>
<br></font><div><div><font face="'courier new', monospace">There are 10 types of people, those who know binary and those who don't.</font></div></div><div><font face="'courier new', monospace"><br></font></div>
</div>
</div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div dir="ltr"><font face="'courier new', monospace"><b>Eyal Erez <</b><a href="mailto:oneself@gmail.com" target="_blank"><b>oneself@gmail.com</b></a><b>></b><br>
<br></font><div><div><font face="'courier new', monospace">There are 10 types of people, those who know binary and those who don't.</font></div></div><div><font face="'courier new', monospace"><br></font></div>
</div>
</div>