UI stub for deleting subkeys.

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
 
     mapM_ installConctact cs
 
+kiki "delete" args | "--help" `elem` args = do
+    putStr . unlines $
+        [ "kiki delete <fingerprint>"
+        , ""
+        , "  Delete the subkey specified by the given fingerprint along"
+        , "  with all of its associated signatures and trust markers."
+        ]
+    return ()
+kiki "delete" args = do
+    putStr "NOT IMPLEMENTED"
+
 splitArg :: String -> Either (String,Maybe String) String
 splitArg arg =
     case hyphens of
@@ -1341,6 +1352,7 @@ commands =
  , ( "working-key", "show the current working master key and its subkeys" )
  , ( "merge", "low level import/export operation" )
  , ( "init-key", "initialize the samizdat key ring")
+ , ( "delete", "Delete a subkey and its associated signatures" )
  ]
 
 interp vars raw = es >>= interp1