#! /bin/sh
# -*- scheme -*-
unset LANG LC_ALL
unset GUILE_AUTO_COMPILE GUILE_LOAD_COMPILED_PATH
exec ${GUILE-guile} --no-auto-compile -L $PWD -C $PWD -e '(@@ (npm-import) main)' -s "$0" ${1+"$@"}
!#

(define-module (npm-import)
  #:use-module (ice-9 pretty-print)
  #:use-module (srfi srfi-26)
  #:use-module (guix import npm)
  #:use-module (gnu packages npm))

(define (package->define entry)
  `(define-public ,(string->symbol (string-append "node-" (car entry)))
     ,(cadr entry)))

(define (name->node.scm package-name)
  (format (current-error-port) "package: ~a\n" package-name)
  (let* ((packages-alist (recursive-import package-name))
         (defines (map package->define packages-alist))
         (file (open-file (string-append "node-" package-name ".scm") "w")))
    (map (cut pretty-print <> file) defines)
    (close file)))

(define (main args)
  (let ((files (cdr (command-line))))
   (when (null? files)
     (format (current-error-port) "Usage: npm-import NPM-PACKAGE-NAME\n")
     (exit 1))
   (for-each name->node.scm files)))