Skip to content

Instantly share code, notes, and snippets.

@dagron
dagron / convert.clj
Created November 14, 2018 09:19
lein на clojure.main конвертилка для завсимостей
(defn lein-to-deps [list-deps]
(letfn [(xform [[lib version & others]]
(let [params (apply hash-map others)]
[lib (merge {:mvn/version version} params)]))]
(binding[*print-namespace-maps* false
pprint/*print-right-margin* 500]
(pprint
(into {} (map xform list-deps))))))
(lein-to-deps '[[org.clojure/clojure "1.9.0"]
@dagron
dagron / new.sql
Created October 22, 2018 08:50
sql5 vs sql8
select
events.id 'event_id',
events.lon,
events.lat,
JSON_ARRAYAGG(
JSON_OBJECT(
'DynamicTypeDate', fdf.DynamicTypeDate,
'TotalArea', fdf.TotalArea, 'FillDate',
fdf.FillDate, 'FillTime', fdf.FillTime,
'DynamicTypeTime', fdf.DynamicTypeTime,
@dagron
dagron / geolocation.cljs
Created October 9, 2018 17:27 — forked from stepankuzmin/geolocation.cljs
Geolocation using ClojureScript
(def urls (array "http://a.tile.openstreetmap.org/${z}/${x}/${y}.png"
"http://b.tile.openstreetmap.org/${z}/${x}/${y}.png"
"http://c.tile.openstreetmap.org/${z}/${x}/${y}.png"))
(def OSM (js/OpenLayers.Layer.XYZ. "OSM (with buffer)" urls (extend-object! (js-obj) {"transitionEffect" "resize"
"buffer" 2
"wrapDateLine" true
"sphericalMercator" true})))
(def plot (js/OpenLayers.Map. (extend-object! (js-obj) {"div" "plot"
@dagron
dagron / core.cljs
Created September 24, 2018 02:36 — forked from bensu/core.cljs
(ns react-components.core
(:require [reagent.core :as reagent :refer [atom]]))
(enable-console-print!)
(defonce app-state
(atom {:text "Hello world!"
:plain {:comment "and I can take props from the atom"}}))
(defn comment-box []
@dagron
dagron / core.cljs
Created September 24, 2018 02:36 — forked from bensu/core.cljs
(ns react-components.core
(:require [reagent.core :as reagent :refer [atom]]))
(enable-console-print!)
(defonce app-state
(atom {:text "Hello world!"
:plain {:comment "and I can take props from the atom"}}))
(defn comment-box []
@dagron
dagron / react-tutorial-v2.core.cljs
Created September 24, 2018 01:50 — forked from zehnpaard/react-tutorial-v2.core.cljs
Reagent port of official React tutorial code upto "Lifting State Up" https://facebook.github.io/react/tutorial/tutorial.html#lifting-state-up
(ns react-tutorial.core
(:require
[reagent.core :as r]))
(defn Square [value click-fn]
[:button.square {:on-click click-fn} value])
(defn Board []
(let [squares (r/atom (apply vector (repeat 9 nil)))
handle-click #(swap! squares assoc % "X")
@dagron
dagron / Datascript101-Chapter2.clj
Created September 22, 2018 07:13 — forked from verma/Datascript101-Chapter2.clj
Datascript101 - Chapter 2
(ns dt.core
(:require [datascript.core :as d]))
;; schema so nice
(def schema {:maker/email {:db/unique :db.unique/identity}
:car/model {:db/unique :db.unique/identity}
:car/maker {:db/type :db.type/ref}
:car/colors {:db/cardinality :db.cardinality/many}})
@dagron
dagron / modis_dedup_firms_csv.py
Created April 12, 2018 05:47 — forked from cynici/modis_dedup_firms_csv.py
De-duplicate MODIS fire pixels in CSV format downloaded from FIRMS
#!/usr/bin/env python
import sys, os, re
import datetime, time
import csv
import psycopg2, psycopg2.extras
import logging
logger = logging.getLogger(__name__)
help_text = """De-duplicate MODIS fire downloaded from FIRMS in CSV format.
@dagron
dagron / vice.clj
Created February 27, 2018 09:43 — forked from ponzao/vice.clj
Clojure Spec coercion nonsense
(ns vice
(:require [clojure.spec :as s]
[clj-time.core :as t]
[clj-time.format :as tf])
(:import [org.joda.time DateMidnight DateTime]
[java.util UUID]
[clojure.lang Keyword]
[java.math BigInteger]
[java.net URL URI]
[java.util.regex Pattern]))
@dagron
dagron / install.sh
Last active December 27, 2017 15:55
simple_opencv
apt-get install --assume-yes build-essential cmake git pkg-config unzip ffmpeg python-dev python3-dev python-numpy python3-numpy libopencv-dev libdc1394-22 libdc1394-22-dev libjpeg-dev libpng12-dev libtiff5-dev libjasper-dev libavcodec-dev libv4l-dev libtbb-dev v4l-utils vtk6 liblapacke-dev libopenblas-dev libgdal-dev checkinstall zlib1g-dev libjpeg-dev libwebp-dev libpng-dev libtiff5-dev libjasper-dev libopenexr-dev libgdal-dev libdc1394-22-dev libavcodec-dev libv4l-dev libtbb-dev libeigen3-dev python-dev python-numpy python3-dev python3-numpy python3-pip
wget https://github.com/opencv/opencv/archive/3.3.1.zip
unzip 3.3.1.zip
rm 3.3.1.zip
mv opencv-3.3.1 /opt/opencv
mkdir /opt/opencv/build
cd /opt/opencv/build