From 93215d199df7e1739190150ed78372a55281fffe Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 22 Jun 2021 00:01:07 -0400
Subject: [PATCH] ENH puke if greenckip is missing

---
 lib/XMonad/Internal/Command/DMenu.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lib/XMonad/Internal/Command/DMenu.hs b/lib/XMonad/Internal/Command/DMenu.hs
index 2dd0646..35ee1f1 100644
--- a/lib/XMonad/Internal/Command/DMenu.hs
+++ b/lib/XMonad/Internal/Command/DMenu.hs
@@ -95,13 +95,14 @@ runCmdMenu = spawnDmenuCmd ["-show", "run"]
 runAppMenu :: IO MaybeX
 runAppMenu = spawnDmenuCmd ["-show", "drun"]
 
--- TODO this also depends on greenclip
 runClipMenu :: IO MaybeX
-runClipMenu = spawnDmenuCmd $
-  [ "-modi", "\"clipboard:greenclip print\""
-  , "-show", "clipboard"
-  , "-run-command", "'{cmd}'"
-  ] ++ themeArgs "#00c44e"
+runClipMenu = runIfInstalled [exe myDmenuCmd, exe "greenclip"]
+  $ spawnCmd myDmenuCmd args
+  where
+    args = [ "-modi", "\"clipboard:greenclip print\""
+           , "-show", "clipboard"
+           , "-run-command", "'{cmd}'"
+           ] ++ themeArgs "#00c44e"
 
 runWinMenu :: IO MaybeX
 runWinMenu = spawnDmenuCmd ["-show", "window"]