jamesmacaulay

### Keybase proof

I hereby claim:

  * I am jamesmacaulay on github.
  * I am jamesmacaulay (https://keybase.io/jamesmacaulay) on keybase.
  * I have a public key ASDnKw1JsZHofgcB89uvNLIux6FkTNSz64gv8aS99WWGXgo

To claim this, I am signing this object:

jamesmacaulay

pub type V3 = [usize; 3];

#[derive(Clone, Copy, Debug, PartialEq, Eq)]
pub struct PositionedVolume {
    dimensions: V3,
    position: V3,
}

// mutable stack of sub-containers, initialized with input container
// mutable vec of remaining items, initialized with all input items

jamesmacaulay

#!/bin/bash
lastlast=$(last --time-format=iso -1 -R | head -1 | awk '{ print $3 "\n" $5 }' | xargs -n1 date +%s -d 2> /dev/null)
lastuserinputs=$(who -s | awk '{ print $2 }' | (cd /dev && xargs stat -c '%X'))
events=$lastlast$'\n'$lastuserinputs
sincelatestevent=$(echo "$events" | sort -rn | head -1 | awk '{ print '"$(date +%s)"'-$1 }')
uptime=$(cat /proc/uptime | sed -n 's/\([0-9]*\).*/\1/p')
durations=$sincelatestevent$'\n'$uptime
idletime=$(echo "$durations" | sort -n | head -1)
echo "$idletime"

jamesmacaulay

module DQuery

import Record

namespace Json
  data Json
    = JsonString String
    | JsonBool Bool
    | JsonInt Int
    | JsonObject (List (String, Json))

jamesmacaulay

module Main exposing (main)

import Html exposing (Html, text)
import Json.Bidirectional as Json
import Json.Decode as Decode
import Json.Encode as Encode
import String
import Tuple

jamesmacaulay

root = true

[*]
indent_style = space
indent_size = 2

[*.elm]
indent_size = 4

jamesmacaulay

module GraphQL.Query exposing (..)

import Json.Decode as Decode exposing (Decoder, (:=))
import Array exposing (Array)


type SelectionSet
    = SelectionSet (List Selection)

jamesmacaulay

-- paste into http://elm-lang.org/try and click "compile"
-- http://imgur.com/gallery/W6TwgZw

import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
import Text
import Color exposing (..)
import Time
import Signal

jamesmacaulay

(ns explicit-state-transducers)

(defn take-with-explicit-state
  "A stateless rewrite of the `c.c/take` transducer that requires its state to
  be provided as part of each input"
  [n]
  (fn [rf]
    (fn
      ([] (rf))
      ([result] (rf result))

jamesmacaulay

// Elm code from https://github.com/evancz/elm-architecture-tutorial#example-5-random-gif-viewer
// 
// type Action
//     = RequestMore
//     | NewGif (Maybe String)
// 
// 
// update : Action -> Model -> (Model, Effects Action)
// update msg model =
//   case msg of