config

commit caa843ed93d7d56e059df76e396158f3b6d00654
parent 871e9271aca1163a91447ee2503e8d4b76e4dd10
Author: jacobsGit <JacobDoesLinux@protonmail.com>
Date:   Fri, 13 Dec 2019 20:00:46 -0800

emwh desktops implemented

Diffstat:
M
xmonad/.xmonad/xmonad-x86_64-linux
 | 
0

M
xmonad/.xmonad/xmonad.errors
 | 
12
++++++------
M
xmonad/.xmonad/xmonad.hs
 | 
14
+++++++++++---
M
xmonad/.xmonad/xmonad.o
 | 
0

4 files changed, 17 insertions(+), 9 deletions(-)
diff --git a/xmonad/.xmonad/xmonad-x86_64-linux b/xmonad/.xmonad/xmonad-x86_64-linux
Binary files differ.
diff --git a/xmonad/.xmonad/xmonad.errors b/xmonad/.xmonad/xmonad.errors
@@ -14,26 +14,26 @@ xmonad.hs:41:42: warning: [-Wdeprecations]
 41 |      gaps [(L,0), (R,0), (U,0), (D,0)] $ spacing 0 $ Tall 1 (3/100) (1/2) |||
    |                                          ^^^^^^^
 
-xmonad.hs:72:101: warning: [-Wdeprecations]
+xmonad.hs:80:101: warning: [-Wdeprecations]
     In the use of `defaultConfig'
     (imported from XMonad, but defined in XMonad.Config):
     Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."
    |
-72 |     [((myModMask             ,   k), (windows $ S.greedyView i)) | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_q, xK_w, xK_e, xK_o, xK_p ]]++
+80 |     [((myModMask             ,   k), (windows $ S.greedyView i)) | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_q, xK_w, xK_e, xK_o, xK_p ]]++
    |                                                                                                     ^^^^^^^^^^^^^
 
-xmonad.hs:73:131: warning: [-Wdeprecations]
+xmonad.hs:81:131: warning: [-Wdeprecations]
     In the use of `defaultConfig'
     (imported from XMonad, but defined in XMonad.Config):
     Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."
    |
-73 |     [((mod4Mask              ,   k), (windows $ S.shift i     ) >> (windows $ S.greedyView i)) | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_q, xK_w, xK_e, xK_o, xK_p  ]
+81 |     [((mod4Mask              ,   k), (windows $ S.shift i     ) >> (windows $ S.greedyView i)) | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_q, xK_w, xK_e, xK_o, xK_p  ]
    |                                                                                                                                   ^^^^^^^^^^^^^
 
-xmonad.hs:89:78: warning: [-Wdeprecations]
+xmonad.hs:97:78: warning: [-Wdeprecations]
     In the use of `defaultConfig'
     (imported from XMonad, but defined in XMonad.Config):
     Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."
    |
-89 | myManageHook = manageDocks <+> (isFullscreen --> doFullFloat) <+> manageHook defaultConfig 
+97 | myManageHook = manageDocks <+> (isFullscreen --> doFullFloat) <+> manageHook defaultConfig 
    |                                                                              ^^^^^^^^^^^^^
diff --git a/xmonad/.xmonad/xmonad.hs b/xmonad/.xmonad/xmonad.hs
@@ -64,9 +64,17 @@ myKeys conf = M.fromList $
     , ((myModMask                  , xK_period ), sendMessage (IncMasterN (-1)))
     , ((myModMask                  , xK_z      ), restart "xmonad" True)
     -- gaps -- 
-    , ((myModMask .|. controlMask, xK_minus),   (incWindowSpacing 8) >> (sendMessage $ IncGap 45 R) >> (sendMessage $ IncGap 45 L))
-    , ((myModMask .|. controlMask, xK_equal),   (decWindowSpacing 8) >> (sendMessage $ DecGap 45 R) >> (sendMessage $ DecGap 45 L))
+    , ((myModMask .|. controlMask, xK_minus),   (incWindowSpacing 8))
+    , ((myModMask .|. controlMask, xK_equal),   (decWindowSpacing 8))
+    , ((mod4Mask  .|. myModMask .|. controlMask, xK_minus),   (incWindowSpacing 8) >> (sendMessage $ IncGap 45 R) >> (sendMessage $ IncGap 45 L))
+    , ((mod4Mask  .|. myModMask .|. controlMask, xK_equal),   (decWindowSpacing 8) >> (sendMessage $ DecGap 45 R) >> (sendMessage $ DecGap 45 L))
     , ((myModMask .|. controlMask, xK_0), (sendMessage $ ToggleGaps) >> (toggleWindowSpacingEnabled))
+    -- left/right --
+    , ((myModMask .|. controlMask, xK_bracketleft), (sendMessage $ IncGap 150 R) >> (sendMessage $ DecGap 150 L))
+    , ((myModMask .|. controlMask, xK_bracketright), (sendMessage $ DecGap 150 R) >> (sendMessage $ IncGap 150 L))
+    , ((myModMask .|. controlMask, xK_bracketright), (sendMessage $ DecGap 150 R) >> (sendMessage $ IncGap 150 L))
+    -- reset --
+    , ((myModMask .|. controlMask, xK_backslash), (setScreenWindowSpacing 0)  >> (sendMessage $ setGaps [(L,0), (R,0), (U,0), (D,0)]))
     ]++    
     -- workspaces --
     [((myModMask             ,   k), (windows $ S.greedyView i)) | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_q, xK_w, xK_e, xK_o, xK_p ]]++
@@ -74,7 +82,7 @@ myKeys conf = M.fromList $
     ]
 
 
-main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
+main = xmonad =<< statusBar myBar myPP toggleStrutsKey (ewmh myConfig)
     { modMask = myModMask
     , keys = myKeys
     , borderWidth = myBorderWidth
diff --git a/xmonad/.xmonad/xmonad.o b/xmonad/.xmonad/xmonad.o
Binary files differ.