#!/usr/local/bin/mosh
(import (rnrs)
        (mosh)
        (mosh config))

(define (main args)
  (cond
   [(null? (cdr args))
    (display " Usage: mosh_config <option>\n" (current-error-port))
    (display "   ex) % mosh_config library-path\n\n" (current-error-port))
    (display " Options:\n" (current-error-port))
    (for-each
     (lambda (x)
       (format (current-error-port) "    ~a: ~a\n" (car x) (cadr x)))
     (get-configs))]
   [else
    (display (get-config (cadr args)))
    (newline)]))

(main (command-line))
