Skip to content

Instantly share code, notes, and snippets.

(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 / 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]
(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)))))
(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
(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
@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,
@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
(ns launch-reply.core
(:require
[clojure.java.io :as io]
)
(:import
[java.nio.file WatchService StandardWatchEventKinds FileSystems Path Paths]
[java.io File]
)
)
@geraldodev
geraldodev / InsertionPoint.re
Created April 25, 2018 20:29
Implementation in reason of https://material-ui-next.com/customization/css-in-js/#other-html-element to allow creation of <noscript id="jss-insertion-point> for injecting material-ui at the start of the index.html and let others libraries css taking precedence over material-ui 's
type jssObj = {
.
"options": {. [@bs.set] "insertionPoint": Dom.element},
};
[@bs.module "jss"] external createJss : {.} => jssObj = "create";
[@bs.module "material-ui/styles"]
external jssPreset : unit => {.} = "jssPreset";
@geraldodev
geraldodev / JssProvider.re
Last active April 25, 2018 20:51
Bare translation of the bits I needed from react-jss/lib/JssProvider just to integrate with bs-material-ui
[@bs.module "react-jss/lib/JssProvider"]
external myJssProvider : ReasonReact.reactClass = "default";
let make = (~jss: InsertionPoint.jssObj, ~generateClassName: string, children)=>
ReasonReact.wrapJsForReason(
~reactClass=myJssProvider,
~props={ "jss": jss, "generateClassName": generateClassName},
children,
);