◊(Local Yarn Code "Diff")

 —◊author-part
 </div>
 </div>})

(define (html$-notes-section note-htmls)
  (cond
    [(null? note-htmls) ""]
    [else
  ◊string-append{<div class="further-notes" id="furthernotes">
 <h2>Further Notes</h2>
 ◊(apply string-append note-htmls)
 </div>})
     ◊string-append{<div class="further-notes" id="furthernotes">
      <h2>Further Notes</h2>
      ◊(apply string-append note-htmls)
      </div>}]))

;; (private) Returns HTML for a list-item link to a particular page in a set of numbered pages
(define (html$-paginate-link basename pagenum [linktext (number->string pagenum)] [class ""])
  (define cstr (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
  (format "<li~a><a href=\"/~a-pg~a.html\">~a</a></li>" cstr basename pagenum linktext))