@@ -70,14 +70,14 @@
           </article>}]
         [else "</section></article>"]))
 
 (define (html$-article-listing-short pagenode pubdate title)
   ◊string-append{
- <li><a href="/◊(symbol->string pagenode)">
- <div class="article-list-date caps">◊(ymd->english pubdate)</div>
- <div class="article-list-title">◊|title|</div>
- </a></li>})
+ <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$-page-footer)
   ◊string-append{
 <footer id="main">
  <p class="title">The Local Yarn</p>
@@ -215,13 +215,13 @@
         (page-func (+ pagenum 1) "Older&thinsp;&rarr;" "nav-text")))
 
   (string-join `(,prev-link ,@page-group ,next-link)))
 
 (define (series->txpr s)
-  `(li (a [[href ,(symbol->string (cache:series-page s))]]
+  `(li (a [[href ,(string-append web-root (symbol->string (cache:series-page s)))]]
           (i ,(cache:series-title s)))))
 
 (define (html$-series-list)
   (define series-list-items
     (for/list ([group (in-list (series-grouped-list))])
       `(div (h2 ,(cache:series-noun-plural (first group))) (ul ,@(map series->txpr group)))))
   (->html `(section [[class "column-list"] [style "margin-top: 1.3rem"]] ,@series-list-items)))