Browse Source

Fix terminal and add monitoring workspace

master
Peter J. Jones 2 months ago
parent
commit
c5d9991c90
Signed by: Peter Jones <pjones@devalot.com> GPG Key ID: 9DAFAA8D01941E49
2 changed files with 22 additions and 7 deletions
  1. 21
    6
      src/XMonad/Local/Workspaces.hs
  2. 1
    1
      xmonadrc.hs

+ 21
- 6
src/XMonad/Local/Workspaces.hs View File

@@ -10,6 +10,7 @@ the LICENSE file. -}
-- | Workspace configuration and utilities.
module XMonad.Local.Workspaces
( projects
, terminal
, names
, scratchPads
, asKey
@@ -18,12 +19,17 @@ module XMonad.Local.Workspaces

--------------------------------------------------------------------------------
import Control.Monad (unless)
import XMonad
import XMonad hiding (terminal)
import XMonad.Actions.DynamicProjects
import XMonad.Layout.LayoutCombinators (JumpToLayout(..))
import qualified XMonad.StackSet as StackSet
import XMonad.Util.NamedScratchpad

--------------------------------------------------------------------------------
-- | The command to run to start a terminal.
terminal :: String
terminal = "konsole --notransparency --workdir $(pwd)"

--------------------------------------------------------------------------------
projects :: [Project]
projects =
@@ -31,8 +37,8 @@ projects =
, projectDirectory = "~/"
, projectStartHook = Just $ do
spawn "e -c"
spawn "konsole --workdir $(pwd)"
spawn "konsole --workdir $(pwd)"
spawn terminal
spawn terminal
}

, Project { projectName = "browsers"
@@ -40,6 +46,15 @@ projects =
, projectStartHook = Just $ spawn "firefox"
}

, Project { projectName = "monitoring"
, projectDirectory = "~/"
, projectStartHook = Just $ do
sendMessage (JumpToLayout "Tall")
spawn "chromium --app='https://stats.printedmint.com/d/UpWo-GSWk/machines?orgId=1&refresh=30s&kiosk'"
spawn "chromium --app='https://stats.devalot.com/d/trW0cTIZz/server-health?orgId=1&refresh=10s&kiosk'"
spawn "chromium --app='http://hass.pmade.com:8123/lovelace/0'"
}

, Project { projectName = "chat"
, projectDirectory = "~/download"
, projectStartHook = Just $
@@ -57,21 +72,21 @@ projects =
, projectDirectory = "~/src/rc"
, projectStartHook = Just $ do
spawn "e -cs rc"
spawn "konsole --workdir $(pwd)"
spawn terminal
}

, Project { projectName = "rfa"
, projectDirectory = "~/src/rfa"
, projectStartHook = Just $ do
spawn "e -cs rfa"
spawn "konsole --workdir $(pwd)"
spawn terminal
}

, Project { projectName = "mint"
, projectDirectory = "~/src/mint"
, projectStartHook = Just $ do
spawn "e -cs mint"
spawn "konsole --workdir $(pwd)"
spawn terminal
}

]

+ 1
- 1
xmonadrc.hs View File

@@ -34,7 +34,7 @@ import qualified XMonad.Local.Workspaces as Workspaces
--
-- config :: XConfig a
config = desktopConfig
{ terminal = "konsole --notransparency"
{ terminal = Workspaces.terminal
, layoutHook = avoidStruts Local.layoutHook

, manageHook = manageHook desktopConfig <>

Loading…
Cancel
Save