path: root/gui/conf/xmonad.hs

import XMonad hiding ((|||))
import XMonad.Util.EZConfig
import qualified XMonad.StackSet as S

import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.InsertPosition
import XMonad.Hooks.SetWMName

import XMonad.Layout.Tabbed
import XMonad.Layout.MultiColumns
import XMonad.Layout.TwoPane
import XMonad.Layout.OneBig
import XMonad.Layout.Grid

import XMonad.Layout.Groups.Examples
import XMonad.Layout.Groups.Helpers

import XMonad.Layout.NoBorders
import XMonad.Layout.Reflect
import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
import XMonad.Layout.Renamed (Rename(..), renamed)
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.LayoutModifier
import XMonad.Layout.Monitor
import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.BorderResize

import XMonad.Util.Themes
import XMonad.Util.NamedScratchpad
import XMonad.Util.Dmenu (menuMapArgs)

import XMonad.Actions.SpawnOn
import XMonad.Actions.CycleWS
import XMonad.Actions.WindowBringer
import XMonad.Actions.GroupNavigation
import XMonad.Actions.FloatKeys
import XMonad.Actions.UpdatePointer

import Data.Maybe
import Control.Monad (when)
import Data.Map (Map, fromList, member)
import Data.List (unionBy)

import System.Exit
import System.Posix.Unistd

workspaces :: [WorkspaceId]
workspaces = map show [1 .. 9 :: Int]

customTabTheme host = (theme xmonadTheme)
  { fontName      = "xft:Iosevka Medium-12"
  , decoHeight    = decoHeightOn host
  , activeTextColor     = "#222222"
  , activeColor         = "#909636"
  , inactiveTextColor   = "#999999"
  , inactiveColor       = "#161616"
  , activeBorderColor   = "#909636"
  , inactiveBorderColor = "#161616" }

customLayoutHook host = id
  . smartBorders
  . ModifiedLayout (hudMonitor host)
  . mkToggle (single NBFULL)
  $ tiles ||| two ||| tabs ||| frame ||| bsp ||| grid ||| groups
  where
    tiles  = name "tiles" $ id
                          . mkToggle (single REFLECTX)
                          . mkToggle (single REFLECTY)
                          $ multiCol [1, 2, 0] 1 delta (1/3)
    tabs   = name "tabs"  $ tabbed shrinkText (customTabTheme host)
    two    = name "two"   $ TwoPane delta (1/2)
    frame  = name "frame" $ id
                          . mkToggle (single REFLECTX)
                          . mkToggle (single REFLECTY)
                          . reflectVert
                          $ OneBig (2/3) (4/5)
    bsp    = name "bsp"   $ borderResize (emptyBSP)
    grid   = name "grid"  $ Grid
    groups = name "groups" $ rowOfColumns
    delta  = 1/24
    name n = renamed [Replace n]

-- layout names for layout selection dialog
layoutNames = fromList [ ("0: Multi-column tiles"      , "tiles")
                       , ("1: Tabbed windows"          , "tabs")
                       , ("2: Two column stack"        , "two")
                       , ("3: One large framed window" , "frame")
                       , ("4: Binary space partition"  , "bsp")
                       , ("5: Grid"                    , "grid")
                       , ("6: Grouped columns"         , "groups") ]

floatRectTop    h = S.RationalRect (1/20) 0      (18/20) h
floatRectBottom h = S.RationalRect (1/20) (1-h)  (18/20) h
floatRectLeft   w = S.RationalRect 0      (1/20) w       (18/20)
floatRectRight  w = S.RationalRect (1-w)  (1/20) w       (18/20)

dropUp        = floatRectBottom $ 2/3
dropUpLarge   = floatRectBottom $ 18/20
dropDown      = floatRectTop    $ 2/3
dropDownLarge = floatRectTop    $ 18/20
sideBarLeft   = floatRectLeft   $ 1/3
sideBarRight  = floatRectRight  $ 1/3

scratchpads host =
  [ NS "terminal"      "kitty --class=scratchterm"                             (className =? "scratchterm")
       (customFloating $ hideScreenBorder host dropDown)
  , NS "browser"       "env MOZ_USE_XINPUT2=1 firefox --no-remote -P scratchpad --class scratchfire" (className =? "scratchfire")
       (customFloating $ hideScreenBorder host dropDownLarge)
  , NS "thesaurus"     "artha"                                                 (className =? "Artha")
       (customFloating $ hideScreenBorder host sideBarLeft)
  , NS "literature"    "zotero"                                                (className =? "Zotero")
       (customFloating $ hideScreenBorder host dropDownLarge)
  , NS "calculator"    "speedcrunch"                                           (className =? "SpeedCrunch")
       (customFloating $ hideScreenBorder host sideBarLeft)
  , NS "messaging"     "telegram-desktop"                                      ((className =? "TelegramDesktop") <&&> (title /=? "Media viewer"))
       (customFloating $ hideScreenBorder host sideBarRight)
  , NS "notes"         "emacsclient --create-frame --frame-parameters='(quote (name . \"notemacs\"))' ~/org/inbox.org" (title =? "notemacs")
       (customFloating $ hideScreenBorder host dropDownLarge)
  ]

hudMonitor host = monitor
  { prop = Title "hud"
  , XMonad.Layout.Monitor.name = "hud"
  , rect = Rectangle ((screenWidthOn host) - 530) ((screenHeightOn host) - 350) 480 300
  , opacity    = 0.8
  , persistent = True }

windowBringerDmenuConfig = def { menuCommand  = "rofi"
                               , menuArgs     = [ "-p", "win", "-dmenu", "-i" ] }

hostSpecificKeybindings host = case host of
  "asterix" -> [ ("M-i b"   , showNotification "Battery"
                                               "`acpi | cut -c 10-`")
               , ("M-i c"   , showNotification "`acpi --thermal | awk '{print $4}'`°C"
                                               "`cat /proc/acpi/ibm/fan | awk '/speed/{print $2}'` RPM")
               , ("M-c n"   , spawn "networkmanager_dmenu") ]
  "athena"  -> [ ("M-i b" , showNotification "Battery"
                                             "`acpi | cut -c 10-`")
               , ("M-i c" , showNotification "`acpi --thermal | awk '{print $4}'`°C"
                                             "`cat /proc/acpi/ibm/fan | awk '/speed/{print $2}'` RPM")
               , ("M-c n" , spawn "networkmanager_dmenu")
               , ("<XF86MonBrightnessUp>"   , spawn "brightnessctl s +5%")
               , ("<XF86MonBrightnessDown>" , spawn "brightnessctl s 5%-")
               , ("<XF86AudioRaiseVolume>"  , spawn "amixer sset Master 10%+")
               , ("<XF86AudioLowerVolume>"  , spawn "amixer sset Master 10%-")
               , ("<XF86AudioMute>"         , spawn "amixer sset Master toggle")
               , ("<Print>"                 , namedScratchpadAction (scratchpads host) "terminal")
               , ("M-c p"                   , spawn "flameshot gui") ]
  "obelix"  -> [ ("M-i g" , showNotification "GPU"
                                             "`nvidia-smi --query-gpu=name,temperature.gpu,utilization.gpu,utilization.memory --format=csv,noheader | awk -F',' '{print $1 \" running at\" $2 \"°C due to\" $3 \" load and\" $4 \" memory usage\"}'`") ]
  "hephaestus" -> [ ("M-i g" , showNotification "GPU"
                                             "`nvidia-smi --query-gpu=name,temperature.gpu,utilization.gpu,utilization.memory --format=csv,noheader | awk -F',' '{print $1 \" running at\" $2 \"°C due to\" $3 \" load and\" $4 \" memory usage\"}'`") ]
  _         -> [ ]

commonKeybindings host =
-- xmonad session control
  [ ("C-M1-<Escape>"    , io (exitWith ExitSuccess))
  , ("C-M1-<Backspace>" , spawn "xmonad --restart")
  , ("C-M1-l"           , spawn "i3lock -c 000000")

-- application launchers
  , ("M-<Space>"     , spawn "rofi -show combi")
  , ("M-<Return>"    , spawn "kitty")
  , ("M-S-<Return>"  , spawn "emacsclient --create-frame")
  , ("<Print>"       , spawn "flameshot gui")