jstaffans

alias ls="ls -G"
alias ll="ls -lh"
alias lt="ls -R | grep ":$" | sed -e 's/:$//' -e 's/[^-][^\/]*\//--/g' -e 's/^/ /' -e 's/-/|/'"

if [ -f $(brew --prefix)/etc/bash_completion ]; then
  . $(brew --prefix)/etc/bash_completion
fi

# pip should only run if there is a virtualenv currently activated
export PIP_REQUIRE_VIRTUALENV=true

jstaffans

(defmacro dbg[x] `(let [x# ~x] (println "dbg:" '~x "=" x#) x#))

jstaffans

# Source accepts the protocol region:// with the host as the bucket
# access_key_id and secret_access_key are just that

# for the eu-west-1 region: 
s3_file "/var/bulk/the_file.tar.gz" do
  source "s3-eu-west-1://your.bucket/the_file.tar.gz"
  access_key_id your_key
  secret_access_key your_secret
  owner "root"
  group "root"

jstaffans

# ~/.tmux.conf
#
# See the following files:
#
#   /opt/local/share/doc/tmux/t-williams.conf
#   /opt/local/share/doc/tmux/screen-keys.conf
#   /opt/local/share/doc/tmux/vim-keys.conf
#
# URLs to read:
#

jstaffans

[alias]
  ls = log --pretty=format:"%C(yellow)%h%Cred%d\\ %Creset%s%Cblue\\ [%cn]" --decorate
  lds = log --pretty=format:"%C(yellow)%h\\ %ad%Cred%d\\ %Creset%s%Cblue\\ [%cn]" --decorate --date=short
  ll = log --pretty=format:"%C(yellow)%h%Cred%d\\ %Creset%s%Cblue\\ [%cn]" --decorate --numstat
  lnc = log --pretty=format:"%h\\ %s\\ [%cn]"
  dl = "!git ll -1"
  dlc = diff --cached HEAD^
  cp = cherry-pick
  st = status -s
  cl = clone

jstaffans

# seed: -162143530
53
56 33
33 81 35
98 5 86 71
64 6 8 33 91
60 8 60 55 3 25
97 50 20 33 72 47 5
63 82 57 1 29 32 26 80
66 16 83 1 37 15 73 30 58

jstaffans

Notes from ClojureD 24.1.2015

Albrecht Schmidt: "Start your engine: My Clojure Bot in the Hello World Open 2014"

• Hello World Open: programming contest organised by Reaktor and Supercell with ~2500 teams, worldwide distribution
  • Client-server car race, cards driven with some parameters such as decelerate/accelerate, change lanes
  • Organisers provided test server with simple testing UI
• Parameters for car are quite simple: current angle, position etc
• Clojure works well for processing simple data structures like this - analysis, storing, examining
• Used Incanter to plot bot data during test (throttles vs. angles)

jstaffans

(defmacro assoc-time
  "Evaluates expr and assocs the time it took in msecs with the result of expr."
  [expr]
  `(let [start# (System/currentTimeMillis)
         ret# ~expr]
     (assoc ret# :time (- (System/currentTimeMillis) start#))))

jstaffans

1, att, den, ett, där, fin, han, hon, jag, kan, men, min, oss, och, sin, skall, som, till, om
2, mitt, in, kom, dem, mig, dig, ditt, hade, hos, man, sig, sitt, vill, dit, från, upp, bra, i dag
3, henne, honom, liten, vem, klass, bara, efter, barn, alla, stor, därför, skulle, läsa, rolig, tack, över, finns, flicka
4, går, fanns, kväll, kommer, eller, fick, hemma, vacker, ensam, fest, alltid, aldrig, bästa, fått, gång, också, lov, någon
5, något, blomma, först, ingen, bättre, kunna, gammal, genom, under, igen, hjälp, ingenting, jorden, kanske, göra, mycket, ledsen, ofta
6, tycker, lätt, morgon, många, pojke, regn, vilket, själv, snälla, sommar, sova, säga, än, tänka, allting, gjorde, vinter, visst
7, vän, ändå, ännu, överallt, rädd, cykel, riktig, viktig, strax, person, adjö, berätta, natur, sist, farlig, känna, svensk, ge
8, ledsen, Finland, hej, leva, precis, plötsligt, älska, hälsa, lilla, timme, män, människor, trött, ung, ungefär, lång, omkring, värld
9, länge, igenom, även, lärare, vacker, ordning, varje,

jstaffans

;; Trying to traverse an AST whose root is a list

(defrecord ParentDS []
  muse/DataSource
  (fetch [_]
    (async/go [{:id 1 :name "Parent 1"} {:id 2 :name "Parent 2"}]))
  
  muse/LabeledSource
  (resource-id [_]
    :some-label))