◊(Local Yarn Code "Check-in [3911576e]")

                   pagenode
                   note-count)]
          [(and (note-count . > . 0) (string=? disposition ""))
           (format "There is <a href=\"/~a#furthernotes\">a note</a> appended."
                   pagenode)]
          [else ""]))
  
  (cond [(andmap non-empty-string? (list series-part disp-part notes-part))
  (format "~a ~a ~a" series-part disp-part notes-part))
         (format "~a ~a ~a" series-part disp-part notes-part)]
        [else ""]))
    

;; ~~~ Notes ~~~

;; Save a collection of ◊note tags to the DB, and return the HTML of the complete
;; “Further Notes” section at the end
;;

     ◊string-append{<article class="no-title hentry">
      <h1><a href="#" class="rel-bookmark">
      <time datetime="◊published" class="entry-title">◊ymd->english[published]</time>
      </a></h1>
      <section class="entry-content">}]))

(define (html$-article-close footertext)
  (cond [(non-empty-string? footertext)
  ◊string-append{</section>
 <footer class="article-info"><span class="x">(</span>◊|footertext|<span class="x">)</span></footer>
 </article>})
         ◊string-append{</section>
          <footer class="article-info"><span class="x">(</span>◊|footertext|<span class="x">)</span></footer>
          </article>}]
        [else "</article>"]))
 
(define (html$-page-body-close)
  ◊string-append{<footer>By Joel Dueck</footer>
 </main></body>})

;; Notes
;;

    p {
        margin: 0;
        text-indent: 0;
    }

    p + p {
        text-indent: 1em;
        text-indent: 2em;
    }

    section.entry-content blockquote {
        font-size: ◊x-lineheight[0.7];
        line-height: ◊derive-lineheight[7 #:per-lines 6];
        margin: ◊x-lineheight[1.0] 2em;
    }

    section.entry-content blockquote:first-child {
        margin-top: 0;
    }

    section.entry-content blockquote footer::before {
        content: '—'; /* Em-dash */
    }

    section.entry-content blockquote footer {
        margin-top: ◊x-lineheight[1];
        text-align: right;
        width: calc(100% + 2em);
    }

    section.entry-content h2 {
        font-size: 1.2rem;
        font-style: italic;
        margin: ◊x-lineheight[1] 0;
        font-weight: normal;