~fumi/ChangeLog

Tコード入力環境tc2
からsourceを取ってきて、

./configure --prefix=$HOME --with-lispdir=~/elisp/tc
make
make install
tc-inst ~/tcode

して、.emacsに

(setq tcode-use-isearch nil)
(require 'tc-setup)

を書く。C-u C-\ で、japanese-skk と japanese-T-Code を切り替えて使える。

- eelll
  T-Codeの練習用モード。

YaTeXでキーバインドがぶつかるので、\C-c\C-eに変更。

http://navi2ch.sourceforge.net/

2chのread.cgiの改造に伴い、読めない板が出てきたので、update。

% cvs -d:pserver:[email protected]:/cvsroot/navi2ch login

パスワードを聞かれるので何も入力せずに enter を押す。

% cvs -z3 -d:pserver:[email protected]:/cvsroot/navi2ch co navi2ch

これでCVSから取ってこれる。
あとはいつも通りmakeしてinstall。

で、.emacsに

(setq navi2ch-enable-readcgi t)
(setq navi2ch-board-enable-readcgi t)
(setq navi2ch-board-use-subback-html nil)

を追加。

;;; browse-kill-ring に関する設定
(autoload 'browse-kill-ring "browse-kill-ring" "interactively insert items from kill-ring" t)
(global-set-key "\C-x\C-y" 'browse-kill-ring)
(make-face 'separator)
(set-face-foreground 'separator "slate gray")
(set-face-bold-p 'separator t)
(setq browse-kill-ring-separator "--------------------------------"
      browse-kill-ring-separator-face 'separator
      browse-kill-ring-quit-action 'save-and-restore
      browse-kill-ring-highlight-current-entry t)

http://paddington.ic.uva.nl/public/cygwin-mount.el

(require 'cygwin-mount)
(cygwin-mount-activate)

Cygwinのディレクトリ構成(/usr/local /mnt/等)を理解させる。

mkdir /dict
ebzip -l 3 -s movie -o /dict /mnt/cdrom

として、辞書をHDDに取り込む。

.emacsに

;;; lookup
(autoload 'lookup "lookup" nil t)
(autoload 'lookup-region "lookup" nil t)
(autoload 'lookup-pattern "lookup" nil t)
(define-key global-map "\C-ce" 'lookup-pattern)
(setq lookup-use-kakasi t)
(setq lookup-use-bitmap t)

と追加。.lookup

(setq lookup-search-agents
      '((ndeb "/dict/")))

とする。

;;; irchat
(setq irchat-server "irc.kyoto.wide.ad.jp")
(autoload 'irchat "irchat" "Internet Relay Chat." t)

を、.emacsに追加。
C-c j で、channelに入る。

http://www.yatex.org/epo/

 EPOはあらゆるプログラミング言語/マークアップ言語での編集作業を統一的に支援します。いわば「どこでも野鳥」な環境をめざします。

随時補完 C-c SPC

.emacsに、以下の設定をする。

;; hnf-mode
   (autoload 'hnf "hnf-mode" nil t)
   (autoload 'hnf-mode "hnf-mode" nil t)
   (setq auto-mode-alist (cons '("\\.hnf$" . hnf-mode) auto-mode-alist))
   (setq hnf-cat '(("linux") ("book")))
   (add-hook 'hnf-mode-load-hook
	     (function
	      (lambda ()
		(define-key hnf-mode-map "\C-m" 'hnf-newline))))