reinit the tree, so we can have metadata

5 files changed, 181 insertions, 0 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
new file mode 100644
index 000000000000..e92a31ec7044
--- /dev/null
+++ b/x11-wm/xmonad/files/xmonad-0.11-ghc-7.10.patch
@@ -0,0 +1,14 @@
+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
new file mode 100644
index 000000000000..0780af8c18d4
--- /dev/null
+++ b/x11-wm/xmonad/files/xmonad-0.11-sample.patch
@@ -0,0 +1,74 @@
+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
new file mode 100644
index 000000000000..79bd2c2d21fa
--- /dev/null
+++ b/x11-wm/xmonad/files/xmonad-0.12-check-repeat.patch
@@ -0,0 +1,40 @@
+--- 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
new file mode 100644
index 000000000000..9b30cb5ece31
--- /dev/null
+++ b/x11-wm/xmonad/files/xmonad-check-repeat.patch
@@ -0,0 +1,40 @@
+--- 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
diff --git a/x11-wm/xmonad/files/xmonad.desktop b/x11-wm/xmonad/files/xmonad.desktop
new file mode 100644
index 000000000000..9c0bf6e44f51
--- /dev/null
+++ b/x11-wm/xmonad/files/xmonad.desktop
@@ -0,0 +1,13 @@
+[Desktop Entry]
+Type=Application
+Encoding=UTF-8
+Name=xmonad
+Comment=A lightweight window manager
+Exec=/etc/X11/Sessions/xmonad
+TryExec=xmonad
+NoDisplay=true
+Icon=
+X-GNOME-WMName=Xmonad
+X-GNOME-Autostart-Phase=WindowManager
+X-GNOME-Provides=windowmanager
+X-GNOME-Autostart-Notify=false