let's fix ranger like this for now

This commit is contained in:
Felix Van der Jeugt 2015-07-02 23:20:44 +02:00
parent 4ad5a84bd4
commit bc5e28723b

View File

@ -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)
------------------------------------------------------------------------ ------------------------------------------------------------------------