This file contains hidden or 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.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))) |
This file contains hidden or 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
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 |
This file contains hidden or 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 hidden or 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 hidden or 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 hidden or 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 hidden or 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 hidden or 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 hidden or 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 hidden or 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] | |
) | |
) |