You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
pollen/command.rkt

69 lines
4.0 KiB
Racket

#lang racket/base
(require (for-syntax racket/base))
;; todo: add command to check validity of installation
(require (for-syntax sugar "world.rkt"))
(define-syntax (handle-pollen-command stx)
(datum->syntax stx
(let* ([args (current-command-line-arguments)]
[arg (if (> (len args) 0) (get args 0) "")])
(display (format "~a: " COMMAND_FILE))
(case arg
[("help") (displayln "valid commands are
polcom start (starts project server)
polcom render (renders all files in project directory)
polcom clone (copies rendered files to desktop)
polcom [filename] (renders individual file)")]
[("start") `(require "server.rkt")]
[("render") `(begin
;; todo: take extensions off the comand line
(displayln "Render preproc & ptree files ...")
(require "render.rkt" "file-tools.rkt" "world.rkt")
(apply render-batch (append-map project-files-with-ext (list PREPROC_SOURCE_EXT PTREE_SOURCE_EXT))))]
[("clone") (let ([target-path
(if (> (len args) 1)
(->path (get args 1))
(build-path (find-system-path 'desk-dir) (->path "clone")))])
`(begin
(displayln "Clone & prune ...")
(require racket/file)
(require "tools.rkt")
(define (pollen-related-file? file)
(ormap (λ(proc) (proc file)) (list
decoder-source?
preproc-source?
template-source?
ptree-source?
pollen-script?
magic-directory?
racket-file?)))
(define (delete-it path)
(when (directory-exists? path)
(delete-directory/files path))
(when (file-exists? path)
(delete-file path)))
(let ([source-dir (current-directory)]
[target-dir ,target-path])
(when (directory-exists? target-dir)
(delete-directory/files target-dir))
(copy-directory/files source-dir target-dir)
(map delete-it (find-files pollen-related-file? target-dir))
(displayln (format "Completed to ~a" ,target-path))
)))]
[("") `(displayln "No command given")]
;; treat other input as a possible file name for rendering
[else (let ([possible-file (->path arg)])
(if (file-exists? possible-file)
`(begin
(require pollen/render)
(render ,possible-file))
`(displayln (format "No command defined for '~a'" ,arg))))]))))
(handle-pollen-command)