geraldodev’s gists

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 / 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,
	);

geraldodev / Breakpoints.re

Last active June 7, 2018 13:33

Attempt to type https://github.com/mui-org/material-ui/blob/3e4854b39b17511d9b312071ca93061eeb503f5d/packages/material-ui/src/styles/createBreakpoints.js

	type breakpoint = [ \| `lg \| `md \| `sm \| `xl \| `xs ];

	type breakpointsObj = {
	.
	"keys": array(string),
	"values": {
	.
	"lg": int,
	"md": int,
	"sm": int,

geraldodev / reason on vim

Last active April 19, 2018 23:13

	Plug 'autozimu/LanguageClient-neovim', {'branch': 'next', 'do': 'bash install.sh'}
	Plug 'reasonml-editor/vim-reason-plus'
	let g:LanguageClient_serverCommands = {
	\ 'reason': ['ocaml-language-server', '--stdio'],
	\ 'ocaml': ['ocaml-language-server', '--stdio'],
	\ }

	" Automatically start language servers.
	let g:LanguageClient_autoStart = 1

geraldodev / escutar_atom.clj

Last active October 27, 2016 19:45

Escutando atom, pra capturar a transição :is-open de false para true. Observe que na linha 5 eu uso a desestruturação de mapa sem keys, porque quero fazer com que :is-open do estado anterior fique na variável was-open. A linha 6 já captura o is-open atual


	(add-watch state-atom :watch
	(fn [k
	r
	{was-open :is-open}
	{:keys [is-open input-value]}]
	(cond
	(and
	(not was-open)
	is-open

geraldodev / comp_transducer.clj

Last active October 21, 2016 19:42

mostra exemplo de comp e sua ordem de execução da direita pra esquerda. E a diferença da ordem de execução quando usamos transducer

	;; observe que funciona (ordem direita pra esquerda
	;; (str (inc 2)) faz sentido né
	((comp str inc) 2)

	;; porque nao funciona
	((comp inc str) 2)

	;; rode este pro debaixo ser possível
	(def options-map {
	"3" {:code "3" :label "tres"}

geraldodev / boxed_exceptioninfo.clj

Created September 6, 2016 13:56

It's annoying that exceptions created with ex-info are boxed inside another ex-info, because we need to use guard to capture our ex-info data. Imho (very humble), since core-match is called on ex-data it is data already, a simple map. When catching the exception pedestal could check if it is a ex-info and merge its keys with its data, qualified …

	(def service-error-handler
	(error-int/error-dispatch [ctx ex]
	[({:exception-type :clojure.lang.ExceptionInfo}
	:guard #(= (:type (ex-data (:exception %))) :guts.core/validation-failed))
	](do
	(pprint (ex-data ex))
	(assoc ctx :response {:status 400
	:body (:errors (ex-data ex))}))
	;; If we don't match, forward it on
	:else

geraldodev / filteroptions.cljs

Created March 24, 2016 13:57

geraldodev / get-in-link.clj

Created January 10, 2016 11:12

	(defn get-in-link
	"Wrapper around get-in for looking up for idents. if ks is nil it return the not-found value which is an empty map. That protects you from getting the entire state on a nested component."
	([m ks]
	(get-in-link m ks {}))
	([m ks not-found]
	(if (nil? ks)
	not-found
	(get-in m ks not-found))))

	(defmethod read :form-cliente

geraldodev / read_form_cliente.clj

Created January 9, 2016 12:16

	(def init-data {:clientes [{:id 1
	:nome "geraldo"
	:versao 0}
	{:id 2
	:nome "luiz"
	:versao 1}]
	:form-cliente {:id 1
	:nome "geraldo"
	:versao 0}})

	(defn filter-options
	[{:keys [options filter-fn value-key] :as props} filter-value exclude-options]
	{:pre [(ifn? value-key)
	(or (vector? exclude-options) (nil? exclude-options))]}
	(let [exclude-options (if (vector? exclude-options)
	(set exclude-options)
	#{})]
	(cond
	(empty? filter-value)
	options