dotfiles · commit

Update Xmonad config

630c909ba234a780631bb2a9f43fdacba02bea64

Alexis Sellier committed 7 years ago 1 parent 5a2529a4

.xmonad/xmonad.hs +7 -7

    cfg = myXPConfig { position = CenteredAt 0.5 0.3
                     , defaultText = "" }

editPrompt :: String -> X ()
editPrompt home = do
    str <- inputPrompt cfg "Edit ~/"
    str <- inputPrompt cfg "$ edit ~/"
    case str of
        Just s  -> openInEditor s
        Nothing -> pure ()
  where
    cfg = myXPConfig { position = CenteredAt 0.5 0.3

  { position          = CenteredAt 0.5 0.1
  , alwaysHighlight   = True
  , height            = 60
  , promptBorderWidth = 1
  , font              = "xft:monospace:size=13"
  , borderColor       = "#555555"
  , bgColor           = "#111111"
  , borderColor       = "aquamarine"
  , bgColor           = "black"
  }

myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())
myKeys home conf@XConfig { XMonad.modMask = modMask } =
    Map.union ks (XMonad.keys def conf)

       ]

rofi :: String -> [String] -> X ()
rofi mode opts = safeSpawn
    "rofi" (opts ++ [ "-show", mode
            , "-color-active", "#fdf6e3,#268bd2,#eee8d5,#268bd2,#fdf6e3"
            , "-color-normal", "#111,#bbb,#111,#bbb,#000"
            , "-color-active", "black,aquamarine,black,#bbb,black"
            , "-color-normal", "black,#bbb,black,#bbb,black"
            , "-color-urgent", "#fdf6e3,#dc322f,#eee8d5,#dc322f,#fdf6e3"
            , "-color-window", "#111,#555"
            , "-font", "Fira Code 13"
            , "-color-window", "black,aquamarine"
            , "-font", "monospace 13"
            , "-hide-scrollbar"
            , "-levenshtein-sort"
            , "-lines", "7"
            , "-padding", "10"
            , "-separator-style", "none"

140	140		{ position = CenteredAt 0.5 0.1
141	141		, alwaysHighlight = True
142	142		, height = 60
143	143		, promptBorderWidth = 1
144	144		, font = "xft:monospace:size=13"
145		-	, borderColor = "#555555"
146		-	, bgColor = "#111111"
	145	+	, borderColor = "aquamarine"
	146	+	, bgColor = "black"
147	147		}
148	148
149	149		myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())
150	150		myKeys home conf@XConfig { XMonad.modMask = modMask } =
151	151		Map.union ks (XMonad.keys def conf)

171	171		]
172	172
173	173		rofi :: String -> [String] -> X ()
174	174		rofi mode opts = safeSpawn
175	175		"rofi" (opts ++ [ "-show", mode
176		-	, "-color-active", "#fdf6e3,#268bd2,#eee8d5,#268bd2,#fdf6e3"
177		-	, "-color-normal", "#111,#bbb,#111,#bbb,#000"
	176	+	, "-color-active", "black,aquamarine,black,#bbb,black"
	177	+	, "-color-normal", "black,#bbb,black,#bbb,black"
178	178		, "-color-urgent", "#fdf6e3,#dc322f,#eee8d5,#dc322f,#fdf6e3"
179		-	, "-color-window", "#111,#555"
180		-	, "-font", "Fira Code 13"
	179	+	, "-color-window", "black,aquamarine"
	180	+	, "-font", "monospace 13"
181	181		, "-hide-scrollbar"
182	182		, "-levenshtein-sort"
183	183		, "-lines", "7"
184	184		, "-padding", "10"
185	185		, "-separator-style", "none"

54	54		cfg = myXPConfig { position = CenteredAt 0.5 0.3
55	55		, defaultText = "" }
56	56
57	57		editPrompt :: String -> X ()
58	58		editPrompt home = do
59		-	str <- inputPrompt cfg "Edit ~/"
	59	+	str <- inputPrompt cfg "$ edit ~/"
60	60		case str of
61	61		Just s -> openInEditor s
62	62		Nothing -> pure ()
63	63		where
64	64		cfg = myXPConfig { position = CenteredAt 0.5 0.3