mpo/xmonad-config
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Several updates bundle

Browse source
This commit is contained in:
EEva (JPotier) 2019-09-28 15:55:07 +03:00
parent c2226d9e19
commit 037d8df111
3 changed files with 32 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/KeyBindings.hs
View file

@ -52,7 +52,7 @@ modify conf = conf
, ("M-S-<Delete>", spawn "/run/current-system/sw/bin/mpc pause; /run/current-system/sw/bin/xset s activate") , ("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-<Left>", shiftToPrev >> prevWS)
, ("M-S-<Right>", shiftToNext >> nextWS) , ("M-S-<Right>", shiftToNext >> nextWS)
, ("M-s s", spawn "/run/current-system/sw/bin/flameshot gui") , ("M-s s", spawn "flameshot gui")
, ("M-s t", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png") , ("M-s t", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
-- Workspace and tasks -- Workspace and tasks
, ("M-b", switchProjectPrompt promptConfig) , ("M-b", switchProjectPrompt promptConfig)
@ -81,7 +81,7 @@ promptConfig = def
, defaultText = "" , defaultText = ""
, fgColor = S.base02 , fgColor = S.base02
, fgHLight = S.base03 , fgHLight = S.base03
, font = "xft:Iosevka Term:style=Regular:size=8" , font = "xft:Iosevka Samae:style=Regular:size=8"
, height = 24 , height = 24
, promptBorderWidth = 5 , promptBorderWidth = 5
} }
@ -97,4 +97,4 @@ promptConfig = def
-- | otherwise = let weight c = levenshteinDistance defaultEditCosts s c -- | otherwise = let weight c = levenshteinDistance defaultEditCosts s c
-- in map snd $ take 20 $ sort $ map (\c -> (weight c,c)) cmds -- in map snd $ take 20 $ sort $ map (\c -> (weight c,c)) cmds
-- mkXPrompt FuzzySpawn config (return . compl) spawn -- mkXPrompt FuzzySpawn config (return . compl) spawn
-- --

3
lib/Password.hs
View file

@ -52,5 +52,6 @@ mkPassPrompt label f conf = do
return . lines $ files return . lines $ files
selectPassword :: String -> X () selectPassword :: String -> X ()
selectPassword pass = spawn $ "gpg --decrypt " ++ pass ++ " | xclip -selection clipboard" selectPassword pass = spawn $ "gpg --decrypt " ++ pass ++ " | copy"
-- “copy” comes with the xmonad module in the nix configuration

53
lib/Projects.hs
View file

@ -7,32 +7,33 @@ import XMonad.Actions.DynamicProjects
import XMonad.Util.Run import XMonad.Util.Run
projects :: [Project] projects :: [Project]
projects = [ Project { projectName = "admin" projects =
, projectDirectory = "~/admin" [ Project { projectName = "admin"
, projectStartHook = Just $ do safeSpawn "vim" ["-g"] , projectDirectory = "~/admin"
safeSpawnProg "st" , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
} safeSpawnProg "st"
, Project { projectName = "sound" }
, projectDirectory = "/tmp" , Project { projectName = "flim"
, projectStartHook = Just $ do safeSpawnProg "pavucontrol" , projectDirectory = "/flims/rtorrent/download"
} , projectStartHook = Just $ do safeSpawnProg "st"
, Project { projectName = "steam" }
, projectDirectory = "~/" , Project { projectName = "sound"
, projectStartHook = Just $ do spawn "steam" , projectDirectory = "/tmp"
} , projectStartHook = Just $ do safeSpawnProg "pavucontrol"
, Project { projectName = "web" }
, projectDirectory = "/tmp" , Project { projectName = "steam"
, projectStartHook = Just $ do spawn "firefox" , projectDirectory = "~/"
} , projectStartHook = Just $ do spawn "steam"
, Project { projectName = "yt" }
, projectDirectory = "/tmp" , Project { projectName = "web"
, projectStartHook = Just $ do spawn "ytapp-launcher.sh" , projectDirectory = "/tmp"
} , projectStartHook = Just $ do spawn "firefox"
, Project { projectName = "Diablo" }
, projectDirectory = "/tmp" , Project { projectName = "Diablo"
, projectStartHook = Just $ do spawn "/run/current-system/sw/bin/wine '/home/eeva/.wine/drive_c/Program Files/Battle.net/Battle.net Launcher.exe'" , projectDirectory = "/tmp"
} , projectStartHook = Just $ do spawn "/run/current-system/sw/bin/wine '/home/eeva/.wine/drive_c/Program Files/Battle.net/Battle.net Launcher.exe'"
] }
]
modify :: XConfig l -> XConfig l modify :: XConfig l -> XConfig l
modify conf = dynamicProjects projects conf modify conf = dynamicProjects projects conf