Skip to content

Instantly share code, notes, and snippets.

View arthuredelstein's full-sized avatar

Arthur Edelstein arthuredelstein

92 followers · 14 following
  • California
View GitHub Profile
@arthuredelstein
arthuredelstein / compareFonts
Created July 17, 2015 06:27
#!/usr/bin/env python
# Expects paths to two files: Prints the code points in the first file but not in the second,
# and vice versa.
# Based on https://stackoverflow.com/questions/4458696/finding-out-what-characters-a-font-supports
from itertools import chain
import sys
@arthuredelstein
arthuredelstein / diff debian vs ubuntu
Created August 3, 2015 20:59
diff/diff --styles default webapp/submissions/0eee0d93db8a9e66bad37ce8acb54ffd-20150803160656-1afafbb8 webapp/submissions/3dfa829a829a698f81525d9d459b9e45-20150803160639-3c493199
U+0900 default 510×1477 510×1478 (+0,+1)
U+0901 default 510×1477 510×1478 (+0,+1)
U+0902 default 510×1477 510×1478 (+0,+1)
U+0903 default 782×1477 782×1478 (+0,+1)
U+0904 default 764×1477 764×1478 (+0,+1)
U+0905 default 764×1477 764×1478 (+0,+1)
U+0906 default 1023×1477 1023×1478 (+0,+1)
U+0907 default 474×1477 474×1478 (+0,+1)
U+0908 default 474×1477 474×1478 (+0,+1)
U+0909 default 548×1477 548×1478 (+0,+1)
@arthuredelstein
arthuredelstein / data-object-to-map.clj
Created December 5, 2010 01:26
(defn data-object-to-map [obj]
(into {}
(for [f (.getFields (type obj))
:when (zero? (bit-and (.getModifiers f) Modifier/STATIC))]
[(.getName f) (.get f obj)])))
@arthuredelstein
arthuredelstein / src-dir.clj
Created August 19, 2011 06:23
clojure function for getting the src directory
(defn src-dir
"Returns the absolute file path of the src directory
enclosing the current .clj file's package dirs."
[]
(let [rel *file*]
(loop [cl (.. Thread currentThread getContextClassLoader)]
(when cl
(if-let [url (.findResource cl rel)]
(.replace (.getFile url) rel "")
(recur (.getParent cl)))))))
@arthuredelstein
arthuredelstein / gist:1172646
Created August 26, 2011 03:50
user.dir/slurp weirdness
clooj.help=>
(import java.io.File)
java.io.File
clooj.help=>
(System/getProperty "user.dir")
"/projects/clooj"
clooj.help=>
@arthuredelstein
arthuredelstein / rounded UTC Date header
Created December 9, 2015 00:04
A possible method for implementing bugzil.la/902573 from the torbirdy extension. A rounded UTC Date header
/** RFC 822 labels for days of the week. */
var kDaysOfWeek = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"];
/** A list of month names for Date parsing. */
var kMonthNames = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug",
"Sep", "Oct", "Nov", "Dec"];
/*
* Formatting helper to output numbers between 0-9 as 00-09 instead.
*/
@arthuredelstein
arthuredelstein / gist:4585214
Created January 21, 2013 10:47
blah
blah
@arthuredelstein
arthuredelstein / hailstone.clj
Created February 17, 2013 04:08
Exploring the Hailstone Sequence in Clojure. See https://en.wikipedia.org/wiki/HOTPO
(defn hotpo
"One iteration of the hailstone sequence."
[n]
(if (even? n)
(/ n 2)
(inc (* 3 n))))
(defn hotpot [x]
"Finds a hailstone sequence starting with integer x."
(take-while #(> % 1)
@arthuredelstein
arthuredelstein / stuff.clj
Created February 17, 2013 04:21
useful stuff
(defn clj->js
"Recursively transforms ClojureScript maps into Javascript objects,
other ClojureScript colls into JavaScript arrays, and ClojureScript
keywords into JavaScript strings."
[x]
(cond
(string? x) x
(keyword? x) (name x)
(map? x) (.-strobj (reduce (fn [m [k v]]
(assoc m (clj->js k) (clj->js v))) {} x))
@arthuredelstein
arthuredelstein / cljs-multiple-file-reader.cljs
Last active December 14, 2015 12:28
User choosers a folder; browser reads files (in cljs)
;; uses hiccups/render-html
(defn new-window-document []
(.. js/window open -document))
(defn folder-chooser [id]
[:input {:id id
:type "file"
:webkitdirectory ""