Kohei Suzuki eagletmt
eagletmt
/ gist:410116
Created
May 22, 2010 14:40
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| nnoremap <silent> <Plug>select_cstyle_if :<C-u>call <SID>select_cstyle_if()<CR> | |
| function! s:select_cstyle_if() " {{{ | |
| let orig_view = winsaveview() | |
| let if_start_pos = [] | |
| while searchpair('{', '', '}', 'bW', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|character"') != 0 | |
| let brace_start_pos = getpos('.') | |
| normal! ge | |
| let save = @" | |
| normal! yl | |
| let t = @" |
eagletmt
/ .vimrc
Created
May 16, 2010 17:58
— forked from thinca/.vimrc
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| " Move window position {{{ | |
| nnoremap <silent> <Plug>swap_window_next :<C-u>call <SID>swap_window(v:count1)<CR> | |
| nnoremap <silent> <Plug>swap_window_prev :<C-u>call <SID>swap_window(-v:count1)<CR> | |
| nnoremap <silent> <Plug>swap_window_j :<C-u>call <SID>swap_window_dir(v:count1, 'j')<CR> | |
| nnoremap <silent> <Plug>swap_window_k :<C-u>call <SID>swap_window_dir(v:count1, 'k')<CR> | |
| nnoremap <silent> <Plug>swap_window_h :<C-u>call <SID>swap_window_dir(v:count1, 'h')<CR> | |
| nnoremap <silent> <Plug>swap_window_l :<C-u>call <SID>swap_window_dir(v:count1, 'l')<CR> | |
| nnoremap <silent> <Plug>swap_window_t :<C-u>call <SID>swap_window_dir(v:count1, 't')<CR> | |
| nnoremap <silent> <Plug>swap_window_b :<C-u>call <SID>swap_window_dir(v:count1, 'b')<CR> |
eagletmt
/ gist:397027
Created
May 11, 2010 07:44
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| command! -nargs=0 CompileThis call s:compile_this() | |
| let s:compile_cmd = { | |
| \ 'c': 'gcc -c -Wall', | |
| \ 'cpp': 'g++ -c -Wall -std=c++0x', | |
| \ 'haskell': 'ghc -c -Wall' | |
| \ } | |
| function! s:compile_this() | |
| if !has_key(s:compile_cmd, &l:filetype) | |
| echoerr "I don't know how to compile" | |
| return |
eagletmt
/ example.txt
Created
May 9, 2010 01:34
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # require ghc-paths <http://hackage.haskell.org/package/ghc-paths> | |
| % echo 'length x' | ./hint | |
| [a] | |
| % echo 'x + 1' | ./hint | |
| (GHC.Num.Num a) => a | |
| % echo 'foldl x 0 [2,3]' | ./hint | |
| (GHC.Num.Num a, GHC.Num.Num b) => a -> b -> a | |
| % echo 'nub x' | ./hint Data.List | |
| (GHC.Classes.Eq a) => [a] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| mappings.addUserMap( | |
| [modes.COMMAND_LINE], | |
| ['<C-x>'], | |
| 'toggle bang', | |
| function() { | |
| let [,cmd,bang,args] = commands.parseCommand(commandline.command); | |
| bang = bang ? '' : '!'; | |
| commandline.command = cmd + bang + ' ' + args; | |
| }); |
eagletmt
/ exchanges.hs
Created
May 2, 2010 10:34
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import Data.Array | |
| import Data.Array.ST | |
| import Control.Monad (forM_, liftM2) | |
| main = print $ exchanges coins 10000 ! 10000 | |
| where | |
| coins = [1, 5, 10, 50, 100, 500, 1000, 2000, 5000, 10000] | |
| exchanges :: (Ix a, Enum a, Num a, Num e) => [a] -> a -> Array a e | |
| exchanges cs n = runSTArray $ do |
eagletmt
/ .vimrc
Created
April 27, 2010 10:55
— forked from Shougo/.vimrc
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| " Capture {{{ | |
| command! | |
| \ -nargs=+ | |
| \ -complete=command | |
| \ Capture | |
| \ call s:cmd_capture([<f-args>]) | |
| function! s:capture(cmd) | |
| redir => result | |
| silent execute a:cmd |
eagletmt
/ gist:358862
Created
April 7, 2010 13:12
— forked from uasi/gist:358813
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| " 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ encode.vim
Created
April 5, 2010 12:16
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |