Skip to content

Instantly share code, notes, and snippets.

Avatar

Robert Levy rplevy

90 followers · 123 following
View GitHub Profile
@rplevy
rplevy / genpaperwallet.py
Last active November 6, 2022 10:22
minimal paper wallet generator
View genpaperwallet.py
#!/usr/bin/env python3
import binascii
from bip_utils import Bip38PubKeyModes, Bip38Encrypter
from bitcoin import *
from qrcode import *
from PIL import Image
from PIL import ImageFont
from PIL import ImageDraw
@rplevy
rplevy / filebin-example.sh
Created October 2, 2018 01:58
filebin.net command-line example
View filebin-example.sh
export SHA=$(git rev-parse HEAD)
tar czfv $SHA.tgz resources/public/
curl --request POST --data-binary "@${SHA}.tgz" -H "filename: "$SHA.tgz -H "bin: "$SHA https://filebin.net
export T=$(curl -s https://filebin.net/$SHA | grep \?t= | tail -n 1 | sed -e 's/^.*zip.t=//' | cut -c1-8)
curl -s https://filebin.net/$SHA/$SHA.tgz?t=$T --output $SHA.tgz
tar -xzf $SHA.tgz
@rplevy
rplevy / continuationlike-debugging-style.clj
Last active February 15, 2022 21:06
View continuationlike-debugging-style.clj
(defmacro persist-scope
"local scope -> atom"
[a]
`(do ~@(map (fn [v] `(swap! ~a assoc (keyword '~v) ~v))
(keys (cond-> &env (contains? &env :locals) :locals)))))
(def scope-atom (atom {}))
(let [foo 1] (persist-scope scope-atom))
@rplevy
rplevy / README.txt
Last active February 3, 2022 07:09
twitter archive
View README.txt
tweets from my twitter archive but in order
@rplevy
rplevy / bitclout_fees.sh
Last active April 1, 2021 00:15
bitclout fees
View bitclout_fees.sh
echo "<html><table><tr><th>type</th><th>amount</th><tr>" > /tmp/transactions.html; cat /tmp/transactions | egrep "^(Transaction Type:|Fees:).*" | while read l ; do if [[ "$l" =~ ^Transaction.*$ ]]; then export transaction=$(echo $l | sed -e 's/^.*://'); else echo "<tr><td>"$transaction"</td><td>"$(echo $(echo $l | sed -e 's/^.*://')" * 154.87" | bc )"</td></tr>"; fi ; done >> /tmp/transactions.html ; echo "</table></html>" >> /tmp/transactions.html
@rplevy
rplevy / two-useful-macros.clj
Created June 29, 2012 23:29
with and within
View two-useful-macros.clj
(defmacro with
"do things with the first expression passed,
and produce the result"
[expr & body]
`(let [~'% ~expr] ~@body))
(defmacro within
"do things with the first expression passed (for side effects),
but produce the value of the first expression"
[expr & body]
@rplevy
rplevy / ticket-sentiment.clj
Last active January 18, 2020 01:28
ticket-sentiment.clj
View ticket-sentiment.clj
(ns ticket-sentiment.core
(:require [clojure.data.csv :as csv]
[clojure.java.io :as io]
[clojure.pprint :refer [pprint]]
[damionjunk.nlp.cmu-ark :as ark]
[damionjunk.nlp.stanford :as nlp]))
(defn mean [coll]
(let [sum (apply + coll)
count (count coll)]
@rplevy
rplevy / clj->org.clj
Last active May 29, 2019 23:15
takes a sequence of rows of clojure data and a sequence of fns (keys for example) that produce the columns, and generates an org table
View clj->org.clj
(defn clj->org
[data-rows col-fns]
(doseq [line (map (apply juxt col-fns) data-rows)]
(println (str "|" (clojure.string/join "|" line) "|"))))
;; edit: use print-table, and support col headers
;; I never realized print-table is an org-table!!
(defn clj->org
[data-rows col-fns & [headers]]
@rplevy
rplevy / cmd-line-scripting-with-plk-and-clj.org
Last active May 2, 2019 00:47
cmd-line-scripting-with-plk-and-clj.org
View cmd-line-scripting-with-plk-and-clj.org

command-line scripting with plk & clj

what to write scripts in?

bash?

perl?

python?
why not clojure?

why not?

bash/perl etc pre-installed

unorthodox installation requirements sometimes not worth it

this is actually a pretty good reason not to
@rplevy
rplevy / profiles2env.cljs
Created June 12, 2018 01:41
View profiles2env.cljs
#!/usr/bin/env plk -Sdeps {:deps,{inflections,{:mvn/version,"0.13.0"}}}
;; EXAMPLE USAGE:
;;
;; profiles2env profiles.clj > ~/cc-vars
;; . ~/cc-vars
(ns scripts.profiles2env
(:require [cljs.reader :as r]
[clojure.string :as str]