2ch見るのに最適なモバイルツール

>>240
一応、今の自分の.emacsを貼ってみるYO。
無駄なところはあると思うけど、大目に見てYO。

;;画面の大きさ設定。タスクバーを隠すとちょうど。

(setq default-frame-alist
(append
(list
'(width . 89)
'(height . 15))
default-frame-alist))

;;このあたりから日本語環境。のつもり。

(set-language-environment "Japanese")
(set-clipboard-coding-system 'japanese-shift-jis-dos)
(setq default-file-name-coding-system 'japanese-shift-jis-dos)
(set-default-coding-systems 'japanese-shift-jis-dos)
(setq default-buffer-file-coding-system 'japanese-shift-jis-dos)
(setq default-process-coding-system 'japanese-shift-jis-dos)
(create-fontset-from-fontset-spec
"-*-NetTerm ANSI-normal-r-*-*-14-*-*-*-c-*-fontset-null,
japanese-jisx0208:-*-MS Gothic-normal-r-*-*-13-*-*-*-c-*-jisx0208-sjis,
japanese-jisx0212:-*-MS Gothic-normal-r-*-*-13-*-*-*-c-*-jisx0208-sjis,
katakana-jisx0201:-*-MS Gothic-normal-r-*-*-13-*-*-*-c-*-jisx0208-sjis,
latin-jisx0201:-*-NetTerm ANSI-normal-r-*-*-14-*-*-*-c-*-iso8859-1,
japanese-jisx0208-1978:-*-MS Gothic-normal-r-*-*-13-*-*-*-c-*-jisx0208-sjis")
(setq initial-frame-alist
'((font . "fontset-null")
))
(global-font-lock-mode t)

;;ファイル名とか補完のときに大文字小文字同一視の設定、のはず。

(setq completion-ignore-case nil)

;;うざいスタートアップメッセージ氏ね

(setq inhibit-startup-message t)

;;よくわからん。

(put 'erase-buffer 'disabled nil)

;;起動時のデフォルトディレクトリ。環境変数HOMEを参照。

(setq home-dir (getenv "HOME"))
(setq default-directory home-dir)

;;lispディレクトリをいろいろ追加したりしなかったり。

;(setq old-load-path load-path)
(setq site-lisp-dir (concat (getenv "EMACSDIR") "\\site-lisp"))
(setq load-path (append (list home-dir)
load-path))
(setq load-path (append (list (concat home-dir "\\lisp"))
load-path))

;;つづき

;;バッテリ残量表示(コメントアウトしてるけど……)

;;(load "battery")
;;(setq battery-mode-line-format " [%p%%] ")
;;(setq battery-status-function 'battery-wince-proc)
;;(display-battery)

;;時間表示関係

;(setq display-time-24hr-format t)
;(display-time)

;;なんかシステム情報表示らしい

;(load "wince")
;(wce-sys-info)

;タイムスタンプ設定らしい

;(add-hook 'write-file-hooks 'time-stamp)
;(setq time-stamp-format "%:y-%02m-%02d %02H:%02M:%02S %u@%s")
;(setq backup-enable-predicate
; '(lambda (name)
; (save-match-data
; (cond ((string-match "\\.cry$" name)
; nil)
; (t
; t)))))

;(setq file-name-buffer-file-type-alist
; (append '(("\\.cry$" . t))
; file-name-buffer-file-type-alist))

; use modify-coding-system-alist...
;(setq file-coding-system-alist
; (append '(("\\.cry$" no-conversion . no-conversion))
; file-coding-system-alist))

;;さいご

;;サブプロセス関係らしい

;(setq default-process-coding-system nil)
(setq shell-file-name "xsh")
(setq shell-command-switch "-c")
; when not set, find is called, which might give an error
(setq grep-command "grep -n ")

;;SKK関係

(require 'skk-autoloads)
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xj" 'skk-auto-fill-mode)
(global-set-key "\C-xt" 'skk-tutorial)
(add-hook 'isearch-mode-hook
(function (lambda ()
(and (boundp 'skk-mode) skk-mode
(skk-isearch-mode-setup) ))))
(add-hook 'isearch-mode-end-hook
(function (lambda ()
(and (boundp 'skk-mode) skk-mode
(skk-isearch-mode-cleanup) ))))
;;(add-hook 'isearch-mode-hook 'skk-isearch-mode-setup)
;;(add-hook 'isearch-mode-end-hook 'skk-isearch-mode-cleanup)

(setq skk-large-jisyo "/memcard/root/emacs/share/skk/SKK95LE.DIC")

;;navi2ch関係

(require 'navi2ch)
(setq navi2ch-list-bbstable-url"http://2ch.net/bbstable2.html")
(define-key minibuffer-local-completion-map [tab] 'complate-filenamae)