yayitswei

(ns app.gpt
  (:require [clj-http.client :as http]
            [clojure.repl]
            [cheshire.core :as json]
            [clojure.pprint :refer [pprint]]
            [taoensso.timbre :as log]
            [clojure.core.async :as a :refer [<! >! go]]
            [clojure.string :as str]
            [clojure.java.io :as io])
  (:import [java.io InputStream]))

yayitswei

(require '[clj-http.client :as http])
(require '[clojure.core.async :as a])
(require '[clojure.string :as string])
(require '[clojure.java.io :as io])
(import '[java.io InputStream])

(def event-mask (re-pattern (str "(?s).+?\r\n\r\n")))

(defn- parse-event [raw-event]
  (->> (re-seq #"(.*): (.*)\n?" raw-event)

yayitswei

(require '[clj-http.client :as http])
(require '[clojure.core.async :as a])
(require '[clojure.string :as string])
(require '[clojure.java.io :as io])
(import '[java.io InputStream])

(def event-mask (re-pattern (str "(?s).+?\r\n\r\n")))

(defn- parse-event [raw-event]
  (->> (re-seq #"(.*): (.*)\n?" raw-event)

yayitswei

[INFO] +- ring:ring:jar:1.2.0:compile
[INFO] |  +- ring:ring-devel:jar:1.2.0:compile
[INFO] |  |  +- clj-stacktrace:clj-stacktrace:jar:0.2.5:compile
[INFO] |  |  \- ns-tracker:ns-tracker:jar:0.2.1:compile
[INFO] |  |     +- org.clojure:tools.namespace:jar:0.1.3:compile
[INFO] |  |     \- org.clojure:java.classpath:jar:0.2.0:compile
[INFO] |  +- ring:ring-jetty-adapter:jar:1.2.0:compile
[INFO] |  |  \- org.eclipse.jetty:jetty-server:jar:7.6.8.v20121106:compile
[INFO] |  |     +- org.eclipse.jetty.orbit:javax.servlet:jar:2.5.0.v201103041518:compile
[INFO] |  |     +- org.eclipse.jetty:jetty-continuation:jar:7.6.8.v20121106:compile

yayitswei

(defn find-case-insensitive
  [db attr val]
  (let [a (dq/qe-or-nil
           '[:find ?account
             :in $ ?pattern ?attr
             :where
             [?account ?attr ?name]
             [(re-find ?pattern ?name)]]
           db
           (re-pattern (str "(?i)^" val "$")) attr)]

yayitswei

(loop [o (init-obj)]
  (when-let [o (try (something-risky)
                    (catch Exception e (record-exception! e)))]
    (recur o)))

yayitswei

(ns datomic-helpers
  (:require [clojure.java.io :as io]
            [clojure.walk    :as walk]
            [datomic.api     :as d :refer (db)]))

;;; Expose Datomic vars here, for convenience

(def tempid  d/tempid)
(def connect d/connect)
(def create-database d/create-database)

yayitswei

(defn balance-history [id]
  (d/q '[:find ?tx ?tx-time ?v
       :in $ ?e ?a
       :where [?e ?a ?v ?tx _]
       [?tx :db/txInstant ?tx-time]]
     (d/history (db/db)) id :account/balance))

@(d/transact conn [[:credit 17592186145525 100]])

(balance-history 17592186145525)

yayitswei

user=> (doc defn)
-------------------------
clojure.core/defn
([name doc-string? attr-map? [params*] prepost-map? body] [name doc-string? attr-map? ([params*] prepost-map? body) + attr-map?])
Macro
  Same as (def name (fn [params* ] exprs*)) or (def
    name (fn ([params* ] exprs*)+)) with any doc-string or attrs added
    to the var metadata. prepost-map defines a map with optional keys
    :pre and :post that contain collections of pre or post conditions.
nil

yayitswei

// com.google.common.util.concurrent.MoreExecutors

sendResult.broadcastComplete.addListener(new Runnable() {
  @Override
  public void run() {
    System.out.println("Complete!");
  }
}, MoreExecutors.sameThreadExecutor());