                    [:p "Try typing a value outside the range."]
                    time-input-demo]]])))
 
-(defn demo6
+(defn range-demo1
   []
   (let [from-model  (reagent/atom 900)
         to-model    (reagent/atom 2300)

                   [:label "Demo -"]
                   time-input-demo]]])))

(defn demo5
  []
  (let [model  (reagent/atom 900)
        time-input-demo [time-input

                   [: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 range-demo2
  []
  (let [from-model  (reagent/atom 1000)
        to-model    (reagent/atom 2159)
