Karl-Oskar Rikås funrep

Basic functional references with pairs.

data FRef a b = FRef
  { get :: a -> b
  , set :: b -> a -> a
  }

fstF :: FRef (x, y) x
fstF = FRef

ZOMG l3333t watz

if you fuck up shit

git clone blalbblalb
cd blablabla
git checkout -b bar origin/bar
git checkout master
git checkout -b foo
git cherry-pick foo~1

	Section "InputClass"
	Identifier "Trackpoint Wheel Emulation"
	MatchProduct "TPPS/2 IBM TrackPoint\|DualPoint Stick\|Synaptics Inc. Composite TouchPad / TrackPoint\|ThinkPad USB Keyboard with TrackPoint\|USB Trackpoint pointing device\|Composite TouchPad / TrackPoint"
	MatchDevicePath "/dev/input/event*"
	Option "EmulateWheel" "true"
	Option "EmulateWheelButton" "2"
	Option "Emulate3Buttons" "false"
	Option "XAxisMapping" "6 7"
	Option "YAxisMapping" "4 5"
	EndSection

	# statusbar
	while true; do
	xsetroot -name "$( statusbar )"
	sleep 1m # Update time every minute
	done &

	# settings
	xset -b
	xrdb -merge ~/.XResources
	xsetroot -solid "#002b36"

	;; Visual stuff
	(menu-bar-mode 0)
	(tool-bar-mode 0)
	(scroll-bar-mode 0)
	(setq inhibit-startup-message t)
	(global-linum-mode t)
	(setq linum-format " %d ")
	(set-window-fringes nil 0 0)
	(set-fringe-mode 0)

	(* simple lisp interpreter *)

	type sym = string

	datatype exp = Sym of sym
	\| List of exp list
	\| Num of int
	\| Str of string
	\| Bool of bool
	\| Lam of (sym list) * ((sym * exp) list) * exp

	<?xml version="1.0"?>
	<!DOCTYPE fontconfig SYSTEM "fonts.dtd">
	<!-- /etc/fonts/fonts.conf file to configure system font access -->
	<fontconfig>

	<!--
	DO NOT EDIT THIS FILE.
	IT WILL BE REPLACED WHEN FONTCONFIG IS UPDATED.
	LOCAL CHANGES BELONG IN 'local.conf'.