Skip to content

Instantly share code, notes, and snippets.

View edbond's full-sized avatar
🗽
Working from home

Eduard Bondarenko edbond

🗽
Working from home
View GitHub Profile
Ξ transit/transit-cljs → node target/transit.bench.js
100 iters, JSON.parse seattle data
"Elapsed time: 81.000000 msecs"
100 iters, transit read seattle data
"Elapsed time: 105.000000 msecs"
100 iters, JSON.stringify seattle data
"Elapsed time: 44.000000 msecs"
100 iters, transit write seattle data
"Elapsed time: 1204.000000 msecs"
100 iters, transit write seattle data no-cache
(defn make-screenshots-xf []
(fn [xf]
(let [_ (debug "Starting new browser")
browser (new-driver {:browser :chrome})]
(debug "New browser Maximize")
(maximize browser)
(fn
([]
(debug "Init")
(xf))
@edbond
edbond / relax.clj
Created October 29, 2015 21:30
Download youtube mp3 from playlists on radiorelax.ua site
(ns relaxfm.core
(:gen-class)
(:require [hickory.core :as hc]
[hickory.select :as hs]
[clj-http.client :as http]
[clojure.string :as s]
[clojure.java.shell :as sh]
[clj-time.core :as t]
[clj-time.format :as tf]
[clj-time.coerce :as tc]))
@edbond
edbond / comment.cljs
Created August 29, 2015 21:16
Render React component from Om
(ns nhchat.components.comment
(:require [om.core :as om]
[om-tools.core :refer-macros [defcomponent]]
[sablono.core :refer-macros (html)]))
(enable-console-print!)
(defcomponent wrapper [{:keys [comment]} owner]
(render [_]
(html [:div]))
@edbond
edbond / int_str.clj
Created April 17, 2015 19:13
int to "localized" string in ClojureScript
(def i 343224324234)
(defn int->str-1
[]
(let [s (str i) p (mod (count s) 3)]
(->>
(reduce-kv
(fn [acc i c]
(if (and (> i 0) (zero? (mod (- i p) 3)))
(conj acc \, c)
(ns kittens.core
(:require [environ.core :refer (env)]
[clj-http.client :as http]
[clojure.java.io :as io]
[clojure.core.async :as async :refer (go go-loop <!)]))
(def api-key (-> env :dev :flickr :api-key))
(def rest-api-url "https://api.flickr.com/services/rest/")
(def folder "photos")
@edbond
edbond / core.clj
Last active August 29, 2015 14:19
md5 bruteforce in Clojure
(ns asajax.core
(:require [clojure.core.async :as async :refer [go chan go-loop <! >!]])
(:import [java.security MessageDigest]
[java.util Arrays])
(:use [criterium.core])
(:gen-class :main true))
;;;;;
(set! *warn-on-reflection* true)
@edbond
edbond / core.cljs
Created June 30, 2014 14:13
marionette contacts editor in om
;; src/contacts/core.cljs
(ns contacts.core
(:require [secretary.core :as secretary
:include-macros true :refer [defroute]]
[goog.events :as events]
[om.core :as om :include-macros true]
[sablono.core :as html :refer-macros [html]]
[alandipert.storage-atom :refer [local-storage]]
[domina :refer [set-styles! by-id value]]

Keybase proof

I hereby claim:

  • I am edbond on github.
  • I am edbond (https://keybase.io/edbond) on keybase.
  • I have a public key whose fingerprint is A7FC AAA0 7EC1 E353 E37F 251A 2A5E 9CD4 4F42 923D

To claim this, I am signing this object:

require 'thread'
class Channel
def initialize
@q = Queue.new
end
def put! val
@q << val
self