cwp

Documentation

Examples

doseq i to range(1, 101):
  cond:
    mod(i, 3) = 0 and mod(i, 5) = 0 to print("FizzBuzz")
    mod(i, 3) = 0 to print("Fizz")
    mod(i, 5) = 0 to print("Buzz")
    :else print(i)

def encode(^String s, ^long i):
  let sb StringBuilder.():
    doseq c s:
      cond:
        int(c) >= int(\a) and int(c) <= int(\z) 
        .append(sb, char(int(\a) + mod(int(c) - int(\a) + i, 26)))
        
        int(c) >= int(\A) and int(c) <= int(\Z) 
        .append(sb, char(int(\A) + mod(int(c) - int(\A) + i, 26)))
       
        :else .append(sb, c)
    .toString(sb)

def decode(^String s, ^long i):
  encode(s, 26 - i)

def users: [{:name to "John",  :age to 20}
            {:name to "Anna",  :age to 32}
            {:name to "Smith", :age to 27}]

def avg-age(users):
  let ages to users |>> map(:age)
                    |>> reduce(+):
    ages / count(users) |> double

def greetings(users):
  let names to users |>> map(:name)
                     |>> str/join(", "):
    str("Hello, ", names, "!")

println(avg-age(users))
println(greetings(users))

ns my-project.server
  require: [ring.middleware.params :as params]
           [ring.middleware.keyword-params :as kparams]
           [org.httpkit.server :refer [run-server]]
           [hiccup2.core :as h]

def fruits: ["Banana", "Apple", "Lemon"]

def get-html(user):
  [:div
    [:p {:style {:font-weight :bold}} str("Hello, ", user or "User", "!")]
    "Fruits:"
    for fruit to fruits:
      [:p {} fruit]]
  |> h/html |> str

def app(req):
 {:status  200
  :headers {"Content-Type" "text/html"}
  :body    get-html(req |> :params |> :name)}

run-server(app |> kparams/wrap-keyword-params 
               |> params/wrap-params,
           {:port 8080})

def load-data-reader-file(mappings, ^java.net.URL url):
  with-open rdr to clojure.lang.LineNumberingPushbackReader.(
                     java.io.InputStreamReader.(
                       .openStream(url), "UTF-8")):
    binding *file* to .getFile(url):
      let read-opts to if .endsWith(.getPath(url), "cljc"):
                         {:eof nil :read-cond :allow}
                       else {:eof nil}
          new-mappings to read(read-opts, rdr):
        if not map?(new-mappings):
          throw ex-info(str("Not a valid data-reader map"), {:url url})
        reduce(fn m, [k, v]:
                  if not symbol?(k):
                    throw ex-info(str("Invalid form in data-reader file"),
                                  {:url url
                                   :form k})
                  let v-var to data-reader-var(v):
                    if contains?(mappings, k) and mappings(k) != v-var:
                      throw ex-info("Conflicting data-reader mapping",
                                    {:url      url
                                     :conflict k
                                     :mappings m})
                    assoc(m, k, v-var),
               mappings,
               new-mappings)

Usage

[org.clojars.ilevd/cwp  "<actual_version>"] 

:cwp {:builds [{:in  "src-cwp"
                :out "src-out"}]}

License