From a512da0d7b1cc7f510d7688cbb78330588f23027 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 27 Dec 2014 18:18:55 -0500 Subject: [PATCH] Accept file names on the command line --- rmacs/main.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/rmacs/main.rkt b/rmacs/main.rkt index dae8d58..e4d632d 100644 --- a/rmacs/main.rkt +++ b/rmacs/main.rkt @@ -19,9 +19,13 @@ (require racket/trace) (current-trace-notify (lambda (s) (log-info "TRACE: ~a" s))) (void - (rmacs #:initial-files (list - (build-path (collection-file-path "main.rkt" "rmacs") - 'up 'up "doc" "xterm_controls.txt")))) + (rmacs #:initial-files (match (current-command-line-arguments) + ['#() + (list + (build-path (collection-file-path "main.rkt" "rmacs") + 'up 'up "doc" "xterm_controls.txt"))] + [(vector files ...) + files]))) ;; (require profile) ;; (require ansi) ;; (void (profile-thunk (lambda () (begin0 (main)