Skip to content

Instantly share code, notes, and snippets.

(ns launch-reply.core
(:require
[clojure.java.io :as io]
)
(:import
[java.nio.file WatchService StandardWatchEventKinds FileSystems Path Paths]
[java.io File]
)
)
@geraldodev
geraldodev / clara2.clj
Created December 31, 2019 19:27
:fact-type-fn does not appear to stick with defsession.
(ns app.mv.clara2
(:require
[clara.rules :refer :all]
[clara.tools.inspect :as inspect]
)
)
(defsession session :fact-type-fn :type)
(defquery a-query
@geraldodev
geraldodev / into_com_transducer.clj
Last active January 22, 2020 08:10
into_com_transducer
(ns into-com-transducer
[criterium.core :refer [bench]])
; coloque no deps.dn
; criterium {:mvn/version "0.4.5"}
(def campo-exemplo
#:columninfo{:remarks "COMPET�NCIA FINAL",
:is_autoincrement "NO",
:column_size 6,
(defnc App
[]
(j/let [[state set-state] (hooks/use-state {} )
^:js {:keys [register
handleSubmit
watch
errors] :as obj} (rhf/useForm)]
; (.log js/console obj)
; (.log js/console (type state))
(d/form
(ns app.malli-teste
(:require
[clojure.zip :as z]
[clojure.pprint :refer [pprint]]
[malli.core :as m]
[malli.util :as mu]
[malli.error :as me]
))
(defn make-malli-node
(defn wrap-enforce-roles [handler]
(fn [{::keys [roles request-method] :as request}]
(let [required (some-> request (ring/get-match) :data request-method ::roles)]
(if (and (seq required) (not (set/subset? required roles)))
{:status 403, :body "forbidden"}
(handler request)))))
@geraldodev
geraldodev / denfc_input.clj
Created May 24, 2020 13:39
why defnc bean property is not interoperable with helix.dom ?
(ns app.ui.tw
(:require
["react" :as r]
["react-dom" :as rdom]
["react-hook-form" :as rhf]
["react-router-dom" :as rr]
[app.myhelix :refer [defnc]]
[helix.core :as hx :refer [$ <>]]
[helix.dom :as d]
[helix.hooks :as hooks]
(ns app.renderer.core
(:require
["@material-ui/core" :refer [AppBar Toolbar Badge Hidden IconButton]]
["@material-ui/core/Button" :default Button]
["@material-ui/core/styles" :refer [createMuiTheme makeStyles ThemeProvider]]
["react-dom" :as rdom]
[app.renderer.myhelix :refer [defnc]]
[helix.core :as hx :refer [$ <>]]
[helix.dom :as d]
))
@geraldodev
geraldodev / diff_excel_template.diff
Created June 16, 2020 00:41
;; dependencias de excel-templates joda-time/joda-time {:mvn/version "2.7"} org.clojure/data.zip {:mvn/version "0.1.1"} org.apache.poi/ooxml-schemas {:mvn/version "1.4"} ;; era 1.1 org.apache.commons/commons-lang3 {:mvn/version "3.4"}
diff build.clj ~/projetos/api/src/main/excel_templates/build.clj
6c6
< [org.apache.poi.ss.usermodel Cell Row DateUtil WorkbookFactory]
---
> [org.apache.poi.ss.usermodel Cell Row Row$MissingCellPolicy DateUtil WorkbookFactory CellType]
50c50
< (= (.getCellType cell) Cell/CELL_TYPE_FORMULA))
---
> (= (.getCellType cell) CellType/FORMULA))
63c63
@geraldodev
geraldodev / hooks.cljs
Last active October 6, 2020 19:49
extracted from helix zulip chat from a message of wilkerlucio
(ns app.util.hooks
(:require
["react" :refer [useState]]
))
(defn use-state
"A simple wrapper around React/useState. Returns a cljs vector for easy destructuring"
[initial-value]
(into-array (useState initial-value)))