From c63e6405a4e1b5d28a2a69b4623263dc37cbd4f2 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 25 Oct 2006 13:03:46 +0000
Subject: 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: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-70
---
 src/guile/skribilo/package/slide/html.scm | 6 ++----
 1 file 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)
-- 
cgit v1.2.3