-------------------------------------------------------------------------------- -- | Example.hs -- -- Example configuration file for xmonad using the latest recommended -- features (e.g., 'desktopConfig'). module Main (main) where -------------------------------------------------------------------------------- import System.Exit import System.IO import Data.Char import Data.List (sortBy) import Data.Maybe (fromMaybe, isJust) import Data.Ord (comparing) import Data.Monoid (All(..)) import Graphics.X11.Xlib.Atom import Graphics.X11.Xlib.Extras import Graphics.X11.Types import XMonad import XMonad.Actions.CopyWindow import XMonad.Actions.CycleWS import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.PhysicalScreens import XMonad.Actions.Volume -- import XMonad.Config.Desktop import XMonad.Hooks.DynamicLog import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks -- import XMonad.Layout.IndependentScreens import XMonad.Hooks.ManageHelpers -- import XMonad.Layout.BinarySpacePartition (emptyBSP) -- import XMonad.Layout.DragPane -- import XMonad.Layout.IM -- import XMonad.Layout.LayoutCombinators hiding ((|||)) import XMonad.Layout.Named import XMonad.Layout.NoBorders import XMonad.Layout.NoFrillsDecoration import XMonad.Layout.PerWorkspace -- import XMonad.Layout.ResizableTile import XMonad.Layout.Tabbed -- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts) import XMonad.Prompt import XMonad.Prompt.ConfirmPrompt -- import XMonad.Prompt.XMonad -- import XMonad.Prompt.Shell import XMonad.Util.EZConfig import XMonad.Util.NamedActions import XMonad.Util.Run -- import XMonad.Util.WindowProperties import qualified XMonad.StackSet as W -------------------------------------------------------------------------------- main = do h <- spawnPipe "xmobar" xmonad $ ewmh $ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys $ def { terminal = myTerm , modMask = myModMask , layoutHook = myLayouts , manageHook = myManageHook <+> manageDocks <+> manageHook def , handleEventHook = myEventHook <+> docksEventHook <+> handleEventHook def , startupHook = docksStartupHook <+> startupHook def , workspaces = myWorkspaces , logHook = myLoghook h , clickJustFocuses = False , focusFollowsMouse = False } -------------------------------------------------------------------------------- myTopBarTheme = def { fontName = myFont , inactiveBorderColor = "#999999" , inactiveColor = "#999999" , inactiveTextColor = "#999999" , activeBorderColor = "#d6d6d6" , activeColor = "#d6d6d6" , activeTextColor = "#d6d6d6" -- , urgentBorderColor = red -- , urgentTextColor = yellow , decoHeight = 20 } myTabbedTheme = def { fontName = myFont , activeColor = "#d6d6d6" , activeTextColor = "black" , activeBorderColor = "#d6d6d6" , inactiveColor = "#999999" , inactiveTextColor = "#333333" , inactiveBorderColor = "#999999" } myWorkspaces = map show [1..10 :: Int] myVMWorkspace = "VM" myGimpWorkspace = "GIMP" myLayouts = onWorkspace myVMWorkspace (noBorders Full) -- $ onWorkspace myGimpWorkspace gimpLayout $ tall ||| single ||| full where addTopBar = noFrillsDeco shrinkText myTopBarTheme tall = named "Tall" $ avoidStruts $ addTopBar $ noBorders $ Tall 1 0.03 0.5 single = named "Tabbed" -- $ addTopBar $ avoidStruts $ noBorders $ tabbedAlways shrinkText myTabbedTheme full = named "Full" $ noBorders $ Full -- gimpLayout = named "Gimp Layout" -- $ avoidStruts -- $ (tabbedAlways shrinkText defaultTheme) ****||* Full -- -- $ withIM (11/64) (Or (Title "Toolbox") (Title "Tool Options")) -- -- $ (tabbedAlways shrinkText defaultTheme) -- | Format workspace and layout in loghook -- The format will be like "[<1> 2 3] 4 5 | LAYOUT" where each digit -- is the workspace and LAYOUT is the current layout. Each workspace -- in the brackets is currently visible and the order reflects the -- physical location of each screen. The "<>" is the workspace -- that currently has focus myLoghook h = withWindowSet $ io . hPutStrLn h . myWindowSetXinerama myWindowSetXinerama ws = wsString ++ sep ++ layout where wsString = xmobarColor "#444444" "" $ onscreen ++ offscreen' offscreen' = if offscreen == "" then "" else " " ++ offscreen sep = xmobarColor "#888888" "" " : " onscreen = xmobarColor "#5574ad" visColor $ wrap " " " " $ unwords $ map (fmtTags . W.tag . W.workspace) . sortBy compareXCoord $ W.current ws : W.visible ws fmtTags t = if t == W.currentTag ws then xmobarColor "#2c2c2c" visColor t else t offscreen = unwords $ map W.tag . filter (isJust . W.stack) . sortBy (comparing W.tag) $ W.hidden ws visColor = "#8fc7ff" layout = description . W.layout . W.workspace . W.current $ ws compareXCoord s0 s1 = compare x0 x1 where (_, (Rectangle x0 _ _ _)) = getScreenIdAndRectangle s0 (_, (Rectangle x1 _ _ _)) = getScreenIdAndRectangle s1 -------------------------------------------------------------------------------- -- | Customize the way 'XMonad.Prompt' looks and behaves. It's a -- great replacement for dzen. -- myXPConfig = def -- { position = Top -- , alwaysHighlight = True -- , promptBorderWidth = 0 -- , font = "xft:monospace:size=9" -- } myManageHook = composeOne -- assume virtualbox is not run with the toolbar in fullscreen mode -- as this makes a new window that confusingly must go over the -- actual VM window [ className =? "VirtualBoxVM" -?> doShift "VM" -- the seafile applet , className =? "Seafile Client" -?> doFloat -- gnucash , (className =? "Gnucash" <&&> title =? "Transaction Import Assistant") -?> doFloat -- xsane , className =? "Xsane" -?> doFloat -- all of GIMP , className =? "Gimp" -?> doFloat -- , title =? "GIMP Startup" -?> doIgnore -- plots and graphics created by R , className =? "R_x11" -?> doFloat , className =? "mpv" -?> doFloat -- the floating windows created by the brave browser , stringProperty "WM_NAME" =? "Brave" -?> doFloat , (stringProperty "WM_WINDOW_ROLE" =? "pop-up" <&&> className =? "Brave-browser") -?> doFloat -- the dialog windows created by the zotero addon in Google Docs , (className =? "Zotero" <&&> resource =? "Toplevel") -?> doFloat , isDialog -?> doCenterFloat ] -- This is a giant hack to "listen" for applications that close. Some -- apps like Virtualbox go on their own workspace which is dynamically -- created. But I want said workspace to disappear when the app -- closes. This is actually hard. We can't just listen to -- DestroyWindow events as VBox will "destroy" windows when it -- switches to fullscreen and back. We also can't just monitor the -- process from the window since WindowDestroy events don't have PIDs -- attached to them. Therefore, the hack to make this all work is to -- make a script fire when VirtualBox (and other apps that I want to -- control in this manner) close. This script fires a bogus -- ClientMessage event to the root window. This event will have a -- BITMAP atom (which should do nothing) and a "magic string" in the -- data field that can be intercepted here. When this event is -- registered here, close the dynamic workspaces that are empty. myEventHook (ClientMessageEvent { ev_message_type = t, ev_data = d }) | t == bITMAP && magicstring == data2string d = do mapM_ removeEmptyWorkspaceByTag [myVMWorkspace, myGimpWorkspace] return (All True) | otherwise = return (All True) where magicstring = "xxxxxxxxxxxxxxxxxxxx" data2string = map (chr . fromInteger . toInteger) myEventHook _ = do return (All True) -- themes myFont = "xft:DejaVu Sans:size=11:autohint=false" -- base00 = "#657b83" -- base01 = "#586e75" -- base02 = "#073642" -- base03 = "#002b36" -- base0 = "#839496" -- base1 = "#93a1a1" -- base2 = "#eee8d5" -- base3 = "#fdf6e3" -- yellow = "#b58900" -- orange = "#cb4b16" -- red = "#dc322f" -- magenta = "#d33682" -- violet = "#6c71c4" -- blue = "#268bd2" -- cyan = "#2aa198" -- green = "#859900" -- gap = 10 -- topbar = 10 -- border = 0 -- prompt = 20 -- status = 20 -- active = blue -- activeWarn = red -- inactive = base02 -- focusColor = blue -- unfocusColor = base02 myPromptTheme = def { font = myFont , bgColor = "#eeeeee" , fgColor = "#282828" , fgHLight = "white" , bgHLight = "#268bd2" , borderColor = "white" , promptBorderWidth = 0 , height = 30 , position = CenteredAt 0.5 0.5 } -- hotPromptTheme = myPromptTheme -- { bgColor = red -- , fgColor = base3 -- , position = Top -- } -- TODO is there a better way to get the prompt to say what I want? data PowerPrompt = PowerPrompt instance XPrompt PowerPrompt where showXPrompt PowerPrompt = "Select Option: " myPowerPrompt = mkXPrompt PowerPrompt conf comps $ fromMaybe (return ()) . (`lookup` commands) where comps = (mkComplFunFromList' (map fst commands)) conf = myPromptTheme commands = [ ("poweroff", spawn "systemctl poweroff") , ("suspend", spawn myScreenLock >> spawn "systemctl suspend") , ("hibernate", spawn myScreenLock >> spawn "systemctl hibernate") , ("reboot", spawn "systemctl reboot") ] -- osd -- getOffset :: X Int -- getOffset = withWindowSet $ -- \W.StackSet { W.current = W.Screen { W.screenDetail = SD { screenRect = Rectangle {rect_x=x}}}} -> return $ -- fromIntegral x -- displayOsd osd msg = do -- xpos <- getOffset -- io $ set osd [HOffset xpos] -- io $ Graphics.XOSD.display osd 0 msg -- showVolume :: XOSD -> X () -- showVolume osd = do -- volume <- io $ fmap round $ getVolumeChannels ["default"] -- muted <- io $ getMute -- displayOsd osd $ Percent $ if muted then 0 else volume -- keybindings myModMask = mod4Mask _myRofi = "rofi -m -4" -- show rofi always with the focused window myTerm = "urxvt" myBrowser = "brave" myVBox = "vbox-start win8raw" myEditor = "emacsclient -c -e \"(select-frame-set-input-focus (selected-frame))\"" myCalc = "urxvt -e R" myFileManager = "pcmanfm" myRun = _myRofi ++ " -show run" myAppRun = _myRofi ++ " -show drun" myClipboard = _myRofi ++ " -modi \"clipboard:greenclip print\" \ \-show clipboard -run-command '{cmd}' \ \-theme-str '#element.selected.normal \ \{ background-color: #00c44e; }'" myNetSel = "networkmanager_dmenu -m -4" myWinSel = _myRofi ++ " -show window" myDevSel = "rofi-devices" -- TODO this will steal focus from the current window (and puts it -- in the root window?) ...need to fix myScreenCap = "flameshot gui" --external script -- myWindowCap = "screencap -w" --external script myScreenLock = "screenlock" --external script showVBox = windows $ W.view myVMWorkspace showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction showKeybindings x = addName "Show Keybindings" $ io $ do h <- spawnPipe "zenity --text-info --font=DejaVu Sans" hPutStr h (unlines $ showKm x) hClose h return () mkNamedSubmap c sectionName bindings = (subtitle sectionName:) $ mkNamedKeymap c bindings -- NOTE: the following bindings are used by dunst: -- "M-~", "M-", "M-S-", "M-S-." myKeys c = mkNamedSubmap c "Window Layouts" [ ("M-j", addName "focus down" $ windows W.focusDown) , ("M-k", addName "focus up" $ windows W.focusUp) , ("M-m", addName "focus master" $ windows W.focusMaster) , ("M-S-j", addName "swap down" $ windows W.swapDown) , ("M-S-k", addName "swap up" $ windows W.swapUp) , ("M-S-m", addName "swap master" $ windows W.swapMaster) , ("M-C-j", addName "remove master window" $ sendMessage (IncMasterN (-1))) , ("M-C-k", addName "add master window" $ sendMessage (IncMasterN 1)) , ("M-", addName "next layout" $ sendMessage NextLayout) , ("M-S-", addName "reset layout" $ setLayout $ XMonad.layoutHook c) , ("M-t", addName "sink tiling" $ withFocused $ windows . W.sink) , ("M--", addName "shrink" $ sendMessage Shrink) , ("M-=", addName "expand" $ sendMessage Expand) ] ++ mkNamedSubmap c "Workspaces" -- NOTE this assumes that there are workspaces bound to numbers ([ (mods ++ show i, addName (msg ++ " " ++ show i) $ windows $ f w) | (w, i) <- zip (XMonad.workspaces c) [1..] :: [(String, Int)] , (mods, msg, f) <- [ ("M-", "switch to workspace", W.view) , ("M-S-", "move client to workspace", W.shift)] ] ++ [ ("M-v", addName "switch to VM workspace" showVBox) , ("M-M1-g", addName "switch to Gimp workspace" $ windows $ W.view myGimpWorkspace) ]) ++ mkNamedSubmap c "Screens" [ ("M-l", addName "move up screen" nextScreen) , ("M-h", addName "move down screen" prevScreen) , ("M-C-l", addName "move client up screen" $ shiftNextScreen >> nextScreen) , ("M-C-h", addName "move client down screen" $ shiftPrevScreen >> prevScreen) , ("M-S-l", addName "shift up screen" $ swapNextScreen >> nextScreen) , ("M-S-h", addName "shift down screen" $ swapPrevScreen >> prevScreen) ] ++ mkNamedSubmap c "Actions" [ ("M-q", addName "close window" kill1) , ("M-r", addName "run program" $ spawn myRun) , ("M-C-s", addName "capture screen area" $ spawn myScreenCap) -- , ("M-C-S-s", addName "capture focused window" $ spawn myWindowCap) , ("M-", addName "lock screen" $ spawn myScreenLock) ] ++ mkNamedSubmap c "Launchers" [ ("", addName "select/launch app" $ spawn myAppRun ) , ("M-g", addName "launch clipboard manager" $ spawn myClipboard ) , ("M-a", addName "launch network selector" $ spawn myNetSel ) , ("M-w", addName "launch window selector" $ spawn myWinSel ) , ("M-u", addName "launch device selector" $ spawn myDevSel ) , ("M-C-e", addName "launch editor" $ spawn myEditor) , ("M-C-w", addName "launch browser" $ spawn myBrowser) , ("M-C-t", addName "launch terminal" $ spawn myTerm) , ("M-C-q", addName "launch calc" $ spawn myCalc) , ("M-C-f", addName "launch file manager" $ spawn myFileManager) , ("M-C-v", addName "launch windows VM" $ spawn myVBox >> appendWorkspace myVMWorkspace) , ("M-C-g", addName "launch GIMP" $ spawn "gimp" >> appendWorkspace myGimpWorkspace) ] ++ mkNamedSubmap c "Multimedia" [ ("", addName "toggle play/pause" $ spawn "playerctl play-pause") , ("", addName "previous track" $ spawn "playerctl previous") , ("", addName "next track" $ spawn "playerctl next") , ("", addName "stop" $ spawn "playerctl stop") , ("", addName "volume down" $ lowerVolume 2 >> return ()) , ("", addName "volume up" $ raiseVolume 2 >> return ()) , ("", addName "volume mute" $ toggleMute >> return ()) , ("M-C-b", addName "toggle bluetooth" $ spawn "togglebt") ] ++ mkNamedSubmap c "System" [ ("M-.", addName "backlight up" $ spawn "adj_backlight up") , ("M-,", addName "backlight down" $ spawn "adj_backlight down") , ("M-M1-,", addName "backlight min" $ spawn "adj_backlight min") , ("M-M1-.", addName "backlight max" $ spawn "adj_backlight max") , ("M-", addName "restart xmonad" $ spawn "killall xmobar; xmonad --restart") , ("M-S-", addName "recompile xmonad" $ spawn "killall xmobar; xmonad --recompile && xmonad --restart") , ("M-", addName "power menu" myPowerPrompt) , ("M-", addName "quit xmonad" $ confirmPrompt myPromptTheme "Quit XMonad?" $ io (exitWith ExitSuccess)) ]