@@ -3,10 +3,11 @@
 ; 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/template
+         pollen/core
          pollen/decode
          pollen/private/version
          racket/string
          racket/function
          racket/list
@@ -44,24 +45,36 @@
  <a href="/index.html"><header>
  <img src="/web-extra/mark.svg" alt="The Local Yarn" height="103" class="logo">
  <h1>The Local Yarn</h1>
  </header></a>})
 
+(define (html$-repo-links)
+  (define here (path->string (here-source-path)))
+  (cond
+    [(checked-in?)
+     ◊string-append{<div class="scm-links">
+      <a title="source" href="/code/file/◊here">&sect;</a>
+      <a title="changes" href="/code/finfo?name=◊here">¢</a>
+      </div>}]
+    [else (format "<!-- ~a -->" here) ]))
+
 (define (html$-article-open pagenode title? title-tx published)
   (cond
     [title?
      ◊string-append{<article class="with-title hentry">
       ◊(->html `(h1 [[class "entry-title"]] ,@(get-elements title-tx)))
       <p class="time"><a href="/◊(symbol->string pagenode)" class="rel-bookmark">
       <time datetime="◊published" class="published">◊ymd->english[published]</time>
       </a></p>
+      ◊(html$-repo-links)
       <section class="entry-content">}]
     [else
      ◊string-append{<article class="no-title hentry">
       <h1><a href="/◊(symbol->string pagenode)" class="rel-bookmark">
       <time datetime="◊published" class="entry-title">◊ymd->english[published]</time>
       </a></h1>
+      ◊(html$-repo-links)
       <section class="entry-content">}]))
 
 (define (html$-article-close footertext)
   (cond [(non-empty-string? footertext)
          ◊string-append{</section>
@@ -70,31 +83,31 @@
         [else "</section></article>"]))
 
 (define (html$-article-listing-short pagenode pubdate title)
   ◊string-append{
  <article class="short-listing"><a href="/◊(symbol->string pagenode)">
-  <time datetime="◊pubdate" class="caps">◊(ymd->english pubdate)</time>
-  <h3>◊|title|</h3>
+ <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>
-})
+ ◊(->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">
+ <footer id="main">
  <p class="title">
  <img src="◊|web-root|web-extra/images/small-rule.png" width="145" height="11" alt="* * *" />
  <br>
  The Local Yarn</p>
  <nav><a href="/index.html">Home</a> •
-    <a href="/blog-pg1.html">Blog</a> •
-    <a href="/keyword-index.html">Keyword Index</a> •
-    <a href="/code"><i><code>◊"◊"(Source&nbsp;Code)</code></i></a>
+ <a href="/blog-pg1.html">Blog</a> •
+ <a href="/keyword-index.html">Keyword Index</a> •
+ <a href="/code"><i><code>◊"◊"(Source&nbsp;Code)</code></i></a>
  </nav>
  ◊(html$-series-list)
  </footer>})
 
 (define (html$-page-body-close)