Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

package-author takes an optional arg to show email

Browse source
This commit is contained in:
Alex Shinn 2014-06-23 23:37:29 +09:00
parent 99a1f55049
commit 6f8ba58642
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/snow/commands.scm
View file

@ -1050,7 +1050,7 @@
(display " ") (display i) (display " ") (display i)
(display " ") (display (package-name pkg)) (display " ") (display (package-name pkg))
(display " ") (display (package-version pkg)) (display " ") (display (package-version pkg))
(display " (") (display (package-author repo pkg)) (display " (") (display (package-author repo pkg #t))
(display ")\n") (display ")\n")
(lp (cdr ls) (+ i 1))))) (lp (cdr ls) (+ i 1)))))
(let ((n (input-number cfg 'candidate-number "Candidate number: " (let ((n (input-number cfg 'candidate-number "Candidate number: "

11
lib/chibi/snow/package.scm
View file

@ -80,14 +80,17 @@
(and (pair? sig) (and (pair? sig)
(assoc-get (cdr sig) 'email eq?))))) (assoc-get (cdr sig) 'email eq?)))))
(define (package-author repo pkg) (define (package-author repo pkg . o)
(and (package? pkg) (and (package? pkg)
(let ((email (package-email pkg))) (let ((email (package-email pkg))
(show-email? (and (pair? o) (car o))))
(or (cond (or (cond
((repo-find-publisher repo email) ((repo-find-publisher repo email)
=> (lambda (pub) => (lambda (pub)
(string-append (or (assoc-get pub 'name) "") (let ((name (assoc-get pub 'name)))
" <" (or email "") ">"))) (if (and name show-email?)
(string-append name " <" (or email "") ">")
(or name email "")))))
(else #f)) (else #f))
email)))) email))))