https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/enko%27s_xmonad.hs&feed=atom&action=history
Xmonad/Config archive/enko's xmonad.hs - Revision history
2024-03-19T12:36:38Z
Revision history for this page on the wiki
MediaWiki 1.35.5
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/enko%27s_xmonad.hs&diff=42361&oldid=prev
Sereven: liftM from C.Monad not Monad
2011-10-09T02:07:18Z
<p>liftM from C.Monad not Monad</p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 02:07, 9 October 2011</td>
</tr><tr>
<td colspan="2" class="diff-lineno">Line 32:</td>
<td colspan="2" class="diff-lineno">Line 32:</td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Hooks.DynamicLog hiding (shorten)</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Hooks.DynamicLog hiding (shorten)</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Actions.UpdatePointer</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Actions.UpdatePointer</div></td>
</tr>
<tr>
<td class="diff-marker">−</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>import Monad (liftM)</div></td>
<td colspan="2" class="diff-empty"> </td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Core</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Core</div></td>
</tr>
</table>
Sereven
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/enko%27s_xmonad.hs&diff=33752&oldid=prev
Newacct at 11:04, 21 February 2010
2010-02-21T11:04:41Z
<p></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 11:04, 21 February 2010</td>
</tr><tr>
<td colspan="2" class="diff-lineno">Line 85:</td>
<td colspan="2" class="diff-lineno">Line 85:</td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> _ -> x</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> _ -> x</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> ++ "</fc> "</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> ++ "</fc> "</div></td>
</tr>
<tr>
<td class="diff-marker">−</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> , ppTitle = \x -> <del class="diffchange diffchange-inline">case</del> <del class="diffchange diffchange-inline">length</del> x<del class="diffchange diffchange-inline"> of</del></div></td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> , ppTitle = \x -> <ins class="diffchange diffchange-inline">if</ins> <ins class="diffchange diffchange-inline">null</ins> x</div></td>
</tr>
<tr>
<td class="diff-marker">−</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <del class="diffchange diffchange-inline">0 -></del> ""</div></td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <ins class="diffchange diffchange-inline">then</ins> ""</div></td>
</tr>
<tr>
<td class="diff-marker">−</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> <del class="diffchange diffchange-inline">_ -></del> "<fc=DarkSlateGray3,black>[" ++ shorten 83 x ++ "]</fc>"</div></td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> <ins class="diffchange diffchange-inline">else</ins> "<fc=DarkSlateGray3,black>[" ++ shorten 83 x ++ "]</fc>"</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , ppHidden = wrap "<fc=#aaa,black> " " </fc>"</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , ppHidden = wrap "<fc=#aaa,black> " " </fc>"</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , ppOutput = hPutStrLn h</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , ppOutput = hPutStrLn h</div></td>
</tr>
</table>
Newacct
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/enko%27s_xmonad.hs&diff=23575&oldid=prev
Enko: added haskell tags
2008-10-20T19:11:56Z
<p>added haskell tags</p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 19:11, 20 October 2008</td>
</tr><tr>
<td colspan="2" class="diff-lineno">Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td>
</tr>
<tr>
<td class="diff-marker">−</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">[</del>haskell<del class="diffchange diffchange-inline">]</del></div></td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline"><</ins>haskell<ins class="diffchange diffchange-inline">></ins></div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Layout</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Layout</div></td>
</tr>
<tr>
<td colspan="2" class="diff-lineno">Line 181:</td>
<td colspan="2" class="diff-lineno">Line 181:</td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , manageHook = myManageHook</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , manageHook = myManageHook</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> }</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> }</div></td>
</tr>
<tr>
<td class="diff-marker">−</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">[</del>/haskell<del class="diffchange diffchange-inline">]</del></div></td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline"><</ins>/haskell<ins class="diffchange diffchange-inline">></ins></div></td>
</tr>
</table>
Enko
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/enko%27s_xmonad.hs&diff=23574&oldid=prev
Enko at 19:11, 20 October 2008
2008-10-20T19:11:18Z
<p></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 19:11, 20 October 2008</td>
</tr><tr>
<td colspan="2" class="diff-lineno">Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td>
</tr>
<tr>
<td colspan="2" class="diff-empty"> </td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[haskell]</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Layout</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>import XMonad.Layout</div></td>
</tr>
<tr>
<td colspan="2" class="diff-lineno">Line 180:</td>
<td colspan="2" class="diff-lineno">Line 181:</td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , manageHook = myManageHook</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> , manageHook = myManageHook</div></td>
</tr>
<tr>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> }</div></td>
<td class="diff-marker"> </td>
<td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> }</div></td>
</tr>
<tr>
<td colspan="2" class="diff-empty"> </td>
<td class="diff-marker">+</td>
<td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[/haskell]</div></td>
</tr>
<!-- diff cache key wikidb_haskell:diff:wikidiff2:1.12:old-23573:rev-23574:1.10.0 -->
</table>
Enko
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/enko%27s_xmonad.hs&diff=23573&oldid=prev
Enko: enkos config added
2008-10-20T19:10:51Z
<p>enkos config added</p>
<p><b>New page</b></p><div>import XMonad<br />
import XMonad.Layout<br />
import XMonad.Layout.NoBorders (noBorders)<br />
import XMonad.Layout.PerWorkspace<br />
import XMonad.Layout.LayoutHints<br />
import XMonad.Layout.ThreeColumns<br />
import XMonad.Operations<br />
import XMonad.ManageHook<br />
import qualified XMonad.StackSet as W<br />
import Data.Bits ((.|.))<br />
import qualified Data.Map as M<br />
import System.Exit<br />
import Graphics.X11.Xlib<br />
import XMonad.Actions.Submap<br />
import XMonad.Prompt<br />
import XMonad.Prompt.Shell<br />
import XMonad.Layout.Spiral<br />
import Data.Ratio<br />
import XMonad.Actions.DynamicWorkspaces<br />
import XMonad.Actions.CycleWS<br />
import XMonad.Prompt.Window<br />
import XMonad.Prompt.Workspace<br />
import XMonad.Prompt.XMonad<br />
import XMonad.Actions.FindEmptyWorkspace<br />
import XMonad.Hooks.UrgencyHook<br />
import XMonad.Util.Run (spawnPipe)<br />
import System.IO (hPutStrLn)<br />
import Control.Monad<br />
import XMonad.Hooks.ManageDocks<br />
import XMonad.Hooks.EwmhDesktops<br />
import XMonad.Hooks.DynamicLog hiding (shorten)<br />
import XMonad.Actions.UpdatePointer<br />
import Monad (liftM)<br />
import XMonad<br />
import XMonad.Core<br />
import System.Exit<br />
import qualified XMonad.StackSet as W<br />
import qualified Data.Map as M<br />
import XMonad.Layout.Tabbed<br />
import XMonad.Layout.ResizableTile<br />
import XMonad.Layout.Grid<br />
import XMonad.Layout.Magnifier<br />
import XMonad.Layout.TabBarDecoration<br />
import XMonad.Hooks.DynamicLog hiding (shorten)<br />
import XMonad.Actions.CycleWS<br />
import XMonad.Hooks.ManageDocks<br />
import XMonad.Hooks.EwmhDesktops<br />
import XMonad.Actions.DwmPromote<br />
import XMonad.Actions.UpdatePointer<br />
import XMonad.Hooks.UrgencyHook<br />
import XMonad.Util.Run (spawnPipe)<br />
import System.IO <br />
import XMonad.Prompt<br />
import XMonad.Prompt.Shell<br />
import XMonad.Util.WorkspaceCompare<br />
import XMonad.Util.EZConfig<br />
import XMonad.Actions.Warp<br />
import Data.Ratio<br />
import XMonad.Layout.Circle<br />
<br />
<br />
shorten :: Int -> String -> String<br />
shorten n xs | length xs < n = xs<br />
| otherwise = (take (n - length end) xs) ++ end<br />
where<br />
end = "..."<br />
<br />
<br />
<br />
myLogHook h = do<br />
dynamicLogWithPP $ oxyPP h <br />
<br />
oxyPP :: Handle -> PP<br />
oxyPP h = defaultPP { ppCurrent = wrap "<fc=black,aquamarine3> " " </fc>" <br />
, ppSep = ""<br />
, ppWsSep = ""<br />
, ppVisible = wrap "<fc=black,DarkSlateGray4> " " </fc>" <br />
, ppLayout = \x -> "<fc=aquamarine2,black>:: "<br />
++ case x of<br />
"Mirror ResizableTall" -> "MTiled"<br />
"ResizableTall" -> "Tiled"<br />
"Tabbed Bottom Simplest" -> "Tabbed"<br />
"Tabbed Simplest" -> "Tabbed"<br />
_ -> x<br />
++ "</fc> "<br />
, ppTitle = \x -> case length x of<br />
0 -> ""<br />
_ -> "<fc=DarkSlateGray3,black>[" ++ shorten 83 x ++ "]</fc>"<br />
, ppHidden = wrap "<fc=#aaa,black> " " </fc>"<br />
, ppOutput = hPutStrLn h<br />
}<br />
<br />
<br />
<br />
mykeys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())<br />
mykeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $<br />
-- launching and killing programs<br />
[ <br />
((mod4Mask .|. shiftMask, xK_Return ), withWindowSet $ \ws->when ((W.tag . W.workspace . W.current) ws=="term") (spawn "exec urxvt"))<br />
-- move focus up or down the window stack<br />
, ((modMask, xK_Tab ), windows W.focusDown) -- %! Move focus to the next window<br />
, ((modMask .|. shiftMask, xK_Tab ), windows W.focusUp)<br />
, ((mod4Mask, xK_l ), spawn "/home/tim/.local/bin/getseltrans.sh")<br />
, ((mod4Mask, xK_c ), spawn "xbacklight -time 100 + 5")<br />
, ((mod4Mask, xK_e ), spawn "xbacklight -time 100 - 5")<br />
<br />
, ((mod4Mask, xK_i), submap . M.fromList $<br />
[ ((mod4Mask , xK_n), nextWS)<br />
, ((mod4Mask , xK_s), prevWS)<br />
, ((mod4Mask , xK_f), viewEmptyWorkspace)<br />
, ((mod4Mask , xK_a), addWorkspace "new ws")<br />
, ((mod4Mask , xK_d), removeWorkspace)<br />
, ((mod4Mask , xK_m), renameWorkspace defaultXPConfig)<br />
, ((mod4Mask , xK_x), shellPrompt defaultXPConfig)<br />
, ((mod4Mask .|. shiftMask, xK_x), xmonadPrompt defaultXPConfig)<br />
, ((mod4Mask .|. shiftMask, xK_v), windowPromptBring defaultXPConfig)<br />
, ((mod4Mask , xK_v), windowPromptGoto defaultXPConfig)<br />
, ((mod4Mask , xK_u), workspacePrompt defaultXPConfig (windows . W.greedyView))<br />
, ((mod4Mask , xK_comma ), sendMessage (IncMasterN 1)) -- %! Increment the number of windows in the master area<br />
, ((mod4Mask , xK_period), sendMessage (IncMasterN (-1))) -- %! Deincrement the number of windows in the master area<br />
, ((mod4Mask , xK_t ), withFocused $ windows . W.sink) -- %! Push window back into tiling<br />
, ((mod4Mask , xK_h ), sendMessage Shrink) -- %! Shrink the master area<br />
, ((mod4Mask , xK_l ), sendMessage Expand) -- %! Expand the master area<br />
, ((mod4Mask , xK_Return), windows W.swapMaster) -- %! Swap the focused window and the master window<br />
, ((mod4Mask .|. shiftMask, xK_j ), windows W.swapDown ) -- %! Swap the focused window with the next window<br />
, ((mod4Mask .|. shiftMask, xK_k ), windows W.swapUp ) -- %! Swap the focused window with the previous window<br />
-- , ((mod4Mask , xK_m ), windows W.focusMaster ) -- %! Move focus to the master window<br />
, ((mod4Mask , xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms<br />
, ((mod4Mask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) -- %! Reset the layouts on the current workspace to default<br />
, ((mod4Mask .|. shiftMask, xK_c ), kill) -- %! Close the focused window<br />
, ((mod4Mask , xK_q ), broadcastMessage ReleaseResources >> restart "xmonad" True) -- %! Restart xmonad<br />
<br />
])<br />
, ((mod4Mask, xK_m), submap . M.fromList $<br />
[ ((0, xK_n), spawn "xmms2 next")<br />
, ((0, xK_p), spawn "xmms2 previous")<br />
, ((0, xK_space), spawn "xmms2 toggleplay")<br />
])<br />
<br />
-- quit, or restart<br />
<br />
]<br />
<br />
myManageHook = composeAll<br />
[ className =? "Amarokapp" --> doF (W.shift "music")<br />
, className =? "Emacs" --> doF (W.shift "emacs")<br />
, className =? "Opera" --> doF (W.shift "web")<br />
, className =? "Kopete" --> doF (W.shift "kopete")<br />
, className =? "Pidgin" --> doF (W.shift "comm")<br />
, className =? "Gajim.py" --> doF (W.shift "comm")<br />
, className =? "MPlayer" --> doFloat<br />
] <+> manageDocks<br />
<br />
<br />
<br />
mylayout = avoidStruts (tiled ||| Mirror tiled ||| spiral (1 % 1) ||| Circle ||| Full)<br />
where<br />
-- default tiling algorithm partitions the screen into two panes<br />
tiled = Tall nmaster delta ratio<br />
<br />
-- The default number of windows in the master pane<br />
nmaster = 1<br />
<br />
-- Default proportion of screen occupied by master pane<br />
ratio = 2/3<br />
<br />
-- Percent of screen to increment by when resizing panes<br />
delta = 3/100<br />
<br />
main = do<br />
xmobar <- spawnPipe "/home/enko/.local/bin/xmobar /home/enko/.xmobar/xmobar.config"<br />
xmonad $ withUrgencyHook NoUrgencyHook<br />
$ defaultConfig<br />
{ borderWidth = 0<br />
, terminal = "urxvt"<br />
, keys = mykeys<br />
, workspaces = ["web", "emacs", "comm", "term", "music", "irc", "kx" ]<br />
, logHook = myLogHook xmobar<br />
, layoutHook = mylayout<br />
, manageHook = myManageHook<br />
}</div>
Enko