.zshcompctl

最近メモしてなかったような…。 相変わらずcompctl。良く使うオプションだけ出るようにした。

compctl -f -x \
	's[-p]' -k '(0 1 2 3)' -S ' ' - \
	'c[-1,-d]' -g "(|.)*(-/)" - \
	's[-]' -k '(p d R s)' 				-- patch

compctl -g "(|*).(pdf|PDF) *(-/)"			acroread

chflagsflags=({,no}{arch,opaque,nodump,sappnd,schg,uappnd,uchg})
compctl -x \
	's[-]' -k '(R H L P)' - \
	'n[3,,]' -k chflagsflags - \
	'n[2,,]' -k chflagsflags - \
	'n[1,,]' -k chflagsflags - \
	'C[-1,-*]' -k chflagsflags - \
	'p[1]' -k chflagsflags - \
	'C[-1,[^-]*],p[2,-1]' -f - 			-- chflags

compctl -f -x \
	's[vcodec=]' -k '(mpeg4 msmpeg4 mjpeg h263 h263p rv10 mpeg1video)' - \
	'c[-1,-lavcopts]' -k '(vcodec)' -S = - \
	'c[-1,-ovc]' -k '(copy divx4 rawrgb lavc)' - \
	'c[-1,-oac]' -k '(copy pcm mp3lame)' - \
	'c[-1,-o]' -g "(*|).*(:r) *(-/)" - \
	's[-]' -k '(oac ovc lavcopts o delay channels ofps)' - \
	'c[-1,mencoder]' -k '(-)' \
	  -S "ovc lavc -lavcopts vcodec=mpeg4 -oac mp3lame -" \
							-- mencoder
compctl -f -x \
	'c[-1,-delay]' -k '(0.5 1.1 -1.1)' - \
	's[-]' -k '(zoom fs delay)' 			-- mplayer
	
compctl -x \
	's[-]' -k '(next prev)' - \
	'c[-1,xvidtune]' -k '(-next -prev)'		-- xvidtune

compctl -g "/service/*(-/:t)" -x \
	's[-]' -k '(f)' 				-- dtlog

dtlog()

あそうか、dtlogをシェル関数にしたんだ。/service/*/log/main/current を探して、tai64nlocal に食わせてtailする。

#!/bin/sh
_dtlog_ () {
  opt=''
  servicedir=/service
  while true; do
    case "$1" in
	-s) shift
	    servicedir=/"$1" ;;
	-f) tail=1 ;;
	-*) opt="$1" ;;
	 *) break ;;
    esac
    shift
  done
  for d in "$@"; do
      cur="$servicedir/$d/log/main/current"
      if [ -r $cur ]; then
	  files="$files $cur"
      fi
  done
  if [ "$tail" ]; then
      set -- $files
      (cd `dirname $1`; tail -F `basename $1` | tai64nlocal)
  else
      cat $files | tai64nlocal | less
  fi
}
dtlog () {(_dtlog_ "$@")}
dtlog "$@"

作ったときすげー便利と思ったのに存在を忘れて使ってなかった。 最近そういうの多いぞ。老化。

とおもったがそうではなくて、一般ユーザ権限で使えないから使ってないだ けだった。もっと忘れてる…。

yuuji@