bump version to 1.1; make `history` available

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 (define collection 'multi)
 
-(define version "1.0")
+(define version "1.1")
 (define deps '("base" ["txexpr" #:version "0.2"] ["sugar" #:version "0.2"] ["markdown" #:version "0.18"] "htdp"
                "at-exp-lib" "html-lib" "rackjure" "web-server-lib" "scribble-text-lib" "rackunit-lib"
                "gui-lib"))

pollen/private/manual-history.rkt

@@ -0,0 +1,65 @@
+#lang racket/base
+(require (for-syntax racket/base
+                     syntax/parse)
+         version/utils
+         scribble/base
+         scribble/core
+         scribble/private/manual-sprop
+         scribble/private/manual-ex
+         scribble/private/manual-style)
+
+#|
+Need this to make pollen docs buildable on v6.0.
+`history` not added to scribble/manul till v6.1.
+|#
+
+(provide pollen-history)
+
+(struct history-entry (what vers vers-stx expl))
+
+(begin-for-syntax
+ (define-splicing-syntax-class clause
+   #:attributes (e)
+   [pattern (~seq #:added vers)
+            #:attr e #'(history-entry "Added" vers (quote-syntax vers) '("."))]
+   [pattern (~seq #:changed vers content)
+            #:attr e #'(history-entry "Changed" vers (quote-syntax vers)
+                                      (list ": " content))]))
+
+(define-syntax (pollen-history stx)
+  (syntax-parse stx
+    [(_ c:clause ...)
+     #'(make-history (list c.e ...))]))
+
+(define (make-history es)
+  (for ([e (in-list es)])
+    (define vers (history-entry-vers e))
+    (unless (valid-version? vers)
+      (raise-syntax-error 'history
+                          (format "not a valid version: ~e"
+                                  vers)
+                          (history-entry-vers-stx e))))
+  (delayed-block
+   (lambda (renderer p ri)
+     (define pkg
+       (let ([from (resolve-get/tentative p ri '(exporting-packages #f))])
+         (and from
+              (pair? from)
+              (car from))))
+     (para
+      #:style (style "SHistory" (list scheme-properties))
+      (for/list ([e (in-list (sort es (lambda (a b) (version<? a b))
+                                   #:key history-entry-vers))]
+                 [i (in-naturals)])
+        (define vers (history-entry-vers e))
+        (list (if (zero? i)
+                  null
+                  (list null ; needed to avoid " " dropped as whitespace
+                        " "))
+              (history-entry-what e)
+              " in version "
+              vers
+              (if (and pkg (zero? i))
+                  (list " of package " (tt pkg))
+                  null)
+              (history-entry-expl e)))))))

pollen/private/ts.rktd

@@ -1 +1 @@
-1466203240
+1466261005

pollen/private/version.rkt

@@ -4,7 +4,7 @@
 (define-runtime-path ts-file "ts.rktd")
 
 (define major-version 1)
-(define minor-version 0)
+(define minor-version 1)
 
 (define pollen:version-strict (format "~a.~a" major-version minor-version))
 

pollen/scribblings/mb-tools.rkt

@@ -1,7 +1,7 @@
 #lang at-exp racket/base
-(require (for-syntax racket/base racket/syntax) scribble/core scribble/base scribble/manual racket/list scribble/private/manual-sprop scribble/decode scribble/html-properties racket/runtime-path racket/string racket/format)
+(require (for-syntax racket/base racket/syntax) scribble/core scribble/manual scribble/private/manual-sprop scribble/decode scribble/html-properties racket/runtime-path racket/format "../private/manual-history.rkt")
 
-(provide (all-defined-out) (all-from-out racket/runtime-path))
+(provide (all-defined-out) (all-from-out racket/runtime-path "../private/manual-history.rkt"))
 
 (define-runtime-path mb-css "mb.css")
 

pollen/scribblings/setup.scrbl

@@ -116,15 +116,15 @@ Default separators used in decoding. The first two are initialized to @racket["\
 
 (define-settable publish-directory "publish")
 
-@defoverridable[publish-directory (or/c path-string? path-for-some-system?)]{Default target for @secref{raco_pollen_publish}. A complete path is used as is; a relative path is published to the desktop. Default is @racket["publish"].}
+@defoverridable[publish-directory (or/c path-string? path-for-some-system?)]{Default target for @secref{raco_pollen_publish}. A complete path is used as is; a relative path is published to the desktop. Default is @racket["publish"]. @pollen-history[#:added "1.1"]}
 
-@defoverridable[unpublished-path? (path? . -> . boolean?)]{Deprecated. Please use @racket[omitted-path?].}
+@defoverridable[unpublished-path? (path? . -> . boolean?)]{@pollen-history[#:changed "1.1" @elem{Deprecated. Please use @racket[setup:omitted-path?].}]}
 
-@defoverridable[omitted-path? (path? . -> . boolean?)]{Predicate that determines whether a path is omitted from @secref{raco_pollen_render} and @secref{raco_pollen_publish} operations. If the predicate evaluated to @racket[#t], then the path is omitted. The default predicate, therefore, is @racket[(lambda (path) #f)].}
+@defoverridable[omitted-path? (path? . -> . boolean?)]{Predicate that determines whether a path is omitted from @secref{raco_pollen_render} and @secref{raco_pollen_publish} operations. If the predicate evaluated to @racket[#t], then the path is omitted. The default predicate, therefore, is @racket[(lambda (path) #f)]. @pollen-history[#:added "1.1"]}
 
-@defoverridable[extra-published-path? (path? . -> . boolean?)]{Deprecated. Please use @racket[extra-path?].}
+@defoverridable[extra-published-path? (path? . -> . boolean?)]{@pollen-history[#:changed "1.1" @elem{Deprecated. Please use @racket[setup:extra-path?].}]}
 
-@defoverridable[extra-path? (path? . -> . boolean?)]{Predicate that determines if path is rendered & published, overriding @racket[(setup:omitted-path?)] above, and Pollen's default publish settings. For instance, Pollen automatically omits files with a @racket[.rkt] extension. If you wanted to force a @racket[.rkt] file to be published, you could include it here. Default is @racket[(lambda (path) #f)].}
+@defoverridable[extra-path? (path? . -> . boolean?)]{Predicate that determines if path is rendered & published, overriding @racket[(setup:omitted-path?)] above, and Pollen's default publish settings. For instance, Pollen automatically omits files with a @racket[.rkt] extension. If you wanted to force a @racket[.rkt] file to be published, you could include it here. Default is @racket[(lambda (path) #f)]. @pollen-history[#:added "1.1"]}
 
 
 @defoverridable[splicing-tag symbol?]{Key used to signal that an X-expression should be spliced into its containing X-expression. Default is @val[default-splicing-tag].}

pollen/scribblings/version-history.scrbl

@@ -24,6 +24,18 @@ Beyond keeping the commit history available, I make no promise to maintain the p
 
 @section{Changelog}
 
+@subsection{Version 1.1} 
+
+@bold{New features}
+
+@seclink["raco-pollen" #:doc '(lib "pollen/scribblings/pollen.scrbl")]{@racketfont{raco pollen}}: Added @racket[--recursive] option to @secref["raco_pollen_render" #:doc '(lib "pollen/scribblings/pollen.scrbl")].
+
+@racketmodname[pollen/setup]: @racket[setup:omitted-path?] replaces @racket[setup:unpublished-path?], and @racket[setup:extra-path?] replaces @racket[setup:extra-published-path?]. These settings are used during both render and publish operations. (The old names will still work, however.)
+
+Added @racket[setup:publish-directory], which can be used to set a default publish directory.
+
+
+
 @subsection{Version 1.0} 
 
 @bold{New features}