https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&feed=atom&action=history
Xmonad/Config archive/nomeata’s xmonad.hs - Revision history
2024-03-19T04:14:28Z
Revision history for this page on the wiki
MediaWiki 1.35.5
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&diff=63906&oldid=prev
Gwern: Reverted edits by Tomjaguarpaw (talk) to last revision by Nomeata
2021-02-06T15:19:14Z
<p>Reverted edits by <a href="/Special:Contributions/Tomjaguarpaw" title="Special:Contributions/Tomjaguarpaw">Tomjaguarpaw</a> (<a href="/User_talk:Tomjaguarpaw" title="User talk:Tomjaguarpaw">talk</a>) to last revision by <a href="/index.php?title=User:Nomeata&action=edit&redlink=1" class="new" title="User:Nomeata (page does not exist)">Nomeata</a></p>
<a href="https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&diff=63906&oldid=63753">Show changes</a>
Gwern
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&diff=63753&oldid=prev
Tomjaguarpaw: Deleting page that hasn't been edited for over 10 years
2021-02-06T14:28:20Z
<p>Deleting page that hasn't been edited for over 10 years</p>
<a href="https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&diff=63753&oldid=23554">Show changes</a>
Tomjaguarpaw
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&diff=23554&oldid=prev
Nomeata: My config
2008-10-19T12:08:54Z
<p>My config</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 12:08, 19 October 2008</td>
</tr><tr>
<td colspan="2" class="diff-lineno">Line 202:</td>
<td colspan="2" class="diff-lineno">Line 202:</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="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></haskell></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></haskell></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>[[Category:XMonad configuration]]</div></td>
</tr>
</table>
Nomeata
https://wiki.haskell.org/index.php?title=Xmonad/Config_archive/nomeata%E2%80%99s_xmonad.hs&diff=23551&oldid=prev
Nomeata: My config
2008-10-19T12:08:37Z
<p>My config</p>
<p><b>New page</b></p><div><haskell><br />
<br />
import XMonad<br />
import System.Exit<br />
<br />
import Data.Ratio ((%))<br />
<br />
import XMonad.Hooks.EventHook<br />
import System.IO<br />
import XMonad.Hooks.ManageDocks<br />
import XMonad.Hooks.EwmhDesktops<br />
import XMonad.Actions.CycleWS<br />
import XMonad.Layout.NoBorders<br />
import XMonad.Layout.ResizableTile<br />
import XMonad.Layout.ToggleLayouts<br />
import XMonad.Layout.IM<br />
import XMonad.Layout.Reflect<br />
import XMonad.Actions.UpdatePointer<br />
-- import XMonad.Layout.ShowWName<br />
-- import XMonad.Actions.FlexibleManipulate hiding (position)<br />
import XMonad.Prompt<br />
import XMonad.Prompt.Shell<br />
<br />
<br />
import qualified XMonad.StackSet as W<br />
import qualified Data.Map as M<br />
<br />
<br />
shellPromptConfig = defaultXPConfig<br />
{ position = Top<br />
-- , showCompletionOnTab = True<br />
}<br />
<br />
------------------------------------------------------------------------<br />
-- Key bindings. Add, modify or remove key bindings here.<br />
--<br />
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $<br />
<br />
-- launch a terminal<br />
[ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)<br />
, ((modMask , xK_e), spawn $ XMonad.terminal conf)<br />
<br />
, ((modMask , xK_s ), spawn "sm")<br />
<br />
--, ((modMask , xK_r ), spawn "gmrun")<br />
, ((modMask , xK_r ), shellPrompt shellPromptConfig)<br />
<br />
-- close focused window <br />
, ((modMask .|. shiftMask, xK_c ), kill)<br />
<br />
-- Rotate through the available layout algorithms<br />
, ((modMask, xK_space ), sendMessage NextLayout)<br />
<br />
-- Reset the layouts on the current workspace to default<br />
, ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)<br />
<br />
, ((modMask , xK_f), sendMessage ToggleLayout)<br />
<br />
-- Resize viewed windows to the correct size<br />
--, ((modMask .|. shiftMask, xK_n ), refresh)<br />
<br />
-- Move focus to the next window<br />
, ((modMask, xK_Tab ), windows W.focusDown)<br />
<br />
-- Move focus to the next window<br />
, ((modMask, xK_j ), windows W.focusDown)<br />
<br />
-- Move focus to the previous window<br />
, ((modMask, xK_k ), windows W.focusUp )<br />
<br />
-- Move focus to the master window<br />
, ((modMask, xK_m ), windows W.focusMaster )<br />
<br />
-- Swap the focused window and the master window<br />
, ((modMask, xK_Return), windows W.swapMaster)<br />
<br />
-- Swap the focused window with the next window<br />
, ((modMask .|. shiftMask, xK_j ), windows W.swapDown )<br />
<br />
-- Swap the focused window with the previous window<br />
, ((modMask .|. shiftMask, xK_k ), windows W.swapUp )<br />
<br />
-- Shrink the master area<br />
, ((modMask, xK_h ), sendMessage Shrink)<br />
<br />
-- Expand the master area<br />
, ((modMask .|. shiftMask, xK_k ), sendMessage MirrorExpand)<br />
<br />
-- Shrink the master area<br />
, ((modMask .|. shiftMask, xK_j ), sendMessage MirrorShrink)<br />
<br />
-- Expand the master area<br />
, ((modMask, xK_l ), sendMessage Expand)<br />
<br />
-- Push window back into tiling<br />
, ((modMask .|. shiftMask, xK_t ), withFocused $ windows . W.sink)<br />
<br />
-- Increment the number of windows in the master area<br />
, ((modMask , xK_comma ), sendMessage (IncMasterN 1))<br />
<br />
-- Deincrement the number of windows in the master area<br />
, ((modMask , xK_period), sendMessage (IncMasterN (-1)))<br />
<br />
-- toggle the status bar gap<br />
, ((modMask , xK_b ), sendMessage ToggleStruts)<br />
<br />
-- Quit xmonad<br />
, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))<br />
<br />
-- Restart xmonad<br />
, ((modMask , xK_q ),<br />
broadcastMessage ReleaseResources >> <br />
trace "Restarting xmonad" >><br />
restart "xmonad" True<br />
)<br />
, ((modMask, xK_Down), moveTo Next HiddenWS)<br />
, ((modMask, xK_Up), moveTo Prev HiddenWS)<br />
, ((modMask .|. shiftMask, xK_Down), shiftTo Next HiddenWS >> moveTo Next HiddenWS)<br />
, ((modMask .|. shiftMask, xK_Up), shiftTo Prev HiddenWS >> moveTo Prev HiddenWS)<br />
, ((modMask, xK_w), nextScreen) <br />
, ((modMask, xK_d), swapNextScreen)<br />
, ((modMask .|. shiftMask, xK_d), shiftNextScreen)<br />
]<br />
++<br />
<br />
--<br />
-- mod-[1..9], Switch to workspace N<br />
-- mod-shift-[1..9], Move client to workspace N<br />
--<br />
[((m .|. modMask, k), windows $ f i)<br />
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]<br />
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]<br />
<br />
--<br />
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3<br />
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3<br />
--<br />
--[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))<br />
-- | (key, sc) <- zip [xK_w, xK_a] [0..]<br />
-- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]<br />
--<br />
<br />
------------------------------------------------------------------------<br />
-- Mouse bindings: default actions bound to mouse events<br />
--<br />
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $<br />
<br />
-- mod-button1, Set the window to floating mode and move by dragging<br />
[ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w ))<br />
--[ ((modMask, button1), (\w -> focus w >> mouseWindow discrete w ))<br />
<br />
-- mod-button2, Set the window to floating mode and resize by dragging<br />
, ((modMask, button2), (\w -> focus w >> mouseResizeWindow w))<br />
<br />
-- you may also bind events to the mouse scroll wheel (button4 and button5)<br />
]<br />
<br />
data EventHookExample = EventHookExample deriving ( Show, Read )<br />
instance EventHook EventHookExample where<br />
handleEvent _ e = io $ hPutStrLn stderr . show $ e --return ()<br />
<br />
--myLayout = {- eventHook EventHookExample $-} ewmhDesktopsLayout $ avoidStruts $<br />
-- smartBorders $ toggleLayouts Full (tiled ||| Mirror tiled)<br />
myLayout = -- eventHook EventHookExample $<br />
ewmhDesktopsLayout $ <br />
--smartBorders $<br />
-- showWName $<br />
avoidStruts $<br />
toggleLayouts Full $<br />
reflectHoriz $<br />
withIM (1%6) (And (ClassName "Pidgin") (Role "buddy_list")) $<br />
reflectHoriz $<br />
tiled ||| Mirror tiled<br />
where<br />
--tiled = Tall nmaster delta ratio<br />
tiled = ResizableTall 1 (3/100) (1/2) []<br />
<br />
myManageHook = composeAll<br />
[ manageDocks<br />
, className =? "MPlayer" --> doFloat<br />
]<br />
<br />
myLogHook = ewmhDesktopsLogHook<br />
--updatePointer Nearest<br />
>> updatePointer (Relative 0.9 0.9)<br />
<br />
main = xmonad $ defaultConfig {<br />
-- simple stuff<br />
terminal = "gnome-terminal",<br />
borderWidth = 0,<br />
modMask = mod4Mask,<br />
workspaces = ["1","2","3","4","5","6"],<br />
normalBorderColor = "#dddddd",<br />
focusedBorderColor = "#ff0000",<br />
<br />
keys = myKeys,<br />
mouseBindings = myMouseBindings,<br />
<br />
layoutHook = myLayout,<br />
manageHook = myManageHook,<br />
logHook = myLogHook<br />
}<br />
</haskell></div>
Nomeata