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 x = addName "Show Keybindings" $ io $ do
|
||||
h <- spawnPipe "zenity --text-info --font=DejaVu Sans"
|
||||
h <- spawnPipe cmd
|
||||
hPutStr h (unlines $ showKm x)
|
||||
hClose h
|
||||
return ()
|
||||
where cmd = formatCmd myDmenuCmd $ myDmenuArgs ++
|
||||
[ "-dmenu"
|
||||
, "-p"
|
||||
, "commands"
|
||||
, "-theme-str"
|
||||
, "'#element.selected.normal { background-color: #a200ff; }'"
|
||||
]
|
||||
|
||||
myModMask :: KeyMask
|
||||
myModMask = mod4Mask
|
||||
|
|
Loading…
Reference in New Issue