From 53cc7ebd298f9760b6bd48363446303b006ea130 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Sat, 16 Feb 2019 18:35:29 -0500 Subject: [PATCH] Fix gendoc. --- tools/gendoc.janet | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/tools/gendoc.janet b/tools/gendoc.janet index 279d3bc1..8b230b8f 100644 --- a/tools/gendoc.janet +++ b/tools/gendoc.janet @@ -1,7 +1,5 @@ # Generate documentation -# TODO - make tool reusable - (def- prelude ``` @@ -57,13 +55,28 @@ (buffer/push-byte buf byte))) buf) +(def- months '("January" "February" "March" "April" "May" "June" "July" "August" "September" + "October" "November" "December")) +(defn nice-date + "Get the current date nicely formatted" + [] + (let [date (os/date) + M (months (date :month)) + D (+ (date :month-day) 1) + Y (date :year) + HH (date :hours) + MM (date :minutes) + SS (date :seconds)] + (string/format "%s %d, %d at %.2d:%.2d:%.2d" + M D Y HH MM SS))) + (defn- make-title "Generate title" [] (string "

Janet Core API

" "

Version " janet/version "-" janet/build "

" - "

Generated " - (string/number (os/time) :f 0 20) + "

Generated at " + (nice-date) " seconds after epoch

" "
"))