~aasg/haunted-blog

0f0e039a23fedc69f54c63d5d998aa6db19da289 — Aluísio Augusto Silva Gonçalves 1 year, 2 months ago 998469a
Adjust TOC so it is more accessible (I hope)
2 files changed, 4 insertions(+), 4 deletions(-)

M haunt.scm
M scm/aasg/sxml/toc.scm
M haunt.scm => haunt.scm +1 -1
@@ 168,8 168,8 @@
              ,(author-hcard post)
              ,(prefix-sxml " in reply to " (cite-if-reply post)))
            (h1 (@ (class "p-name")) ,(post-ref post 'title))
            ,(when (post-ref post 'toc) (sxml-toc (post-sxml post)))
            (div (@ (class "e-content"))
                 ,(when (post-ref post 'toc) (sxml-toc (post-sxml post)))
                 ,(post-sxml post))
            (p (@ (class "post-comments"))
              ,(link-as "View comments to this post" (post-comments-url post))

M scm/aasg/sxml/toc.scm => scm/aasg/sxml/toc.scm +3 -3
@@ 64,6 64,6 @@

(define (sxml-toc sxml)
  (let ((outline (sxml-outline sxml)))
    `(details
       (summary "Table of contents")
       (ul ,@(map toc-entry outline)))))
    `(details (@ (role "navigation"))
              (summary "Table of contents")
              (ul ,@(map toc-entry outline)))))