28 lines
772 B
Racket
28 lines
772 B
Racket
#lang racket/base
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Manual command for installing pinned frontend dependencies.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require racket/cmdline
|
|
racket/path
|
|
"private/config.rkt"
|
|
"private/vendor.rkt")
|
|
|
|
(define config (default-wiki-config))
|
|
|
|
(command-line
|
|
#:program "racket-wiki setup-vendor"
|
|
#:once-each
|
|
(("--data") directory
|
|
"Wiki data directory"
|
|
(set! config
|
|
(struct-copy wiki-config config
|
|
(data-dir (path->complete-path directory))))))
|
|
|
|
(displayln
|
|
(format "Downloading frontend libraries to ~a"
|
|
(vendor-directory config)))
|
|
(download-vendor-files! config)
|
|
(displayln "Frontend vendor files are ready.")
|