2011/08/24


  • Vimが無いと俺はコーディングも出来ないのかよ
  • タイピングだけは一流のところをみせてやるぜ
  • ネオコンプリートフラシュだぜ　信じらんねぇ
  • 補完候補は見える、でもこれじゃだめなんだろ？
  • Vimの補完実装は晴れ時々大荒れ　いいね、いいUNIX臭さだよ
  • vimrcを…vimrcを書き換えるんだ…！
  • typoしてる・・・分かってる！ うぅぅわあああああ！！
  • ifとendifのネストがあってない！！うぅうわあああああああ！！！
  • あああpatchラッシュがああああ！！うっっごけええええ！！
  • ああー！ひどいっ！
  • 直れ！直らんかああ！
Posted at by



2011/07/29


普段twitterするときはtwitvimというvimscriptを使ってvimからやってるのだけど、たいがいこういうのって自分の思う機能が実装されていなかったり、違う実装になっていたりする。
TwitVim - Twitter client for Vim : vim online

TwitVim is a Vim plugin that allows you to post to Twitter and view Twitter timelines.

http://www.vim.org/scripts/script.php?script_id=2204
twitvim - Twitter Client for Vim - Google Project Hosting

A Twitter client written in Vim script. See http://vim.sourceforge.net/scripts/script.php?script_id=...

http://code.google.com/p/twitvim/
twitvimも例外なく僕の欲しい機能がなかったりする。例えば
  • <leader>vなんかでそのツィートのpermalinkを開いてほしい
  • 入力中に今何文字入力しているか確認したい
  • 公式RTじゃなくて軟式RT(非公式RT)が使いたい
てな感じ。でもコードを弄ると最新バージョン出た時にマージが大変。
こういうときは外側からそのスクリプトを弄る。

でもtwitvimの関数の殆どは"s:"で始まるスクリプトスコープ。外側からは触れません。ただしhack無しの場合。
スクリプトスコープの関数は、実はSNRという装飾が付いた関数名になっていて、例えば function s:launch_browser(url)
 と宣言された関数を外部から呼び出すには <SNR>39_launch_browser
 と装飾キーとスクリプト番号を付与してあげれば呼び出しが可能。このスクリプト番号とはスクリプトファイル１つに対して１つ割り当てられた数値。
:scriptnames
 で確認出来ます。またファイル名でひっかけなくてもcommandコマンドの結果から抜き取る事も出来ます。 silent! redir => commands
silent! command PosttoTwitter
silent! redir END
let g:twitvim_sid = substitute(split(commands, "\n")[-1], '^.*<SNR>\(\d\+\)_.*$', '\1', '')
 あとはこのSIDを使って、mapしたり関数を呼び出したりすればok。
例えば↑のpermalinkを開く改造であれば function! TwitVimShowInBrowser()
  silent! redir => json
  silent! TwitVimShowCurbuffer
  silent! redir END
  let curbuffer = eval(substitute(json, "\n", '', 'g'))
  let id = get(curbuffer.statuses, line('.'))
  if id != 0
    let user = substitute(curbuffer.buffer[line('.')-1], ':.*', '', '')
    let url = "http://twitter.com/".user."/statuses/".id
    call function('<SNR>'.g:twitvim_sid.'_launch_browser')(url)
  endif
endfunction
 この様に書ける訳です。スクリプトスコープで無いと参照する事が出来ない関数を呼び出しています。 こうかけば非公開関数であるはずのlaunch_browser()を呼び出す事が出来ます。
同じ要領で、文字数をカウントしてみましょう。twitvimはコマンドラインからツィートを投げたりするのですが、コマンドラインは入力のフックがとても難しいのです。 function! TwitVimShowMessageLength()
  let line = getcmdline()
  if expand('<sfile>') !~ 'CmdLine_Twitter'
    return line
  endif
  echo ""
  redraw
  echohl WarningMsg
  echo function('<SNR>'.g:twitvim_sid.'_mbstrlen')(line) . " character(s)"
  echohl None
  redraw
  silent sleep 1
  return line
endfunction
cnoremap <c-g> <c-\>eTwitVimShowMessageLength()<cr>
 getcmdline()関数で現在のカーソル位置情報を退避しておき、現在の文字数を非公開関数mbstrlen()から得て表示。1秒経ったら元に戻すという物。これで :PosttoTwitter
 とした後、タイプ中に「今何文字目だろう？確認するには投げてみるしかないし、長すぎたら消えて履歴から戻せないんだよな。」って時でもCTRL-gをタイプすれば文字数が分かる様になります。

さて、最後の軟式RTについてですが実はtwitvimには手動RTのインタフェースが既に定義されている。でもキーマッピングされていない為にどこからも呼び出す事が出来ない。おそらく公式RTポスト処理を実装した時に軟式RTポスト処理をそのままにしたのだろう。 exe "nnoremap <buffer> <leader>q :call <SNR>".g:twitvim_sid."_Retweet()<cr>"
 こうすれば呼び出せる。
全体のコードだと以下の様になる。
function! s:TwitVimSetup()
  if has('win32')
    let g:twitvim_browser_cmd = 'rundll32 url.dll,FileProtocolHandler'
  else
    let g:twitvim_browser_cmd = 'w3m'
  endif

  silent! redir => commands
  silent! command PosttoTwitter
  silent! redir END
  let g:twitvim_sid = substitute(split(commands, "\n")[-1], '^.*<SNR>\(\d\+\)_.*$', '\1', '')

  function! TwitVimShowIcon()
    silent! redir => json
    silent! TwitVimShowCurbuffer
    silent! redir END
    let curbuffer = eval(substitute(json, "\n", '', 'g'))
    let id = get(curbuffer.statuses, line('.'))
    if id != 0
      let user = substitute(curbuffer.buffer[line('.')-1], ':.*', '', '')
      exec "OpenBrowser http://api.dan.co.jp/twicon/".user."/bigger"
    endif
  endfunction

  function! TwitVimShowInBrowser()
    silent! redir => json
    silent! TwitVimShowCurbuffer
    silent! redir END
    let curbuffer = eval(substitute(json, "\n", '', 'g'))
    let id = get(curbuffer.statuses, line('.'))
    if id != 0
      let user = substitute(curbuffer.buffer[line('.')-1], ':.*', '', '')
      let url = "http://twitter.com/".user."/statuses/".id
      call function('<SNR>'.g:twitvim_sid.'_launch_browser')(url)
    endif
  endfunction

  function! TwitVimShowMessageLength()
    let line = getcmdline()
    if expand('<sfile>') !~ 'CmdLine_Twitter'
      return line
    endif
    echo ""
    redraw
    echohl WarningMsg
    echo function('<SNR>'.g:twitvim_sid.'_mbstrlen')(line) . " character(s)"
    echohl None
    redraw
    silent sleep 1
    return line
  endfunction
  cnoremap <c-g> <c-\>eTwitVimShowMessageLength()<cr>

  function! TwitVimUserMap()
    nnoremap <buffer> <leader>t :FriendsTwitter<cr>
    nnoremap <buffer> <leader>T :RepliesTwitter<cr>
    exe "nnoremap <buffer> <leader>q :call <SNR>".g:twitvim_sid."_Retweet()<cr>"
    nnoremap <buffer> <leader>i :call TwitVimShowIcon()<cr>
    nnoremap <buffer> <leader>V :call TwitVimShowInBrowser()<cr>
    if has('win32') && !has('gui_running')
      exe "noremap <char-206><char-199> ".maparg("<c-pageup>")
      exe "noremap <char-206><char-210> ".maparg("<c-pagedown>")
    endif
  endfunction

  autocmd FileType twitvim call TwitVimUserMap()

  silent! delcommand UseVimball
endfunction
autocmd VimEnter * call s:TwitVimSetup()
 vimrcに足して使ってます。
ちなみにUseVimballコマンドを消しているのはUserTwitterと被って補完を間違う事が多い為。

この方法さえ分かれば、貴方もVim Hackerですね！どんどん他人のスクリプトを改造してしまいましょう！
Posted at by



2011/07/27


Emacsはインライン画像も表示出来て、ブラウザにもなって、vimでは到底真似出来ない芸当が出来るの事は、vimmerであれば皆知ってる事だとは思うんだけど...
昨日こんな動画があることを教えて貰った。
GVimでとある科学の超電磁砲OP「only my railgun」‐ニコニコ動画(9)

たくさんプログラミングしてった。ちょっと疲れた。ちなみに、これはリアルタイムのレンダリングではない。私自分のパソコンには2fpsぐらいです。64色でお楽しみ。感想はこちら（中国語だが）：http://www.fancymouse.net/blog/2009/12/20/gvim_railgun_op/

http://www.nicovideo.jp/watch/sm9143016
「えっ？どうやってるの？」って思われた方もいるかもしれない。
実はコラでもなんでもない。Vimで出来る(正しくはGVim)。Vimは画像を表示する事は出来ないが、シンタックスハイライトにかけては他のエディタと比べ物にならないくらい優秀だ。XPM画像ファイル(X Pixmap)はASCIIだけで書かれたC言語のヘッダファイルなのだが、先頭に色定義、後続にその定義を使ったデータ部となっている為、VimではXPM画像ファイルを開くとさも画像ファイルであるかの様に見える。もちろんフォントの大きさが1ドットになるので若干縦長にはなる。
gvim-xpm
この仕組みを使えば、Vimで動画が再生出来る。もちろん↑の動画作者も言ってる通り、リアルタイムじゃないのであしからず。なおこの手順は↑の動画を見てmattnが勝手に推測した方法なので若干手法が違うかもしれない。

まず、動画を再生しそれを連番画像ファイルとして出力する。ここではmplayerを使うと楽。
# mplayer /home/mattn/動画/仮面ライダーディケイド変身.avi -vo jpeg
 放っておくとどこまでもjpeg画像を出力しまくるので適度に止める。
次にこのjpegファイル群をxpm画像ファイルへ変換する。こんな場合はシェルスクリプトにお任せ。
mkdir out
/bin/ls *.jpg |\
while read -r line; do
    FNAME=`basename $line .jpg`
    convert $line -resize 150x100 out/$FNAME.xpm ;
done
 convertはImageMagickに付属されている。
さて、outディレクトリにxpmファイル群が出力されたので、一枚適当に開いて最下行までを表示した時に全てのドットが収まる様に、フォントとウィンドウ幅を調整する。フォントが小さすぎてウィンドウ幅が分からないのであれば、「:new」して無名バッファを作り、挿入モードで「<c-r>=&columns . " " . &lines . " " . &guifont」と入力してどこかに保存してしまえばいい。
表示しきったらこれをGVimの枠付きでキャプチャを取る訳だが、数十枚ある画像を手作業ではやってられない。ここも自動化する。
以下のvimスクリプトを書いた。
set guifont=Symbol\ 1
set columns=300
set lines=90
unlet! images
let images = split(globpath(".", "*.xpm"), "\n")
for image in images
  exe "e ".image
  normal! G
  redraw
  silent! exec "!scrot -u"
  bw!
endfor
 なるべく正方形に近いフォントを選んだつもり。scrotはスクリーンキャプチャで、何時も愛用している物。デスクトップ全体とかエコじゃない事はしたくないので「-u」オプションを付けて、フォーカスのあるウィンドウだけキャプチャを取った。
これを実行すれば、現在のフォルダからxpmファイル群を一つずつ開き、最下行に移動し、画面更新後にキャプチャを取得、バッファを終了、という動きになる。ちなみに今回の例だと、1画像を表示仕切るのに4秒程度かかったので、合計すると数十分掛かった。

さて、これでscrotが生成したキャプチャが出来上がるので、合成する。こんな場合はmencoderが役に立つ。
mencoder mf://*scrot.png -mf w=320:h=335:fps=5:type=png -ovc copy -o output.avi
 一瞬にしてoutput.aviが生成された。
fpsは適度に調整が必要。

それでは出来上がった物を...

続きを読む...

Posted at by