Allow alternative key ciphers.

1 files changed, 4 insertions, 2 deletions

diff --git a/kiki.hs b/kiki.hs
index 71222ce..f42ee22 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1492,7 +1492,8 @@ kiki "init" args | "--help" `elem` args = do
     putStr . unlines $
         [ "kiki init [ --passphrase-fd=FD"
         , "          | --homedir[=HOMEDIR]"
-        , "          | --chroot=ROOTDIR ] ..."
+        , "          | --chroot=ROOTDIR ]"
+        , "          | --cipher="++intercalate "|" (map ciphername ciphers)++" ] ..."
         , ""
         , "Modify your GnuPG keyring and update /var/cache/kiki.  The following"
         , "changes will occur to the keyring:"
@@ -1512,9 +1513,10 @@ kiki "init" args | "--help" `elem` args = do
         , "                variable is ignored and you must use --homedir to specify"
         , "                a value other than /root/.gnupg."
         , ""
+        , ""
         ] ++ documentHomeDir ++ [""] ++ documentPassphraseFDFlag True True True
 
-kiki "init" args = run args $ importAndRefresh <$> ㄧchroot <*> ㄧhomedir
+kiki "init" args = run args $ importAndRefresh <$> ㄧchroot <*> ㄧhomedir <*> ㄧcipher
 
 kiki "delete" args | "--help" `elem` args = do
     putStr . unlines $