Hiccup input control - checked and disabled not working about enfocus

[rqcashman]

Here is an image of the page when it is working.

[rqcashman]

I looked at how Hiccup does this. It looks like for a value with a true it renders the attribute name and for a value of false it renders nothing so {:disabled true} comes out as disabled as it should.
Here is the code:

(defn- render-attribute [[name value]]
  (cond
    (true? value)
      (if (xml-mode?)
        (xml-attribute name name)
        (str " " (as-str name)))
    (not value)
      ""
    :else
      (xml-attribute name value)))

I think Enfocus just flattens the map so you get something like disabled="true" instead of just disabled.