geraldodev

(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

(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

          DB.transaction do
            rows_affected = DB[:cod_pro].returning.where({:CD_COD_PRO => cd_cod_pro}).update({:DS_CODIGO_COBRANCA => cd_unimed, 
                                                                                              :DS_NOME_COBRANCA => descricao_unimed})

            puts "atualizou cd_cod_pro #{cd_cod_pro} #{ary.inspect} "
            raise "sql update cod_pro errado " if rows_affected != 1
          end

geraldodev

(ns bindboom
  (:use [seesaw core table mig])
  (:require [seesaw.bind :as bind]))

(defn example
  []
  (let [a  (atom nil)
        p  (mig-panel
             :constraints ["", "[left]"]
             :items [ 

geraldodev

(defr LikeButton
  [component props state]

  :get-initial-state #(identity {:liked true})

  [:p {:on-click #(swap! component update-in [:liked] not)} 
   "You " (if (:liked state) "liked" "not liked") " this. Click to toggle"]
  )

geraldodev

(ns app.crud
  (:require 
    [om.core :as om :include-macros true]
    [om.dom :as dom :include-macros true]
    [ajax.core :refer [GET]]   
    [app.utils :refer [e-value]]))


(defn js-margin-right []
  #js {:margin-right "10px"})

geraldodev

(defn empresa-ficha [{:keys [id nome cnpj inscricao-estadual] :as empresa} _ {:keys [state-owner state-korks]}] 
  (let [get-state  (partial om/get-state state-owner state-korks)
        set-state! (partial om/set-state! state-owner state-korks)]
    (reify
     om/IRender 
      (render [_]
        (dom/form 
          #js {:className "form form-condensed" 
               :role "form"
               :style #js {:margin-top "10px"}}

geraldodev

(defn concat-korks
  [korks k2orks]
    (if-not (sequential? korks)
      (if-not (sequential? k2orks)
        [korks k2orks]
        (if (list? k2orks)
          (conj k2orks korks)
          (into [korks] k2orks)))
      (if (list? korks)
        (if-not (sequential? k2orks)

geraldodev

(defn concat-korks
  "Takes two sequentials and concats them. Respects the type of the first sequential.
   Favors vector in none is a sequential"
  [korks k2orks]
    (if-not (sequential? korks)
      (if-not (sequential? k2orks)
        [korks k2orks]
        (if (list? k2orks)
          (conj k2orks korks)
          (into [korks] k2orks)))

geraldodev

(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]