Ticket #1288: section-permalink.patch

qwiki-sxml.scm

@@ -241 +241 @@
      (section
       *macro*
       . ,(lambda (tag elems)
-           (let ((level (car elems))
-                 (head-word (cadr elems))
-                 (contents (cddr elems)))
+           (let* ((level (car elems))
+                  (head-word (cadr elems))
+                  (link (internal-link head-word))
+                  (contents (cddr elems)))
              (cond ((and (integer? level) head-word)
-                    `((,(string->symbol (string-append "h" (number->string level)))
-                       (@ (id ,(internal-link head-word)))
-                       ,head-word ) . ,contents))
+                    `((a (@ (href (,@(string-append "#" link))))
+                         (,(string->symbol (string-append "h" (number->string level)))
+                          (@ (id ,link))
+                          ,head-word)) . ,contents))
                    (else
                     (error 'html-transformation-rules
                            (conc "section elements must be of the form (section level head-word . contents), got " elems)))))))