Kohei Suzuki eagletmt

I'm interested in automation of daily life

eagletmt / inv.hs

Created January 17, 2010 02:55

	{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, UndecidableInstances, FlexibleInstances, EmptyDataDecls #-}

	data Z
	data S a
	__ = __

	data T
	data F

	class EqNat a b c \| a b -> c

eagletmt / gist:298028

Created February 8, 2010 10:05

	commands.addUserCommand(['matrixcode'], '',
	function(args) {
	var $LX = plugins.libly.$U.getFirstNodeFromXPath;
	var $LXs = plugins.libly.$U.getNodesFromXPath;
	$LXs('//th[@align="left"]').slice(2).forEach(function(t) {
	var x = t.innerHTML;
	$LX('../td/input', t).value = liberator.globalVariables.matrix_code[x[1]][x[3]-1];
	});
	$LX('//input[@type="submit"]').click();
	}, null, true);

eagletmt / table.hs

Created February 17, 2010 12:26

	import Prelude hiding (lookup)

	type Map k a = k -> Maybe a

	empty :: Map k a
	empty = const Nothing

	insert :: Eq k => k -> a -> Map k a -> Map k a
	insert k v f = \x -> if x == k then Just v else f x

eagletmt / on.cc

Created February 21, 2010 15:24

	#include <iostream>
	#include <tr1/functional>

	template <typename F, typename G>
	class on_class
	: public std::binary_function<typename G::argument_type,
	typename G::argument_type, typename F::result_type>
	{
	private:
	F f;

eagletmt / example.vimperatorrc

Created March 3, 2010 07:17

	nnoremap <silent> -urls='www\.pixiv\.net/member_illust\.php\?.*illust_id=\d+' b :<C-u>pixivBookmark<Space>
	nnoremap <silent> -urls='www\.pixiv\.net/member_illust\.php\?.*illust_id=\d+' v :<C-u>pixivViewBookmark<CR>
	nnoremap <silent> -urls='www\.pixiv\.net/' B :<C-u>pixivUserBookmark<CR>

eagletmt / youtube_download.js

Created March 21, 2010 13:30

eagletmt / encode.vim

Created April 5, 2010 12:16

	function! s:encodeURIComponent(str)
	let s = ''
	for i in range(strlen(a:str))
	let c = a:str[i]
	if c =~# "[A-Za-z0-9-_.!~*'()]"
	let s .= c
	else
	let s .= printf('%%%02X', char2nr(a:str[i]))
	endif
	endfor

eagletmt / hseval.js

Created April 5, 2010 18:35

	commands.addUserCommand(['hseval'], 'evaluate haskell expression',
	function(args) {
	util.httpGet('http://tryhaskell.org/haskell.json?method=eval&expr=' + encodeURIComponent(args.literalArg), function(res) {
	let json = JSON.parse(res.responseText);
	if (json.error) {
	liberator.echoerr('error: ' + json.error);
	} else if (json.exception) {
	liberator.echoerr('exception: ' + json.exception);
	} else {
	liberator.echo(json.result + ' :: ' + json.type);

eagletmt / gist:358862

Created April 7, 2010 13:12 — forked from uasi/gist:358813

	" A .vimrc snippet that allows you to move around windows beyond tabs

	nnoremap <silent> <Tab> :<C-u>call <SID>NextWindowOrTab()<CR>
	nnoremap <silent> <S-Tab> :<C-u>call <SID>PreviousWindowOrTab()<CR>

	function! s:NextWindowOrTab()
	if winnr() < winnr("$")
	wincmd w
	else
	tabnext

eagletmt / .vimrc

Created April 27, 2010 10:55 — forked from Shougo/.vimrc