Accept file names on the command line

2014-12-27 18:18:55 -05:00 · 2014-12-27 18:18:55 -05:00 · a512da0d7b
parent 0c559238da
commit a512da0d7b
1 changed files with 7 additions and 3 deletions
--- 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
+   (rmacs #:initial-files (match (current-command-line-arguments)
+                            ['#()
+                             (list
                              (build-path (collection-file-path "main.rkt" "rmacs")
-                                       'up 'up "doc" "xterm_controls.txt"))))
+                                          'up 'up "doc" "xterm_controls.txt"))]
+                            [(vector files ...)
+                             files])))
  ;; (require profile)
  ;; (require ansi)
  ;; (void (profile-thunk (lambda () (begin0 (main)