tyru

function! SetBufLine(expr, lnum, text)
  let oldnr = winnr()
  let winnr = bufwinnr(a:expr)

  try
    if oldnr == winnr
      silent! call setline(a:lnum, a:text)
    elseif winnr ==# -1
      silent split
      silent execute bufnr(a:expr) 'buffer'

tyru

" Add it to your local vimrc
" Toggle it with Shift+n

let g:numberlock = 0
" Tried with inoremap 1 <S-1> but it wasn't working, so we'll have to set different layouts
" Anyone knows how to fix it?
let g:numberlock_layout = 'us'

nnoremap <silent><S-n> :call NumberLock()<CR>
function! NumberLock()

tyru

" eskk.vim"{{{
if !exists('g:eskk#disable') || !g:eskk#disable
  " Disable skk.vim
  let g:plugin_skk_disable = 1
  
  let g:eskk#disable = 0
  let g:eskk#debug = 0
  
  " Don't keep state.
  let g:eskk#keep_state = 0

tyru

nnoremap <silent> ) :<C-u>call search("\\((\\|\\[\\|{\\|<\\|縲圭\|縲蚕\)\\zs")<CR>
nnoremap <silent> ( :<C-u>call search("\\((\\|\\[\\|{\\|<\\|縲圭\|縲蚕\)\\zs", 'b')<CR>

tyru

require 'uri'
require 'mechanize'
require 'rubytter'

module Thincr
  class << self
    AT = ['', '']
    LINGR = ['', '']
    OA = ['tNJwVPsE56fw8Nh4mmc9g', 'Zr95pR8m94l8sBoWAJtdoN1Z31wQrXfaabqzOhO5Wyk']

tyru

#!/bin/sh

#
# fastpack - a simple App::FatPacker helper
#

if [ -z "$1" ]; then
	echo "usage: fastpack script.pl > script.packed.pl"
	exit 0
fi

tyru

# Install Common Vim environment
ln -fs $PWD/vim/vimrc.vim $HOME/.vimrc
ln -fs $PWD/vim/gvimrc.vim $HOME/.gvimrc

# Create Vimfiles Directory
mkdir $HOME/.vim

# Added Local Environment vimfiles Setting
mkdir $HOME/.vim/runtime
touch $HOME/.vim/runtime/vimrc.vim

tyru

set rtp+=~/.vim/bundle/eskk.vim,~/.vim/bundle/savemap.vim,~/.vim/bundle/vice.vim

if has('vim_starting')
    augroup vimrc
        autocmd!
    augroup END

    autocmd vimrc User eskk-initialize-pre call s:eskk_initial_pre()
    function! s:eskk_initial_pre() "{{{
        let t = eskk#table#new('rom_to_hira*', 'rom_to_hira')

tyru

function! s:is_cmdwin()
  let save_ei = &eventignore
  set eventignore=all
  try
    wincmd n
    wincmd q
    return 0
  catch
    return 1
  finally

tyru

import qualified Data.List as L

testList = [5,3,1,1,2,-1,0,33,10]
main = print $ mergeSort testList `isSameAs` L.sort testList


isSameAs = (==)

mergeSort :: (Ord a) => [a] -> [a]