geraldodev’s gists

geraldodev / first_pass_nil.clj

Created January 6, 2016 13:15

	(ns credito.core
	(:require
	[accountant.core :as accountant]
	[clojure.string :as str]
	[credito.guts.core :as app-guts :refer [g-conn]]
	[datascript.core :as d]
	[goog.dom :as gdom]
	[om.dom :as dom]
	[om.next :as om :refer-macros [defui]]
	[cognitect.transit :as t]

geraldodev / brasileirao.clj

Created November 29, 2015 16:08

Copie este código para dentro do teste.core recarregue no repl com (require 'teste.core :reload) e tente resolver um a um

	(def brasileirao
	[
	[2014 "Cruzeiro" "São Paulo" :pontos-corridos]
	[2013 "Cruzeiro" "Grêmio" :pontos-corridos]
	[2012 "Fluminense" "Atlético-MG" :pontos-corridos]
	[2011 "Corinthians" "Vasco da Gama" :pontos-corridos]
	[2010 "Fluminense" "Cruzeiro" :pontos-corridos]
	[2009 "Flamengo" "Internacional" :pontos-corridos]
	[2008 "São Paulo" "Grêmio" :pontos-corridos]
	[2007 "São Paulo" "Santos" :pontos-corridos]

geraldodev / user.clj

Created November 21, 2015 01:20

user.clj that uses leiningen.core.project to read the contents of the project to pass to figwheel

	(:require
	[clojure.pprint :refer [pprint]]
	[clojure.stacktrace :refer :all]
	[clojure.tools.namespace.repl :refer (refresh refresh-all disable-reload!)]
	[figwheel-sidecar.config :as figcfg]
	[figwheel-sidecar.repl-api :refer :all]
	[leiningen.core.project :as proj]
	[cemerick.piggieback :as piggieback]
	))

geraldodev / bound-input

Last active November 23, 2015 00:11

bound-input function to be called in place of dom/input when you want to update the underlying state key by key. It assumes a component with Ident

	(ns credito.core
	(:require
	[cljs.pprint :refer [pprint]]
	[datascript.core :as d]
	[goog.dom :as gdom]
	[om.dom :as dom]
	[om.next :as om :refer-macros [defui]]
	))

	(enable-console-print!)

geraldodev / simple jdbc example.clj

Created July 21, 2015 23:43

	(defn exporta-trans-sqlite [db diretorio empresa]
	(with-open [dbf (org.xBaseJ.DBF. (nome-dbf diretorio trans-base empresa) "r")]
	(let [field-keys [:funcc :data :tipo :fdeptoant :fdeptonov]
	fields (apply xbase/keys-to-fields-vec dbf field-keys)
	n-registros (.getRecordCount dbf)
	]
	(println "exportando " (.getName dbf) " para o sqlite")
	;; (jdbc/execute! db ["PRAGMA synchronous = OFF"])
	(jdbc/execute! db ["drop table if exists trans"])
	(jdbc/execute! db ["create table trans

geraldodev / vector-map-zipper

Created June 10, 2015 13:38

unfinished missing update

	(defn vector-map-zipper [m]
	(letfn [(map?-or-persistent-vector? [x]
	(or (map? x)
	(instance? clojure.lang.PersistentVector x)))]
	(let [filter-map-or-pv (filter (comp map?-or-persistent-vector? #(nth % 1)))]
	(zip/zipper
	(fn [x] (or (map?-or-persistent-vector? x)
	(and (instance? clojure.lang.MapEntry x)
	(map?-or-persistent-vector? (nth x 1)))))

geraldodev / sql_to_gwt.rb

Created May 25, 2015 00:57

geraldodev / gist:d6ec4ce41dfc60411a0c

Created May 21, 2015 23:11

project.clj that uses figwheel

	(defproject manutencao "0.1.0-SNAPSHOT"
	:description "FIXME: write this!"
	:url "http://example.com/FIXME"
	:jvm-opts ["-Xmx2048m"]
	:dependencies [
	[buddy "0.5.3"]
	[clj-time "0.9.0"]
	[com.rpl/specter "0.5.0"]
	[com.stuartsierra/component "0.2.3"]
	[cuerdas "0.3.2"]

geraldodev / brutha

Created May 17, 2015 03:42

playing with passing the value of get and get-in as a vector where [slice-of-the-value keys-used]

	(ns manutencao.core
	(:require [brutha.core :as br]
	[flupot.dom :as dom]))

	(def state (atom {:some-context {:client {:name "geraldo"}}}))

	(def input-widget
	(br/component
	(fn [[value ks]]
	(dom/input {:value value

geraldodev / diff-by-key

Created May 3, 2015 22:48

	(ns util.map
	(:require [schema.core :as s]
	[clojure.set :as set]
	[clojure.data :refer [diff]]
	[clojure.pprint :refer [pprint]]))

	(s/def TAnyMap {s/Any s/Any})

	(s/defn diff-by-key :- [(s/one TAnyMap "included")
	(s/one TAnyMap "excluded")