Write executable

This involved moving `src' to `lib' and making `bin'.
`bin' holds the program, which only imports `jimmy.main' from lib.

1 files changed, 48 insertions, 0 deletions

@@ -0,0 +1,48 @@
+;;; (jimmy main) --- the program
+
+(import (chicken file)
+        (chicken port)
+        (chicken process-context)
+        (jimmy main)
+        args)
+
+(define opts
+  (list (args:make-option (t to) (required: "FORMAT")
+                          (string-append "Translate input to FORMAT."
+                                         " One of `gemini', `html', or"
+                                         " a filename."))
+        (args:make-option (n no-extensions) #:none
+                          "Don't use gemtext extensions.")
+        (args:make-option (T template) (required: "TEMPLATE")
+                          "Wrap the generated text in TEMPLATE.")
+        (args:make-option (h help) #:none "Display this text"
+                          (usage 0))))
+
+(define (usage #!optional (exit-code 1))
+  (with-output-to-port (current-error-port)
+    (lambda ()
+      (print "Usage: " (car (argv)) " [OPTIONS...] [FILE]")
+      (newline)
+      (print (args:usage options))
+      (print "Report bugs to acdw@acdw.net.")))
+  (exit exit-code))
+
+(define (main args)
+  (receive (options operands) (args:parse args opts)
+    (let ((to (alist-ref 'to options))
+          (template (alist-ref 'template options)))
+
+      (cond
+       ((not to))                       ; default: gemini
+       ((equal? to "html")
+        (import (jimmy html)))
+       ((file-exists? to)
+        (load to))
+       (else (error "File does not exist" to)))
+
+      (print (apply jimmy (list (car operands) template))))))
+
+(cond-expand
+  (compiling
+   (main (command-line-arguments)))
+  (else))