blob: 7f992a38d954f3180f305c3cb70db5f5655eeea3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
;;; wikme.scm --- build a wiki from a folder of markdown --- executable
(import (args)
(chicken process-context)
(chicken port))
(include "src/wikme")
;; (make-wiki base-url ; base URL for links
;; origin-dir ; origin directory
;; destination-dir ; destination directory
;; page-template ; template for pages
;; file-transformers ; list of filename transformers
;; transformers ; list of source transformer functions
;; pages ; list of <page>s
;; )
(define options
(list (args:make-option )))
(define (usage)
(with-output-to-port (current-error-port)
(lambda ()
(print "Usage: " (car (argv)) " [options...] [directory]")
(newline)
(print (args:usage options))))
(exit 1))
(define (main args)
(receive (options operands)
(args:parse args options)
#f))
(main (command-line-arguments))
|