diff options
Diffstat (limited to '')
-rw-r--r-- | x11-wm/xmonad/files/config-extensions.patch | 249 |
1 files changed, 249 insertions, 0 deletions
diff --git a/x11-wm/xmonad/files/config-extensions.patch b/x11-wm/xmonad/files/config-extensions.patch new file mode 100644 index 0000000..91e8964 --- /dev/null +++ b/x11-wm/xmonad/files/config-extensions.patch @@ -0,0 +1,249 @@ +--- Config.hs-orig 2007-09-06 03:40:47.000000000 +0000 ++++ Config.hs 2007-09-06 03:51:19.000000000 +0000 +@@ -29,6 +29,88 @@ + import System.Exit + import Graphics.X11.Xlib + ++-- Extension-provided imports ++-- For extension Accordion: ++--import XMonadContrib.Accordion ++-- For extension Anneal: ++--import XMonadContrib.Anneal ++-- For extension Circle: ++--import XMonadContrib.Circle ++-- For extension Combo: ++--import XMonadContrib.Combo ++--import XMonadContrib.SimpleStacking ++-- For extension Commands: ++--import XMonadContrib.Commands ++-- For extension CopyWindow: ++--import XMonadContrib.CopyWindow ++-- For extension DeManage: ++--import XMonadContrib.DeManage ++-- For extension Dmenu: ++--import XMonadContrib.Dmenu ++-- For extension DragPane: ++--import XMonadContrib.DragPane ++-- For extension DwmPromote: ++--import XMonadContrib.DwmPromote ++-- For extension DynamicLog: ++--import XMonadContrib.DynamicLog ++-- For extension FindEmptyWorkspace: ++--import XMonadContrib.FindEmptyWorkspace ++-- For extension FlexibleManipulate: ++--import qualified XMonadContrib.FlexibleManipulate as Flex ++-- For extension FlexibleResize: ++--import qualified XMonadContrib.FlexibleResize as Flex ++-- For extension FocusNth: ++--import XMonadContrib.FocusNth ++-- For extension HintedTile: ++--import qualified XMonadContrib.HintedTile ++-- For extension LayoutHints: ++--import XMonadContrib.LayoutHints ++-- For extension LayoutScreens: ++--import XMonadContrib.LayoutScreens ++-- For extension MagicFocus: ++--import XMonadContrib.MagicFocus ++-- For extension Magnifier: ++--import XMonadContrib.Magnifier ++-- For extension Mosaic: ++--import XMonadContrib.Mosaic ++-- For extension NoBorders: ++--import XMonadContrib.NoBorders ++-- For extension Roledex: ++--import XMonadContrib.Roledex ++-- For extension RotSlaves: ++--import XMonadContrib.RotSlaves ++-- For extension RotView: ++--import XMonadContrib.RotView ++-- For extension ShellPrompt: ++--import XMonadContrib.XPrompt ++--import XMonadContrib.ShellPrompt ++-- For extension SimpleDate: ++--import XMonadContrib.SimpleDate ++-- For extension SinkAll: ++--import XMonadContrib.SinkAll ++-- For extension Spiral: ++--import XMonadContrib.Spiral ++-- For extension Square: ++--import XMonadContrib.Square ++-- For extension SshPrompt: ++--import XMonadContrib.XPrompt ++--import XMonadContrib.SshPrompt ++-- For extension Submap: ++--import XMonadContrib.Submap ++-- For extension Tabbed: ++--import XMonadContrib.Tabbed ++-- For extension ThreeColumns: ++--import XMonadContrib.ThreeColumns ++-- For extension TwoPane: ++--import XMonadContrib.TwoPane ++-- For extension Warp: ++--import XMonadContrib.Warp ++-- For extension WorkspaceDir: ++--import XMonadContrib.WorkspaceDir ++-- For extension XMonadPrompt: ++--import XMonadContrib.XPrompt ++--import XMonadContrib.XMonadPrompt ++ + -- + -- The number of workspaces (virtual screens, or window groups) + -- +@@ -91,7 +173,48 @@ + -- The default set of tiling algorithms + -- + defaultLayouts :: [Layout Window] +-defaultLayouts = [ tiled , mirror tiled , full ] ++defaultLayouts = [ tiled ++ , mirror tiled ++ , full ++ ++ -- Extension-provided layouts ++ -- For extension Accordion: ++ -- , accordion ++ -- For extension Combo: ++ -- , simpleStacking $ combo (twoPane 0.03 0.5) [(full,1),(tabbed shrinkText defaultTConf,1)] ++ -- For extension DragPane: ++ -- , dragPane "" (fromRational delta) (fromRational delta) ++ -- For extension HintedTile: ++ -- , XMonadContrib.HintedTile.tall nmaster delta ratio ++ -- For extension LayoutHints: ++ -- , layoutHints tiled ++ -- , layoutHints $ mirror tiled ++ -- For extension MagicFocus: ++ -- , magicFocus tiled ++ -- , magicFocus $ mirror tiled ++ -- For extension Magnifier: ++ -- , magnifier tiled ++ -- , magnifier $ mirror tiled ++ -- For extension Mosaic: ++ -- , mosaic 0.25 0.5 M.empty ++ -- For extension NoBorders: ++ -- -- prepend noBorders to default layouts above to remove their borders, like so: ++ -- , noBorders full ++ -- For extension Roledex: ++ -- , roledex ++ -- For extension Spiral: ++ -- , spiral (1 % 1) ++ -- For extension Tabbed: ++ -- , tabbed shrinkText defaultTConf ++ -- For extension ThreeColumns: ++ -- , threeCol nmaster delta ratio ++ -- For extension TwoPane: ++ -- , twoPane delta (1%2) ++ -- For extension WorkspaceDir: ++ -- -- prepend 'map (workspaceDir "~")' to defaultLayouts definition above, ++ -- -- just before the list, like the following (don't uncomment next line): ++ -- -- defaultLayouts = map (workspaceDir "~") [ tiled, ... ] ++ ] + where + -- default tiling algorithm partitions the screen into two panes + tiled = tall nmaster delta ratio +@@ -159,19 +282,83 @@ + , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- @@ Quit xmonad + , ((modMask , xK_q ), restart Nothing True) -- @@ Restart xmonad + +- ] ++ ++ -- Extension-provided key bindings ++ -- For extension Commands: ++ -- , ((modMask .|. controlMask, xK_y), runCommand commands) ++ -- For extension CopyWindow: ++ -- -- comment out default close window binding above if you uncomment this: ++ -- , ((modMask .|. shiftMask, xK_c ), kill1) -- @@ Close the focused window ++ -- For extension DeManage: ++ -- , ((modMask, xK_d ), withFocused demanage) ++ -- For extension DwmPromote: ++ -- , ((modMask, xK_Return), dwmpromote) ++ -- For extension FindEmptyWorkspace: ++ -- , ((modMask, xK_m ), viewEmptyWorkspace) ++ -- , ((modMask .|. shiftMask, xK_m ), tagToEmptyWorkspace) ++ -- For extension LayoutScreens: ++ -- , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) ++ -- , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) ++ -- For extension Mosaic: ++ -- , ((controlMask .|. modMask .|. shiftMask, xK_h), withNamedWindow (sendMessage . tallWindow)) ++ -- , ((controlMask .|. modMask .|. shiftMask, xK_l), withNamedWindow (sendMessage . wideWindow)) ++ -- , ((modMask .|. shiftMask, xK_h ), withNamedWindow (sendMessage . shrinkWindow)) ++ -- , ((modMask .|. shiftMask, xK_l ), withNamedWindow (sendMessage . expandWindow)) ++ -- , ((modMask .|. shiftMask, xK_s ), withNamedWindow (sendMessage . squareWindow)) ++ -- , ((modMask .|. shiftMask, xK_o ), withNamedWindow (sendMessage . myclearWindow)) ++ -- , ((controlMask .|. modMask .|. shiftMask, xK_o ), withNamedWindow (sendMessage . flexibleWindow)) ++ -- For extension RotSlaves: ++ -- , ((modMask .|. shiftMask, xK_Tab ), rotSlavesUp) ++ -- For extension RotView: ++ -- , ((modMask .|. shiftMask, xK_Right), rotView True) ++ -- , ((modMask .|. shiftMask, xK_Left), rotView False) ++ -- For extension ShellPrompt: ++ -- , ((modMask .|. controlMask, xK_x), shellPrompt defaultXPConfig) ++ -- For extension SimpleDate: ++ -- , ((modMask, xK_d ), date) ++ -- For extension SinkAll: ++ -- , ((modMask .|. shiftMask, xK_t), sinkAll) ++ -- For extension SshPrompt: ++ -- , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig) ++ -- For extension Submap: ++ -- , ((modMask, xK_a), submap . M.fromList $ ++ -- [ ((0, xK_n), spawn "mpc next") ++ -- , ((0, xK_p), spawn "mpc prev") ++ -- , ((0, xK_z), spawn "mpc random") ++ -- , ((0, xK_space), spawn "mpc toggle") ++ -- ]) ++ -- For extension Warp: ++ -- , ((modMask, xK_z ), warpToWindow (1%2) (1%2)) -- @@ Move pointer to currently focused window ++ -- For extension WorkspaceDir: ++ -- , ((modMask .|. shiftMask, xK_x ), changeDir defaultXPConfig) ++ -- For extension XMonadPrompt: ++ -- , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig) ++ ] ++ ++ + -- mod-[1..9] @@ Switch to workspace N + -- mod-shift-[1..9] @@ Move client to workspace N + [((m .|. modMask, k), f i) + | (i, k) <- zip workspaces [xK_1 ..] + , (f, m) <- [(view, 0), (shift, shiftMask)]] +- ++ ++ + -- mod-{w,e,r} @@ Switch to physical/Xinerama screens 1, 2, or 3 + -- mod-shift-{w,e,r} @@ Move client to screen 1, 2, or 3 +- ++ + [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust f) + | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] + , (f, m) <- [(windows . W.view, 0), (shift, shiftMask)]] ++ -- Extension-provided key bindings lists ++ -- For extension 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)]] ++ -- For extension Warp: ++ -- ++ ++ -- -- mod-ctrl-{w,e,r} @@ Move mouse pointer to screen 1, 2, or 3 ++ -- [((modMask .|. controlMask, key), warpToScreen sc (1%2) (1%2)) ++ -- | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]] + + -- | + -- default actions bound to mouse events +@@ -183,4 +370,19 @@ + -- mod-button2 @@ Raise the window to the top of the stack + , ((modMask, button2), (\w -> focus w >> swapMaster)) + -- mod-button3 @@ Set the window to floating mode and resize by dragging +- , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w)) ] ++ , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w)) ++ ++ -- Extension-provided mouse bindings ++ -- For extension FlexibleManipulate: ++ -- , ((modMask, button1), (\w -> focus w >> Flex.mouseWindow Flex.linear w)) ++ -- For extension FlexibleResize: ++ -- , ((modMask, button3), (\w -> focus w >> Flex.mouseResizeWindow w)) ++ ] ++ ++-- Extension-provided definitions ++-- For extension Commands: ++-- commands :: [(String, X ())] ++-- commands = defaultCommands ++-- For extension DynamicLog: ++-- -- comment out default logHook definition above if you uncomment this: ++-- logHook = dynamicLog |