calendar.vimには日記をつける機能があったらしい。

vimスクリプトによる日付の処理の仕方を学ぼうと考えて、 calendar.vimスクリプトのコードを のぞいてみたら、日記をつける機能がついてて驚いた。

今までカレンダーを表示するだけのスクリプトだとばかり、 思っておりました。

　↓（日付をクリック。）

日記の昨日を使うには、「diary」ディレクトリを事前に作成しておく必要がある。

vim勉強会

2008年02月24日（日）
vim勉強会
http://cotocoto.jp/event/18157

大阪かー

最近よく見るようになったvimスクリプトのコメントの書き方

所有するサイトの関係上、相当な数のvimエディタのスクリプトを読んでいますが、
最近、このようなコメントの書き方をよく見かけるようになりました。

:if exists('loaded_undobranch_viewer')
    :finish
:endif
:let loaded_undobranch_viewer = 1

:command! -nargs=0 UndoBranchViewer :call s:UndoBranchViewer()

:function! s:UndoBranchViewer()
    :let g:undolistHandlers = [
        \ {'key': 16, 'agent': s:SNR().'AgentUndoPreview', 'key_name': '<c-p>', 'help': 'Undo preview'},
        \ {'pick_last_item': 0},
        \ ]
    :let s:undolists = tlib#cmd#OutputAsList('undolist')
    :call tlib#input#List('s', 'UndoBranch', s:undolists, g:undolistHandlers)
:endfunction

:function! s:AgentUndoPreview(world, selected)
    :return a:world
:endfunction

:function! s:SNR()
    :return matchstr(expand('<sfile>'), '<SNR>\d\+_\zeSNR$')
:endfunction

finish
==============================================================

スクリプトのコメントとか、
履歴とか記述。

「finish」と書いて、そこでスクリプトの読み込みを停止、
その後ろにコメントを書くらしい。

コメントアウトする手間もかからず、ハイライトも有効と。

流行ってるの？

OSXのlaunchdでCVS pserverを立てる。

とある理由でMac OSXにCVS pserverを用意することになった。 せっかくだからOSXのlaunchd使ってみた。
OSはTiger、cvsサーバーとして使用中だったから"cvs init"とかは既に 実行済みの状況から。
おそらく、Leopardでも大丈夫ではないかな。

---

テキストエディタで下のようなファイルを 「cvspserver.plist」というファイル名で作成する。
UserNameと、CVSレポジトリの位置は、各自の環境に合わせて修正しておいてください。

ダウンロード

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
  <key>Label</key>
  <string>com.apple.cvspserver</string>
  <key>UserName</key>
  <string>username</string>
  <key>Program</key>
  <string>/usr/bin/cvs</string>
  <key>ProgramArguments</key>
  <array>
    <string>cvs</string>
    <string>-f</string>
  	<string>--allow-root=/Volumes/DATA/cvs</string>
    <string>pserver</string>
  </array>
  <key>Sockets</key>
  <dict>
    <key>Listeners</key>
    <dict>
      <key>SockPassive</key>
      <true/>
      <key>SockServiceName</key>
      <string>cvspserver</string>
      <key>SockType</key>
      <string>SOCK_STREAM</string>
    </dict>
  </dict>
  <key>inetdCompatibility</key>
  <dict>
    <key>Wait</key>
    <false/>
  </dict>
</dict>
</plist>

---

作成したファイルcvspserver.plistを"/Library/LaunchDaemons"にコピーする。

cp cvspserver.plist /Library/LaunchDaemons

---

launchctlコマンドで、"/Library/LaunchDaemons"に置いたcvspserver.plistを読み込む。

launchctl load /Library/LaunchDaemons/cvspserver.plist

---

CVSサーバーに、cvsコマンドでアクセスして動作確認してみましょう。

cvs -d :pserver:loginname@serverhost login
cvs -d :pserver:loginname@serverhost checkout module

エクスプローラーっぽい挙動のアプリを簡単に構築できるvimスクリプトtlibの紹介

ウィンドウを分割して、片方のウィンドウに何かのリストを表示、選択されたら何かの処理を行うという、
ファイルエクスプローラーとかでよくあるＵＩを、簡単に構築できてしまうvimスクリプト tlibの使い方を突き止めた。
（vimスクリプト組む人以外には、役に立たない情報ですが）

で、下が最小のサンプル。
:UndoBranchViewerで起動して、<C-p>で選択した行のメッセージを表示する。
動かすには、もちろん、tlibが必要。

tlib#input#List()に表示する文字列のリストと、
どのキーが押されたら、どのファンクションを呼び出すかのマッピングを渡す。
keyがリストの選択に使うキーで、agentがファンクション。

スクリプトの中で使っている tlib#cmd#OutputAsList()は、
コマンドの結果で文字列のリストを作るコマンドです。

" スクリプトが何度も読まれるのを防止するためのおまじない
:if exists('loaded_undobranch_viewer')
    :finish
:endif
:let loaded_undobranch_viewer = 1

" コマンドの定義
" :UndoBranchViewerってすると、s:UndoBranchViewer()が呼び出される。
:command! -nargs=0 UndoBranchViewer :call s:UndoBranchViewer()

:function! s:UndoBranchViewer()
    :let g:undolistHandlers = [
        \ {'key': 16, 'agent': s:SNR().'AgentUndoPreview', 'key_name': '<c-p>', 'help': 'Undo preview'},
        \ {'key': 21, 'agent': s:SNR().'AgentUndoAndClose', 'key_name': '<c-u>', 'help': 'Undo and close'},
        \ {'pick_last_item': 0},
        \ ]
    :let s:undolists = tlib#cmd#OutputAsList('undolist')
    :call tlib#input#List('s', 'UndoBranch', s:undolists, g:undolistHandlers)
:endfunction

" リストから<c-p>で選択されたときに呼び出される。
:function! s:AgentUndoPreview(world, selected)
    :let l:entry = a:selected[0]
    " 選択された文字を表示。
    :echo l:entry
    " 文字を表示できるように、ちょっと待ってもらう。
    :5sleep
    :return a:world
:endfunction

" リストから<c-u>で選択されたときに呼び出される。
" 説明は省略
:function! s:AgentUndoAndClose(world, selected)
    :return a:world
:endfunction

" tlibのリストでどれが選択されたかを特定するための文字を返す
:function! s:SNR()
    :return matchstr(expand('<sfile>'), '<SNR>\d\+_\zeSNR$')
:endfunction