Skip to content

Instantly share code, notes, and snippets.

View frozencemetery's full-sized avatar
🌲
I'll be at a place until a time.

Robbie Harwood frozencemetery

🌲
I'll be at a place until a time.
View GitHub Profile
@frozencemetery
frozencemetery / Nodoka-Dusk
Last active October 12, 2015 04:08
gtkrc (gtk2) for dark square theme on Nodoka engine
# Fedora Nodoka gtkrc, based on Aqualooks
#
# Authors:
# Daniel Geiger <dgeiger_343@yahoo.com>
# Martin Sourada <martin.sourada@seznam.cz>
#
# Uses the Nodoka theme engine, forked from Murrine theme engine
gtk_color_scheme = "fg_color:#D4D4D4\nbg_color:#333333\nbase_color:#474747\ntext_color:#D4D4D4\nselected_bg_color:#ff7228\nselected_fg_color:#ffffff\ntooltip_bg_color:#ff7228\ntooltip_fg_color:#000"
@frozencemetery
frozencemetery / fix-topline.py
Last active December 15, 2015 15:39
Remove blank initial lines of files.
#!/usr/bin/python
import sys
files = sys.argv[1:]
for f in files:
h = open(f, "rU")
lines = h.read().split('\n')
h.close()
@frozencemetery
frozencemetery / gist:5401719
Created April 17, 2013 04:06
A deterministic number generator (written in Haskell)
main = do putStrLn "How many digits do you want?"
nstr <- getLine
putStrLn $ take (read nstr) $ cycle "1"
main
@frozencemetery
frozencemetery / ptrp.hs
Last active December 16, 2015 20:19
Grading script for a CSV-like storage format for a class I took this semester.
main = do
f <- readFile "scores.csv"
let (precategories, prescores) = unzip $ map (span (/= ',')) $ lines f
let categories = map read precategories
let scores = map (\x -> sum $ read $ "[" ++ tail x ++ "]") prescores
let grades = map (\x -> (length $ takeWhile (<= x) levels) - 1) scores
let grade = sum grades
let ltr = gradeLetters !! ((length $ takeWhile (<= grade) levelGrades) - 1)
@frozencemetery
frozencemetery / backup.sh
Created May 19, 2013 16:36
Simple rsync-based backup script.
#!/bin/sh
date=$(date "+%Y-%m-%dT%H:%M:%S")
MTPT=/mnt/Backup
SCWD=/root/
BASEDIR=/
rsync -avxzP \
--delete-excluded --exclude-from="${SCWD}/exclude" \
@frozencemetery
frozencemetery / hscolour.css
Created June 2, 2013 05:48
Hscolour css setup that roughly corresponds to my emacs configuration.
/* This more or less resembles the way it looks when I edit Haskell.
* That takes place inside emacs which runs in zenburn-inspired 88-color urxvt
*/
.hs-keyglyph {color: #ffcd8b;}
.hs-keyword {color: #71bebe;}
.hs-comment, .hs-comment a {color: #ff8b00;}
.hs-str, .hs-chr {color: #cf6171;}
.hs-varop {color: #ffcd8b;}
.hs-definition {color: #8bcdff;}
.hs-conid, .hs-conop {color: #8bff8b;}
@frozencemetery
frozencemetery / ipfrob.sh
Created July 11, 2013 01:46
iptables got your dev setup down? No problem! Just use this script!
#!/bin/sh
iptables -P INPUT ACCEPT
iptables -P OUTPUT ACCEPT
iptables -P FORWARD ACCEPT
iptables -F
iptables -X
iptables -L # appreciate the carnage
@frozencemetery
frozencemetery / oom.c
Created October 25, 2013 06:20
Code golfed C memory exhaustion.
main(){while(malloc(9));}
@frozencemetery
frozencemetery / lpr.sh
Created November 1, 2013 19:19
Quickly prints a (PDF/PS) file from another machine. Designed to avoid fighting cups.
#!/bin/sh
if [ $# != 2 ]; then
echo -n "syntax is: "
echo -n "$_"
echo "<file> <host>"
else
file="$1"
host="$2"
scp $file ${host}:/tmp
@frozencemetery
frozencemetery / monty.c
Last active December 29, 2015 09:39
Monty Hall simulator.
/* tested with --std=c99 and --std=gnu99 using gcc 4.7.2 and clang 3.0 */
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#define ERROR(...) \
do { \
fprintf(stderr, __VA_ARGS__); \
fflush(stdout); \
exit(1); \