Fix infer-moment contract, bump version (fixes #9)

otherjoel · Apr 8, 2022 · d45edee · d45edee
1 parent 7e1ca56
commit d45edee
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 9 deletions.
diff --git a/splitflap-doc/constructs.scrbl b/splitflap-doc/constructs.scrbl
@@ -199,10 +199,13 @@ ommitted, @racketvalfont{00:00:00} (the very start of the date) is assumed.
           (infer-moment "2012-08-31 13:34")
           (infer-moment "2015-10-02 01:03:15")
 
-          (parameterize ([current-timezone 0])
+          (parameterize ([current-timezone -14400])
             (infer-moment "2015-10-02 01:03:15"))
 
-          (infer-moment "2012-09-14 12")]
+          (infer-moment "2012-09-14 12")
+          (infer-moment)]
+
+@history[#:changed "1.2" "Added no-argument form for current moment"]
 
 }
 

diff --git a/splitflap-doc/mod-splitflap.scrbl b/splitflap-doc/mod-splitflap.scrbl
@@ -79,9 +79,6 @@ Returns a @racketresultfont{#<feed>} struct. You can inspect its contents with @
 If any of the @tech{tag URIs} of the @racket[_entries] are @racket[tag=?] with each other or with the
 feed @racket[_id], an exception is raised identifying the first duplicate encountered.
 
-The @racket[_entries] will be sorted in reverse chronological order by their “updated” timestamps.
-The most recent timestamp is also used as the feed’s own last-updated timestamp.
-
 }
 
 @section{Producing feed XML}
@@ -105,8 +102,14 @@ The @racket[_feed-url] argument must be supplied as a valid URL string when @rac
 It is not a required argument when @racket[_data] is any other type, and in those cases it will be
 ignored if supplied.
 
-For complete feeds (e.g., when @racket[_data] is a @racket[feed] or @racket[podcast]) the output can
-be further affected by other parameters. View their documentation for more information.
+For complete feeds (e.g., when @racket[_data] is a @racket[feed] or @racket[podcast]), the
+entries/episodes will be sorted in reverse chronological order by their “updated” timestamps, and
+the most recent such timestamp is used as the value for feed-level “last updated” and/or “published”
+elements. If the feed contains no entries or episodes, these feed-level timestamps will use
+@racket[now/moment].
+
+The output of complete feeds can be further affected by other parameters (view their documentation
+for more information):
 
 @itemlist[#:style 'compact
 

diff --git a/splitflap-lib/constructs.rkt b/splitflap-lib/constructs.rkt
@@ -34,7 +34,7 @@
 
          ; Moments
          (contract-out
-          [infer-moment (-> string? moment?)]
+          [infer-moment (->* () (string?) moment?)]
           [moment->string (-> moment? (or/c 'rss 'atom) string?)])             
 
          ; Enclosures and MIME types

diff --git a/splitflap-lib/info.rkt b/splitflap-lib/info.rkt
@@ -1,7 +1,7 @@
 #lang info
 
 (define collection "splitflap")
-(define version "1.1")
+(define version "1.2")
 
 (define deps '("gregor-lib"
                "rackunit-lib"