Index: crystalize.rkt
==================================================================
--- crystalize.rkt
+++ crystalize.rkt
@@ -207,11 +207,13 @@
[(and (note-count . > . 0) (string=? disposition ""))
(format "There is a note appended."
pagenode)]
[else ""]))
- (format "~a ~a ~a" series-part disp-part notes-part))
+ (cond [(andmap non-empty-string? (list series-part disp-part notes-part))
+ (format "~a ~a ~a" series-part disp-part notes-part)]
+ [else ""]))
;; ~~~ Notes ~~~
;; Save a collection of ◊note tags to the DB, and return the HTML of the complete
Index: template-html.rkt
==================================================================
--- template-html.rkt
+++ template-html.rkt
@@ -71,13 +71,15 @@
}]))
(define (html$-article-close footertext)
- ◊string-append{
-
- })
+ (cond [(non-empty-string? footertext)
+ ◊string-append{
+
+ }]
+ [else ""]))
(define (html$-page-body-close)
◊string-append{