Index: snippets-html.rkt
==================================================================
--- snippets-html.rkt
+++ snippets-html.rkt
@@ -129,19 +129,24 @@
 
 (define (html$-note-in-article id date contents author author-url)
   (define maybe-author-class?
     (cond [(or (string=? author default-authorname) (string=? author "")) "by-proprietor"]
           [else ""]))
+  (define author-part
+    (cond [(non-empty-string? author-url)
+           ◊string-append{<a class="u-author h-card" href="◊author-url"><i>◊|author|</i></a>}]
+          [else
+           ◊string-append{<span class="h-card"><i>◊|author|</i></span>}]))
 
   ◊string-append{<div class="note ◊maybe-author-class? u-comment" id="◊|id|">
  <h3><a class="rel-bookmark note-permlink" href="#◊|id|"><time class="dt-published" datetime="◊date">◊ymd->english[date]</time>
  </a></h3>
  <div class="p-content p-name">
  ◊contents
  </div>
  <div class="note-meta">
- &mdash;<a class="u-author h-card" href="◊|author-url|"><i>◊|author|</i></a>
+ &mdash;◊author-part
  </div>
  </div>})
 
 (define (html$-notes-section note-htmls)
   ◊string-append{<div class="further-notes" id="furthernotes">