New changes
This commit is contained in:
Martin Potier
parent
594953db8c
commit
1ebb78cb8a
4 changed files with 70 additions and 14 deletions
|
|
@ -31,12 +31,11 @@ modify conf = conf
|
|||
|
||||
`additionalKeysP` -- Add some extra key bindings:
|
||||
[ ("M-S-q", confirmPrompt promptConfig "exit" (io exitSuccess))
|
||||
, ("<Tab>-b", sendMessage (Toggle "Full"))
|
||||
, ("<XF86MonBrightnessDown>", spawn "/run/current-system/sw/bin/xbacklight -10")
|
||||
, ("<XF86MonBrightnessUp>", spawn "/run/current-system/sw/bin/xbacklight +10")
|
||||
, ("<XF86AudioPlay>", spawn "/run/current-system/sw/bin/playerctl play-pause")
|
||||
, ("<XF86AudioNext>", spawn "/run/current-system/sw/bin/playerctl next")
|
||||
, ("<XF86AudioPrev>", spawn "/run/current-system/sw/bin/playerctl previous")
|
||||
, ("<XF86AudioPlay>", spawn "/run/current-system/sw/bin/mpc toggle")
|
||||
, ("<XF86AudioNext>", spawn "/run/current-system/sw/bin/mpc next")
|
||||
, ("<XF86AudioPrev>", spawn "/run/current-system/sw/bin/mpc prev")
|
||||
, ("M-<Delete>", kill)
|
||||
, ("M-<Down>", windows W.focusDown)
|
||||
, ("M-<Esc>", sendMessage (Toggle "Full"))
|
||||
|
|
@ -47,10 +46,10 @@ modify conf = conf
|
|||
, ("M-<Right>", nextWS)
|
||||
, ("M-<Tab>", toggleWS' ["NSP"])
|
||||
, ("M-<Up>", windows W.focusUp)
|
||||
, ("M-S-<Delete>", spawn "/run/current-system/sw/bin/i3lock -f -t -c 002b36")
|
||||
, ("M-S-<Delete>", spawn "/run/current-system/sw/bin/mpc pause; /run/current-system/sw/bin/xset s activate")
|
||||
, ("M-S-<Left>", shiftToPrev >> prevWS)
|
||||
, ("M-S-<Right>", shiftToNext >> nextWS)
|
||||
, ("M-s s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
|
||||
, ("M-s s", spawn "/run/current-system/sw/bin/flameshot gui")
|
||||
, ("M-s t", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
|
||||
-- Workspace and tasks
|
||||
, ("M-b", switchProjectPrompt promptConfig)
|
||||
|
|
|
|||
|
|
@ -4,15 +4,72 @@ module Projects (
|
|||
|
||||
import XMonad
|
||||
import XMonad.Actions.DynamicProjects
|
||||
import XMonad.Util.Run
|
||||
|
||||
projects :: [Project]
|
||||
projects = [ Project { projectName = "steam"
|
||||
, projectDirectory = "~/"
|
||||
, projectStartHook = Nothing
|
||||
projects = [ Project { projectName = "admin"
|
||||
, projectDirectory = "~/admin"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "tootgun"
|
||||
, projectDirectory = "~/candy/tootgun"
|
||||
, projectStartHook = Nothing
|
||||
, Project { projectName = "mordor"
|
||||
, projectDirectory = "~/mordor"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "mordor-docs"
|
||||
, projectDirectory = "~/mordor-2"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "mordor-other"
|
||||
, projectDirectory = "~/mordor-3"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "email"
|
||||
, projectDirectory = "~/mail"
|
||||
, projectStartHook = Just $ do safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "frs"
|
||||
, projectDirectory = "/tmp"
|
||||
, projectStartHook = Just $ do safeSpawnProg "frs"
|
||||
}
|
||||
, Project { projectName = "fre"
|
||||
, projectDirectory = "/tmp"
|
||||
, projectStartHook = Just $ do safeSpawnProg "fre"
|
||||
}
|
||||
, Project { projectName = "network-graph"
|
||||
, projectDirectory = "~/relex/catch-a-network-bug/csvplotter"
|
||||
, projectStartHook = Just $ do safeSpawn "zathura" ["weekXGraph.pdf"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "orc"
|
||||
, projectDirectory = "/tmp"
|
||||
, projectStartHook = Just $ do safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "mordor-ops"
|
||||
, projectDirectory = "~/relex/mordor-ops"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "mordor-deploy"
|
||||
, projectDirectory = "~/relex/mordor-deploy"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "scaleout-ops"
|
||||
, projectDirectory = "~/relex/scaleout-ops"
|
||||
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
|
||||
safeSpawnProg "st"
|
||||
}
|
||||
, Project { projectName = "sound"
|
||||
, projectDirectory = "/tmp"
|
||||
, projectStartHook = Just $ do safeSpawnProg "pavucontrol"
|
||||
}
|
||||
, Project { projectName = "daily"
|
||||
, projectDirectory = "/tmp"
|
||||
, projectStartHook = Just $ do safeSpawn "nix" ["run", "nixpkgs.chromium", "-c", "chromium"]
|
||||
}
|
||||
]
|
||||
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ modify conf = conf
|
|||
}
|
||||
|
||||
pads =
|
||||
[ NS "htop" "/run/current-system/sw/bin/alacritty -t htop -e tmux" (title =? "htop")
|
||||
[ NS "htop" "/run/current-system/sw/bin/st -t htop -e tmux" (title =? "htop")
|
||||
(customFloating $ W.RationalRect (1/3) (1/3) (1/3) (1/3))
|
||||
-- , NS "stardict" "stardict" (className =? "Stardict")
|
||||
-- (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
|
||||
|
|
|
|||
|
|
@ -58,7 +58,7 @@ withConfig =
|
|||
$ desktopConfig -- on a default desktop config
|
||||
{ manageHook = myManageHook <+> manageHook desktopConfig
|
||||
, layoutHook = desktopLayoutModifiers layouts
|
||||
, terminal = "/run/current-system/sw/bin/alacritty"
|
||||
, terminal = "/run/current-system/sw/bin/st"
|
||||
, normalBorderColor = S.base03
|
||||
, focusedBorderColor = S.violet
|
||||
, borderWidth = 5
|
||||
|
|
|
|||
Loading…
Reference in a new issue