Index: crystalize.rkt
==================================================================
--- crystalize.rkt
+++ crystalize.rkt
@@ -240,11 +240,11 @@
   (define title-html-flow (html$-note-title author pagenode parent-title-plain))
   (define author-url (maybe-attr 'author-url attrs))
   (define-values (disp-mark disp-verb) (disposition-values disposition-attr))
   (define content-html (html$-note-contents disp-mark (get-elements note-tx)))
   (define listing-full-html
-    (html$-note-listing-full pagenode note-id title-html-flow note-date author author-url content-html))
+    (html$-note-listing-full pagenode note-id title-html-flow note-date content-html author author-url))
 
   (define note-record
     (list pagenode
           note-id
           title-html-flow
@@ -265,6 +265,6 @@
             (list->sql-fields table_notes-fields)
             (list->sql-parameters table_notes-fields)))
   (apply query! save-note-query note-record)
   
   ;; return html$ of note
-  (html$-note-in-article note-id note-date author author-url content-html))
+  (html$-note-in-article note-id note-date content-html author author-url))

Index: template-html.rkt
==================================================================
--- template-html.rkt
+++ template-html.rkt
@@ -108,24 +108,27 @@
        (cons (txexpr 'p 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 author author-url contents)
+(define (html$-note-listing-full pagenode note-id title-html-flow date contents [author default-authorname] [author-url ""])
   (define author-part
-    (cond [(non-empty-string? author)
+    (cond [(non-empty-string? author-url)
            ◊string-append{
             <div class="note-meta">
             &mdash;<a class="u-author h-card" href="◊|author-url|">◊|author|</a>
             </div>}]
           [else ◊string-append{
             <div class="note-meta">
-            &mdash;<a class="u-author h-card" href="https://thelocalyarn.com">◊|default-authorname|</a>
+            &mdash;<span class="h-card">◊|author|</span>
             </div>}]))
+  (define maybe-author-class?
+    (cond [(string=? author default-authorname) "by-proprietor"]
+          [else ""]))
   
   ◊string-append{
- <article class="with-title hentry">
+ <article class="with-title ◊maybe-author-class? hentry">
  <h1 class="entry-title">◊|title-html-flow|</h1>
  <p class="time"><a href="◊|pagenode|◊note-id" class="rel-bookmark note-permlink">
  <time datetime="◊date">◊ymd->english[date]</time>
  </a></p>
  <section class="entry-content">
@@ -132,13 +135,16 @@
  <div class="p-content p-name">◊|contents|</div>
  ◊author-part
  </section>
  </article>})
 
-(define (html$-note-in-article id date author author-url contents)
-  ◊string-append{
- <div class="note u-comment" id="◊|id|">
+(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 ""]))
+
+  ◊string-append{<div class="note ◊maybe-author-class? u-comment" id="◊|id|">
  <h3><a href="#◊|id|"><time class="dt-published" datetime="◊date">◊ymd->english[date]</time>
  </a></h3>
  <div class="p-content p-name">
  ◊contents
  </div>

Index: web-extra/martin.css.pp
==================================================================
--- web-extra/martin.css.pp
+++ web-extra/martin.css.pp
@@ -474,10 +474,18 @@
     div.note-meta {
         margin-top: ◊x-lineheight[1];
         font-feature-settings: "smcp" on;
         color: #888;
     }
+
+    .by-proprietor .note-meta {
+        display: none;
+    }
+
+    div.note + div.note {
+        margin-top: ◊x-lineheight[2];
+    }
 
     span.disposition-mark {
         color: ◊color-xrefmark;
         display: inline-block;
         width: 1em;