~evhan/beaker

ba21ee803d5c2d50a5ab581a55320ca141ad3fcc — Evan Hanson 3 years ago a613b5f
Include build dependencies in markdown generator
2 files changed, 7 insertions(+), 4 deletions(-)

M lib/beaker/egg/info.scm
M lib/beaker/markdown.scm
M lib/beaker/egg/info.scm => lib/beaker/egg/info.scm +6 -3
@@ 28,9 28,12 @@
(define (read-egg-info egg-file)
  (handle-exceptions _ '() (with-input-from-file egg-file read)))

(define (egg-dependencies egg-file)
  (map (lambda (d) (if (pair? d) (car d) d))
       (egg-info-slot (read-egg-info egg-file) 'dependencies)))
(define (egg-dependencies egg-file #!optional (build #t) (test #f))
  (let ((egg-info (read-egg-info egg-file)))
    (map (lambda (d) (if (pair? d) (car d) d))
         (append (egg-info-slot egg-info (and build 'build-dependencies))
                 (egg-info-slot egg-info 'dependencies)
                 (egg-info-slot egg-info (and test 'test-dependencies))))))

(define (egg-author egg-file)
  (let ((author (egg-info-slot (read-egg-info egg-file) 'author)))

M lib/beaker/markdown.scm => lib/beaker/markdown.scm +1 -1
@@ 64,7 64,7 @@
(define (document-dependencies egg-file)
  (string-intersperse
   (map (lambda (d) (conc "* [" d "](/eggref/5/" d ")"))
        (egg-dependencies egg-file))
        (egg-dependencies egg-file #t))
   "\n"))

(define (document-author egg-file)