View git-cheatsheet.txt
* Git Cheatsheet
git stash --keep-index
git clean -d -n
git commit --amend (amend last commit)
git reflog (a history of the commits HEAD has been pointed at; undo pulls, rebases etc)
View explore.el
;; project tree explorer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; see https://github.com/nathankot/dotemacs/blob/master/init.el
(use-package projectile
:ensure projectile
:config (projectile-global-mode t)
:init
;; (setq projectile-require-project-root nil)
(setq projectile-enable-caching t)
View keybase.md

Keybase proof

I hereby claim:

  • I am willtim on github.
  • I am willtim (https://keybase.io/willtim) on keybase.
  • I have a public key whose fingerprint is 0BE4 0021 BC8C 398F 7BF3 EBD3 5140 CC90 BC07 887C

To claim this, I am signing this object:

View .minttyrc
BoldAsFont=-1
Columns=160
Rows=60
ClipShortcuts=no
CtrlShiftShortcuts=yes
Term=xterm-256color
CursorType=block
# Zenburn scheme - Source: http://slinky.imukuppi.org/zenburnpage/
CursorColour=#BFBFBF
View .tmux.conf
# Tim Williams .tmux.conf
# Note: can query default bindings with tmux list-keys
# Hierarchy:
# Server
# ㄴSession
# ㄴWindow
# ㄴPane
View Prac1_handleKey.hs
------------------------------------------------------------
-- Hoodlums: Purely Functional Text Editing
--
-- handleKey implementation for Prac1.hs
-- see https://personal.cis.strath.ac.uk/conor.mcbride/CS410/
--
-- Note: you will also need to change the "Here" data type to
-- accomodate a String payload
--
View source-annotations.tex
\documentclass{beamer}
\usepackage{listings}
\usepackage{tikz}
\usetikzlibrary{fit,calc,shadows}
% Define styles for balloons and lines
\tikzstyle{line} = [draw, rounded corners=3pt, -latex]
\tikzstyle{balloon} = [draw, fill=blue!20, opacity=0.4, inner sep=4pt, rounded corners=2pt]
View Compiler2.hs
{-# LANGUAGE NoMonomorphismRestriction #-}
import Control.Applicative
import Control.Monad.State
import Control.Monad.Writer
import Data.IntMap (IntMap)
import qualified Data.IntMap as IM
import Text.ParserCombinators.UU (pChainl)
import Text.ParserCombinators.UU.BasicInstances(pSym)
import Text.ParserCombinators.UU.Utils
View Compiler1.hs
{-# LANGUAGE NoMonomorphismRestriction #-}
import Control.Applicative
import Text.ParserCombinators.UU (pChainl)
import Text.ParserCombinators.UU.BasicInstances(pSym)
import Text.ParserCombinators.UU.Utils
-- | Huttons razor
data Exp = Add Exp Exp
View SplitOn.hs
import Control.Arrow (second)
import qualified Data.List as L
splitOn :: Eq a => [a] -> [a] -> [[a]]
splitOn sep = L.unfoldr f
where
f [] = Nothing
f xs = Just $ second (drop l) $ breakList (L.isPrefixOf sep) xs
l = length sep