souenzzo

(let [conn (doto (ds/create-conn {:user/addresses {:db/valueType   :db.type/ref
                                                   :db/cardinality :db.cardinality/many} 
                                  :user/id        {:db/unique :db.unique/identity}})
             (ds/transact! [{:user/id        1
                             :user/addresses [-1 -2]}
                            {:user/id        2
                             :user/addresses [-2 -3]}
                            {:user/id        3
                             :user/addresses [-4]}
                            {:db/id          -1

souenzzo

(ns com.wsscode.pathom.diplomat.http.java-http
  (:require [com.wsscode.pathom.diplomat.http :as http]
            [clojure.spec.alpha :as s]
            [clojure.core.async :as async]
            [clojure.string :as string]
            [clojure.data.json :as json])
  (:import (java.net.http HttpResponse$BodyHandlers HttpRequest HttpClient HttpResponse HttpHeaders HttpRequest$BodyPublishers)
           (java.net URI)
           (java.util.function Function BiPredicate)
           (java.util Optional)))

souenzzo

(let [parser (p/parser {::p/plugins [(pc/connect-plugin {::pc/register [(pc/constantly-resolver ::f 42)]})]})
      env {::p/reader [p/map-reader
                       pc/reader2]}
      query [::f]
      m {::f 42}]
  (doseq [[k v] {:map-select  #(p/map-select m query)
                 :parser      #(parser env query)
                 :select-keys #(select-keys env query)}]
    (prn k)
    (dotimes [i 5]

souenzzo

souenzzo

(ns user.pr
  (:require [cognitect.aws.client.api :as aws]
            [clj-http.client :as http]
            [clojure.java.io :as io])
  (:import (org.eclipse.jgit.api Git)))

(defn slack->request
  [text]
  {:method       :post
   :url          "https://hooks.slack.com/services/XX/YY/ZZ"

souenzzo

(let [{:keys [namespace-usages]} (:analysis (kondo/run! {:lint   ["src/main"
                                                                  "src/old"]
                                                         :config {:output {:analysis true}}}))
      url->splited-path #(into []
                               (comp (map (memfn getFileName))
                                     (map str)
                                     (take-while (complement string/blank?)))
                               (iterate (fn [x] (when x (.getParent x)))
                                        (Paths/get (new URI (-> (str %)
                                                                (string/replace #"^jar\:"

souenzzo

(let [atributo->item {:a {:atributo     :a
                          :selecionado? true}
                      :b {:atributo     :b
                          :selecionado? false}
                      :c {:atributo :c}}]
  {:reduce (reduce-kv (fn [acc k {:keys [selecionado?]}]
                        (if (false? selecionado?)
                          acc
                          (conj acc k)))
                      #{}

souenzzo

(ns exemplo
  (:require [io.pedestal.http :as http]))

(def routes ::invalid)

(def server-build-time
  (-> {::http/type   :jetty
       ::http/routes routes
       ::http/port   8080}
      http/default-interceptors

souenzzo

(ns tiny-om.client
  (:require ["react" :as r]
            [goog.dom :as gdom]
            ["react-dom" :as r.dom])
  (:require [clojure.core.async :as async]))

(defn el
  [app type props & children]
  (apply r/createElement (name type) (clj->js props) children))

souenzzo

(time (let [baos (ByteArrayOutputStream.)
            data [[:foo :bar]]]
        (-> (apply uber/multidigraph data)
            (uber/viz-graph {:save {:format   :svg
                                    :filename baos}}))
        (-> (xml/parse (io/input-stream (.toByteArray baos)))
            (assoc-in [:attrs :data] (pr-str data))
            (xml/emit-str)
            (.getBytes)
            (io/input-stream)