Skip to content

Instantly share code, notes, and snippets.

View issm's full-sized avatar

issm issm

View GitHub Profile
#!/usr/bin/env perl
use 5.10.0;
use warnings;
use utf8;
use FindBin;
use Filesys::Notify::Simple;
use Time::Piece;
use File::Basename;
use File::Temp qw/tempdir/;
use File::Find;
@issm
issm / basic.t
Created April 20, 2013 11:48
test of MyApp::Modell::Pagination
use strict;
use warnings;
use MyApp;
use Test::More;
use Test::Exception;
my $c = MyApp->bootstrap();
subtest 'no param' => sub {
dies_ok {
class @Router
constructor: (params = {}) ->
@_rules = []
for k, v of params.connect ? {}
@connect(k, v)
connect: (hash, action) ->
@_rules.push( hash: hash, action: (action ? ->) )
return @
@issm
issm / commit-msg
Last active December 20, 2015 01:49
`bb/1234` なブランチの場合,コミットメッセージの後に `BB refs #1234` がつくように. Git-Hooks と同様,`foobar/id/1234` なブランチの場合には `refs #1234` がつく感じ.
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
use File::Spec;
sub main {
my ($msgfile) = @_;
my @msg = do {
open my $fh, '<', $msgfile;
@issm
issm / textil-mode.el.patch
Created November 23, 2013 06:16
textile-mode: for solarlized highlighting.
diff --git a/site-lisp/lang/textile-mode.el b/site-lisp/lang/textile-mode.el
index d794c09..cbf3a05 100644
--- a/site-lisp/lang/textile-mode.el
+++ b/site-lisp/lang/textile-mode.el
@@ -278,32 +278,32 @@ non-matching parentheses"
:group 'textile-faces)
(defface textile-blockquote-face
- '((t (:foreground "ivory4")))
+ '((t (:foreground "#93A1A1"))) ;; base0
@issm
issm / textile-mode.el.patch
Created November 23, 2013 06:24
textile-mode: highlight for "bc." block as textile-code-face.
diff --git a/site-lisp/lang/textile-mode.el b/site-lisp/lang/textile-mode.el
index cbf3a05..7c5998c 100644
--- a/site-lisp/lang/textile-mode.el
+++ b/site-lisp/lang/textile-mode.el
@@ -165,6 +165,8 @@ non-matching parentheses"
`(,(textile-block-matcher "h6") 1 'textile-h6-face t t)
;; blockquotes
`(,(textile-block-matcher "bq") 1 'textile-blockquote-face t t)
+ ;; block codes
+ `(,(textile-block-matcher "bc") 1 'textile-code-face t t)
=head1 NAME
randtime.pl - prints datetime randomly
=head1 SYNOPSIS
randtime.pl <options>
# randtime.pl -n 20
# randtime.pl --date=2014-03-01 -n 20
[1] (1.0000000000000000, 1.0000000000000000): 0
[2] (1.4142135623730951, 1.4142135623730951): 0
[3] (1.7320508075688772, 1.7320508075688772): 0
[4] (2.0000000000000000, 2.0000000000000022): 2.220446049250313e-15
[5] (2.2360679774997898, 2.2360679774997898): 0
[6] (2.4494897427831779, 2.4494897427831779): 0
[7] (2.6457513110645907, 2.6457513110645907): 0
[8] (2.8284271247461903, 2.8284271247461903): 0
[9] (3.0000000000000000, 3.0000000000000000): 0
[10] (3.1622776601683795, 3.1622776601683795): 0