Change <secret> to store arbitrary key/value pairs.

* shroud/secret.scm (secret-username, secret-password): Delete.
  (secret-contents): New accessor.
  (secret-ref): New procedure.
  (alist->secret, secret->alist): Use new format.

1 files changed, 3 insertions, 1 deletions

diff --git a/shroud/ui/hide.scm b/shroud/ui/hide.scm
index b09d7c2..9240b54 100644
--- a/shroud/ui/hide.scm
+++ b/shroud/ui/hide.scm
@@ -82,7 +82,9 @@ Add a new secret to the database.~%")
     (let* ((db       (secrets-by-id (force db)))
            (existing (vhash-ref db id))
            (vcons    (if existing vhash-replace vhash-cons))
-           (secret   (make-secret id username password)))
+           (contents `(("username" . ,username)
+                       ("password" . ,password)))
+           (secret   (make-secret id contents)))
 
       (when (and (not replace?) existing)
         (leave "~a: secret already defined" id))