From 29ac6350e08bad1c41a73965a12a06cd5e985641 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 22 Jun 2015 13:43:16 -0400
Subject: UI stub for deleting subkeys.

---
 kiki.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'kiki.hs')

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
-- 
cgit v1.2.3