Enzzo souenzzo

🚴‍♂️

💨 💨

🦄

souenzzo / deps.edn

Last active July 3, 2023 15:15

Browser presign POST upload using AWS-SDK

	;; 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 / cola.edn

Created June 20, 2020 17:52

lambda-io.demo

	;; 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 / pathom.clj

Last active May 20, 2020 18:06

	(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 / java_http.clj

Last active March 22, 2020 14:49

	(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 / pathom.clj

Created January 10, 2020 18:02

pathom vs select-keys

	(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 / sample.png

Last active December 27, 2019 15:27

souenzzo / pr.clj

Created November 20, 2019 20:20

Run with "clj -A:dev -m user.pr" or "clj -A:pr"

	(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 / find-unused-deps.clj

Created November 4, 2019 17:09

!!!! QUCK'n'DIRTY SOLUTION !!!!

	(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 / xf.clj

Created October 31, 2019 14:11

	(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 / exemplo.clj

Created August 30, 2019 17:03

	(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