ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD toplevel type defs

This commit is contained in:
Nathan Dwarshuis 2020-03-20 01:15:22 -04:00
parent 5d0b7be101
commit 96cbf72f97
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
bin/xmonad.hs
View File

@ -79,6 +79,7 @@ import XMonad.Util.Run
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
main :: IO ()
main = do main = do
dbClient <- startXMonadService dbClient <- startXMonadService
(barPID, h) <- spawnPipe' "xmobar" (barPID, h) <- spawnPipe' "xmobar"
@ -110,9 +111,13 @@ spawnPipe' x = io $ do
closeFd rd closeFd rd
return (p, h) return (p, h)
myWorkspaces :: [String]
myWorkspaces = map show [1..10 :: Int] myWorkspaces = map show [1..10 :: Int]
myVMWorkspace :: String
myVMWorkspace = "VM" myVMWorkspace = "VM"
myGimpWorkspace :: String
myGimpWorkspace = "GIMP" myGimpWorkspace = "GIMP"
myLayouts = onWorkspace myVMWorkspace (noBorders Full) myLayouts = onWorkspace myVMWorkspace (noBorders Full)
@ -144,8 +149,12 @@ myLayouts = onWorkspace myVMWorkspace (noBorders Full)
-- in the brackets is currently visible and the order reflects the -- in the brackets is currently visible and the order reflects the
-- physical location of each screen. The "<>" is the workspace -- physical location of each screen. The "<>" is the workspace
-- that currently has focus -- that currently has focus
myLoghook :: Handle -> X ()
myLoghook h = withWindowSet $ io . hPutStrLn h . myWindowSetXinerama myLoghook h = withWindowSet $ io . hPutStrLn h . myWindowSetXinerama
myWindowSetXinerama
:: LayoutClass layout a1 =>
W.StackSet String (layout a1) a2 ScreenId ScreenDetail -> String
myWindowSetXinerama ws = wsString ++ sep ++ layout myWindowSetXinerama ws = wsString ++ sep ++ layout
where where
wsString = xmobarColor T.backdropFgColor "" $ onscreen ++ offscreen' wsString = xmobarColor T.backdropFgColor "" $ onscreen ++ offscreen'
@ -176,6 +185,7 @@ myWindowSetXinerama ws = wsString ++ sep ++ layout
getFocusedScreen :: X Rectangle getFocusedScreen :: X Rectangle
getFocusedScreen = withWindowSet $ return . screenRect . W.screenDetail . W.current getFocusedScreen = withWindowSet $ return . screenRect . W.screenDetail . W.current
myManageHook :: ManageHook
myManageHook = composeOne myManageHook = composeOne
-- assume virtualbox is not run with the toolbar in fullscreen mode -- assume virtualbox is not run with the toolbar in fullscreen mode
-- as this makes a new window that confusingly must go over the -- as this makes a new window that confusingly must go over the
@ -216,6 +226,7 @@ myManageHook = composeOne
-- BITMAP atom (which should do nothing) and a "magic string" in the -- BITMAP atom (which should do nothing) and a "magic string" in the
-- data field that can be intercepted here. When this event is -- data field that can be intercepted here. When this event is
-- registered here, close the dynamic workspaces that are empty. -- registered here, close the dynamic workspaces that are empty.
myEventHook :: Event -> X All
myEventHook ClientMessageEvent { ev_message_type = t, ev_data = d } myEventHook ClientMessageEvent { ev_message_type = t, ev_data = d }
| t == bITMAP = do | t == bITMAP = do
let (magic, tag) = splitXMsg d let (magic, tag) = splitXMsg d
@ -236,6 +247,7 @@ myEventHook ClientMessageEvent { ev_message_type = t, ev_data = d }
-- return (All True) -- return (All True)
myEventHook _ = return (All True) myEventHook _ = return (All True)
removeEmptyWorkspaceByTag' :: String -> X ()
removeEmptyWorkspaceByTag' tag = do removeEmptyWorkspaceByTag' tag = do
-- TODO this function works by first hiding the workspace to be -- TODO this function works by first hiding the workspace to be
-- removed and then removing it. This won't work if there are no -- removed and then removing it. This won't work if there are no
@ -522,6 +534,7 @@ runMinBacklight = io callMinBrightness
runMaxBacklight :: X () runMaxBacklight :: X ()
runMaxBacklight = io callMaxBrightness runMaxBacklight = io callMaxBrightness
showWorkspace :: WorkspaceId -> X ()
showWorkspace tag = windows $ W.view tag showWorkspace tag = windows $ W.view tag
enableDPMS :: X () enableDPMS :: X ()