summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2015-06-22 13:43:16 -0400
committerjoe <joe@jerkface.net>2015-06-22 13:43:16 -0400
commit29ac6350e08bad1c41a73965a12a06cd5e985641 (patch)
tree46a60b89dd9207cedc7d51785ea0f3cf85255d7c
parent4373131e1b077ad1044aec46938a0b28cd35c6bc (diff)
UI stub for deleting subkeys.
-rw-r--r--kiki.hs12
1 files changed, 12 insertions, 0 deletions
diff --git a/kiki.hs b/kiki.hs
index c80f2cc..17cbeb1 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1313,6 +1313,17 @@ kiki "init-key" args = do
1313 1313
1314 mapM_ installConctact cs 1314 mapM_ installConctact cs
1315 1315
1316kiki "delete" args | "--help" `elem` args = do
1317 putStr . unlines $
1318 [ "kiki delete <fingerprint>"
1319 , ""
1320 , " Delete the subkey specified by the given fingerprint along"
1321 , " with all of its associated signatures and trust markers."
1322 ]
1323 return ()
1324kiki "delete" args = do
1325 putStr "NOT IMPLEMENTED"
1326
1316splitArg :: String -> Either (String,Maybe String) String 1327splitArg :: String -> Either (String,Maybe String) String
1317splitArg arg = 1328splitArg arg =
1318 case hyphens of 1329 case hyphens of
@@ -1341,6 +1352,7 @@ commands =
1341 , ( "working-key", "show the current working master key and its subkeys" ) 1352 , ( "working-key", "show the current working master key and its subkeys" )
1342 , ( "merge", "low level import/export operation" ) 1353 , ( "merge", "low level import/export operation" )
1343 , ( "init-key", "initialize the samizdat key ring") 1354 , ( "init-key", "initialize the samizdat key ring")
1355 , ( "delete", "Delete a subkey and its associated signatures" )
1344 ] 1356 ]
1345 1357
1346interp vars raw = es >>= interp1 1358interp vars raw = es >>= interp1