diff options
| author | Ludovic Courtès | 2007-12-01 13:23:09 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-12-01 13:23:09 +0100 |
| commit | dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0 (patch) | |
| tree | df4b998c514b96839bb7a7ab5c7c22318d8cfc70 | |
| parent | 6ad93ae6312bc4ce68dd45e982e32314f80c7e0e (diff) | |
| download | skribilo-dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0.tar.gz skribilo-dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0.tar.lz skribilo-dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0.zip | |
html: Better handle nodes with `:file #f'.
* src/guile/skribilo/engine/html.scm (ref): Check whether both
`(*destination-file*)' _and_ F are false.
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index b6ab8a7..7858e1a 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -1,7 +1,7 @@ ;;; html.scm -- HTML engine. ;;; +;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Manuel Serrano -;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -1890,7 +1890,7 @@ (markup-class n) "skribilo-ref"))) (format #t "<a href=\"~a#~a\" class=\"~a\"" - (if (and (*destination-file*) + (if (and (*destination-file*) f (string=? f (*destination-file*))) "" (strip-ref-base (or f (*destination-file*) ""))) |