;;; -*- mode: lisp-interaction; syntax: elisp -*- ;; coding system ;; Mule-UCS (require 'un-define) ; Unicode (Mule-UCS) ;(require 'jisx0213) ; JIS X 0213 (setq bitmap-alterable-charset 'tibetan-1-column) ;(require 'bitmap) ; bitmap-mule8.4 (set-language-environment 'Japanese) ;read euc-jp,sjis ;(mw32-ime-initialize) ;IME init (setq default-buffer-file-coding-system 'sjis-dos) ;; env (global-font-lock-mode t) ;font-lock use-all (setq font-lock-support-mode 'lazy-lock-mode) (setq font-lock-maximum-decoration '((c-mode . 1) (c++-mode . 1) (html-mode . 1) (java-mode . 1) ) ;;level of fontification; low level (least) ) (setq message-log-max nil) ;*message* buffer NO increase (add-hook 'emacs-lisp-mode-hook (lambda() (setq buffer-file-coding-system 'iso-2022-jp))) ;(add-hook 'html-mode-hook ; (lambda() (setq buffer-file-coding-system 'euc-japan-unix))) ;; 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)) ;; calender ;(setq calendar-load-hook ; '(lambda nil ; (load "japanese-holidays" t) ; (setq calendar-holidays japanese-holidays) ; )) ;(setq number-of-diary-entries) ;(find-file "~/today.txt") ;; nikki.txtを読みこむ ;(end-of-buffer) ;; nikki.txtの buffer終端にcursorを移動する ;; 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 "c:/usr/Meadow/1.10/share/skk/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 で数字を半角表示 ;; font setup (defvar bdf-font-directory "c:/usr/Meadow/1.10/share/font/") (defvar bdf-font-name-prefix "bdffont14-") (setq bdf-font-file-alist '( (ascii "lutBS12nooff.bdf" 0) (latin-iso8859-1 "lutBS12nooff.bdf" 1) (japanese-jisx0208 "k14goth.bdf" 0) (latin-jisx0201 "7x14rk.bdf" 0) (katakana-jisx0201 "7x14rk.bdf" 1) )) (new-fontset "myfontset" (mapcar (lambda (x) (let* ((charset (car x)) (filename (expand-file-name (nth 1 x) bdf-font-directory)) (encoding (nth 2 x)) (fontname (concat bdf-font-name-prefix (symbol-name charset)))) (w32-add-font fontname (cons (cons 'encoding-type encoding) '((default-ascent . 0) (relative-compose . 0) (overhang . 0) (base . 12) (height . 16) (width . 7) ))) (w32-change-font-logfont fontname 0 (list 'bdf-font filename)) ;; (cons charset fontname))) bdf-font-file-alist)) ;;(w32-query-get-logfont) ;;;; bitmap-mule (require 'bitmap) (let ((font "Bitmap-14")) (w32-add-font font '((default-ascent . 0) (relative-compose . 0) (overhang . 0) (base . 12) (height . 16) ;(base . 15) ;(height . 19) ;(height . 24) (width . 7) (encoding-type . 0))) (w32-change-font-logfont font 0 (list 'bdf-font "c:/usr/Meadow/1.10/share/font/etl7x14-bitmap.bdf")) (set-fontset-font "myfontset" 'bitmap font)) ;(set-fontset-font "default-fontset" 'bitmap font)) (setq default-frame-alist (append (list '(font . "myfontset")) default-frame-alist)) ;;; lookup (setq load-path (cons "c:/usr/Meadow/site-lisp/lookup" load-path)) (autoload 'lookup "lookup" nil t) ;(require 'lookup) (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 (global-set-key "\C-c\C-f" 'lookup-pattern) ; C-c C-f - lookup-pattern (setq lookup-search-agents '( (ndeb "c:/usr/dict/chujiten/") (ndeb "c:/usr/dict/daijirin/") (ndeb "c:/usr/dict/mypaedia/") (ndeb "c:/usr/dict/WORDNET/") ; (ndeb "c:/usr/dict/WEB/") ; (ndeb "c:/usr/dict/ROGET/") ; (ndeb "c:/usr/dict/jargon/") ; (ndeb "c:/usr/dict/VERA/") )) (setq lookup-default-dictionary-options '((:stemmer . stem-english))) (setq process-coding-system-alist '(("eblook\\.exe\\'" . euc-jp))) (setq lookup-use-bitmap t) ;(setq lookup-default-method 'prefix) ;前方一致検索; not `exact' ;; japanese word specific dabbrev ;Message-Id: <20000807.102524.60851386.gotoh@taiyo.co.jp> ;To: meadow-users-jp@meadow.scphys.kyoto-u.ac.jp ;Date: Mon, 07 Aug 2000 10:25:24 +0900 (JST) (defadvice dabbrev-expand (around jword (arg) activate) (interactive "*P") (let* ((regexp dabbrev-abbrev-char-regexp) (dabbrev-abbrev-char-regexp regexp) char ch) (if (bobp) () (setq char (char-before) ch (char-to-string char)) (cond ((string-match "[ァ-ンー]" ch) (setq dabbrev-abbrev-char-regexp "[ァ-ンー]")) ((string-match "[ぁ-んー]" ch) (setq dabbrev-abbrev-char-regexp "[ぁ-んー]")) ((string-match "[A-Z-a-z0-9]" ch) (setq dabbrev-abbrev-char-regexp "[A-Za-z0-9]")) ((eq (char-charset char) 'japanese-jisx0208) (setq dabbrev-abbrev-char-regexp (concat "[" (char-to-string (make-char 'japanese-jisx0208 48 33)) "-" (char-to-string (make-char 'japanese-jisx0208 126 126)) "]"))))) ad-do-it)) ;read all `.pl' files using the coding system ;(modify-coding-system-alist 'file "\\.pl\\'" 'euc-japan-unix) ;; screen (setq default-frame-alist (append (list ; '(foreground-color . "black") ; '(background-color . "snow") '(foreground-color . "black") ;'(background-color . "black") '(background-color . "#bfbfbf") ;'(background-color . "#eee5de") ;;seashell2 '(width . 80) ;'(width . 120) '(height . 35) '(top . 0) '(left . 2) '(vertical-scroll-bars . nil) ;'(font . "myfontset") ) default-frame-alist)) (set-face-background 'modeline "gray30") ; (set-face-foreground 'modeline "black") ;(set-face-foreground 'modeline "#eee5de") ;; Mew (setq load-path ; Meadow (cons (expand-file-name (concat exec-directory "../../site-lisp/mew")) load-path)) (setq mew-mail-address "itouh@xxxx.or.jp") (setq mew-mail-domain-list '("xxxx.or.jp")) (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-from "Itou Hiroki ") ;; 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") ;(setq time-stamp-start "Time-stamp:[ ]+\\\\?[\"<]+") ;(setq time-stamp-end "\\\\?[\">]") ;;; customize-face Oct 24 2001 (custom-set-variables) (custom-set-faces '(font-lock-comment-face ((((class color) (background light)) (:foreground "#2e2e91")))) '(font-lock-string-face ((((class color) (background light)) (:foreground "#005100")))) '(font-lock-keyword-face ((((class color) (background light)) (:foreground "#912e8e")))) '(font-lock-variable-name-face ((((class color) (background light)) (:foreground "#513d00")))) '(font-lock-builtin-face ((((class color) (background light)) (:foreground "#915e2e"))))) ;(lookup) (skk-mode) (find-file "~/nikki.txt") (end-of-buffer) ;;buffer終端にcursorを移動する ;(diary 2) ;; ~/diary ファイルの今日と明日のぶんを表示 (buffer-menu) ;; end of file