souenzzo

(ns digital-wallet.main-test-old
  (:require [clojure.test :refer [deftest]]
            [midje.sweet :refer [fact =>]])
  (:import (clojure.lang ILookup)
           (java.lang AutoCloseable)
           (java.util Properties)
           (org.apache.kafka.common.serialization Serdes Serdes$StringSerde Serdes$LongSerde)
           (org.apache.kafka.streams TopologyTestDriver StreamsConfig Topology KeyValue)
           (org.apache.kafka.streams.processor.api ProcessorSupplier Processor ProcessorContext Record)
           (org.apache.kafka.streams.state Stores KeyValueStore)

souenzzo

(ns eql-hodur
  (:require [edn-query-language.core :as eql]
            [clojure.spec.alpha :as s]
            [datascript.core :as ds]))

(defn add-prop
  [prop {:keys [children]
         :as   node}]
  (if (contains? node :children)
    (assoc node

souenzzo

;; reference
;; https://github.com/kamil-perczynski/s3-direct-browser-upload

{:deps {org.clojure/clojure          {:mvn/version "1.10.1"}
        hiccup/hiccup                {:mvn/version "2.0.0-alpha2"}
        io.pedestal/pedestal.jetty   {:mvn/version "0.5.8"}
        io.pedestal/pedestal.service {:mvn/version "0.5.8"}
        commons-codec/commons-codec  {:mvn/version "1.15"}
        com.cognitect.aws/api        {:mvn/version "0.8.474"}
        com.cognitect.aws/endpoints  {:mvn/version "1.1.11.842"}

souenzzo

;; hello eql
[:app/hello]

;; data->shape
{:app/hello "ok"}
{:app/hello "ok"
 :app/users [{:user/id        1
              :user/username  "2"
              :user/addresses [{:address/description "a"
                                :address/number      1}]}]}

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\:"