diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 15:40:15 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 15:40:15 +0200 |
| commit | 8f2cd195e18f7c26345dfd701216affcd1fdbcd6 (patch) | |
| tree | a497d0f9231db1d86c2ca096668e37e69ff33007 /module/entry-points/html.scm | |
| parent | Extend and document benchmark main. (diff) | |
| download | calp-8f2cd195e18f7c26345dfd701216affcd1fdbcd6.tar.gz calp-8f2cd195e18f7c26345dfd701216affcd1fdbcd6.tar.xz | |
Remove *TOP* tags from descriptions.
Diffstat (limited to 'module/entry-points/html.scm')
| -rw-r--r-- | module/entry-points/html.scm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm index 1237f628..e58cbddd 100644 --- a/module/entry-points/html.scm +++ b/module/entry-points/html.scm @@ -17,25 +17,25 @@ (description "Start date of output.") ) (count (value #t) - (description (*TOP* "How many pages should be rendered." - "If --style=" (b "week") " and --from=" (b "2020-04-27") - " then --count=" (b 4) " would render the four pages " - "2020-04-27, 2020-05-04, 2020-05-11, and 2020-05-25. " - "Defaults to 12 to give a whole year when --style=" (b "month") "." - ))) + (description "How many pages should be rendered." + "If --style=" (b "week") " and --from=" (b "2020-04-27") + " then --count=" (b 4) " would render the four pages " + "2020-04-27, 2020-05-04, 2020-05-11, and 2020-05-25. " + "Defaults to 12 to give a whole year when --style=" (b "month") "." + )) (style (value #t) (predicate ,(lambda (v) (memv (string->symbol v) '(wide week table)))) - (description (*TOP* "How the body of the HTML page should be layed out. " - (br) (b "week") - " gives a horizontally scrolling page with 7 elements, " - "where each has events graphically laid out hour by hour." - (br) (b "table") - " gives a month in overview as a table. Each block contains " - "the events for the given day, in order of start time. They are " - "however not graphically sized. " - (br) (b "wide") - " is the same as week, but gives a full month.")) + (description "How the body of the HTML page should be layed out. " + (br) (b "week") + " gives a horizontally scrolling page with 7 elements, " + "where each has events graphically laid out hour by hour." + (br) (b "table") + " gives a month in overview as a table. Each block contains " + "the events for the given day, in order of start time. They are " + "however not graphically sized. " + (br) (b "wide") + " is the same as week, but gives a full month.") ) (help (single-char #\h) (description "Print this help.")))) |