l xmonad: float pinentry
This commit is contained in:
parent
e66f702fc6
commit
9084e06393
@ -66,7 +66,7 @@ main' = do
|
|||||||
{ terminal = myTerm
|
{ terminal = myTerm
|
||||||
, modMask = mod4Mask
|
, modMask = mod4Mask
|
||||||
, layoutHook = smartBorders $ myLayoutHook
|
, layoutHook = smartBorders $ myLayoutHook
|
||||||
, manageHook = placeHook (smart (1,0)) <+> floatNextHook
|
, manageHook = placeHook (smart (1,0)) <+> floatNextHook <+> floatHooks
|
||||||
, startupHook =
|
, startupHook =
|
||||||
whenJustM (liftIO (lookupEnv "XMONAD_STARTUP_HOOK"))
|
whenJustM (liftIO (lookupEnv "XMONAD_STARTUP_HOOK"))
|
||||||
(\path -> forkFile path [] Nothing)
|
(\path -> forkFile path [] Nothing)
|
||||||
@ -80,6 +80,14 @@ myLayoutHook = defLayout
|
|||||||
where
|
where
|
||||||
defLayout = minimize $ ((avoidStruts $ Tall 1 (3/100) (1/2) ||| Full ||| Mirror (Tall 1 (3/100) (1/2))) ||| FixedColumn 2 80 80 1 ||| simplestFloat)
|
defLayout = minimize $ ((avoidStruts $ Tall 1 (3/100) (1/2) ||| Full ||| Mirror (Tall 1 (3/100) (1/2))) ||| FixedColumn 2 80 80 1 ||| simplestFloat)
|
||||||
|
|
||||||
|
floatHooks = composeAll . concat $
|
||||||
|
[ [ title =? t --> doFloat | t <- myTitleFloats]
|
||||||
|
, [ className =? c --> doFloat | c <- myClassFloats ] ]
|
||||||
|
where
|
||||||
|
myTitleFloats = [] -- for the KDE "open link" popup from konsole
|
||||||
|
myClassFloats = ["Pinentry"] -- for gpg passphrase entry
|
||||||
|
|
||||||
|
|
||||||
myKeyMap :: [([Char], X ())]
|
myKeyMap :: [([Char], X ())]
|
||||||
myKeyMap =
|
myKeyMap =
|
||||||
[ ("M4-<F11>", spawn "${config.lass.screenlock.command}")
|
[ ("M4-<F11>", spawn "${config.lass.screenlock.command}")
|
||||||
|
Loading…
Reference in New Issue
Block a user