From 1ab10ed55b2a521bffe30c96597eac1dd549669b Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 14 Feb 2021 13:17:17 -0500
Subject: [PATCH] ADD dbus interface to get a specific password

---
 lib/Bitwarden/Internal.hs | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/lib/Bitwarden/Internal.hs b/lib/Bitwarden/Internal.hs
index f09e327..b014715 100644
--- a/lib/Bitwarden/Internal.hs
+++ b/lib/Bitwarden/Internal.hs
@@ -213,6 +213,15 @@ loginToRofiActions Login { username = u, password = p } a =
     user = copyIfJust fmtUsername u
     pwd = copyIfJust fmtPassword p
 
+getItemPassword' :: BWServerConf -> Session -> String -> IO (Maybe String)
+getItemPassword' conf session item = mapM getPwd =<< getSession' conf session
+  where
+    getPwd s = readProcess "bw" ["get", "password", item, "--session", s] ""
+
+getItemPassword :: BWServerConf -> Session -> String -> IO String
+getItemPassword conf session item = fromMaybe "" <$>
+  getItemPassword' conf session item
+
 --------------------------------------------------------------------------------
 -- | DBus
 
@@ -228,6 +237,7 @@ startService c ses = do
       [ autoMethod memGetSession $ getSession c ses
       , autoMethod memLockSession $ lockSession ses
       , autoMethod memSyncSession $ syncSession c ses
+      , autoMethod memGetPassword $ getItemPassword c ses
       ]
     }
 
@@ -249,6 +259,9 @@ memLockSession = "LockSession"
 memSyncSession :: MemberName
 memSyncSession = "SyncSession"
 
+memGetPassword :: MemberName
+memGetPassword = "GetPassword"
+
 callMember :: MemberName -> IO [Variant]
 callMember m = do
   reply <- callMethod $ methodCall path interface m
@@ -263,13 +276,15 @@ callSyncSession :: IO ()
 callSyncSession = void $ callMember memSyncSession
 
 callGetSession :: IO (Maybe String)
-callGetSession = getBodySession <$> callMember memGetSession
+callGetSession = getBodyString <$> callMember memGetSession
 
-getBodySession :: [Variant] -> Maybe String
-getBodySession [b] = case fromVariant b :: Maybe String of
+-- TODO maybe will need to add a caller for getItemPassword
+
+getBodyString :: [Variant] -> Maybe String
+getBodyString [b] = case fromVariant b :: Maybe String of
   Just "" -> Nothing
   s       -> s
-getBodySession _ = Nothing
+getBodyString _ = Nothing
 
 callMethod :: MethodCall -> IO (Either MethodError [Variant])
 callMethod mc = do