summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-30 18:45:41 +0100
committerLudovic Courtès2008-01-30 18:45:41 +0100
commit37e65d3cfc53f0a34f7e7372629d25adf238f68f (patch)
tree756945a32bdfb586e80a84912572c940abe3b2fc /src/guile
parentc2cacc79a95699dc20b592ce7ae7669aca752ecd (diff)
downloadskribilo-37e65d3cfc53f0a34f7e7372629d25adf238f68f.tar.gz
skribilo-37e65d3cfc53f0a34f7e7372629d25adf238f68f.tar.lz
skribilo-37e65d3cfc53f0a34f7e7372629d25adf238f68f.zip
html: Produce a more concise advertising message. :-)
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/html.scm24
1 files changed, 7 insertions, 17 deletions
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")
;*---------------------------------------------------------------------*/