aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-25 15:05:17 +0000
committerLudovic Court`es2006-10-25 15:05:17 +0000
commit3fbd7575228bd70bf077272f7c1a6320e3f94084 (patch)
tree4c1e7218f45c4412192cd00f4706ce19ab4fda5d /src/guile
parent6a06d0449967e85c3aa806736e1a27c9db99db71 (diff)
downloadskribilo-3fbd7575228bd70bf077272f7c1a6320e3f94084.tar.gz
skribilo-3fbd7575228bd70bf077272f7c1a6320e3f94084.tar.lz
skribilo-3fbd7575228bd70bf077272f7c1a6320e3f94084.zip
slide/html: Issue only one anchor per slide.
* src/guile/skribilo/package/slide/html.scm (%slide-html-initialize!)[slide]: Issue only one anchor per slide. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-11
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/slide/html.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/guile/skribilo/package/slide/html.scm b/src/guile/skribilo/package/slide/html.scm
index 8fcbfed..024e1fd 100644
--- a/src/guile/skribilo/package/slide/html.scm
+++ b/src/guile/skribilo/package/slide/html.scm
@@ -50,8 +50,8 @@
(markup-writer 'slide he
:options '(:title :number :transition :toc :bg)
:before (lambda (n e)
- (format #t "<a name=\"~a\">" (markup-ident n))
- (display "<br>\n"))
+ (display "<br>\n")
+ (format #t "<a name=\"~a\">" (markup-ident n)))
:action (lambda (n e)
(let ((nb (markup-option n :number))
(t (markup-option n :title))
@@ -61,8 +61,6 @@
;; When a class is specified, let the user play
;; with CSS.
(format #t "\n<div class=\"~a\">" class)
- (format #t "\n<a name=\"~a\"></a>\n"
- (markup-ident n))
(format #t "<div class=\"~a\">" title-class)
(format #t "~a / ~a -- " nb (slide-number))
(output t e)