<?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/CopyWindow.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE PatternGuards #-}</span>
<a name="line-2"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-3"></a><span class='hs-comment'>-- |</span>
<a name="line-4"></a><span class='hs-comment'>-- Module : XMonad.Actions.CopyWindow</span>
<a name="line-5"></a><span class='hs-comment'>-- Copyright : (c) David Roundy <droundy@darcs.net>, Ivan Veselov <veselov@gmail.com>, Lanny Ripple <lan3ny@gmail.com></span>
<a name="line-6"></a><span class='hs-comment'>-- License : BSD3-style (see LICENSE)</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- Maintainer : ???</span>
<a name="line-9"></a><span class='hs-comment'>-- Stability : unstable</span>
<a name="line-10"></a><span class='hs-comment'>-- Portability : unportable</span>
<a name="line-11"></a><span class='hs-comment'>--</span>
<a name="line-12"></a><span class='hs-comment'>-- Provides bindings to duplicate a window on multiple workspaces,</span>
<a name="line-13"></a><span class='hs-comment'>-- providing dwm-like tagging functionality.</span>
<a name="line-14"></a><span class='hs-comment'>--</span>
<a name="line-15"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-16"></a>
<a name="line-17"></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'>CopyWindow</span> <span class='hs-layout'>(</span>
<a name="line-18"></a> <span class='hs-comment'>-- * Usage</span>
<a name="line-19"></a> <span class='hs-comment'>-- $usage</span>
<a name="line-20"></a> <span class='hs-varid'>copy</span><span class='hs-layout'>,</span> <span class='hs-varid'>copyToAll</span><span class='hs-layout'>,</span> <span class='hs-varid'>copyWindow</span><span class='hs-layout'>,</span> <span class='hs-varid'>runOrCopy</span>
<a name="line-21"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>killAllOtherCopies</span><span class='hs-layout'>,</span> <span class='hs-varid'>kill1</span>
<a name="line-22"></a> <span class='hs-comment'>-- * Highlight workspaces containing copies in logHook</span>
<a name="line-23"></a> <span class='hs-comment'>-- $logHook</span>
<a name="line-24"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>wsContainingCopies</span>
<a name="line-25"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-26"></a>
<a name="line-27"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>XMonad</span>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Arrow</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varop'>&&&</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-29"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>L</span>
<a name="line-31"></a>
<a name="line-32"></a><span class='hs-keyword'>import</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'>WindowGo</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>XMonad</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>W</span>
<a name="line-34"></a>
<a name="line-35"></a><span class='hs-comment'>-- $usage</span>
<a name="line-36"></a><span class='hs-comment'>--</span>
<a name="line-37"></a><span class='hs-comment'>-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file:</span>
<a name="line-38"></a><span class='hs-comment'>--</span>
<a name="line-39"></a><span class='hs-comment'>-- > import XMonad.Actions.CopyWindow</span>
<a name="line-40"></a><span class='hs-comment'>--</span>
<a name="line-41"></a><span class='hs-comment'>-- Then add something like this to your keybindings:</span>
<a name="line-42"></a><span class='hs-comment'>--</span>
<a name="line-43"></a><span class='hs-comment'>-- > -- mod-[1..9] @@ Switch to workspace N</span>
<a name="line-44"></a><span class='hs-comment'>-- > -- mod-shift-[1..9] @@ Move client to workspace N</span>
<a name="line-45"></a><span class='hs-comment'>-- > -- mod-control-shift-[1..9] @@ Copy client to workspace N</span>
<a name="line-46"></a><span class='hs-comment'>-- > [((m .|. modm, k), windows $ f i)</span>
<a name="line-47"></a><span class='hs-comment'>-- > | (i, k) <- zip (workspaces x) [xK_1 ..]</span>
<a name="line-48"></a><span class='hs-comment'>-- > , (f, m) <- [(W.view, 0), (W.shift, shiftMask), (copy, shiftMask .|. controlMask)]]</span>
<a name="line-49"></a><span class='hs-comment'>--</span>
<a name="line-50"></a><span class='hs-comment'>-- To use the above key bindings you need also to import</span>
<a name="line-51"></a><span class='hs-comment'>-- "XMonad.StackSet":</span>
<a name="line-52"></a><span class='hs-comment'>--</span>
<a name="line-53"></a><span class='hs-comment'>-- > import qualified XMonad.StackSet as W</span>
<a name="line-54"></a><span class='hs-comment'>--</span>
<a name="line-55"></a><span class='hs-comment'>-- You may also wish to redefine the binding to kill a window so it only</span>
<a name="line-56"></a><span class='hs-comment'>-- removes it from the current workspace, if it's present elsewhere:</span>
<a name="line-57"></a><span class='hs-comment'>--</span>
<a name="line-58"></a><span class='hs-comment'>-- > , ((modm .|. shiftMask, xK_c ), kill1) -- @@ Close the focused window</span>
<a name="line-59"></a><span class='hs-comment'>--</span>
<a name="line-60"></a><span class='hs-comment'>-- Instead of copying a window from one workspace to another maybe you don't</span>
<a name="line-61"></a><span class='hs-comment'>-- want to have to remember where you placed it. For that consider:</span>
<a name="line-62"></a><span class='hs-comment'>--</span>
<a name="line-63"></a><span class='hs-comment'>-- > , ((modm, xK_b ), runOrCopy "firefox" (className =? "Firefox")) -- @@ run or copy firefox</span>
<a name="line-64"></a><span class='hs-comment'>--</span>
<a name="line-65"></a><span class='hs-comment'>-- Another possibility which this extension provides is 'making window</span>
<a name="line-66"></a><span class='hs-comment'>-- always visible' (i.e. always on current workspace), similar to corresponding</span>
<a name="line-67"></a><span class='hs-comment'>-- metacity functionality. This behaviour is emulated through copying given</span>
<a name="line-68"></a><span class='hs-comment'>-- window to all the workspaces and then removing it when it's unneeded on</span>
<a name="line-69"></a><span class='hs-comment'>-- all workspaces any more.</span>
<a name="line-70"></a><span class='hs-comment'>--</span>
<a name="line-71"></a><span class='hs-comment'>-- Here is the example of keybindings which provide these actions:</span>
<a name="line-72"></a><span class='hs-comment'>--</span>
<a name="line-73"></a><span class='hs-comment'>-- > , ((modm, xK_v ), windows copyToAll) -- @@ Make focused window always visible</span>
<a name="line-74"></a><span class='hs-comment'>-- > , ((modm .|. shiftMask, xK_v ), killAllOtherCopies) -- @@ Toggle window state back</span>
<a name="line-75"></a><span class='hs-comment'>--</span>
<a name="line-76"></a><span class='hs-comment'>-- For detailed instructions on editing your key bindings, see</span>
<a name="line-77"></a><span class='hs-comment'>-- "XMonad.Doc.Extending#Editing_key_bindings".</span>
<a name="line-78"></a>
<a name="line-79"></a><span class='hs-comment'>-- $logHook</span>
<a name="line-80"></a><span class='hs-comment'>-- To distinguish workspaces containing copies of the focused window use</span>
<a name="line-81"></a><span class='hs-comment'>-- something like:</span>
<a name="line-82"></a><span class='hs-comment'>--</span>
<a name="line-83"></a><span class='hs-comment'>-- > sampleLogHook h = do</span>
<a name="line-84"></a><span class='hs-comment'>-- > copies <- wsContainingCopies</span>
<a name="line-85"></a><span class='hs-comment'>-- > let check ws | ws `elem` copies = pad . xmobarColor "red" "black" $ ws</span>
<a name="line-86"></a><span class='hs-comment'>-- > | otherwise = pad ws</span>
<a name="line-87"></a><span class='hs-comment'>-- > dynamicLogWithPP myPP {ppHidden = check, ppOutput = hPutStrLn h}</span>
<a name="line-88"></a><span class='hs-comment'>-- ></span>
<a name="line-89"></a><span class='hs-comment'>-- > main = do</span>
<a name="line-90"></a><span class='hs-comment'>-- > h <- spawnPipe "xmobar"</span>
<a name="line-91"></a><span class='hs-comment'>-- > xmonad defaultConfig { logHook = sampleLogHook h }</span>
<a name="line-92"></a>
<a name="line-93"></a><a name="copy"></a><span class='hs-comment'>-- | Copy the focused window to a workspace.</span>
<a name="line-94"></a><span class='hs-definition'>copy</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span> <span class='hs-varid'>s</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span> <span class='hs-varid'>i</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-varid'>sd</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-varid'>sd</span>
<a name="line-95"></a><span class='hs-definition'>copy</span> <span class='hs-varid'>n</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>peek</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>copyWindow</span> <span class='hs-varid'>w</span> <span class='hs-varid'>n</span> <span class='hs-varid'>s</span>
<a name="line-96"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>s</span>
<a name="line-97"></a>
<a name="line-98"></a><a name="copyToAll"></a><span class='hs-comment'>-- | Copy the focused window to all workspaces.</span>
<a name="line-99"></a><span class='hs-definition'>copyToAll</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span> <span class='hs-varid'>s</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span> <span class='hs-varid'>i</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-varid'>sd</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-varid'>sd</span>
<a name="line-100"></a><span class='hs-definition'>copyToAll</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foldr</span> <span class='hs-varid'>copy</span> <span class='hs-varid'>s</span> <span class='hs-varop'>$</span> <span class='hs-varid'>map</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>tag</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>workspaces</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span>
<a name="line-101"></a>
<a name="line-102"></a><a name="copyWindow"></a><span class='hs-comment'>-- | Copy an arbitrary window to a workspace.</span>
<a name="line-103"></a><span class='hs-definition'>copyWindow</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span> <span class='hs-varid'>a</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span> <span class='hs-varid'>i</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-varid'>sd</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>StackSet</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-varid'>sd</span>
<a name="line-104"></a><span class='hs-definition'>copyWindow</span> <span class='hs-varid'>w</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>copy'</span>
<a name="line-105"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>copy'</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>n</span> <span class='hs-varop'>`</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>tagMember</span><span class='hs-varop'>`</span> <span class='hs-varid'>s</span>
<a name="line-106"></a> <span class='hs-keyword'>then</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>view</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>currentTag</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>insertUp'</span> <span class='hs-varid'>w</span> <span class='hs-varop'>$</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>view</span> <span class='hs-varid'>n</span> <span class='hs-varid'>s</span>
<a name="line-107"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>s</span>
<a name="line-108"></a> <span class='hs-varid'>insertUp'</span> <span class='hs-varid'>a</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>modify</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>Stack</span> <span class='hs-varid'>a</span> <span class='hs-conid'>[]</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span>
<a name="line-109"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>Stack</span> <span class='hs-varid'>t</span> <span class='hs-varid'>l</span> <span class='hs-varid'>r</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>if</span> <span class='hs-varid'>a</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>t</span><span class='hs-conop'>:</span><span class='hs-varid'>l</span><span class='hs-varop'>++</span><span class='hs-varid'>r</span>
<a name="line-110"></a> <span class='hs-keyword'>then</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>Stack</span> <span class='hs-varid'>t</span> <span class='hs-varid'>l</span> <span class='hs-varid'>r</span>
<a name="line-111"></a> <span class='hs-keyword'>else</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>Stack</span> <span class='hs-varid'>a</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>delete</span> <span class='hs-varid'>a</span> <span class='hs-varid'>l</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>delete</span> <span class='hs-varid'>a</span> <span class='hs-layout'>(</span><span class='hs-varid'>t</span><span class='hs-conop'>:</span><span class='hs-varid'>r</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>s</span>
<a name="line-112"></a>
<a name="line-113"></a>
<a name="line-114"></a><a name="runOrCopy"></a><span class='hs-comment'>-- | runOrCopy will run the provided shell command unless it can</span>
<a name="line-115"></a><span class='hs-comment'>-- find a specified window in which case it will copy the window to</span>
<a name="line-116"></a><span class='hs-comment'>-- the current workspace. Similar to (i.e., stolen from) "XMonad.Actions.WindowGo".</span>
<a name="line-117"></a><span class='hs-definition'>runOrCopy</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Query</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span>
<a name="line-118"></a><span class='hs-definition'>runOrCopy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>copyMaybe</span> <span class='hs-varop'>.</span> <span class='hs-varid'>spawn</span>
<a name="line-119"></a>
<a name="line-120"></a><a name="copyMaybe"></a><span class='hs-comment'>-- | Copy a window if it exists, run the first argument otherwise.</span>
<a name="line-121"></a><span class='hs-definition'>copyMaybe</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Query</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span>
<a name="line-122"></a><span class='hs-definition'>copyMaybe</span> <span class='hs-varid'>f</span> <span class='hs-varid'>qry</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ifWindow</span> <span class='hs-varid'>qry</span> <span class='hs-varid'>copyWin</span> <span class='hs-varid'>f</span>
<a name="line-123"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>copyWin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ask</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>w</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>doF</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>ws</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>copyWindow</span> <span class='hs-varid'>w</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>currentTag</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span>
<a name="line-124"></a>
<a name="line-125"></a><a name="kill1"></a><span class='hs-comment'>-- | Remove the focused window from this workspace. If it's present in no</span>
<a name="line-126"></a><span class='hs-comment'>-- other workspace, then kill it instead. If we do kill it, we'll get a</span>
<a name="line-127"></a><span class='hs-comment'>-- delete notify back from X.</span>
<a name="line-128"></a><span class='hs-comment'>--</span>
<a name="line-129"></a><span class='hs-comment'>-- There are two ways to delete a window. Either just kill it, or if it</span>
<a name="line-130"></a><span class='hs-comment'>-- supports the delete protocol, send a delete event (e.g. firefox).</span>
<a name="line-131"></a><span class='hs-definition'>kill1</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span>
<a name="line-132"></a><span class='hs-definition'>kill1</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>ss</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>gets</span> <span class='hs-varid'>windowset</span>
<a name="line-133"></a> <span class='hs-varid'>whenJust</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>peek</span> <span class='hs-varid'>ss</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>w</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>if</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>member</span> <span class='hs-varid'>w</span> <span class='hs-varop'>$</span> <span class='hs-varid'>delete''</span> <span class='hs-varid'>w</span> <span class='hs-varid'>ss</span>
<a name="line-134"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>windows</span> <span class='hs-varop'>$</span> <span class='hs-varid'>delete''</span> <span class='hs-varid'>w</span>
<a name="line-135"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>kill</span>
<a name="line-136"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>delete''</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>modify</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>/=</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-137"></a>
<a name="line-138"></a><a name="killAllOtherCopies"></a><span class='hs-comment'>-- | Kill all other copies of focused window (if they're present).</span>
<a name="line-139"></a><span class='hs-comment'>-- 'All other' means here 'copies which are not on the current workspace'.</span>
<a name="line-140"></a><span class='hs-definition'>killAllOtherCopies</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>X</span> <span class='hs-conid'>()</span>
<a name="line-141"></a><span class='hs-definition'>killAllOtherCopies</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>ss</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>gets</span> <span class='hs-varid'>windowset</span>
<a name="line-142"></a> <span class='hs-varid'>whenJust</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>peek</span> <span class='hs-varid'>ss</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>w</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>windows</span> <span class='hs-varop'>$</span>
<a name="line-143"></a> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>view</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>currentTag</span> <span class='hs-varid'>ss</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-144"></a> <span class='hs-varid'>delFromAllButCurrent</span> <span class='hs-varid'>w</span>
<a name="line-145"></a> <span class='hs-keyword'>where</span>
<a name="line-146"></a> <span class='hs-varid'>delFromAllButCurrent</span> <span class='hs-varid'>w</span> <span class='hs-varid'>ss</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foldr</span> <span class='hs-layout'>(</span><span class='hs-varop'>$</span><span class='hs-layout'>)</span> <span class='hs-varid'>ss</span> <span class='hs-varop'>$</span>
<a name="line-147"></a> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>delWinFromWorkspace</span> <span class='hs-varid'>w</span> <span class='hs-varop'>.</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>tag</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-148"></a> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>hidden</span> <span class='hs-varid'>ss</span> <span class='hs-varop'>++</span> <span class='hs-varid'>map</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>workspace</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>visible</span> <span class='hs-varid'>ss</span><span class='hs-layout'>)</span>
<a name="line-149"></a> <span class='hs-varid'>delWinFromWorkspace</span> <span class='hs-varid'>w</span> <span class='hs-varid'>wid</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>modify</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>/=</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>view</span> <span class='hs-varid'>wid</span>
<a name="line-150"></a>
<a name="line-151"></a><a name="wsContainingCopies"></a><span class='hs-comment'>-- | A list of hidden workspaces containing a copy of the focused window.</span>
<a name="line-152"></a><span class='hs-definition'>wsContainingCopies</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>X</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>WorkspaceId</span><span class='hs-keyglyph'>]</span>
<a name="line-153"></a><span class='hs-definition'>wsContainingCopies</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-154"></a> <span class='hs-varid'>ws</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>gets</span> <span class='hs-varid'>windowset</span>
<a name="line-155"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>copiesOfOn</span> <span class='hs-layout'>(</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>peek</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>taggedWindows</span> <span class='hs-varop'>$</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>hidden</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span>
<a name="line-156"></a>
<a name="line-157"></a><a name="taggedWindows"></a><span class='hs-comment'>-- | Get a list of tuples (tag, [Window]) for each workspace.</span>
<a name="line-158"></a><span class='hs-definition'>taggedWindows</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-conid'>Workspace</span> <span class='hs-varid'>i</span> <span class='hs-varid'>l</span> <span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>i</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-159"></a><span class='hs-definition'>taggedWindows</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varop'>$</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>tag</span> <span class='hs-varop'>&&&</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>integrate'</span> <span class='hs-varop'>.</span> <span class='hs-conid'>W</span><span class='hs-varop'>.</span><span class='hs-varid'>stack</span>
<a name="line-160"></a>
<a name="line-161"></a><a name="copiesOfOn"></a><span class='hs-comment'>-- | Get tags with copies of the focused window (if present.)</span>
<a name="line-162"></a><span class='hs-definition'>copiesOfOn</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Maybe</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>i</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>i</span><span class='hs-keyglyph'>]</span>
<a name="line-163"></a><span class='hs-definition'>copiesOfOn</span> <span class='hs-varid'>foc</span> <span class='hs-varid'>tw</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybe</span> <span class='hs-conid'>[]</span> <span class='hs-varid'>hasCopyOf</span> <span class='hs-varid'>foc</span>
<a name="line-164"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>hasCopyOf</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varid'>fst</span> <span class='hs-varop'>$</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-varop'>`elem`</span> <span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-varid'>snd</span><span class='hs-layout'>)</span> <span class='hs-varid'>tw</span>
</pre></body>
</html>
