     (= (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))
-                "")))
+              (if (and (get-in word '(:note))
+                       (not (= false show-notes)))
+                (get-in word '(:note)))))
 
    ;; TODO: remove support for deprecated :root - use :sing instead.
    (and


(declare fo-ps-en)

(defn fo-ps-en [expr]
  "show the phrase-structure of a phrase structure tree, e.g [hh21 'mangiare (to eat)' [cc10 'il (the)' 'pane(bread)']]"
  ;; [:first = {:head,:comp}] will not yet be found in expr, so this head-first? will always be false.
  (let [head-first? (= :head (get-in expr [:first]))]

   ;; recursive call after inflecting '(:b :a) to past.
   (get-string {:a (get-in word '(:a))
                  :b {:a (get-in word '(:b :a :past))
                      :b (get-in word '(:b :b))}}
               :show-notes show-notes)
   (and
    (get-in word [:a])
    (get-in word [:b]))
   (let [string-a (get-string (get-in word [:a]) :show-notes show-notes)
         string-b (get-string (get-in word [:b]) :show-notes show-notes)]
     (log/debug (str "A AGR1: " (strip-refs (get-in word [:a]))))
     (log/debug (str "A AGR2: " (strip-refs (get-in word [:a :agr]))))
     (log/debug (str "A AGR3: " (strip-refs (get-in word [:a :agr :number]))))
