Initial Commitcori-laptop

1 files changed, 201 insertions, 0 deletions

diff --git a/xmonad.hs b/xmonad.hs
new file mode 100644
index 0000000..da209dd
--- /dev/null
+++ b/xmonad.hs
@@ -0,0 +1,201 @@
+-- xmonad.hs
+
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.ManageHelpers
+import XMonad.Hooks.EwmhDesktops
+import XMonad.Layout.NoBorders
+import XMonad.Util.EZConfig (additionalKeysP)
+import XMonad.Util.SpawnOnce
+import XMonad.Util.Run (spawnPipe)
+
+import qualified XMonad.StackSet as W
+import qualified Data.Map        as M
+
+import System.IO     (hPutStrLn, Handle)
+import System.Exit   (exitSuccess)
+import System.Random (randomRIO)
+
+------------------------------------------------------------------------
+-- Basic settings
+------------------------------------------------------------------------
+
+myModMask :: KeyMask
+myModMask = mod1Mask
+
+myTerminal :: String
+myTerminal = "urxvtc"
+
+myBorderWidth :: Dimension
+myBorderWidth = 1
+
+myNormalBorderColor :: String
+myNormalBorderColor = "#222222"
+
+myFocusedBorderColor :: String
+myFocusedBorderColor = "#285577"
+
+myFocusFollowsMouse :: Bool
+myFocusFollowsMouse = True
+
+------------------------------------------------------------------------
+-- Workspaces
+------------------------------------------------------------------------
+
+myWorkspaces :: [String]
+myWorkspaces = map show [1..10]
+
+------------------------------------------------------------------------
+-- Layouts
+------------------------------------------------------------------------
+
+myLayout = avoidStruts $ smartBorders $
+    tiled ||| Mirror tiled ||| Full
+  where
+    tiled   = Tall nmaster delta ratio
+    nmaster = 1
+    ratio   = 1/2
+    delta   = 3/100
+
+------------------------------------------------------------------------
+-- Manage hook
+------------------------------------------------------------------------
+
+myManageHook :: ManageHook
+myManageHook = composeAll
+    [ isFullscreen --> doFullFloat ] <+> manageDocks
+
+------------------------------------------------------------------------
+-- Startup hook
+------------------------------------------------------------------------
+
+myStartupHook :: X ()
+myStartupHook = do
+    spawnOnce "picom"
+    spawnOnce "nitrogen --restore"
+    spawnOnce "nm-applet"
+    spawnOnce "pipewire"
+    spawnOnce "pipewire-pulse"
+    spawnOnce "pa-applet"
+    spawnOnce "xrdb -merge ~/.Xresources"
+    spawnOnce "xset r rate 300 50"
+    spawnOnce "xsetroot -cursor_name left_ptr"
+    spawnOnce "parcellite"
+    spawnOnce "flameshot"
+    spawnOnce "/opt/piavpn/bin/pia-client"
+    spawnOnce "dunst"
+    spawnOnce "~/.config/polybar/polybar-launch.sh"
+    spawnOnce "urxvtd -q -o -f"
+    spawnOnce "/usr/bin/emacs --daemon --init-dir ~/.config/emacs/"
+
+------------------------------------------------------------------------
+-- Key bindings
+------------------------------------------------------------------------
+
+myKeys :: [(String, X ())]
+myKeys =
+    [ ("M-<Return>",   spawn myTerminal)
+    , ("M-g",          spawn "waterfox")
+    , ("M-t",          spawn "pcmanfm")
+    , ("M-e",          spawn "emacsclient -c")
+    , ("M-q",          kill)
+    , ("M-d",          spawn "dmenu_run -nb '#111111' -nf '#aaaaaa' -sb '#285577' -sf '#ffffff' -fn 'Fira Code-10'")
+
+    , ("M-S-c",        spawn "xmonad --recompile && xmonad --restart")
+    , ("M-S-r",        spawn "xmonad --restart")
+    , ("M-S-e",        io exitSuccess)
+    , ("M-S-x",        spawn "xsecurelock")
+
+    , ("M-j",          windows W.focusDown)
+    , ("M-k",          windows W.focusUp)
+    , ("M-h",          windows W.focusMaster)
+    , ("M-l",          windows W.focusDown)
+
+    , ("M-S-j",        windows W.swapDown)
+    , ("M-S-k",        windows W.swapUp)
+    , ("M-S-h",        windows W.swapMaster)
+    , ("M-S-l",        windows W.swapDown)
+
+    , ("M-r h",        sendMessage Shrink)
+    , ("M-r l",        sendMessage Expand)
+
+    , ("M-,",          sendMessage (IncMasterN 1))
+    , ("M-.",          sendMessage (IncMasterN (-1)))
+
+    , ("M-s",          sendMessage NextLayout)
+    , ("M-S-<Space>",  withFocused toggleFloat)
+    , ("M-<Space>",    windows W.focusMaster)
+    , ("M-f",          withFocused (windows . W.sink) >> sendMessage NextLayout)
+
+    , ("<Print>", spawn "flameshot full -p ~/Pictures")
+
+    , ("<XF86AudioRaiseVolume>", spawn "pamixer --increase 5")
+    , ("<XF86AudioLowerVolume>", spawn "pamixer --decrease 5")
+    , ("<XF86AudioMute>",        spawn "pamixer --toggle-mute")
+
+    , ("<XF86MonBrightnessUp>",   spawn "brightnessctl set +10%")
+    , ("<XF86MonBrightnessDown>", spawn "brightnessctl set 10%-")
+    ]
+    ++
+    [ ("M-"   ++ key, windows $ W.greedyView ws)
+    | (key, ws) <- zip (map show [1..9] ++ ["0"]) myWorkspaces
+    ]
+    ++
+    [ ("M-S-" ++ key, windows $ W.shift ws)
+    | (key, ws) <- zip (map show [1..9] ++ ["0"]) myWorkspaces
+    ]
+
+toggleFloat :: Window -> X ()
+toggleFloat w = do
+    isFloat <- gets (M.member w . W.floating . windowset)
+    if isFloat
+        then windows $ W.sink w
+        else float w
+
+------------------------------------------------------------------------
+-- Polybar log hook
+------------------------------------------------------------------------
+
+myLogHook :: Handle -> X ()
+myLogHook fifo = dynamicLogWithPP $ def
+    { ppOutput          = hPutStrLn fifo
+    , ppSep             = "  "
+    , ppTitleSanitize   = xmobarStrip
+    , ppCurrent         = wrap "%{B#285577}%{F#ffffff} " " %{F-}%{B-}"
+    , ppHidden          = wrap "%{F#b0b0b0} " " %{F-}"
+    , ppHiddenNoWindows = wrap "%{F#555555} " " %{F-}"
+    , ppUrgent          = wrap "%{B#cc4444}%{F#ffffff} " " %{F-}%{B-}"
+    , ppTitle           = wrap "%{F#c0c0c0}" "%{F-}" . shorten 40
+    , ppLayout          = wrap "%{F#909090}[" "]%{F-}" . \l -> case l of
+                            "Tall"        -> "T"
+                            "Mirror Tall" -> "M"
+                            "Full"        -> "F"
+                            _             -> "?"
+    }
+  
+------------------------------------------------------------------------
+-- Main
+------------------------------------------------------------------------
+
+main :: IO ()
+main = do
+    fifo <- spawnPipe "cat > /tmp/xmonad-log"
+    xmonad
+        . ewmhFullscreen
+        . ewmh
+        . docks
+        $ def
+            { modMask            = myModMask
+            , terminal           = myTerminal
+            , borderWidth        = myBorderWidth
+            , normalBorderColor  = myNormalBorderColor
+            , focusedBorderColor = myFocusedBorderColor
+            , focusFollowsMouse  = myFocusFollowsMouse
+            , workspaces         = myWorkspaces
+            , layoutHook         = myLayout
+            , manageHook         = myManageHook
+            , startupHook        = myStartupHook
+            , logHook            = myLogHook fifo
+            }
+        `additionalKeysP` myKeys
\ No newline at end of file