diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-01-04 22:47:05 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-01-04 22:50:01 -0500 |
| commit | 2a878fd9ee2d99cf3112768449e4a0c4c3e77d8b (patch) | |
| tree | cfe23e4f50045ca34bdb358f254e24e27ec9b81e /haunt/ui/serve.scm | |
| parent | f299cca70928759f04d44d81d6c2f0f6f9388e1b (diff) | |
ui: Display version information.
* haunt/config.scm: Delete.
* haunt/config.scm.in: New file.
* haunt/ui.scm (show-version-and-exit): New procedure.
(program-name): Change default value.
(haunt-main): Add version option.
* haunt/ui/serve.scm (haunt-serve): Likewise.
* configure.ac (AC_CONFIG_FILES): Add 'haunt/config.scm'.
* .gitignore: Ignore 'haunt/config.scm'.
Diffstat (limited to 'haunt/ui/serve.scm')
| -rw-r--r-- | haunt/ui/serve.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/haunt/ui/serve.scm b/haunt/ui/serve.scm index 3ef7ede..078b013 100644 --- a/haunt/ui/serve.scm +++ b/haunt/ui/serve.scm @@ -41,6 +41,8 @@ Start an HTTP server for the current site.~%") (() (serve (haunt-output-directory))) ((or ("-h") ("--help")) (show-serve-help)) + (("--version") + (show-version-and-exit)) (((? option? opt) _ ...) (haunt-error "invalid option: ~a" opt) (exit 1)) |