                    [:p "The From time must be less than or equal to the To time and both must be within min and max."]
                    time-input-demo]]])))
 
-(defn demo7
+(defn range-demo2
   []
   (let [from-model  (reagent/atom 1000)
         to-model    (reagent/atom 2159)

                   [:p "Try typing a value outside the range."]
                   time-input-demo]]])))

(defn demo6
  []
  (let [from-model  (reagent/atom 900)
        to-model    (reagent/atom 2300)

;; TODO write a macro to convert the demo source to actual code - see time-input-demo and time-input-code in each demo
;; TODO is it possible to use time-api to define demo parameter documentation?

(defn time-demo1
  []
  (let [model (reagent/atom nil)
        time-input-demo  [time-input :model model]
