hanshuebner

// While jamming with a keyboard, I often want to record some theme into a clip.
// I find it rather disruptive to have reach out for the mouse, or find a free clip
// slot on an APC, or use a touch interface or whatever.  So this script comes to the
// rescue.  It listens to MIDI events that I can trigger with a foot switch and records
// clips to the currently selected track.  It uses the global quantization setting to
// determine the length of the clips that are created.  Three MIDI events are used,
// one to record one clip, one to record clips until stops, and one to stop recording.

// The script automatically adds clips to the end of the currently selected track.

hanshuebner

var plistParser = require("../lib/sax").parser(false, {lowercasetags:true, trim:true}),
  sys = require("sys"),
  fs = require("fs");

function entity (str) {
  return str.replace('"', '"');
}

plistParser.getInteger = function (string) {
    this.value = parseInt(string, 10);

hanshuebner

;;;; qdiff.lisp                                                                                                                                         

(defpackage #:qdiff
  (:use #:cl)
  (:shadowing-import-from #:ql-dist
                          #:name
                          #:release
                          #:ensure-local-archive-file
                          #:base-directory
                          #:prefix)

hanshuebner

(defmacro deftestpackage (package-name for-package &optional (test-library-package-name :unit-test))
  "Define a new package PACKAGE-NAME used to test the package
  designated by FOR-PACKAGE.  The new package will import all symbols
  from FOR-PACKAGE and :USE the package designated by
  TEST-LIBRARY-PACKAGE-NAME which supposedly contains unit testing
  functions and macros."
  `(defpackage ,package-name
       (:use ,test-library-package-name ,@(mapcar #'package-name (package-use-list for-package)))
     (:import-from ,for-package
                   ,@(let (symbols)

hanshuebner

(defpackage :fixed-width-record
  (:use :cl)
  (:export #:define-format
           #:write*
           #:read*
           #:field-parse-error
           #:create-table
           #:insert-record))

(in-package :fixed-width-record)

hanshuebner

#!/bin/sh

su hans -c '/home/hans/bin/start-tmux.sh'

hanshuebner

var readline = require('readline');
var spawn = require('child_process').spawn;
var request = require('request');

var config = {
    interval: 10000,
    email: '[email protected]',
    apitoken: 'the-librato-readonly-api-token'
};

hanshuebner

;;;-*- Mode: Lisp; Package: CCL -*-
;;;
;;;   Copyright (C) 2001-2009 Clozure Associates
;;;   This file is part of Clozure CL.  
;;;
;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
;;;   License , known as the LLGPL and distributed with Clozure CL as the
;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
;;;   conflict, the preamble takes precedence.  

hanshuebner

# Install Time Machine service on CentOS 7
# http://netatalk.sourceforge.net/wiki/index.php/Netatalk_3.1.7_SRPM_for_Fedora_and_CentOS
# http://confoundedtech.blogspot.com/2011/07/draft-draft-ubuntu-as-apple-time.html
yum install -y rpm-build gcc make wget

# install netatalk
yum install -y avahi-devel cracklib-devel dbus-devel dbus-glib-devel libacl-devel libattr-devel libdb-devel libevent-devel libgcrypt-devel krb5-devel mysql-devel openldap-devel openssl-devel pam-devel quota-devel systemtap-sdt-devel tcp_wrappers-devel libtdb-devel tracker-devel

yum install -y bison docbook-style-xsl flex dconf

hanshuebner

clabin 1175_% rlwrap lein run -m clojure.main script/figwheel.clj
Figwheel: Starting server at http://localhost:3449
Figwheel: Watching build - dev
Compiling "resources/public/js/main.js" from ["src"]...
Reading analysis cache for jar:file:/Users/hans/.m2/repository/org/clojure/clojurescript/1.7.170/clojurescript-1.7.170.jar!/cljs/core.cljs
Compiling target/figwheel_temp/dev/figwheel/connect.cljs
Reading analysis cache for jar:file:/Users/hans/.m2/repository/org/omcljs/om/1.0.0-alpha22/om-1.0.0-alpha22.jar!/om/util.cljs
Reading analysis cache for jar:file:/Users/hans/.m2/repository/org/omcljs/om/1.0.0-alpha22/om-1.0.0-alpha22.jar!/om/dom.cljs
{:tag :cljs/analysis-error}
ANALYSIS ERROR: Map literal must contain an even number of forms on file null, line null, column null