Skip to content

Instantly share code, notes, and snippets.

View KirinDave's full-sized avatar

Dave Fayram KirinDave

409 followers · 10 following
View GitHub Profile
@KirinDave
KirinDave / gist:4915
Created August 11, 2008 18:40
validate_tables: function() {
// Sometimes you can have as much fun indoors as outdoors.
var self = this;
var found = 0; var needed = this.tables.length; var reported = 0;
var callback = function(present) {
if(present) {
found += 1;
}
reported += 1;
if(reported == needed) {
@KirinDave
KirinDave / gist:6603
Created August 21, 2008 17:59
(define-action (index)
`(html ,(html-header "Account")
(body
(h4 "Note that this action needs to reflect that a user is logged in.")
(a ([href "/account/login"]) "Login") (br)
(a ([href "/account/signup"]) "Signup"))))
(define-action (response formp1 formp2)
(dispatch/c
`(html ,(html-header "Account")
@KirinDave
KirinDave / gen_leader.erl
Created August 22, 2008 04:49
%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved via the world wide web at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
@KirinDave
KirinDave / gist:7420
Created August 27, 2008 04:42
<html>
<head>
<title>Test</title>
<style>
.popup {
border: double 3px #000000;
font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
display: none;
position: absolute;
@KirinDave
KirinDave / revised.html
Created August 27, 2008 06:37
<html>
<head>
<title>Welcome to Oatmeal Homeland!</title>
<meta name="description" content="">
<meta name="keywords" content="Private server, WoW, World of Warcraft">
<STYLE>
:link {color: #666633; font-weight: normal;}
@KirinDave
KirinDave / powerset.ubiq.js
Created August 29, 2008 20:31
makeSearchCommand({
name: "Powerset",
url: "http://www.powerset.com/explore/go/{QUERY}",
icon: "http://www.powerset.com/favicon.ico",
description: "Searches Powerset for your words.",
preview: function(p, txt) {
p.innerHTML = "Searches powerset for: <i>" + txt.text + "</i>"
}
});
@KirinDave
KirinDave / cttt.user.js
Created September 14, 2008 23:45
// ==UserScript==
// @name gaia-c-t-userscript
// @namespace http://github.com/linuxfood/gaia-c-t-userscript/
// @description A greasemonkey script adding a whole mess 'o features to GaiaOnline, C&T
// @include http://www.gaiaonline.com/forum/c-t-tech-talk/*
// ==/UserScript==
/* ========================================
Key vars
======================================== */
@KirinDave
KirinDave / gen_leader.erl
Created October 2, 2008 21:52
%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved via the world wide web at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
@KirinDave
KirinDave / gen_leader.erl
Created October 3, 2008 17:24
%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved via the world wide web at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
@KirinDave
KirinDave / gist:19820
Created October 26, 2008 00:25
(define (permute terms)
(permute-help terms (length terms)))
(define (permute-help terms descent)
(cond
((= (length terms) 1) (list terms))
((< descent 1) (list))
(else (append
(map (lambda (x) (cons (car terms) x)) (permute-help (cdr terms) (length (cdr terms))))
(permute-help (append (cdr terms) (list (car terms))) (- descent 1))))))