Skip to content

Instantly share code, notes, and snippets.

View k13gomez's full-sized avatar

Jose Gomez k13gomez

  • Gateless
  • Chicago, IL
View GitHub Profile

Keybase proof

I hereby claim:

  • I am k13gomez on github.
  • I am k13gomez (https://keybase.io/k13gomez) on keybase.
  • I have a public key ASBEx8BtSxuxCCtb5kw1V4nTotD9EkkDMKZhLVbTYMsvgAo

To claim this, I am signing this object:

@k13gomez
k13gomez / dtd-parser.clj
Created March 23, 2020 18:05
clojure dtd xml parser
(ns parser.dtd
(:require [clojure.set :as set]
[clojure.java.io :as io]
[clojure.data.xml :as xml]
[clojure.data.zip.xml :as zx]
[clojure.zip :as z]
[mismo.xml :as x]
[clojure.string :as str])
(:import [com.sun.xml.dtdparser DTDEventListener DTDParser DTDHandlerBase]
[org.xml.sax InputSource]))
@k13gomez
k13gomez / type-extensions.cljs
Created July 5, 2019 15:53
JavaScript object type extensions
(ns lib.type-extensions
(:require [goog.object :as gobj]))
(deftype JavaScriptObjectIterator [obj ks ^:mutable i cnt]
Object
(hasNext [_]
(< i cnt))
(next [_]
(let [k (get ks i)
ret (MapEntry. k (get obj k) nil)]
@k13gomez
k13gomez / logging.clj
Created November 22, 2016 03:35
logging macros for timbre
(ns myapp.logging
(:require [taoensso.timbre :refer [log log-and-rethrow-errors]]))
(defmacro spy=>
"Evaluates named expression and debugs its expression, arguments and result. Always returns the result."
[body]
(let [args (cons `list (rest body))]
`(log-and-rethrow-errors
(let [eval# ~body
func# (first '~body)
@k13gomez
k13gomez / korma-db.clj
Created June 16, 2015 17:49
Hikari support for Korma gist
(ns korma.db
"Functions for creating and managing database specifications.")
(def hikari-enabled?
(try
(import 'com.zaxxer.hikari.HikariDataSource)
true
(catch Throwable _ false)))
(defmethod connection-pool :hikari