From 80c948ce28eb423458ebde9c4e846da92fb81b77 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Mon, 24 Jun 2019 00:13:15 -0700 Subject: Add XMonad config --- .xmonad/.gitignore | 3 + .xmonad/xmonad.hs | 245 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 248 insertions(+) create mode 100644 .xmonad/.gitignore create mode 100644 .xmonad/xmonad.hs (limited to '.xmonad') diff --git a/.xmonad/.gitignore b/.xmonad/.gitignore new file mode 100644 index 0000000..17eef10 --- /dev/null +++ b/.xmonad/.gitignore @@ -0,0 +1,3 @@ +xmonad.errors +xmonad-x86_64-linux +history \ No newline at end of file diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs new file mode 100644 index 0000000..a20b04d --- /dev/null +++ b/.xmonad/xmonad.hs @@ -0,0 +1,245 @@ +import XMonad +import XMonad.Hooks.ManageDocks (avoidStruts) +import XMonad.Util.EZConfig (additionalKeys) +import XMonad.Config.Xfce +import XMonad.Config.Desktop +import XMonad.Hooks.EwmhDesktops +import XMonad.Actions.CycleWS +import XMonad.Actions.PhysicalScreens +import XMonad.Layout.NoBorders +import XMonad.Layout.SimpleDecoration +import XMonad.Layout.NoFrillsDecoration +import XMonad.Layout.Grid +import XMonad.Layout.FixedColumn +import XMonad.Layout.IM +import XMonad.Layout.Reflect +import XMonad.Layout.PerWorkspace +import XMonad.Layout.ResizableTile +import XMonad.Layout.Dishes +import XMonad.Layout.PerWorkspace +import XMonad.Layout.ThreeColumns +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.LimitWindows +import XMonad.Layout.Spiral +import XMonad.Layout.Tabbed +import XMonad.Actions.UpdateFocus +import XMonad.Actions.CopyWindow +import XMonad.Util.Themes +import XMonad.Prompt +import XMonad.Prompt.Shell +import XMonad.Actions.RotSlaves +import XMonad.Actions.PerWorkspaceKeys +import qualified XMonad.Actions.FlexibleResize as Flex +import XMonad.Hooks.ManageHelpers +import qualified XMonad.StackSet as W +import qualified Data.Map as M +import Control.Monad +import Data.Ratio ((%)) +import Data.Maybe +import Data.List +import Graphics.X11.ExtraTypes.XF86 + +myMod = mod4Mask -- windows key +myTerminal = "xfce4-terminal" + +myTheme = defaultTheme + { activeColor = blue + , inactiveColor = grey + , activeBorderColor = red + , inactiveBorderColor = grey + , activeTextColor = "white" + , inactiveTextColor = "black" + , decoHeight = 12 + } + where + blue = "#4a708b" -- same color used by pager + grey = "#cccccc" + red = "#ff0000" + +myXPConfig = defaultXPConfig + { fgColor = "white" + , bgColor = "black" + , promptBorderWidth = 1 + , position = Bottom + , height = 25 + } + +myWorkSpaces = ["emacs", "web", "chat", "4", "email", "6", "web-2", "8", "logs"] + +myLayout = toggleLayouts Full perWS + where + -- Per workspace layout selection. + perWS = onWorkspace "emacs" (noTitles $ (myWide ||| myCode)) $ + onWorkspace "web" (noTitles $ (mySplit ||| myWide)) $ + onWorkspace "chat" (noTitles $ (myChat gridFirst ||| simpleTabbed)) $ + onWorkspace "irc" (noTitles $ (myChat gridFirst ||| simpleTabbed)) $ + onWorkspace "email" (noTitles $ myWide) $ + onWorkspace "book" (noTitles $ myBook) $ + onWorkspace "web-2" (noTitles $ (mySplit ||| myWide)) $ + onWorkspace "logs" (withTitles $ myLogs dishFirst) $ + (simpleTabbed ||| (withTitles $ (myGrid ||| myCode ||| myWide))) + + -- Modifies a layout to be desktop friendly with title bars + -- and avoid the panel. + withTitles l = noFrillsDeco shrinkText myTheme $ l + --withTitles l = desktopLayoutModifiers l + + -- Modifies a layout to be desktop friendly, but with no title bars + -- and avoid the panel. + noTitles l = desktopLayoutModifiers l + + -- Each of these allows toggling through a set of layouts + -- in the same logical order, but from a different starting + -- point. + -- codeFirst = myCode ||| myWide ||| mySpiral ||| myGrid ||| myDish + dishFirst = myDish ||| myCode ||| myWide ||| mySpiral ||| myGrid + gridFirst = myGrid ||| myDish ||| myCode ||| myWide ||| mySpiral + + -- This is a tall-like layout. + -- The master window is fixed at 80 columns wide, making + -- this good for coding. Limited to 4 visible windows at + -- a time to ensure all are a good size. + myCode = limitWindows 4 $ + FixedColumn 1 1 80 10 + + -- Stack with one large master window. + -- It's easy to overflow a stack to the point that windows + -- are too small, so only show first 5. + myDish = limitWindows 5 $ Dishes nmaster ratio + where + -- default number of windows in the master pane + nmaster = 1 + -- proportion of screen occupied by other panes + ratio = 1/5 + + -- Wide layout with subwindows at the bottom. + myWide = Mirror $ Tall nmaster delta ratio + where + -- default number of windows in the master pane + nmaster = 1 + -- Percent of screen to increment by when resizing panes + delta = 3/100 + -- proportion of screen occupied by master pane + ratio = 80/100 + + -- Split screen, optimized for web browsing. + mySplit = Tall nmaster delta ratio + where + -- default number of windows in the master pane + nmaster = 1 + -- Percent of screen to increment by when resizing panes + delta = 3/100 + -- proportion of screen occupied by master pane + ratio = 60/100 + + -- Standard grid. + myGrid = Grid + + -- Determined experimentally + mySpiral = spiral (6/7) + + -- The chat workspace has a roster on the right. + myChat base = mirror base $ withIM size roster + where + -- Ratio of screen roster will occupy + size = 1%5 + -- Match roster window + roster = Title "Buddy List" + + -- The logs workspace has space for procmeter. + myLogs base = mirror base $ withIM procmeterSize procmeter + where + -- Ratio of screen procmeter will occupy + procmeterSize = 1%7 + -- Match procmeter + procmeter = ClassName "ProcMeter3" + + -- For reading books, I typically want borders on + -- the margin of the screen. + myBook = ThreeColMid nmaster delta ratio + where + -- default number of windows in the master pane + nmaster = 1 + -- Percent of screen to increment by when resizing panes + delta = 3/100 + -- proportion of screen occupied by master pane + ratio = 2/3 + -- Applies a layout mirrored. + mirror base a = reflectHoriz $ a $ reflectHoriz base + +myKeys = + [ ((myMod, xK_x), spawn myTerminal) + , ((myMod, xK_c), kill) + , ((myMod, xK_a), toggleWS) + , ((myMod, xK_z), shellPrompt myXPConfig) + , ((myMod, xK_p), spawn "assword gui") + , ((altMask .|. controlMask, xK_l), spawn "xflock4") + , ((0, xF86XK_AudioLowerVolume ), spawn "amixer set Master 5%-") + , ((0, xF86XK_AudioRaiseVolume ), spawn "amixer set Master 5%+") + , ((0, xF86XK_AudioMute ), spawn "amixer set Master toggle") + ] ++ [((myMod .|. mask, key), f sc) + | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] + , (f, mask) <- [(viewScreen, 0), (sendToScreen, shiftMask)]] + where + altMask = mod1Mask + +myManageHook = composeAll + -- comes first to partially override default gimp floating behavior + [ gimp "toolbox" --> nofloat + , gimp "image-window" --> nofloat + , manageHook xfceConfig + , doF avoidMaster + , resource =? "floatterm" --> doFloat + , resource =? "xeyes" --> doFloat + , className =? "mplayer2" --> doFloat + , className =? "Xfce4-panel" --> doIgnore + , className =? "Xfce4-notifyd" --> doIgnore + , className =? "Evolution-alarm-notify" --> doIgnore + -- workaround for + , composeOne [ isFullscreen -?> doFullFloat ] + -- display notifications on all workspaces, + -- and avoid focus stealing + --, className =? "Xfce4-notifyd" --> doF W.focusDown <+> doF copyToAll + ] + where + gimp win = className =? "Gimp" <&&> fmap (win `isSuffixOf`) role + role = stringProperty "WM_WINDOW_ROLE" + nofloat = ask >>= doF . W.sink + +-- Modified to only operate on floating windows, since I seem to do this by +-- accident to non-floating. +myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList + -- mod-button1, Move by dragging + [ ((modMask, button1), (\w -> focus w >> ifFloating w mouseMoveWindow)) + -- mod-button2, Raise the window to the top of the stack + --, ((modMask, button2), (\w -> focus w >> windows W.swapMaster)) + -- mod-button3, Resize by dragging + , ((modMask, button3), (\w -> focus w >> ifFloating w mouseResizeWindow)) + ] + where + ifFloating w f = withWindowSet $ \ws -> + when (M.member w $ W.floating ws) (f w) + +myConfig = xfceConfig + { manageHook = myManageHook + , layoutHook = smartBorders (avoidStruts myLayout) + , modMask = myMod + , workspaces = myWorkSpaces + , mouseBindings = myMouseBindings + , terminal = myTerminal + , borderWidth = 1 + , normalBorderColor = inactiveBorderColor myTheme + , focusedBorderColor = activeBorderColor myTheme + --, startupHook = adjustEventInput + --, handleEventHook = focusOnMouseMove + , handleEventHook = handleEventHook xfceConfig <+> fullscreenEventHook + } `additionalKeys` myKeys + +main = xmonad myConfig + +-- Avoid the master window, but otherwise manage new windows normally. +avoidMaster :: W.StackSet i l a s sd -> W.StackSet i l a s sd +avoidMaster = W.modify' $ \c -> + case c of + W.Stack t [] (r:rs) -> W.Stack t [r] rs + _ -> c -- cgit v1.2.3