This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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] | |
)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns app.mv.clara2 | |
(:require | |
[clara.rules :refer :all] | |
[clara.tools.inspect :as inspect] | |
) | |
) | |
(defsession session :fact-type-fn :type) | |
(defquery a-query |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns launch-reply.core | |
(:require | |
[clojure.java.io :as io] | |
) | |
(:import | |
[java.nio.file WatchService StandardWatchEventKinds FileSystems Path Paths] | |
[java.io File] | |
) | |
) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type jssObj = { | |
. | |
"options": {. [@bs.set] "insertionPoint": Dom.element}, | |
}; | |
[@bs.module "jss"] external createJss : {.} => jssObj = "create"; | |
[@bs.module "material-ui/styles"] | |
external jssPreset : unit => {.} = "jssPreset"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[@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, | |
); |