<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ --> <title>XMonad/Actions/OnScreen.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span> <a name="line-2"></a><span class='hs-comment'>-- |</span> <a name="line-3"></a><span class='hs-comment'>-- Module : XMonad.Actions.OnScreen</span> <a name="line-4"></a><span class='hs-comment'>-- Copyright : (c) 2009 Nils Schweinsberg</span> <a name="line-5"></a><span class='hs-comment'>-- License : BSD3-style (see LICENSE)</span> <a name="line-6"></a><span class='hs-comment'>--</span> <a name="line-7"></a><span class='hs-comment'>-- Maintainer : Nils Schweinsberg <mail@n-sch.de></span> <a name="line-8"></a><span class='hs-comment'>-- Stability : unstable</span> <a name="line-9"></a><span class='hs-comment'>-- Portability : unportable</span> <a name="line-10"></a><span class='hs-comment'>--</span> <a name="line-11"></a><span class='hs-comment'>-- Control workspaces on different screens (in xinerama mode).</span> <a name="line-12"></a><span class='hs-comment'>--</span> <a name="line-13"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span> <a name="line-14"></a> <a name="line-15"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>XMonad</span><span class='hs-varop'>.</span><span class='hs-conid'>Actions</span><span class='hs-varop'>.</span><span class='hs-conid'>OnScreen</span> <span class='hs-layout'>(</span> <a name="line-16"></a> <span class='hs-comment'>-- * Usage</span> <a name="line-17"></a> <span class='hs-comment'>-- $usage</span> <a name="line-18"></a> <span class='hs-varid'>onScreen</span> <a name="line-19"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>onScreen'</span> <a name="line-20"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>Focus</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-21"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>viewOnScreen</span> <a name="line-22"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>greedyViewOnScreen</span> <a name="line-23"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>onlyOnScreen</span> <a name="line-24"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>toggleOnScreen</span> <a name="line-25"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>toggleGreedyOnScreen</span> <a name="line-26"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-27"></a> <a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>XMonad</span> <a name="line-29"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>XMonad</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span><span class='hs-varid'>new</span><span class='hs-layout'>)</span> <a name="line-30"></a> <a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span><span class='hs-varid'>guard</span><span class='hs-layout'>)</span> <a name="line-32"></a><span class='hs-comment'>-- import Control.Monad.State.Class (gets)</span> <a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromMaybe</span><span class='hs-layout'>)</span> <a name="line-34"></a> <a name="line-35"></a> <a name="line-36"></a><a name="Focus"></a><span class='hs-comment'>-- | Focus data definitions</span> <a name="line-37"></a><a name="Focus"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Focus</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>FocusNew</span> <span class='hs-comment'>-- ^ always focus the new screen</span> <a name="line-38"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FocusCurrent</span> <span class='hs-comment'>-- ^ always keep the focus on the current screen</span> <a name="line-39"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FocusTag</span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ always focus tag i on the new stack</span> <a name="line-40"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FocusTagVisible</span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ focus tag i only if workspace with tag i is visible on the old stack</span> <a name="line-41"></a> <a name="line-42"></a> <a name="line-43"></a><a name="onScreen"></a><span class='hs-comment'>-- | Run any function that modifies the stack on a given screen. This function</span> <a name="line-44"></a><span class='hs-comment'>-- will also need to know which Screen to focus after the function has been</span> <a name="line-45"></a><span class='hs-comment'>-- run.</span> <a name="line-46"></a><span class='hs-definition'>onScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>WindowSet</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ function to run</span> <a name="line-47"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Focus</span> <span class='hs-comment'>-- ^ what to do with the focus</span> <a name="line-48"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-49"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stack</span> <a name="line-50"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-51"></a><span class='hs-definition'>onScreen</span> <span class='hs-varid'>f</span> <span class='hs-varid'>foc</span> <span class='hs-varid'>sc</span> <span class='hs-varid'>st</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-varid'>st</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-52"></a> <span class='hs-varid'>ws</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lookupWorkspace</span> <span class='hs-varid'>sc</span> <span class='hs-varid'>st</span> <a name="line-53"></a> <a name="line-54"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>fStack</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>f</span> <span class='hs-varop'>$</span> <span class='hs-varid'>view</span> <span class='hs-varid'>ws</span> <span class='hs-varid'>st</span> <a name="line-55"></a> <a name="line-56"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>setFocus</span> <span class='hs-varid'>foc</span> <span class='hs-varid'>st</span> <span class='hs-varid'>fStack</span> <a name="line-57"></a> <a name="line-58"></a> <a name="line-59"></a><a name="setFocus"></a><span class='hs-comment'>-- set focus for new stack</span> <a name="line-60"></a><span class='hs-definition'>setFocus</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Focus</span> <a name="line-61"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ old stack</span> <a name="line-62"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ new stack</span> <a name="line-63"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-64"></a><span class='hs-definition'>setFocus</span> <span class='hs-conid'>FocusNew</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>new</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>new</span> <a name="line-65"></a><span class='hs-definition'>setFocus</span> <span class='hs-conid'>FocusCurrent</span> <span class='hs-varid'>old</span> <span class='hs-varid'>new</span> <span class='hs-keyglyph'>=</span> <a name="line-66"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>lookupWorkspace</span> <span class='hs-layout'>(</span><span class='hs-varid'>screen</span> <span class='hs-varop'>$</span> <span class='hs-varid'>current</span> <span class='hs-varid'>old</span><span class='hs-layout'>)</span> <span class='hs-varid'>new</span> <span class='hs-keyword'>of</span> <a name="line-67"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>new</span> <a name="line-68"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>view</span> <span class='hs-varid'>i</span> <span class='hs-varid'>new</span> <a name="line-69"></a><span class='hs-definition'>setFocus</span> <span class='hs-layout'>(</span><span class='hs-conid'>FocusTag</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>new</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>view</span> <span class='hs-varid'>i</span> <span class='hs-varid'>new</span> <a name="line-70"></a><span class='hs-definition'>setFocus</span> <span class='hs-layout'>(</span><span class='hs-conid'>FocusTagVisible</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-varid'>old</span> <span class='hs-varid'>new</span> <span class='hs-keyglyph'>=</span> <a name="line-71"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>i</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>tag</span> <span class='hs-varop'>.</span> <span class='hs-varid'>workspace</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>visible</span> <span class='hs-varid'>old</span><span class='hs-layout'>)</span> <a name="line-72"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>setFocus</span> <span class='hs-layout'>(</span><span class='hs-conid'>FocusTag</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-varid'>old</span> <span class='hs-varid'>new</span> <a name="line-73"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>setFocus</span> <span class='hs-conid'>FocusCurrent</span> <span class='hs-varid'>old</span> <span class='hs-varid'>new</span> <a name="line-74"></a> <a name="line-75"></a><a name="onScreen'"></a><span class='hs-comment'>-- | A variation of @onScreen@ which will take any @X ()@ function and run it</span> <a name="line-76"></a><span class='hs-comment'>-- on the given screen.</span> <a name="line-77"></a><span class='hs-comment'>-- Warning: This function will change focus even if the function it's supposed</span> <a name="line-78"></a><span class='hs-comment'>-- to run doesn't succeed.</span> <a name="line-79"></a><span class='hs-definition'>onScreen'</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span> <span class='hs-comment'>-- ^ X function to run</span> <a name="line-80"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Focus</span> <span class='hs-comment'>-- ^ focus</span> <a name="line-81"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-82"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span> <a name="line-83"></a><span class='hs-definition'>onScreen'</span> <span class='hs-varid'>x</span> <span class='hs-varid'>foc</span> <span class='hs-varid'>sc</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-84"></a> <span class='hs-varid'>st</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>gets</span> <span class='hs-varid'>windowset</span> <a name="line-85"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>lookupWorkspace</span> <span class='hs-varid'>sc</span> <span class='hs-varid'>st</span> <span class='hs-keyword'>of</span> <a name="line-86"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <a name="line-87"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>ws</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-88"></a> <span class='hs-varid'>windows</span> <span class='hs-varop'>$</span> <span class='hs-varid'>view</span> <span class='hs-varid'>ws</span> <a name="line-89"></a> <span class='hs-varid'>x</span> <a name="line-90"></a> <span class='hs-varid'>windows</span> <span class='hs-varop'>$</span> <span class='hs-varid'>setFocus</span> <span class='hs-varid'>foc</span> <span class='hs-varid'>st</span> <a name="line-91"></a> <a name="line-92"></a> <a name="line-93"></a><a name="viewOnScreen"></a><span class='hs-comment'>-- | Switch to workspace @i@ on screen @sc@. If @i@ is visible use @view@ to</span> <a name="line-94"></a><span class='hs-comment'>-- switch focus to the workspace @i@.</span> <a name="line-95"></a><span class='hs-definition'>viewOnScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-96"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ index of the workspace</span> <a name="line-97"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stack</span> <a name="line-98"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-99"></a><span class='hs-definition'>viewOnScreen</span> <span class='hs-varid'>sid</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <a name="line-100"></a> <span class='hs-varid'>onScreen</span> <span class='hs-layout'>(</span><span class='hs-varid'>view</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>FocusTag</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-varid'>sid</span> <a name="line-101"></a> <a name="line-102"></a><a name="greedyViewOnScreen"></a><span class='hs-comment'>-- | Switch to workspace @i@ on screen @sc@. If @i@ is visible use @greedyView@</span> <a name="line-103"></a><span class='hs-comment'>-- to switch the current workspace with workspace @i@.</span> <a name="line-104"></a><span class='hs-definition'>greedyViewOnScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-105"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ index of the workspace</span> <a name="line-106"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stack</span> <a name="line-107"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-108"></a><span class='hs-definition'>greedyViewOnScreen</span> <span class='hs-varid'>sid</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <a name="line-109"></a> <span class='hs-varid'>onScreen</span> <span class='hs-layout'>(</span><span class='hs-varid'>greedyView</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>FocusTagVisible</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-varid'>sid</span> <a name="line-110"></a> <a name="line-111"></a><a name="onlyOnScreen"></a><span class='hs-comment'>-- | Switch to workspace @i@ on screen @sc@. If @i@ is visible do nothing.</span> <a name="line-112"></a><span class='hs-definition'>onlyOnScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-113"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ index of the workspace</span> <a name="line-114"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stack</span> <a name="line-115"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-116"></a><span class='hs-definition'>onlyOnScreen</span> <span class='hs-varid'>sid</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <a name="line-117"></a> <span class='hs-varid'>onScreen</span> <span class='hs-layout'>(</span><span class='hs-varid'>view</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-conid'>FocusCurrent</span> <span class='hs-varid'>sid</span> <a name="line-118"></a> <a name="line-119"></a><a name="toggleOnScreen"></a><span class='hs-comment'>-- | @toggleOrView@ as in "XMonad.Actions.CycleWS" for @onScreen@ with view</span> <a name="line-120"></a><span class='hs-definition'>toggleOnScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-121"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ index of the workspace</span> <a name="line-122"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stack</span> <a name="line-123"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-124"></a><span class='hs-definition'>toggleOnScreen</span> <span class='hs-varid'>sid</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <a name="line-125"></a> <span class='hs-varid'>onScreen</span> <span class='hs-layout'>(</span><span class='hs-varid'>toggleOrView'</span> <span class='hs-varid'>view</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-conid'>FocusCurrent</span> <span class='hs-varid'>sid</span> <a name="line-126"></a> <a name="line-127"></a><a name="toggleGreedyOnScreen"></a><span class='hs-comment'>-- | @toggleOrView@ from "XMonad.Actions.CycleWS" for @onScreen@ with greedyView</span> <a name="line-128"></a><span class='hs-definition'>toggleGreedyOnScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ScreenId</span> <span class='hs-comment'>-- ^ screen id</span> <a name="line-129"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ index of the workspace</span> <a name="line-130"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stack</span> <a name="line-131"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-132"></a><span class='hs-definition'>toggleGreedyOnScreen</span> <span class='hs-varid'>sid</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <a name="line-133"></a> <span class='hs-varid'>onScreen</span> <span class='hs-layout'>(</span><span class='hs-varid'>toggleOrView'</span> <span class='hs-varid'>greedyView</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-conid'>FocusCurrent</span> <span class='hs-varid'>sid</span> <a name="line-134"></a> <a name="line-135"></a> <a name="line-136"></a><a name="toggleOrView'"></a><span class='hs-comment'>-- a \"pure\" version of X.A.CycleWS.toggleOrDoSkip</span> <a name="line-137"></a><span class='hs-definition'>toggleOrView'</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>WorkspaceId</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ function to run</span> <a name="line-138"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WorkspaceId</span> <span class='hs-comment'>-- ^ tag to look for</span> <a name="line-139"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <span class='hs-comment'>-- ^ current stackset</span> <a name="line-140"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WindowSet</span> <a name="line-141"></a><span class='hs-definition'>toggleOrView'</span> <span class='hs-varid'>f</span> <span class='hs-varid'>i</span> <span class='hs-varid'>st</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-varid'>i</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-142"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>st'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hidden</span> <span class='hs-varid'>st</span> <a name="line-143"></a> <span class='hs-comment'>-- make sure we actually have to do something</span> <a name="line-144"></a> <span class='hs-varid'>guard</span> <span class='hs-varop'>$</span> <span class='hs-varid'>i</span> <span class='hs-varop'>==</span> <span class='hs-layout'>(</span><span class='hs-varid'>tag</span> <span class='hs-varop'>.</span> <span class='hs-varid'>workspace</span> <span class='hs-varop'>$</span> <span class='hs-varid'>current</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <a name="line-145"></a> <span class='hs-varid'>guard</span> <span class='hs-varop'>$</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>st'</span><span class='hs-layout'>)</span> <a name="line-146"></a> <span class='hs-comment'>-- finally, toggle!</span> <a name="line-147"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>f</span> <span class='hs-layout'>(</span><span class='hs-varid'>tag</span> <span class='hs-varop'>.</span> <span class='hs-varid'>head</span> <span class='hs-varop'>$</span> <span class='hs-varid'>st'</span><span class='hs-layout'>)</span> <span class='hs-varid'>st</span> <a name="line-148"></a> <a name="line-149"></a> <a name="line-150"></a><span class='hs-comment'>-- $usage</span> <a name="line-151"></a><span class='hs-comment'>--</span> <a name="line-152"></a><span class='hs-comment'>-- This module provides an easy way to control, what you see on other screens in</span> <a name="line-153"></a><span class='hs-comment'>-- xinerama mode without having to focus them. Put this into your</span> <a name="line-154"></a><span class='hs-comment'>-- @~\/.xmonad\/xmonad.hs@:</span> <a name="line-155"></a><span class='hs-comment'>--</span> <a name="line-156"></a><span class='hs-comment'>-- > import XMonad.Actions.OnScreen</span> <a name="line-157"></a><span class='hs-comment'>--</span> <a name="line-158"></a><span class='hs-comment'>-- Then add the appropriate keybindings, for example replace your current keys</span> <a name="line-159"></a><span class='hs-comment'>-- to switch the workspaces with this at the bottom of your keybindings:</span> <a name="line-160"></a><span class='hs-comment'>--</span> <a name="line-161"></a><span class='hs-comment'>-- > ++</span> <a name="line-162"></a><span class='hs-comment'>-- > [ ((m .|. modm, k), windows (f i))</span> <a name="line-163"></a><span class='hs-comment'>-- > | (i, k) <- zip (workspaces conf) ([xK_1 .. xK_9] ++ [xK_0])</span> <a name="line-164"></a><span class='hs-comment'>-- > , (f, m) <- [ (viewOnScreen 0, 0)</span> <a name="line-165"></a><span class='hs-comment'>-- > , (viewOnScreen 1, controlMask)</span> <a name="line-166"></a><span class='hs-comment'>-- > , (greedyView, controlMask .|. shiftMask) ]</span> <a name="line-167"></a><span class='hs-comment'>-- > ]</span> <a name="line-168"></a><span class='hs-comment'>--</span> <a name="line-169"></a><span class='hs-comment'>-- This will provide you with the following keybindings:</span> <a name="line-170"></a><span class='hs-comment'>--</span> <a name="line-171"></a><span class='hs-comment'>-- * modkey + 1-0:</span> <a name="line-172"></a><span class='hs-comment'>-- Switch to workspace 1-0 on screen 0</span> <a name="line-173"></a><span class='hs-comment'>--</span> <a name="line-174"></a><span class='hs-comment'>-- * modkey + control + 1-0:</span> <a name="line-175"></a><span class='hs-comment'>-- Switch to workspace 1-0 on screen 1</span> <a name="line-176"></a><span class='hs-comment'>--</span> <a name="line-177"></a><span class='hs-comment'>-- * modkey + control + shift + 1-0:</span> <a name="line-178"></a><span class='hs-comment'>-- Default greedyView behaviour</span> <a name="line-179"></a><span class='hs-comment'>--</span> <a name="line-180"></a><span class='hs-comment'>--</span> <a name="line-181"></a><span class='hs-comment'>-- A more basic version inside the default keybindings would be:</span> <a name="line-182"></a><span class='hs-comment'>--</span> <a name="line-183"></a><span class='hs-comment'>-- > , ((modm .|. controlMask, xK_1), windows (viewOnScreen 0 "1"))</span> <a name="line-184"></a><span class='hs-comment'>--</span> <a name="line-185"></a><span class='hs-comment'>-- where 0 is the first screen and \"1\" the workspace with the tag \"1\".</span> <a name="line-186"></a><span class='hs-comment'>--</span> <a name="line-187"></a><span class='hs-comment'>-- For detailed instructions on editing your key bindings, see</span> <a name="line-188"></a><span class='hs-comment'>-- "XMonad.Doc.Extending#Editing_key_bindings".</span> </pre></body> </html>