From 37e65d3cfc53f0a34f7e7372629d25adf238f68f Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Wed, 30 Jan 2008 18:45:41 +0100
Subject: html: Produce a more concise advertising message.  :-)

---
 src/guile/skribilo/engine/html.scm | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 4a2d92c..3268e05 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -41,7 +41,6 @@
 
   :use-module (srfi srfi-13)
   :use-module (srfi srfi-14)
-  :use-module ((srfi srfi-19) :renamer (symbol-prefix-proc 's19:))
   :use-module (srfi srfi-39)
 
   :export (html-engine html-title-engine html-file
@@ -170,7 +169,7 @@
 		   (title-font #f)
 		   (title-background #f)
 		   (title-foreground #f)
-		   (file-title-separator " -- ")
+		   (file-title-separator ,(! " — ")) ;; an "em dash"
 		   ;; html file naming
 		   (file-name-proc ,html-file-default)
 		   ;; index configuration
@@ -865,21 +864,12 @@
    :action (lambda (n e)
 	      (let ((body (markup-body n)))
 		 (if body
-		     (output body #t)
-		     (evaluate-document
-		      (list (hrule)
-			    (p :class "ending"
-			       (font :size -1
-				     (list "This HTML page was "
-					   "produced by "
-					   (ref :text "Skribilo"
-						:url (skribilo-url))
-					   "."
-					   (linebreak)
-					   "Last update: "
-					   (s19:date->string
-					    (s19:current-date))))))
-		      e))))
+		     (output body e)
+		     (evaluate-document (list "(made with "
+                                              (ref :text "skribilo"
+                                                   :url (skribilo-url))
+                                              ")")
+                                        e))))
    :after "</div>\n")
 
 ;*---------------------------------------------------------------------*/
-- 
cgit v1.2.3