www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

install-pkgs.rkt (730B)

      1 #lang racket/base
      2 (require racket/cmdline
      3          racket/string
      4          (only-in "config.rkt" extract-options))
      5 
      6 (module test racket/base)
      7 
      8 (define-values (config-file config-mode default-pkgs flags)
      9   (command-line
     10    #:args
     11    (config-file config-mode pkgs . flag)
     12    (values config-file config-mode pkgs flag)))
     13 
     14 (define pkgs (or (hash-ref (extract-options config-file config-mode)
     15                            '#:pkgs
     16                            #f)
     17                  (string-split default-pkgs)))
     18 
     19 (parameterize ([current-command-line-arguments
     20                 (list->vector (append (list "pkg" "install")
     21                                       flags
     22                                       pkgs))])
     23   (dynamic-require 'raco #f))