estsave.el

こんなコマンドを estsave としてパス通しておいて

#!/bin/sh

echo @uri=file://$@ > /tmp/tmp.est
echo >> /tmp/tmp.est
nkf -w -Lu $@ | perl -pe 's/^\s+//' >> /tmp/tmp.est
estcall put -auth admin admin http://localhost:1978/node/test/tmp/tmp.est

こんな感じの内容を .emacs.el に書く。

(defun est-save ()
  (interactive)
  (let *1

(global-set-key "\C-x\C-s" 'est-save-buffer)

これで保存したら同時に Hyper Estraier の検索対象に。あら便利。

*1:filename (buffer-file-name))) (if filename (call-process "estsave" nil 0 nil filename)))) (defun est-save-buffer () (interactive) (save-buffer) (est-save