Hello everyone... does someone have a simple example of cljs-http? I'm very new to Clojure and can't seem to wrap my head around cljs-http. The README.md's examples haven't helped either... My test setup is a file.json in a directory (the file contains a JSON string). For serving, I'm using python3 -m http.server (it creates a simple server on localhost:8000 by default serving the contents of the current folder). What I've been unable to achieve is just get the contents of the file.json as-is (`curl` and opening the URL in the browser work fine... I tested with Python's requests package too)... What I need is something in Clojurescript please 🙂

hi, I am using clojure.spec heavily on my project and I started to have duplicated entries during my tests because of a mis-understanding of the parameter distinct in the s/coll-of function. This is my example:

(s/def ::value int?)
(s/def ::name string?)
(s/def ::insta (s/keys :req [::value ::name]))
(s/def ::list-values (s/coll-of ::insta :distinct true :into [] :count 3))

right now, it only certifies that the whole map called ::insta is distinct. but it's possible to have equal ::value and different ::name for example

Hello everybody, I would to know if I can kick off a one command line simple http server in Clojure like Python does python3 -m http.server ? With tools.deps for eg. ? clj -Sdeps '{:deps {some/clojars {:mvn/version "x.x.x"}}}' -m http.server

@admin055 this might work: https://github.com/tailrecursion/lein-simpleton

@rahul080327 Yes it works, thx. Any chance to find equivalent without lein and any config ? With Clojure cli (tools.deps) ? I found this usefull list of one line http server command : https://gist.github.com/willurd/5720255. Clojure and lein-simpleton is mentionned in comments section.

does anyone uses @r0man’s https://github.com/r0man/cljs-http here. I have a problem when i try to send a JWT key with http header it can be send via post method but get method header can not be attached

[response (<! (http/get (str config/api-url "/api/v1/customer/" id)
                                    {:with-credentials? false
                                     :headers {"Authorization" @(rf/subscribe [:jwt-token])}
                                     }))]

Hey, when I run

(do
  (for [a [1 2 3]] (println a)) 
  (for [a [4 5 6]] (println a)))

oh actually I think I got it, for is lazy but as do returns the last expression the second one is evaluated

i think this is weird behavior i didn't undertand the reason why it doesn't print 1,2,3

ended up doing

(dorun
  (concat
    (for [a [1 2 3]] (println a))
    (for [a [4 5 6]] (println a))))

@m373h4n the reason is for gives you a lazy sequences so do as two lazy sequences and returns the last one which forces evaluation of the second one

so stuff inside for block doesn't run anything

interesting thanks

lazy is tricky. I hope to some day stop making mistakes like the above one.

you might want to use doseq instead of for here

@thomas.ormezzano doseq is mostly the same as for, but runs for side effects instead of lazily producing data

so (doseq [a [1 2 3]] (println a)) (doseq [a [4 5 6]] (println a)) or (doseq [a (concat [1 2 3] [4 5 6]] (println a))

or just (run! println (concat [1 2 3] [4 5 6]))

(run! is like map, but for side effects)

still can't figure out how to solve my problem with clojure.spec

(s/def ::value int?)
(s/def ::name string?)
(s/def ::insta (s/keys :req [::value ::name]))
(s/def ::list-values (s/coll-of ::insta :distinct true :into [] :count 3))

I am trying to use custom generators to do that:

(gen/not-empty
             (check-gen/list-distinct-by
              ::value
              (gen/hash-map ::value (-> ::value s/gen) ::name (-> ::name s/gen))))

can you write a function that verifies this property? if so, s/and an invocation of that function with your spec

oh, you're on the generator side

yes, but I think your solution is better.. let me try

well, won't help you with generation

but you could just gen and then filter

way easier..

(s/def ::list-values
  (s/and (s/coll-of ::insta :distinct true :into [] :count 3)
         #(check-distinct-keys %)))

(defn- check-distinct-keys [entry]
  (and (apply distinct? (map ::value entry))
       (apply distinct? (map ::name entry))))

@alexmiller (Y)

how do I bake a text file into a jar with tools.deps? Do I use :extra-paths? Is there already a resources convention?

Add the directory containing it to :paths

Although I guess really it depends on the tool making the jar

is there a way to define this inline?

(defn- wrap [x]
  {:body x
   :statusCode 200})

(-> (something)
      #({:body % :statusCode 200})
      (.flush ....)
)

people, I'm new to spec generators

I want to generate an instant after 2010

(defn gen-MMyyDate []
  (gen/fmap #(.format (java.text.SimpleDateFormat. "MMyy") %)
            (s/gen inst?)))

Take a look at gen/such-that

https://clojure.github.io/test.check/clojure.test.check.generators.html#var-such-that

Is it possible to return a collection of elements as is-- as in not wrapped in a list? I have this

(defn fields
  [config & args]
  (for [f args]
    [:field config f]))

(def layout
  [[:section {:name :initial
              :label "Initial"}
    [:field {:class "unique-class" :label "Number?"} :_att1]
    (fields {:class "common-class"}
            :_att2
            :_att3
            :_att4)]])

[[:section
  {:name :initial, :label "Initial"}
  [:field {:class "my-class", :label "Hello"} :_att1]
  [:field {:class "common-class"} :_att2]
  [:field {:class "common-class"} :_att3]
  [:field {:class "common-class"} :_att4]]]

Instead of

[[:section
  {:name :initial, :label "Initial"}
  [:field {:class "my-class", :label "Hello"} :_att1]
  ([:field {:class "common-class"} :_att2]
   [:field {:class "common-class"} :_att3]
   [:field {:class "common-class"} :_att4])]]

You want into

(def layout [(into [:section ,,, [:field ,,,]] (fields ,,,))])

(I think I have the nesting right there)

Only thing is that there can be more elements after that first fields call.

the fact that into (or concat etc.) are needed here actually touches on one of my favorite things about clojure: you can't alter the semantics of a parent form from a child

there's a predictable meaning that isn't changed via "spooky" interactions

so you can't change the arg count of a parent based on how the child is implemented

which is why you need some explicit combining-of-collections operation to be done

@mario.cordova.862 Then you'll want two into calls and it might be clearer to thread them...

another option, especially since you aren't using quoted symbols here, is using `, with ~@, but into is more idiomatic with hiccup

(def layout
  [(-> [:section {:name :initial :label "Initial"} [:field ,,,]]
       (into (fields ,,,))
       (into [[:field ,,,] [:field ,,,]]))])

hmm that gives me an idea

thanks

honestly I'm not sure why this never caught on in reagent code

user=> `[:a ~@(range 3)]
[:a 0 1 2]

sorry to bother you guys I have the simple JS code and would love to port to clojure isolating the side effects how can I do that ?

var invoicesService = require('./service-layer/users')

function createInvoiceWebHandler(request) {
   const user = request.currentUser
   invoicesService.createInvoice(user, request)
}


var invoicesRepository = require('./data-later-layer/users')
var mailer = require('./mailer')

function createInvoice(user, invoice) {
  const invoiceTotal = invoice.total
  const itemsTotal = invoice.items.reduce((acc, item) => acc + (item.unitValue * item.qty), 0)

  if (itemsTotal != invoiceTotal) {
    throw "Invoite items sum different from invoice total"
  }

  const savedInvoice = invoicesRepository.save(invoice)
  mailer.sendInvoice(user.email, savedInvoice)

}

why isolate side effects? every single line is a side effect isn't it?

the interop translation is pretty mechanical, mostly just moving a ( one token to the left