let's fix ranger like this for now
This commit is contained in:
parent
4ad5a84bd4
commit
bc5e28723b
@ -18,7 +18,6 @@
|
|||||||
|
|
||||||
import XMonad
|
import XMonad
|
||||||
import XMonad.Hooks.DynamicLog
|
import XMonad.Hooks.DynamicLog
|
||||||
import XMonad.Hooks.ManageHelpers
|
|
||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.NoBorders
|
||||||
import XMonad.Layout.Grid
|
import XMonad.Layout.Grid
|
||||||
import XMonad.Util.NamedScratchpad
|
import XMonad.Util.NamedScratchpad
|
||||||
@ -108,14 +107,14 @@ myFocusedBorderColor = "#ff0000"
|
|||||||
-- Scratchpads, applications to toggle
|
-- Scratchpads, applications to toggle
|
||||||
myScratchPads :: [NamedScratchpad]
|
myScratchPads :: [NamedScratchpad]
|
||||||
myScratchPads =
|
myScratchPads =
|
||||||
[ interm "ranger"
|
[ interm "ranger" nonFloating
|
||||||
, interm "weechat"
|
, interm "weechat" centerFloating
|
||||||
, interm "sup"
|
, interm "sup" centerFloating
|
||||||
, interm "newsbeuter"
|
, interm "newsbeuter" centerFloating
|
||||||
]
|
]
|
||||||
where
|
where
|
||||||
placement = doRectFloat $ W.RationalRect 0.05 0.05 0.9 0.9 -- x, y, w, h
|
centerFloating = customFloating $ W.RationalRect 0.05 0.05 0.9 0.9 -- x, y, w, h
|
||||||
interm prog = NS prog (runInTerminal prog prog) (appName =? prog) placement
|
interm prog = NS prog (runInTerminal prog prog) (appName =? prog)
|
||||||
|
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user