From c5fd4c259e3fdcfa1806147d1ebdac8ffc7c90a7 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 1 Nov 2021 11:04:29 -0600
Subject: add passmenu

---
 src/Internal/PassMenu.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 src/Internal/PassMenu.hs

(limited to 'src/Internal')

diff --git a/src/Internal/PassMenu.hs b/src/Internal/PassMenu.hs
new file mode 100644
index 0000000..7374bed
--- /dev/null
+++ b/src/Internal/PassMenu.hs
@@ -0,0 +1,15 @@
+module Internal.PassMenu where
+
+import XMonad
+import XMonad.Util.Run
+import Control.Monad
+
+runPassMenu :: X ()
+runPassMenu = void $
+  safeSpawn "passmenu" [
+    "-p", "Password ", 
+    "-l", "12",
+    "-dim", "0.4",
+    "-sb", "#f54245",
+    "-nf", "#f54245" ]
+    
-- 
cgit