@@ -2,28 +2,27 @@
 
 ; SPDX-License-Identifier: BlueOak-1.0.0
 ; This file is licensed under the Blue Oak Model License 1.0.0.
 
 ;; Provides functions for displaying content in HTML templates.
-(require pollen/core
-         pollen/template
+(require pollen/template
          pollen/decode
          pollen/private/version
          racket/string
          racket/function
          racket/list
          txexpr
-         openssl/sha1
          "cache.rkt"
          "dust.rkt")
 
 (provide html$-page-head
          html$-page-body-open
          html$-series-list
          html$-article-open
          html$-article-close
          html$-article-listing-short
+         html$-article-excerpt
          html$-page-footer
          html$-page-body-close
          html$-note-contents
          html$-note-listing-full
          html$-note-in-article
@@ -74,10 +73,16 @@
   ◊string-append{
  <article class="short-listing"><a href="/◊(symbol->string pagenode)">
   <time datetime="◊pubdate" class="caps">◊(ymd->english pubdate)</time>
   <h3>◊|title|</h3>
  </a></article>})
+
+(define (html$-article-excerpt pagenode excerpt-tx)
+  ◊string-append{
+   ◊(->html excerpt-tx #:splice? #t)
+   <p class="further-reading"><a href="◊|web-root|◊symbol->string[pagenode]">Read more…</a></p>
+})
 
 (define (html$-page-footer)
   ◊string-append{
 <footer id="main">
  <p class="title">The Local Yarn</p>