camsaul

camsaul

(def ^:private ^:dynamic *require-chain* nil)

(defonce new-require
  (let [orig-require (var-get #'clojure.core/require)]
    (orig-require 'clojure.pprint)
    (fn [& args]
      (binding [*require-chain* (conj (vec *require-chain*) (ns-name *ns*))]
        (let [require-chain-description (apply str (interpose " -> " *require-chain*))]
          (println "\nin" require-chain-description)
          ((resolve 'clojure.pprint/pprint) (cons 'require args))

camsaul

#!/bin/bash
curl ifconfig.me

camsaul

llccc::;,,''.....''''',,,,,,,,,,,,,,,,;;;,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;::::::::::::::::::::
ccccccc::;;,''...'''''',,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:::::::::::::::::::
;::cccccc:::;;,''''''''',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;::::::::::::::::
',,;::cccccc:::;;,,'''''',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:::::::::::::::
..'',,;::::ccc::::;;,,'''',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;;;;;;;;;;;:::::::::::::;;;;;;;::::::::::::::::
....''',,;;::::::::;;;,,,,,,,,,,,,,,,,,,,,,,,,'',,,'''',,,,;;;;:::::::::::;;;;;;;;;;;;;;;:::::::::::::::::::::::::::::::
'''''''''',,;;::::;;;;,,,,,,,,,,,,,,,,,,,,'''',,;cloodxxkkkkkkkkkkkkkkkxxxxdool:,'........''',,;;:::::::::::::::::::::::
''''''''''''',,;;;;;;,,,,,,,,,,,,,,,,,,,;clodkO0KKXK0OkxdddooooooooooooookKXKK00Okxoc;'..........',;::::::::::::::::::::
'''''''''''''''',,,,,,,,,,,,,,,,,,:codxO0KXXXXK0Okdollll

camsaul

#!/bin/bash

# base 64
openssl rand -base64 32

# hex
openssl rand -hex 32

camsaul

#!/bin/bash
# Reminder of the various things to do when setting up a Mac

# Things to install via App Store:
# Patterns
# xCode
# Slack
# System Monitor

# Things to install from web:

camsaul

(def current-test-name (atom nil))

(defonce my-redef
  (do (let [orig-fn @#'expectations/test-name]
        (intern 'expectations 'test-name
                (fn [metta]
                  (u/prog1 (orig-fn metta)
                    (reset! current-test-name <>)
                    (println "Now we're going to run:" <>)))))
      :ok))

camsaul

#! /bin/bash

# kill the server
pkill -KILL mysqld

# drop all the DBs, logfiles, and other busted data
rm -rf /usr/local/var/mysql/*'@002'*
rm /usr/local/var/mysql/ib*

# now restart the server

camsaul

#!/bin/bash
javadoc -sourcepath ./src/main/java -subpackages net.sf.jsqlparser

camsaul

#! /bin/bash
python -c 'import sys, yaml, json; yaml.safe_dump(json.load(sys.stdin), sys.stdout, default_flow_style=False)' < $file