diff options
Diffstat (limited to 'x11-wm/xmonad')
| -rw-r--r-- | x11-wm/xmonad/files/xmonad-0.11-ghc-7.10.patch | 14 | ||||
| -rw-r--r-- | x11-wm/xmonad/files/xmonad-0.11-sample.patch | 74 | ||||
| -rw-r--r-- | x11-wm/xmonad/files/xmonad-0.12-check-repeat.patch | 40 | ||||
| -rw-r--r-- | x11-wm/xmonad/files/xmonad-check-repeat.patch | 40 |
4 files changed, 0 insertions, 168 deletions
diff --git a/x11-wm/xmonad/files/xmonad-0.11-ghc-7.10.patch b/x11-wm/xmonad/files/xmonad-0.11-ghc-7.10.patch deleted file mode 100644 index e92a31ec7044..000000000000 --- a/x11-wm/xmonad/files/xmonad-0.11-ghc-7.10.patch +++ /dev/null @@ -1,14 +0,0 @@ -Fri May 2 06:57:43 BST 2014 Adam Vogt <vogt.adam@gmail.com> - * derive Applicative instance for Query -diff -rN -u old-xmonad/XMonad/Core.hs new-xmonad/XMonad/Core.hs ---- old-xmonad/XMonad/Core.hs 2015-01-08 21:40:45.320979242 +0000 -+++ new-xmonad/XMonad/Core.hs 2015-01-08 21:40:45.367979193 +0000 -@@ -155,7 +155,7 @@ - - type ManageHook = Query (Endo WindowSet) - newtype Query a = Query (ReaderT Window X a) -- deriving (Functor, Monad, MonadReader Window, MonadIO) -+ deriving (Functor, Applicative, Monad, MonadReader Window, MonadIO) - - runQuery :: Query a -> Window -> X a - runQuery (Query m) w = runReaderT m w diff --git a/x11-wm/xmonad/files/xmonad-0.11-sample.patch b/x11-wm/xmonad/files/xmonad-0.11-sample.patch deleted file mode 100644 index 0780af8c18d4..000000000000 --- a/x11-wm/xmonad/files/xmonad-0.11-sample.patch +++ /dev/null @@ -1,74 +0,0 @@ -Sun Jan 6 17:42:54 GMT 2013 Daniel Wagner <daniel@wagner-home.com> - * define the "help" string in the sample configuration bundled with xmonad -diff -rN -u old-xmonad/man/xmonad.hs new-xmonad/man/xmonad.hs ---- old-xmonad/man/xmonad.hs 2015-02-27 08:38:26.993365307 +0000 -+++ new-xmonad/man/xmonad.hs 2015-02-27 08:38:27.046365303 +0000 -@@ -280,3 +280,54 @@ - logHook = myLogHook, - startupHook = myStartupHook - } -+ -+-- | Finally, a copy of the default bindings in simple textual tabular format. -+help :: String -+help = unlines ["The default modifier key is 'alt'. Default keybindings:", -+ "", -+ "-- launching and killing programs", -+ "mod-Shift-Enter Launch xterminal", -+ "mod-p Launch dmenu", -+ "mod-Shift-p Launch gmrun", -+ "mod-Shift-c Close/kill the focused window", -+ "mod-Space Rotate through the available layout algorithms", -+ "mod-Shift-Space Reset the layouts on the current workSpace to default", -+ "mod-n Resize/refresh viewed windows to the correct size", -+ "", -+ "-- move focus up or down the window stack", -+ "mod-Tab Move focus to the next window", -+ "mod-Shift-Tab Move focus to the previous window", -+ "mod-j Move focus to the next window", -+ "mod-k Move focus to the previous window", -+ "mod-m Move focus to the master window", -+ "", -+ "-- modifying the window order", -+ "mod-Return Swap the focused window and the master window", -+ "mod-Shift-j Swap the focused window with the next window", -+ "mod-Shift-k Swap the focused window with the previous window", -+ "", -+ "-- resizing the master/slave ratio", -+ "mod-h Shrink the master area", -+ "mod-l Expand the master area", -+ "", -+ "-- floating layer support", -+ "mod-t Push window back into tiling; unfloat and re-tile it", -+ "", -+ "-- increase or decrease number of windows in the master area", -+ "mod-comma (mod-,) Increment the number of windows in the master area", -+ "mod-period (mod-.) Deincrement the number of windows in the master area", -+ "", -+ "-- quit, or restart", -+ "mod-Shift-q Quit xmonad", -+ "mod-q Restart xmonad", -+ "mod-[1..9] Switch to workSpace N", -+ "", -+ "-- Workspaces & screens", -+ "mod-Shift-[1..9] Move client to workspace N", -+ "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", -+ "", -+ "-- Mouse bindings: default actions bound to mouse events", -+ "mod-button1 Set the window to floating mode and move by dragging", -+ "mod-button2 Raise the window to the top of the stack", -+ "mod-button3 Set the window to floating mode and resize by dragging"] -Sun Jan 6 17:44:14 GMT 2013 Daniel Wagner <daniel@wagner-home.com> - * use "modm" instead of "modMask" in the sample config -diff -rN -u old-xmonad/man/xmonad.hs new-xmonad/man/xmonad.hs ---- old-xmonad/man/xmonad.hs 2015-02-27 08:39:59.280358012 +0000 -+++ new-xmonad/man/xmonad.hs 2015-02-27 08:39:59.333358007 +0000 -@@ -129,7 +129,7 @@ - , ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart") - - -- Run xmessage with a summary of the default keybindings (useful for beginners) -- , ((modMask .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -")) -+ , ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -")) - ] - ++ - diff --git a/x11-wm/xmonad/files/xmonad-0.12-check-repeat.patch b/x11-wm/xmonad/files/xmonad-0.12-check-repeat.patch deleted file mode 100644 index 79bd2c2d21fa..000000000000 --- a/x11-wm/xmonad/files/xmonad-0.12-check-repeat.patch +++ /dev/null @@ -1,40 +0,0 @@ ---- xmonad/src/XMonad/Core.hs 2010-09-05 05:11:42.000000000 +0400 -+++ xmonad/src/XMonad/Core.hs 2010-09-18 07:59:14.000000000 +0400 -@@ -65,6 +65,7 @@ - , waitingUnmap :: !(M.Map Window Int) -- ^ the number of expected UnmapEvents - , dragging :: !(Maybe (Position -> Position -> X (), X ())) - , numberlockMask :: !KeyMask -- ^ The numlock modifier -+ , keyPressed :: !KeyCode -- ^ keycode of the key being pressed if any - , extensibleState :: !(M.Map String (Either String StateExtension)) - -- ^ stores custom state information. - -- ---- xmonad/src/XMonad/Main.hs 2010-09-05 05:11:42.000000000 +0400 -+++ xmonad/src/XMonad/Main.hs 2010-09-18 08:03:11.000000000 +0400 -@@ -129,6 +129,7 @@ - , mapped = S.empty - , waitingUnmap = M.empty - , dragging = Nothing -+ , keyPressed = 0 - , extensibleState = extState - } - allocaXEvent $ \e -> -@@ -190,10 +191,15 @@ - -- run window manager command - handle (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code}) - | t == keyPress = withDisplay $ \dpy -> do -- s <- io $ keycodeToKeysym dpy code 0 -- mClean <- cleanMask m -- ks <- asks keyActions -- userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id -+ kp <- gets keyPressed -+ if kp /= code then do -+ modify $ \s -> s { keyPressed = code } -+ s <- io $ keycodeToKeysym dpy code 0 -+ mClean <- cleanMask m -+ ks <- asks keyActions -+ userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id -+ else return () -+ | t == keyRelease = modify $ \s -> s { keyPressed = 0 } - - -- manage a new window - handle (MapRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do diff --git a/x11-wm/xmonad/files/xmonad-check-repeat.patch b/x11-wm/xmonad/files/xmonad-check-repeat.patch deleted file mode 100644 index 9b30cb5ece31..000000000000 --- a/x11-wm/xmonad/files/xmonad-check-repeat.patch +++ /dev/null @@ -1,40 +0,0 @@ ---- xmonad//XMonad/Core.hs 2010-09-05 05:11:42.000000000 +0400 -+++ xmonad//XMonad/Core.hs 2010-09-18 07:59:14.000000000 +0400 -@@ -65,6 +65,7 @@ - , waitingUnmap :: !(M.Map Window Int) -- ^ the number of expected UnmapEvents - , dragging :: !(Maybe (Position -> Position -> X (), X ())) - , numberlockMask :: !KeyMask -- ^ The numlock modifier -+ , keyPressed :: !KeyCode -- ^ keycode of the key being pressed if any - , extensibleState :: !(M.Map String (Either String StateExtension)) - -- ^ stores custom state information. - -- ---- xmonad//XMonad/Main.hsc 2010-09-05 05:11:42.000000000 +0400 -+++ xmonad//XMonad/Main.hsc 2010-09-18 08:03:11.000000000 +0400 -@@ -129,6 +129,7 @@ - , mapped = S.empty - , waitingUnmap = M.empty - , dragging = Nothing -+ , keyPressed = 0 - , extensibleState = extState - } - allocaXEvent $ \e -> -@@ -190,10 +191,15 @@ - -- run window manager command - handle (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code}) - | t == keyPress = withDisplay $ \dpy -> do -- s <- io $ keycodeToKeysym dpy code 0 -- mClean <- cleanMask m -- ks <- asks keyActions -- userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id -+ kp <- gets keyPressed -+ if kp /= code then do -+ modify $ \s -> s { keyPressed = code } -+ s <- io $ keycodeToKeysym dpy code 0 -+ mClean <- cleanMask m -+ ks <- asks keyActions -+ userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id -+ else return () -+ | t == keyRelease = modify $ \s -> s { keyPressed = 0 } - - -- manage a new window - handle (MapRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do |