View index.html
<script src=""></script>
#schema-panel {
float: left;
width: 20%;
height: 90%;
overflow: scroll;
View dotnotebooks.tcl
proc jdbc_command {options} {
set classpath [lindex $options 0]
set commands {/usr/bin/java -classpath}
lappend commands "/home/chris/Source/jdbcnotebook/target/server-1.0-SNAPSHOT-jar-with-dependencies.jar:$classpath"
lappend commands {*}[lrange $options 1 end]
return $commands
View ledger.R
printf <- function(fmt, ...) cat(sprintf(fmt, ...))
# Reads a Ledger file by doing CSV export on the CLI, and then slurping
# it into R's CSV reader.
# start and end can be used to limit which entries are allowed in by time,
# and accounts can be used to limit which accounts are read. <- function(filename,
View xslt.cs
using System;
using System.IO;
using System.Xml;
using System.Xml.Xsl;
namespace XSLTEvaluator
public class MainClass
public static void Main(string[] Args)
from enum import Enum
import os
import subprocess
import string
import sys
import tkinter
# Maps key symbols in the configuration language into keysyms known to Tk
View driveby.js
function clickAll(elems) {
for (var i = 0; i < elems.length; i++) {
function driveByUpvote() {
View shader.glsl
vec4 colorAt(in vec2 coord, in int channel) {
if (channel == 0) return texture2D(iChannel0, coord.xy / iChannelResolution[0].xy);
if (channel == 1) return texture2D(iChannel1, coord.xy / iChannelResolution[1].xy);
if (channel == 2) return texture2D(iChannel2, coord.xy / iChannelResolution[2].xy);
if (channel == 3) return texture2D(iChannel3, coord.xy / iChannelResolution[3].xy);
float monochrome(in vec4 color) {
return (color.r + color.g + color.b) / 3.0;
class Bean {}
class Main {
// Visibility Access Type id
public static int x;
public int[] x;
private static boolean x;
private Bean x;
private Bean[] xIs_A_Good_Variable_Name18283_28AXY;
from collections import namedtuple
import random
import string
import sys
Node = namedtuple('Node', ['grammar'])
Output = namedtuple('Output', ['text'])
# All of these are easier to compute than to specify literally in the grammar
ALPHABET_NODES = [[Output(letter)] for letter in string.letters]
View prepared.vbs
' Creates a prepared statement and populates its parameters
' Usage:
' Dim stmt as QueryDef
' Set stmt = PrepareStatement(CurrentDb, "SELECT * FROM T WHERE A = [aval] AND B = [bval]", _
' "aval", 42, _
' "bval", "Carrot Cake")
Public Function PrepareStatement(db As Database, sql As String, ParamArray params()) As QueryDef