@@ -32,10 +32,11 @@
 
 (provide html$-page-head
          html$-page-body-open
          html$-article-open
          html$-article-close
+         html$-article-listing-short
          html$-page-body-close
          html$-note-title
          html$-note-contents
          html$-note-listing-full
          html$-note-in-article
@@ -76,11 +77,18 @@
   (cond [(non-empty-string? footertext)
          ◊string-append{</section>
           <footer class="article-info"><span class="x">(</span>◊|footertext|<span class="x">)</span></footer>
           </article>}]
         [else "</section></article>"]))
- 
+
+(define (html$-article-listing-short web-path pubdate title)
+  ◊string-append{
+  <li><a href="◊web-path">
+    <div class="article-list-date caps">◊(ymd->english pubdate)</div>
+    <div class="article-list-title">◊|title|</div>
+  </a></li>})
+
 (define (html$-page-body-close)
   ◊string-append{<footer>By Joel Dueck</footer>
  </main></body>})
 
 ;; Notes