(準備中) Last Update: "2005/07/04 21:41:24 makoto"

;;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-
;; Last Update: "2004/07/26 09:04:06 makoto" ;;; p356

;;; 日本語環境設定
(set-language-environment "Japanese")

;;; font-lockの設定
(global-font-lock-mode t)
;; ;;; shell の設定

;; ;;; browse-url の設定
;; (global-set-key [-mouse-2] 'browse-url-at-mouse)

;;;(setenv "HOME" "/home/makoto")
;;(require 'tc-setup)
;;(set-default-input-method 'japanese-T-code)

; ------------------------
(define-key function-key-map [backspace] [8])
(put 'backspace 'ascii-character 8)
(setq keyboard-translate-table
"\^@\^A\^B\^C\^D\^E\^F\^G\^?\^I\^J\^K\^L\^M\^N\^O\^P\^Q\^R\^S\^T\^U\^V\
\^W\^X\^Y\^Z\^[\^\\\^]\^^\^_ !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK\
LMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\^H")
; "------------------------
(setq debug-on-error t)

;; p162 auto-mode-alist
;  (add-to-list 'auto-mode-alist   '("\\.hnf$" . hnf-mode))
;  (add-to-list 'auto-mode-alist   '("\\.sc$" . systemc-mode))

;; p181 outline mode
(mouse-wheel-mode)
(global-font-lock-mode t)

;; p184 outline-minor-mode
(add-hook 'TeX-mode-hook
    (function (lambda()
        (outline-minor-mode t)))) ;; (1)

(setq auto-mode-alist
      (append '(("\\.tex\\'" . japanese-latex-mode)
      auto-mode-alist))) ;; (2)

(add-to-list 'auto-mode-alist
      '("\\.tex\\'" . japanese-latex-mode)) ;; (3)
      

;; p185 outline-regexp
;;  -*- Emacs-Lisp -*-
(global-font-lock-mode t)
(add-hook 'find-file-hooks
  (function
    (lambda ()
	 ; ------------- Eval region するときは, ここから
	 (make-local-variable 'outline-regexp)
	 (setq  outline-regexp
	   "[ \t]*\\(・\\|■..\\|★....\\|◆.....\\|●......\\|○.......\\)" )
	 (outline-minor-mode 1)
	  ; ------------- ここまで:
	   )))

;;  p193 # の入力
(setq c-electric-pound-behavior '(alignleft)) ; 初期値
(setq c-electric-pound-behavior nil)          ; 停止

;;  p197
(setq c-macro-preprocessor "/usr/bin/cpp")
(setq c-macro-preprocessor "/usr/bin/cpp -I /usr/X11R6/bin/include")

;;  p200 シェルモードでのパスワード入力を表示しない
(add-hook 'comint-output-filter-functions  ; 2004-07-27 訂正
	  'comint-watch-for-password-prompt)

;;  p202 シェルモードでの入力待を変更している時

(setq shell-command-regexp "[^;&|>]+")

;;  p215 Wanderlust 起動
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

;;  p279 w3m 起動
(require 'mime-w3m)
(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
(setq w3m-home-page "http://emacs-w3m.namazu.org/")

;;  p282 AucTeX
(autoload 'japanese-latex-mode "tex-site" "tex-site" t)
(setq TeX-default-mode 'japanese-latex-mode)
(setq auto-mode-alist 
      (append '(("\\.tex\\'" . japanese-latex-mode))
                 auto-mode-alist))
(add-hook 'TeX-mode-hook 
	  (function
	  (lambda ()
	    (outline-minor-mode t))))

;; (setq japanese-TeX-command-default "pTeX")
;; (setq japanese-LaTeX-command-default "pLaTeX")
;; (setq TeX-view-style '(("^a5$" "vfxdvi %d -paper a5")))
;; (setq ps-multibyte-buffer 'non-latin-printer)

;;  p287 hnf-mode

(autoload 'hnf "hnf-mode" nil t)
(autoload 'hnf-mode "hnf-mode" nil t)

;;  p287
(auto-insert-mode 1);
;;         譜名によって使う型紙を指定
;;; (add-to-list 'auto-insert-alist '("\\.hnf$" . "template.hnf"))
;;; (add-to-list 'auto-insert-alist '("\\.cpp$" . "template.systemc"))
;;; (add-to-list 'auto-insert-alist '("\\.cc$"  . "template.systemc"))
;;; (add-to-list 'auto-insert-alist '("\\.h$"   . "template.systemc"))

;;         型紙を置くディレクトリ
(setq auto-insert-directory "~/emacs/insert/");
;;         うるさく質問しない
(setq auto-insert-query nil)

;;; (autoload 'systemc-mode "systemc-mode" nil t)

(global-set-key "\C-xm" 'wl)
(global-set-key "\M-h" 'hnf)
(global-set-key "\M-s" 'cvs-status)
;;           
(global-set-key [end]  'end-of-buffer )
(global-set-key [home] 'beginning-of-buffer )
;;
;; (modify-coding-system-alist 'process "tcsh" '(sjis . sjis))

;;  p296 pcl-cvs
(modify-coding-system-alist 'process "cvs"   
                '(undecided . iso-2022-jp))
(modify-coding-system-alist 'process "eidff" 
                '(undecided . iso-2022-jp)) ;; 差分を日本語で表示

;; p355 time stamp
;;         write-file した時に時刻情報を書込む
(require 'time-stamp)
(add-hook 'write-file-hooks 'time-stamp)
(setq time-stamp-active t)
;; Use non-string time-stamp-format? が出てうるさい時
(setq time-stamp-old-format-warn nil);

; p356 time stamp format
;;         時刻情報を書込む行の書式
(setq time-stamp-start "Last Update:[ ]+\\\\?[\"<]+")

(add-hook 'find-file-hooks
	  (function   (lambda  ()
			(if (string-match "/systemc/UM/" buffer-file-name)
;			    (progn
			      ;(setq time-stamp-format
			      ;    '(time-stamp-yyyy-mm-dd 
			      ;      time-stamp-hh:mm:ss 
			      ;      user-login-name "\n// " buffer-file-name))
			      (systemc-mode) ))))
;; p357
;;         時刻情報そのものの書式
(setq time-stamp-format
      '(time-stamp-yyyy-mm-dd 
        time-stamp-hh:mm:ss 
        user-login-name ))

;; p358
;; 空白行を表示
(setq-default indicate-empty-lines t)
;; 行末の空白文字を表示
(setq-default show-trailing-whitespace t)

;; p359
;; 改行と TAB を表示する
;; http://homepage3.nifty.com/satomii/software/jaspace.el

(add-to-list 'load-path "~/elisp-dir");
(require 'jaspace)
(setq jaspace-alternate-jaspace-string "□") ;; jis-code 2222
(if window-system
    (setq jaspace-alternate-eol-string "↓\n"))
(setq jaspace-highlight-tabs t)

;; 
(setq require-final-newline 'query)

(setq visible-bell t)