Skip to content

Instantly share code, notes, and snippets.


Eitaro Fukamachi fukamachi

Block or report user

Report or block fukamachi

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View fmt.ros
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
(progn ;;init forms
#+quicklisp (ql:quickload '(:lem-base :lem-lisp-syntax) :silent t)
KeenS / script.lisp
Last active Dec 13, 2016
A function for shelly to load a file ignoring shebang. This is useful to write a script with Common Lisp.
View script.lisp
(in-package :shelly)
(export (defvar *argv* nil))
(in-package :cl-user)
(defun script (file argv)
"Execute a file as script ignoring shebang"
(setf shelly:*argv* argv)
(let* ((in (open file :if-does-not-exist :error))
(first-char (read-char in))
(second-char (read-char in)))
View copy-directory.lisp
(defun copy-directory (from to &key overwrite)
(let ((len (length (namestring (truename from)))))
(lambda (x)
(subseq (namestring x) len)
bhyde / slime-documentation-search.el
Last active Dec 18, 2015
Hand off slime doc search to a website, bound to C-c C-d C-s, defaults to
View slime-documentation-search.el
;;; -*- lexical-binding: t -*-
(define-slime-contrib slime-documentation-search
"Hand off a documenation search to a web site."
(:authors "Ben Hyde <>")
(:license "GPL")
(define-key slime-doc-map "\C-s" 'slime-documention-search)
(define-key slime-doc-map "s" 'slime-documention-search)))
package DBIx::Lite::ResultSet::Role::Slave;
use strict;
use warnings;
use Role::Tiny;
around $_ => sub {
my ($ORIG, $self, @args) = @_;
local $self->{dbix_lite} = $self->{dbix_lite}->master;
return $self->$ORIG(@args);
} for qw(
nanto / router.js
Created Jul 4, 2012
Router: a router that can be combined with jquery.pjax.js
View router.js
// Router: a router that can be combined with jquery.pjax.js [1]
// [1]
// This file is in the public domain.
// var router = new Router();
// $(document).on('pjax:end', function () { router.dispatch(location); });
// $(function () { router.dispatch(location); });
motemen /
Created Jan 30, 2012
use strict;
use warnings;
use PadWalker qw(peek_my);
use Scalar::Util qw(blessed);
use Class::Load qw(is_class_loaded);
sub UNIVERSAL::the {
my $class = shift;
my $vars = peek_my(1);
my @the = grep { blessed $_ && is_class_loaded($class) ? $_->isa($class) : ref $_ eq $class } map { $$_ } values %$vars;
peccu / dict.m
Created Jan 6, 2012 — forked from hitode909/
View dict.m
// copy from
// gcc -o dict -Wall -fobjc-gc -O2 -std=c99 dict.m -framework carbon -framework cocoa
#import <Cocoa/Cocoa.h>
#import <CoreServices/CoreServices.h>
int main(int argc, char *argv[])
NSString *word;
NSString *result;
You can’t perform that action at this time.