~ruther/guix-local: guix archive: Generate curve Ed25519 keys by default.

1cbfce16691327bd309d6b03d8cbe3aef38e57bf — Ludovic Courtès 12 years ago d0a8506

guix archive: Generate curve Ed25519 keys by default.

* guix/scripts/archive.scm (%options) <generate-key>: Default to curve
  Ed25519.  Suggested by Christian Grothoff <grothoff@in.tum.de>.

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M guix/scripts/archive.scm

M guix/scripts/archive.scm => guix/scripts/archive.scm +4 -1

@@ 110,9 110,12 @@ Export/import one or more packages from/to the store.\n"))
                  (lambda (opt name arg result)
                    (catch 'gcry-error
                      (lambda ()
+                       ;; XXX: Curve25519 was actually introduced in
+                       ;; libgcrypt 1.6.0.
                        (let ((params
                               (string->canonical-sexp
-                               (or arg "(genkey (rsa (nbits 4:4096)))"))))
+                               (or arg "\
+ (genkey (ecdsa (curve Ed25519) (flags rfc6979)))"))))
                          (alist-cons 'generate-key params result)))
                      (lambda (key err)
                        (leave (_ "invalid key generation parameters: ~a: ~a~%")