From c8fe2bb1419960b5d539e73326158d1ee4381e5e Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>
Date: Wed, 4 Feb 2015 20:02:04 +0100
Subject: lib/Confirm: Add simple confirmation with grid select.

---
 lib/Confirm.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 lib/Confirm.hs

(limited to 'lib')

diff --git a/lib/Confirm.hs b/lib/Confirm.hs
new file mode 100644
index 0000000..47e3388
--- /dev/null
+++ b/lib/Confirm.hs
@@ -0,0 +1,11 @@
+module Confirm (confirm) where
+
+import Control.Monad
+
+import XMonad.Core
+import XMonad.Actions.GridSelect
+
+confirm :: GSConfig Bool -> String -> X() -> X()
+confirm config string action = do
+  res <- gridselect config [(string, True), ("No", False)]
+  whenJust res (\x -> when x action)
-- 
cgit v1.2.3


From c5b9d799ce66afefd96e35f56406617cf6d1370e Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>
Date: Wed, 4 Feb 2015 20:02:31 +0100
Subject: lib/Pass: Code style.

---
 lib/Pass.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Pass.hs b/lib/Pass.hs
index f29df27..c9b70df 100644
--- a/lib/Pass.hs
+++ b/lib/Pass.hs
@@ -1,4 +1,3 @@
-
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Pass
@@ -131,7 +130,11 @@ generatePassword passLabel = safeSpawn "pass" ["generate", "--force", passLabel,
 getPasswords :: IO [String]
 getPasswords = do
   home <- getHomeDirectory
-  files <- runProcessWithInput "find" [home ++ "/.password-store","-type", "f", "-name", "*.gpg", "-printf", "%P\n"] []
+  files <- runProcessWithInput "find" [
+    home ++ "/.password-store",
+    "-type", "f",
+    "-name", "*.gpg",
+    "-printf", "%P\n"] []
   return $ map removeGpgExtension $ lines files
 
 removeGpgExtension :: String -> String
-- 
cgit v1.2.3