From 4866f2e367dfcf22a9591231ba40948826a1b438 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 21:10:59 +0100
Subject: Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
---
 CopyWindow.hs | 79 -----------------------------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 CopyWindow.hs

(limited to 'CopyWindow.hs')

diff --git a/CopyWindow.hs b/CopyWindow.hs
deleted file mode 100644
index 1e825ef..0000000
--- a/CopyWindow.hs
+++ /dev/null
@@ -1,79 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.CopyWindow
--- Copyright   :  (c) David Roundy <droundy@darcs.net>
--- License     :  BSD3-style (see LICENSE)
---
--- Maintainer  :  David Roundy <droundy@darcs.net>
--- Stability   :  unstable
--- Portability :  unportable
---
--- Provides a binding to duplicate a window on multiple workspaces,
--- providing dwm-like tagging functionality.
---
------------------------------------------------------------------------------
-
-module XMonadContrib.CopyWindow (
-                                 -- * Usage
-                                 -- $usage
-                                 copy, kill1
-                                ) where
-
-import Prelude hiding ( filter )
-import Control.Monad.State ( gets )
-import qualified Data.List as L
-import XMonad
-import XMonad.Operations ( windows, kill )
-import XMonad.StackSet
-
--- $usage
--- You can use this module with the following in your Config.hs file:
--- 
--- > import XMonadContrib.CopyWindow
---
--- > -- mod-[1..9] @@ Switch to workspace N
--- > -- mod-shift-[1..9] @@ Move client to workspace N
--- > -- mod-control-shift-[1..9] @@ Copy client to workspace N
--- > [((m .|. modMask, k), f i)
--- >     | (i, k) <- zip workspaces [xK_1 ..]
--- >     , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]]
---
--- you may also wish to redefine the binding to kill a window so it only
--- removes it from the current workspace, if it's present elsewhere:
---
--- >  , ((modMask .|. shiftMask, xK_c     ), kill1) -- @@ Close the focused window
-
--- %import XMonadContrib.CopyWindow
--- %keybind -- comment out default close window binding above if you uncomment this:
--- %keybind , ((modMask .|. shiftMask, xK_c     ), kill1) -- @@ Close the focused window
--- %keybindlist ++
--- %keybindlist -- mod-[1..9] @@ Switch to workspace N
--- %keybindlist -- mod-shift-[1..9] @@ Move client to workspace N
--- %keybindlist -- mod-control-shift-[1..9] @@ Copy client to workspace N
--- %keybindlist [((m .|. modMask, k), f i)
--- %keybindlist     | (i, k) <- zip workspaces [xK_1 ..]
--- %keybindlist     , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]]
-
--- | copy. Copy a window to a new workspace.
-copy :: WorkspaceId -> WindowSet -> WindowSet
-copy n = copy'
-    where copy' s = if n `tagMember` s && n /= tag (workspace (current s))
-                    then maybe s (go s) (peek s)
-                    else s
-          go s w = view (tag (workspace (current s))) $ insertUp' w $ view n s
-          insertUp' a s = modify (Just $ Stack a [] [])
-                          (\(Stack t l r) -> Just $ Stack a (L.delete a l) (L.delete a (t:r))) s
-
--- | Remove the focussed window from this workspace.  If it's present in no
--- other workspace, then kill it instead. If we do kill it, we'll get a
--- delete notify back from X.
---
--- There are two ways to delete a window. Either just kill it, or if it
--- supports the delete protocol, send a delete event (e.g. firefox)
---
-kill1 :: X ()
-kill1 = do ss <- gets windowset
-           whenJust (peek ss) $ \w -> if member w $ delete'' w ss
-                                      then windows $ delete'' w
-                                      else kill
-    where delete'' w = modify Nothing (filter (/= w))
-- 
cgit v1.2.3