dotfiles

commit 7134e4dd3b82062ac1a8c156825d77097fa73cde
parent 42ac6ced2ceb968f8a04ec524e1f7d9a6da34801
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Thu, 12 May 2016 20:31:44 +0300

Merge remote-tracking branch 'xmonad/master'

Diffstat:
A
dotxmonad/xmonad.hs
 | 
67
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

1 file changed, 67 insertions(+), 0 deletions(-)
diff --git a/dotxmonad/xmonad.hs b/dotxmonad/xmonad.hs
@@ -0,0 +1,67 @@
+module Main where
+
+import           Data.Monoid                  (All)
+import           Graphics.X11.Xlib.Extras     (Event)
+import           XMonad                       (Choose, Full, KeyMask (..),
+                                               KeySym (..), Mirror,
+                                               Modifier (..), MonadIO (..),
+                                               Tall, Window, controlMask,
+                                               defaultConfig, handleEventHook,
+                                               layoutHook, mod1Mask, mod2Mask,
+                                               mod3Mask, mod4Mask, modMask,
+                                               shiftMask, spawn, startupHook,
+                                               xK_Print, xK_Return, xK_z,
+                                               xmonad, (.|.), (<+>))
+import           XMonad.Core                  (X)
+import           XMonad.Hooks.EwmhDesktops    (ewmh, fullscreenEventHook)
+import           XMonad.Hooks.ManageDocks     (AvoidStruts, avoidStruts)
+import           XMonad.Layout.LayoutModifier (ModifiedLayout)
+import           XMonad.Util.EZConfig         (additionalKeys)
+
+
+myTerminal :: String
+myTerminal = "gnome-terminal"
+
+
+myBorderWidth :: Int
+myBorderWidth = 2
+
+
+myModMask :: Modifier
+myModMask = mod4Mask
+
+
+myStartupHook :: MonadIO m => m ()
+myStartupHook = do
+		spawn "sleep 10; redshift -O 3500"
+		spawn "trayer"
+		spawn "keynav"
+		spawn "setxkbmap -option grp:switch,grp:alt_shift_toggle us,il"
+
+
+myLayoutHook :: ModifiedLayout AvoidStruts (Choose Tall (Choose (Mirror Tall) Full)) Window
+myLayoutHook = avoidStruts $ layoutHook defaultConfig
+
+
+myAdditionalKeys ::
+    MonadIO m =>
+    [((KeyMask, KeySym), m ())]
+myAdditionalKeys =
+    [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
+    , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
+    , ((0, xK_Print), spawn "scrot")
+    -- , ((mod1Mask, xK_Escape), spawn "setxkbmap -option grp:switch,grp:alt_shift_toggle,grp_led:scroll us,il")
+    , ((controlMask .|. shiftMask, xK_Return), spawn "xsel -b | festival --tts")
+    ]
+
+
+myHandleEventHook :: Graphics.X11.Xlib.Extras.Event -> XMonad.Core.X Data.Monoid.All
+myHandleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook
+
+main :: IO ()
+main = xmonad $ ewmh defaultConfig
+	{ modMask         = myModMask
+	, startupHook     = myStartupHook
+	, layoutHook      = myLayoutHook
+    , handleEventHook = myHandleEventHook
+	} `additionalKeys` myAdditionalKeys