Add xmonad configuration

2022-09-23 00:46:34 +02:00
parent c29ce57628
commit 342caa641b
2 changed files with 182 additions and 0 deletions
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -0,0 +1,85 @@
+import           System.IO
+import           XMonad
+import           XMonad.Config.Desktop
+import           XMonad.Hooks.DynamicLog
+import           XMonad.Hooks.ManageDocks
+import           XMonad.Layout.BorderResize
+import           XMonad.Layout.Fullscreen
+import           XMonad.Layout.Grid
+import           XMonad.Layout.NoBorders      (noBorders, smartBorders)
+import           XMonad.Layout.ResizableTile  (MirrorResize (..),
+                                               ResizableTall (..))
+import           XMonad.Layout.Spacing
+import           XMonad.Layout.Tabbed         (Theme (..), shrinkText,
+                                               tabbedAlways)
+import           XMonad.Layout.ToggleLayouts  (ToggleLayout (..), toggleLayouts)
+import           XMonad.Layout.WindowArranger
+import           XMonad.Util.EZConfig
+import           XMonad.Util.Paste
+import           XMonad.Util.Run              (spawnPipe)
+
+import           XMonad.Actions.CycleWS
+import           XMonad.Actions.GridSelect
+import           XMonad.Actions.WindowGo
+import           XMonad.Hooks.EwmhDesktops
+import           XMonad.Hooks.ManageHelpers
+import           XMonad.Hooks.ScreenCorners
+
+import qualified Data.Map.Strict              as M
+import qualified XMonad.StackSet              as W
+
+myStartupHook = do
+  addScreenCorners [ (SCLowerRight, nextWS)
+                   , (SCLowerRight, prevWS)
+                   ]
+
+main = do
+  xmproc <- spawnPipe "xmobar"
+  xmonad $ def {
+        terminal = "alacritty"
+      -- Use Win key instead of Alt
+      , modMask = mod4Mask
+      , workspaces = ["α", "β", "γ", "δ", "ε"]
+      -- Styling
+      , focusedBorderColor = "#000000"
+      , normalBorderColor = "#111111"
+      , borderWidth = 2
+      -- Hooks
+      , startupHook = myStartupHook
+      , layoutHook = screenCornerLayoutHook $ layoutHook def
+      , handleEventHook = handleEventHook def <+> screenCornerEventHook
+      , logHook = dynamicLogWithPP xmobarPP
+        { ppOutput = hPutStrLn xmproc
+        , ppTitle = xmobarColor "green" "" . shorten 50
+        }
+  } `additionalKeysP`
+    -- Keybindings to be added
+    [ ("M-S-<Space>", withFocused $ windows . W.sink)
+    , ("M-p", spawn "rofi -show run")
+    -- Map insert key to paste from clipboard
+    , ("<Insert>", pasteSelection)
+    -- Map print screen to take a screenshot with flameshot
+    , ("<Print>", spawn "flameshot gui")
+    -- Map audio keys to control volume
+    , ("<XF86AudioRaiseVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ +5%")
+    , ("<XF86AudioLowerVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ -5%")
+    , ("<XF86AudioMute>", spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle")
+    -- Map brightness keys to control brightness with brightnessctl
+    , ("<XF86MonBrightnessUp>", spawn "brightnessctl set 20+")
+    , ("<XF86MonBrightnessDown>", spawn "brightnessctl set 20-")
+    -- Map brightness keys + shift to adjust redshift temperature
+    , ("S-<XF86MonBrightnessUp>", spawn "echo $(($(cat /tmp/temperature) + 50)) > /tmp/temperature && redshift -O $(cat /tmp/temperature) -P && notify < /tmp/temperature -h string:x-canonical-private-synchronous:anything")
+    , ("S-<XF86MonBrightnessDown>", spawn "echo $(($(cat /tmp/temperature) - 50)) > /tmp/temperature && redshift -O $(cat /tmp/temperature) -P && notify < /tmp/temperature -h string:x-canonical-private-synchronous:anything")
+    -- Reset redshift temperature
+    , ("M-S-<XF86MonBrightnessUp>", spawn "echo 3000 > /tmp/temperature && redshift -x")
+    , ("M-S-<XF86MonBrightnessDown>", spawn "echo 3000 > /tmp/temperature && redshift -x")
+    -- Use power down key to suspend
+    , ("<XF86PowerOff>", spawn "systemctl suspend")
+    , ("M-q", spawn "xmonad --recompile; pkill xmobar; xmonad --restart")
+    ]
+    `removeKeysP`
+    -- Keybindings to be removed
+    [ "M-t" ]
+
+mainManageHook = composeAll
+  [ className =? "plank"     --> doIgnore ]