Clojurians Log v2

Would it be possible to have a function/macro equivalent of the #html reader literal where it wouldn't be necessary to tag all of the data in nested components with #html? e.g. instead of the following where the reader literals are needed for both the component and the argument being passed to it:

(defn my-html [x] #html [:<> [:div "Hello"] x])
(my-html #html [:div "Goodbye"])

could there be something like the ->html function/macro below that does not need reader literals at all?:

(defn my-html [x] [:<> [:div "Hello"] x])
(->html (my-html [:div "Goodbye"]))