diff options
| author | Ludovic Courtès | 2008-01-30 18:45:41 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-30 18:45:41 +0100 |
| commit | 37e65d3cfc53f0a34f7e7372629d25adf238f68f (patch) | |
| tree | 756945a32bdfb586e80a84912572c940abe3b2fc /src | |
| parent | c2cacc79a95699dc20b592ce7ae7669aca752ecd (diff) | |
| download | skribilo-37e65d3cfc53f0a34f7e7372629d25adf238f68f.tar.gz skribilo-37e65d3cfc53f0a34f7e7372629d25adf238f68f.tar.lz skribilo-37e65d3cfc53f0a34f7e7372629d25adf238f68f.zip | |
html: Produce a more concise advertising message. :-)
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 24 |
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") ;*---------------------------------------------------------------------*/ |