;; -*- mode: lisp-interaction; syntax: elisp -*- ;; Time-stamp: ;; japanese language (set-language-environment "Japanese") (set-default-coding-systems 'euc-jp) (set-buffer-file-coding-system 'euc-jp-unix) (set-terminal-coding-system 'euc-jp) (set-keyboard-coding-system 'euc-jp) ;;; emacsclient start (server-start) ;; erase memubar, scrollbar (menu-bar-mode -1) (scroll-bar-mode -1) ;; auto-insert LAST-MODIFIED-DATE (if (not (memq 'time-stamp write-file-hooks)) (setq write-file-hooks (cons 'time-stamp write-file-hooks))) (setq time-stamp-line-limit 15) (setq time-stamp-format "%3b %02d %:y") ;; color (global-font-lock-mode t) ;font-lock use-all (setq font-lock-maximum-decoration '((c-mode . 1) (c++-mode . 1))) ;;level of fontification; least level (set-face-background 'modeline "gray30") (set-face-foreground 'modeline "black") ;; cc-mode (defun my-c-mode-common-hook () (c-set-style "java") ) (add-hook 'c-mode-common-hook 'my-c-mode-common-hook) (setq auto-mode-alist (append (list '("\\.c\\'" . c++-mode) '("\\.cpp\\'" . c++-mode) '("\\.h\\'" . c++-mode) '("\\.pl\\'" . perl-mode)) auto-mode-alist)) ;; put *.el in $HOME (setq load-path (append '("~/lib/emacs/lookup") load-path)) ;;;; bitmap-mule (require 'bitmap) ;;;; lookup ;;;; (autoload 'lookup "lookup" nil t) (autoload 'lookup-region "lookup" nil t) (autoload 'lookup-pattern "lookup" nil t) (define-key ctl-x-map "l" 'lookup) ; C-x l - lookup (define-key ctl-x-map "y" 'lookup-region) ; C-x y - lookup-region (define-key ctl-x-map "\C-y" 'lookup-pattern) ; C-x C-y - lookup-pattern (setq lookup-search-agents '( ; (ndkks) (ndeb "/usr/dict/dos/usr/dict/chujiten") (ndeb "/usr/dict/dos/usr/dict/daijirin") ; (ndeb "/usr/dict/dos/usr/dict/chujiten" :appendix "/home/i/lib/appendix/chujiten6-2.3") ; (ndeb "/usr/dict/dos/usr/dict/daijirin" :appendix "/home/i/lib/appendix/daijirin-2.0") )) (setq lookup-default-dictionary-options '((:stemmer . stem-english))) ;(setq lookup-use-kakasi t) (setq lookup-default-method 'exact) (setq lookup-use-bitmap t) ;;;; skk ;;;; (setq j-delete-backward-char "\C-h" ) (autoload 'skk-mode "skk" nil t) (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) ;; skk-incrementSearch when skk-mode only (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)) (and (boundp 'skk-mode-invoked) skk-mode-invoked (skk-set-cursor-properly) )))) (setq skk-large-jisyo "/home/i/lib/SKK-JISYO.M") (setq skk-henkan-okuri-strictly t) ;;\"▽おお*く\" 変換で\"大く\" を出力しない (setq skk-auto-okuri-process t) ;;\"▽あつかう\"で 送り仮名つけた"扱う"を出力 (setq skk-rom-kana-rule-list '( ("hh" "h" ("ッ" . "っ")) ;;"ohhohho"->"おおほおほ"ではなく"おっほっほ" ("mm" "m" ("ン" . "ん")) ("di" nil ("ディ" . "でぃ")) (":" nil ":") ;;全角文字の":"にしない (";" nil ";") ;; (skk-rom-kana-base-rule-list の上書き) ("?" nil "?") ("!" nil "!") )) (setq skk-date-ad t) ;skk-today, skk-clock で西暦表示する (setq skk-number-style 0) ;skk-today, skk-clock で数字を半角表示 ;;;; mew ;;;; (setq mew-mail-address "itouh@xxxx.or.jp") (setq mew-mail-domain-list '("xxxx.or.jp")) (setq mew-from "Itou Hiroki ") (autoload 'mew "mew" nil t) (autoload 'mew-send "mew" nil t) (autoload 'mew-user-agent-compose "mew" nil t) (if (boundp 'mail-user-agent) (setq mail-user-agent 'mew-user-agent)) (if (fboundp 'define-mail-user-agent) (define-mail-user-agent 'mew-user-agent 'mew-user-agent-compose 'mew-draft-send-letter 'mew-draft-kill 'mew-send-hook)) (setq mew-fcc "+Backup") (setq mew-auto-get t) (setq mew-decode-quoted t) ;; 返信時の引用フォーマットの指定 (setq mew-cite-prefix-function 'mew-cite-prefix-username) (skk-mode) (buffer-menu) ;; end of file