I'm trying to make our web app, which serves compiled ClojureScript, always serve the most up-to-date version, i.e. only use the browser-cached version if there is not a newer version on the server. Adding Cache-Control: no-cache to the response headers and similar meta tags on the HTML hasn't solved the problem. The index file we serve is up to date, but the CSS and compiled JS are not. can anyone advise?

hi, is it possible to use with-redefs to redefine javascript functions, like say js/setTimeout ?

hmm, repl would seem to indicate 'yes':

cljs.user=> (with-redefs [js/setTimeout (constantly true)] (js/setTimeout :blah :blahzzz))
true

perhaps a more convincing example:

cljs.user=> (with-redefs [js/setTimeout (constantly :blaaaaaaz)] (js/setTimeout :blah :blahzzz))
:blaaaaaaz

cool stuff!

Just wanted to show off some cljs on hardware. Pretty neat new use case for the lanugage https://youtu.be/WYSL-fD_ogA

Hello guys. I try to write some recursive function, but I must mess up something with the logic. I wanted to printed it out, but it won't. Does (.log js/console "something") work inside a reduce function?

of course

hmm, for me it doesnt. If I print to console the data-structure which it resulted, it is okay. But if I want to see the parameters step-by-step, and I try to print them, it won't do it.

(defn make-some-true [the-map path]
  (.log js/console "success-in2 ")
  (let [result (doall  (convert-indexed-map-to-vector
                         (reduce-kv (fn [till-now now-key now-value]
                                      (if (= (first path) (:name now-value))
                                        (if (not (empty? (rest path)))
                                          (assoc-in
                                            (assoc-in (assoc till-now now-key now-value)
                                                      [now-key :state] true)
                                            [now-key :children]
                                            (make-some-true
                                              (:children now-value)
                                              (rest path)))
                                          (assoc-in (assoc till-now now-key now-value)
                                                    [now-key :state] true))
                                        (assoc till-now now-key now-value)))
                                 {}
                                 the-map)))]

    result))

(defn make-all-false [the-map]
  (.log js/console "success-in")
  (vec (reduce (fn [till-now now]
                 (conj till-now
                       (if (:children now)
                         (assoc now :state false :children (make-all-false (:children now)))
                         (assoc now :state false))))
               []
               the-map)))

(defn assoc-with-values [the-map paths]
  (.log js/console "success")
  (vec (reduce
         (fn [till-now path]
           (doall (make-some-true till-now path)))
         (make-all-false the-map))))

the print "success-in2" wont get printed out

success, and success-in does

well what does make-all-false return? maybe thats empty?

it is not, I printed it out

it just doesnt work as expected, so I need to debug it.

(defn assoc-with-values [the-map paths]
  (.log js/console "success"
    (str  (vec (reduce
                 (fn [till-now path]
                   (doall (make-some-true till-now path)))
                 [{:name "something" :children [{:name "deeper" :state false}] :state false}])))))

I tried it with a vector, so it doesnt depend on it

thats just one value. so the reduce fn isn't called and just returns that value since there is no init provided.

maybe you don't want reduce there? maybe map? or provide an init value

(reduce rfn init coll)

I check it out.

omg, I forgot the coll

it was the paths , forgot to add it to the end

so there is no mystery, just mistake, thank you very much 😄