crdueck

! URxvt settings
URxvt.scrollBar:        off
!URxvt.font:             xft:terminus:size=12:antialias=true
URxvt.intensityStyles:  false
URxvt.letterSpace:      -1
URxvt.perl-ext-common:  default,matcher
URxvt.url-launcher:     /usr/bin/firefox
URxvt.matcher.button:   1

! Common

crdueck

{-# LANGUAGE GADTs #-}

import Control.Lens
import Control.Monad.Free

data Action
	= Cellar | Chapel | Moat
	| Chancellor | Village | Woodcutter | Workshop
	| Bureaucrat | Feast | Gardens | Militia | Moneylender | Remodel | Smithy | Spy | Thief | ThroneRoom
	| CouncilRoom | Festival | Laboratory | Library | Market | Mine | Witch

crdueck

#! /usr/bin/env python3
# Ported from http://www.a1k0n.net/2011/07/20/donut-math.html
# Run with 'python donut.py'

import math

R1 = 1
R2 = 2
K2 = 5

crdueck

#!/bin/sh

function dis {
    case "$1" in
        --stash)
            export DIS_STASH_FILE="$(mktemp)"
            gdb -batch -ex "disassemble $3" $2 >> $DIS_STASH_FILE
            cat $DIS_STASH_FILE
            ;;

crdueck

#!/bin/sh

tmp=${TMPDIR-/tmp}/pacman-disowned-$UID-$$
db=$tmp/db
fs=$tmp/fs

mkdir "$tmp"
trap 'rm -rf "$tmp"' EXIT

pacman -Qlq | sort -u > "$db"

crdueck

{-# LANGUAGE GADTs, TypeFamilies, DataKinds, TypeOperators #-}

import Type.Reflection

type family Map f xs where
    Map f '[] = '[]
    Map f (x ': xs) = f x ': Map f xs
    
data HList xs where
    HNil :: HList '[]