Skip to content
Extraits de code Groupes Projets
Vérifiée Valider 0fdecc3f rédigé par Kubat's avatar Kubat
Parcourir les fichiers

Little changes

parent 5882134b
Branches
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
......@@ -35,6 +35,8 @@ import XMonad.Util.Run
import XMonad.Util.EZConfig (additionalKeys)
import XMonad.Util.NamedWindows
import XMonad.Util.Loggers
import XMonad.Util.Scratchpad
import XMonad.Util.WorkspaceCompare
-- Hooks
import XMonad.Hooks.ICCCMFocus
......@@ -44,6 +46,7 @@ import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.SetWMName
import XMonad.Hooks.EwmhDesktops (ewmh)
import XMonad.Hooks.DebugStack
-- Prompts
import XMonad.Prompt
......@@ -80,7 +83,7 @@ main = do
, normalBorderColor = "#002b36"
, terminal = myTerm
, workspaces = ["#"]
, manageHook = manageHook defaultConfig <+> myManageHook <+> manageDocks
, manageHook = manageHook defaultConfig <+> myManageHook <+> manageDocks <+> namedScratchpadManageHook myScratchPads
, startupHook = docksStartupHook <+> setWMName "LG3D" <+> myStartupHook
, handleEventHook = docksEventHook
, layoutHook = myLayoutHook
......@@ -94,11 +97,11 @@ main = do
, ppSep = " "
, ppWsSep = " "
, ppCurrent = xmobarColor "#268bd2" "" . wrap "[" "]" . (Prelude.map toUpper)
, ppVisible = xmobarColor "grey" "" . (\ x -> " " ++ x ++ " ") . (Prelude.map toUpper)
, ppHidden = xmobarColor "grey" "" . (\ x -> " " ++ x ++ " ") . (Prelude.map toUpper)
, ppHiddenNoWindows = xmobarColor "#707070" "" . (\ x -> " " ++ x ++ " ") . (Prelude.map toUpper)
, ppUrgent = xmobarColor "white" "#268bd2" . (\ x -> " " ++ x ++ " ") . (Prelude.map toUpper)
, ppVisibleNoWindows = Just (xmobarColor "#707070" "" . (\ x -> " " ++ x ++ " ") . (Prelude.map toUpper))
, ppVisible = xmobarColor "grey" "" . (\ x -> x) . (Prelude.map toUpper)
, ppHidden = xmobarColor "grey" "" . (\ x -> x) . (Prelude.map toUpper)
, ppHiddenNoWindows = xmobarColor "#707070" "" . (\ x -> x) . (Prelude.map toUpper)
, ppUrgent = xmobarColor "white" "#268bd2" . (\ x -> x) . (Prelude.map toUpper)
, ppVisibleNoWindows = Just (xmobarColor "#707070" "" . (\ x -> x) . (Prelude.map toUpper))
, ppOrder = \(ws:layout:title:extra) -> [ws, "(" ++ layout ++ ")"] ++ extra ++ [ " " ++ title ]
}
} `additionalKeys` myAdditionalKeys
......@@ -130,13 +133,11 @@ myManageHook = do
, manageDocks
]
myTerm = "/home/kubat/.local/bin/st.sh"
myOtherTerm = "/home/kubat/.local/bin/alac.sh"
nonNSP = WSIs (return (\ws -> W.tag ws /= "nsp" && isJust (W.stack ws)))
myTerm = "st"
myXPConfig = def { font = "xft:SourceCodePro:size=9" , bgColor = "black" , position = Top }
data LibNotifyUrgencyHook = LibNotifyUrgencyHook deriving (Read, Show)
instance UrgencyHook LibNotifyUrgencyHook where
urgencyHook LibNotifyUrgencyHook w = do
name <- getName w
......@@ -159,7 +160,6 @@ mySelectDisplay "l1280" = spawn "/home/kubat/.screenlayout/lateral_1280.sh"
myAdditionalKeys =
[ ((mod4Mask, xK_Return), spawn myTerm)
, ((mod4Mask .|. shiftMask, xK_Return), spawn myOtherTerm)
-- Apps
, ((mod4Mask, xK_a), submap . M.fromList $
......@@ -270,4 +270,26 @@ myAdditionalKeys =
, ((mod4Mask, xK_F6), spawn "lux -a 10%")
, ((mod4Mask, xK_F3), spawn "asus-kbd-backlight down")
, ((mod4Mask, xK_F4), spawn "asus-kbd-backlight up")
-- Scratchpads
-- namedScratchpadAction myScratchPads "the_name"
, ((mod4Mask, xK_x), submap . M.fromList $
[ ((0, xK_Return), namedScratchpadAction myScratchPads "terminal")
])
]
--------------------
-- My scratchpads --
--------------------
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
]
where
spawnTerm = "st -c scratchpad"
findTerm = className =? "scratchpad"
manageTerm = customFloating $ W.RationalRect l t w h
where
h = 0.9
w = 0.9
t = 0.95 -h
l = 0.95 -w
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter