camsaul

#! /usr/bin/env bash

find -E frontend src test -type f -regex '^.*(js|jsx|clj|css)$' -exec cat {} \; | sed '/^\s*$/d' | wc -l

camsaul

Generate the POM file:

mvn install:install-file \ 
  -Dfile=RedshiftJDBC42-no-awssdk-1.2.12.1017.jar \
  -DgroupId=com.amazon.redshift -DartifactId=redshift-jdbc42-no-awssdk \
  -Dpackaging=jar \
  -Dversion=1.2.12.1017 \
  -DgeneratePom=true

camsaul

(ns addr
  (:require [cheshire.core :as json]
            [clj-http.client :as http]
            [clojure.java
             [io :as io]
             [jdbc :as jdbc]]
            [clojure.pprint :as pprint]
            [metabase.db :as mdb]
            [metabase.util.schema :as su]
            [schema.core :as s]))

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))