@@ -3,11 +3,10 @@
 ; 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
@@ -45,16 +44,17 @@
  <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 (html$-repo-links [line #f])
   (define here (path->string (here-source-path)))
+  (define line-param (if line (format "?ln=~a" line) ""))
   (cond
     [(checked-in?)
      ◊string-append{<div class="scm-links">
-      <a title="source" href="/code/file/◊here">&sect;</a>
+      <a title="source" href="/code/file/◊|here|◊line-param">&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)
@@ -133,11 +133,12 @@
        (cons (txexpr first-tag first-attrs (cons disposition first-elems)) (cdr elems))]
       [else
        (cons disposition elems)]))
   (string-append* (map ->html body-elems)))
 
-(define (html$-note-listing-full pagenode note-id title-html-flow date contents [author default-authorname] [author-url ""])
+(define (html$-note-listing-full pagenode note-id title-html-flow
+                                 date srcline contents [author default-authorname] [author-url ""])
   (define author-part
     (cond [(non-empty-string? author-url)
            ◊string-append{
             <div class="note-meta">
             &mdash;<a class="u-author h-card" href="◊|author-url|"><i>◊|author|</i></a>
@@ -154,10 +155,11 @@
  <article class="with-title ◊maybe-author-class hentry">
  <h1 class="entry-title note-full">◊|title-html-flow|</h1>
  <p class="time"><a href="/◊(symbol->string pagenode)#◊note-id" class="rel-bookmark note-permlink">
  <time datetime="◊date">◊ymd->english[date]</time>
  </a></p>
+ ◊(html$-repo-links srcline)
  <section class="entry-content">
  <div class="p-content p-name">◊|contents|</div>
  ◊author-part
  </section>
  </article>})