Adding package-author.

lib/chibi/snow/package.scm

@@ -75,11 +75,20 @@
              (and lib (library-name lib))))))
 
 (define (package-email pkg)
-  (and (pair? pkg)
+  (and (package? pkg)
        (let ((sig (assq 'signature (cdr pkg))))
          (and (pair? sig)
               (assoc-get (cdr sig) 'email eq?)))))
 
+(define (package-author repo pkg)
+  (and (package? pkg)
+       (let ((email (package-email pkg)))
+         (or (cond
+              ((repo-find-publisher repo email)
+               => (lambda (pub) (assoc-get pub 'name)))
+              (else #f))
+             email))))
+
 (define (package-url repo pkg)
   (let ((url (and (pair? pkg) (assoc-get (cdr pkg) 'url eq?))))
     (if (and url (uri-has-scheme? url))

lib/chibi/snow/package.sld

@@ -3,7 +3,7 @@
   (export package? library?
           package-name package-email package-url package-version
           package-libraries package-provides? package-dependencies
-          package-installed-files
+          package-installed-files package-author
           package-digest-mismatches package-signature-mismatches
           package-digest-ok? package-signature-ok?
           package->path package-name->meta-file