diff options
| author | Ludovic Court`es | 2006-10-25 15:05:17 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-25 15:05:17 +0000 |
| commit | 3fbd7575228bd70bf077272f7c1a6320e3f94084 (patch) | |
| tree | 4c1e7218f45c4412192cd00f4706ce19ab4fda5d /src/guile | |
| parent | 6a06d0449967e85c3aa806736e1a27c9db99db71 (diff) | |
| download | skribilo-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.scm | 6 |
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) |