Skip to content

Instantly share code, notes, and snippets.

View hadashiA's full-sized avatar

hadashiA hadashiA

526 followers · 45 following
View GitHub Profile
@hadashiA
hadashiA / gist:1493677
Created December 18, 2011 15:17
imagemagick generate gif anim
convert -delay 0.5 -loop 0 -dispose previous tanuki*.png tanuki_anim.gif
@hadashiA
hadashiA / genko.rb
Created January 5, 2012 13:02
原稿用紙枚数換算シンプル
#!/Usr/bin/env ruby
# -*- coding: utf-8 -*-
GYO = 20
RETSU = 20
num_letters = num_gyo = num_retsu = 0
open(ARGV.last) do |io|
io.each_char do |c|
@hadashiA
hadashiA / gist:1565341
Created January 5, 2012 13:51
gifアニメ生成ヘルパ
#!/Usr/bin/env ruby
# -*- coding: utf-8 -*-
basename = ARGV.shift
in_list = ARGV.map{|num| "#{basename}_#{num}.png" }.join(' ')
`convert -delay 17.5 -loop 0 -dispose previous #{in_list} #{basename}.gif`
@hadashiA
hadashiA / gist:2143995
Created March 21, 2012 03:15
Emacs Lisp macro practice
(defmacro do-with-val-macro (val &rest body)
`(let ((,val 1))
,@body)
)
(defmacro do-with-val-macro2 (spec)
`(let ((,(car spec) 1))
,@(cdr spec))
)
@hadashiA
hadashiA / gist:2184485
Created March 24, 2012 15:49
IRC protocol
<?php
class IRCNotifierError extends Exception {}
class IRCNotifier {
private $_socket;
function __construct($url, $options) {
$url_info = parse_url($url);
if ($url_info === false) {
@hadashiA
hadashiA / gist:2478018
Created April 24, 2012 08:49
HTML special char quote
(defun html-quote (str)
(replace-regexp-in-string "[&<>]"
(lambda (m)
(or (cdr (assq (string-to-char m)
'((?& . "&amp;")
(?< . "&lt;")
(?> . "&gt;"))))
m))
str))
@hadashiA
hadashiA / gist:2567470
Created May 1, 2012 11:30
my rake rules
# dotfileのsymlinkつくるルール
rule /\/\..+?$/ => [proc {|task_name|
File.basename(task_name).sub(/^\./, '')
}] do |t|
if !File.exist?(t.name) and !File.symlink?(t.name)
ln_s t.source, t.name
end
end
@hadashiA
hadashiA / file0.lisp
Created May 3, 2012 07:50
anythingから、ローカルにあるrubygemsのソースを開く ref: http://qiita.com/items/7a832e99d18cc8e507fd
(defvar anything-c-sources-local-gem-file
'((name . "gems (local)")
(candidates-in-buffer)
(init . (lambda ()
(unless (anything-candidate-buffer)
(call-process-shell-command
"gem list" nil (anything-candidate-buffer 'global)
))))
(action . (lambda (gem-name)
(setq gem-name (replace-regexp-in-string "\s+(.+)$" "" gem-name))
@hadashiA
hadashiA / gist:2949159
Created June 18, 2012 16:14
vimperator plugin: copy to clipboard for Regexp matched HTML text content
(function () {
commands.addUserCommand(
['rcopy'], 'Copy for Regexp match string',
function(args, bang, count) {
var text = (function (e, re) {
var m = e.textContent.match(re);
if (m) return m[0];
for (var i = 0; i < e.children.length; i++) {
var result = arguments.callee(e.children[i], re);
@hadashiA
hadashiA / gist:3016299
Created June 29, 2012 06:42
Rubyで文字ード変換、未定義文字のみnkfをかます
# nkfはデフォルトで半角カナを全角カナにしてくれたり、未定義文字を良い感じにしてくれるので、String#encodeで変換できなかった文字はnkfに渡す。
# -xを渡すと、半角全角変換はしない。
str.encode('EUC-JP', Kconv.guess(str), fallback: -> char { NKF.nkf('-ex', char) })