 
        true
        (join " "
-             [(str (get-string (get-in word '(:a)))
+             [(str (get-string (get-in word '(:a)) :show-notes show-notes)
                    (get-in word [:punctuation :middle]))
-              (get-string (get-in word '(:b)))])))
+              (get-string (get-in word '(:b)) :show-notes show-notes)])))
 
    ;; TODO: this seems wrong: how could :infl == :english?
    (and (= :english (get-in word '(:infl)))

    (= (get-in word '(:cat) :noun))
    (string? (get-in word '(:english))))
   (trim (str (get-in word '(:english)) " "
              (if (get-in word '(:note))
                (get-in word '(:note))
                "")))

   ;; TODO: remove support for deprecated :root - use :sing instead.
   (and

     (and
      (map? expr)
      (:english expr))
     (str (get-string (get-in expr '(:english))
                      :show-notes show-notes))
     true
     expr)))

