ENH use rofi instead of zenity for showing keymap
This commit is contained in:
parent
7c4f005f03
commit
53d68f5324
|
@ -459,10 +459,17 @@ showWorkspace tag = windows $ W.view tag
|
||||||
|
|
||||||
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
|
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
|
||||||
showKeybindings x = addName "Show Keybindings" $ io $ do
|
showKeybindings x = addName "Show Keybindings" $ io $ do
|
||||||
h <- spawnPipe "zenity --text-info --font=DejaVu Sans"
|
h <- spawnPipe cmd
|
||||||
hPutStr h (unlines $ showKm x)
|
hPutStr h (unlines $ showKm x)
|
||||||
hClose h
|
hClose h
|
||||||
return ()
|
return ()
|
||||||
|
where cmd = formatCmd myDmenuCmd $ myDmenuArgs ++
|
||||||
|
[ "-dmenu"
|
||||||
|
, "-p"
|
||||||
|
, "commands"
|
||||||
|
, "-theme-str"
|
||||||
|
, "'#element.selected.normal { background-color: #a200ff; }'"
|
||||||
|
]
|
||||||
|
|
||||||
myModMask :: KeyMask
|
myModMask :: KeyMask
|
||||||
myModMask = mod4Mask
|
myModMask = mod4Mask
|
||||||
|
|
Loading…
Reference in New Issue