ENH use rofi instead of zenity for showing keymap

This commit is contained in:
Nathan Dwarshuis 2020-03-14 15:32:20 -04:00
parent 7c4f005f03
commit 53d68f5324
1 changed files with 8 additions and 1 deletions

View File

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