From 53d68f53240019832908c8aece187dcbeb016572 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sat, 14 Mar 2020 15:32:20 -0400
Subject: [PATCH] ENH use rofi instead of zenity for showing keymap

---
 xmonad.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/xmonad.hs b/xmonad.hs
index 388f664..87895b9 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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