Skip to content

Instantly share code, notes, and snippets.

View lhomme_arme.mml
#title "L'homme_armé"
;; http://en.wikipedia.org/wiki/L'homme_arm%C3%A9
AC @74 o5 BT3,4 t130
AC g2g >c2c <b-a2 g2. >dd<g r>dd dc2 <b-a2
AC g2. >ddd <g2. >g2g f2f g2g d2. g2g f2f
AC g2g d2 g a2g fe2 d2. r2. <g2g >c2c
@iratqq
iratqq / douce_dame_jolie.mml
Created Feb 26, 2011
Guillaume de Machaut - Douce Dame Jolie
View douce_dame_jolie.mml
#title "Douce Dame Jolie"
;; http://en.wikipedia.org/wiki/Douce_Dame_Jolie
AC @74 o5
AC d d<gfg b-8ag8aa g>dd8c<b-8 b-8ag8a >d
AC <ggfg b-8ag8a>c <b-.a8gf+g2. >
AC eggfe
View bin-discid.awk
# $ awk -f bin-discid.awk foobar.cue
BEGIN {
trackno = 0;
framesize = 75;
bsize = 2352;
msf_offset = 150;
}
View pty-4.0-openbsd.diff
diff -aruN pty-4.0.orig/config/ttyopts.h pty-4.0/config/ttyopts.h
--- pty-4.0.orig/config/ttyopts.h Mon Mar 2 11:49:03 1992
+++ pty-4.0/config/ttyopts.h Tue Feb 15 16:17:30 2011
@@ -4,6 +4,7 @@
#define TTY_WINDOWS
#undef TTY_AUXCHARS
#undef TTY_TERMIO
+#define USE_OLD_TTY
/* TTY_WINDOWS must be on line 4. */
View google-suggest.scm
(require-extension (srfi 1))
(require "http-client.scm")
(require "util.scm")
(require-dynlib "expat")
(define google-suggest-charset-alist
'((ja . "Shift-JIS")))
(define (parse-google-suggest xml-str)
View dzen2-uim.c
/*
* Copyright (c) 2011 Iwata <iwata@quasiquote.org>
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
@iratqq
iratqq / dzen2_main_c.diff
Created Jan 18, 2011
dock support for dzen2-0.8.5
View dzen2_main_c.diff
--- main.c.orig Tue Jan 18 13:33:17 2011
+++ main.c Tue Jan 18 13:51:22 2011
@@ -19,6 +19,7 @@
#include <sys/select.h>
#include <sys/time.h>
#include <sys/types.h>
+#include <sys/param.h>
Dzen dzen = {0};
static int last_cnt = 0;
View uim-skkserv.scm
;; skkserv
(require-extension (srfi 1 48))
(require "util.scm")
(require "socket.scm")
(require "i18n.scm")
(require "input-parse.scm")
(require-dynlib "look")
(define socks (tcp-listen "localhost" 1178))
View if_rsu.c.diff
Index: sys/dev/usb/if_rsu.c
===================================================================
RCS file: /cvs/src/sys/dev/usb/if_rsu.c,v
retrieving revision 1.1
diff -u -p -u -r1.1 if_rsu.c
--- sys/dev/usb/if_rsu.c 11 Dec 2010 20:48:21 -0000 1.1
+++ sys/dev/usb/if_rsu.c 12 Dec 2010 05:16:55 -0000
@@ -105,6 +105,7 @@ static const struct usb_devno rsu_devs[]
{ USB_VENDOR_GUILLEMOT, USB_PRODUCT_GUILLEMOT_RTL8192SU },
{ USB_VENDOR_HAWKING, USB_PRODUCT_HAWKING_RTL8192SU_1 },
View sexp_to_str.c
#include <stdio.h>
#include <string.h>
#include <ecl/ecl.h>
size_t
sexp_to_str(char *dest, size_t len, char *fmt, const char *exp)
{
cl_object exp_ = c_string_to_object(exp);
cl_object fmt_;