diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-06-20 17:00:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-06-20 17:00:52 -0700 |
| commit | dbcdfeb30011def77f1d861c0cad427befef5d43 (patch) | |
| tree | 87e016e83c669bd72f68d29af57a6a8629f68aa2 /genman.txr | |
| parent | d1e775648cba50537070b3bb598ed7dc7e5cbb64 (diff) | |
| download | txr-dbcdfeb30011def77f1d861c0cad427befef5d43.tar.gz txr-dbcdfeb30011def77f1d861c0cad427befef5d43.tar.bz2 txr-dbcdfeb30011def77f1d861c0cad427befef5d43.zip | |
* genman.txr (month-name): Filter removed.
Page date is converted to a time value, and later formatted.
Diffstat (limited to 'genman.txr')
| -rw-r--r-- | genman.txr | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -2,10 +2,6 @@ @# and is now part of manutils. @# See here: http://primates.ximian.com/~flucifredi/man/ @# It does not work with that other man2html written in Perl. -@(deffilter month-name - ("01" "Jan") ("02" "Feb") ("03" "Mar") ("04" "Apr") - ("05" "May") ("06" "Jun") ("07" "Jul") ("08" "Aug") - ("09" "Sep") ("10" "Oct") ("11" "Nov") ("12" "Dec")) @(bind txrhash @(hash :equal-based)) @(bind txlhash @(hash :equal-based)) @(bind tgthash txrhash) @@ -13,6 +9,8 @@ Content-type: text/html @(skip 15) <H1>TXR</H1> @(skip)Updated: @YEAR-@MONTH-@DAY<BR><A HREF="#index">Index</A> +@(bind TIME @(make-time-utc (int-str YEAR) (int-str MONTH) (int-str DAY) + 0 0 0 nil)) @(collect) @PREAMBLE @(until) @@ -69,7 +67,7 @@ This document was created by <HEAD><TITLE>Manpage for TXR @VERSION</TITLE> </HEAD><BODY> <H2>Manpage for <A HREF="#lbAB">TXR </a>@VERSION</H2> -<H2>@{MONTH :filter month-name} @DAY, @YEAR</H2> +<H2>@(time-string-utc TIME "%b %d, %Y")</H2> <p> <form action="https://www.paypal.com/cgi-bin/webscr" method="post"> <input type="hidden" name="cmd" value="_s-xclick"> |