;; -*- 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) ;; erase memubar, scrollbar (menu-bar-mode -1) ;画面上に出るメニューを消す (scroll-bar-mode -1) ;画面横に出るスクロールバーを消す (setq cursor-in-non-selected-windows nil) ;非active windowにはカーソルを表示しない ;; cursor ;; カーソルの形状 ;(setq-default cursor-type 'bar) ;; 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 20) (setq time-stamp-format "%3b %02d %:y") (setq system-time-locale "C") ;; color (global-font-lock-mode t) ;font-lock use-all (setq font-lock-maximum-decoration '((c-mode . 1) (c++-mode . 1))) ;;色付けを最低限にする (個人的には ;;コメントだけ色がつけばいいのだが) ;(set-face-background 'modeline "gray30") ;画面下のステータスバーの文字背景 ;(set-face-foreground 'modeline "black") ;画面下のステータスバーの文字色 ;; cc-mode (defun my-c-mode-common-hook () ; tab幅4, 「{」が C の関数でも常に行末に位置する (c-set-style "java") ) (add-hook 'c-mode-common-hook 'my-c-mode-common-hook) ;; .c, .h のファイルで「//」スタイルのコメントが使用できる (setq auto-mode-alist (append (list '("\\.c\\'" . c++-mode) '("\\.cpp\\'" . c++-mode) '("\\.h\\'" . c++-mode) '("\\.pl\\'" . perl-mode)) '("\\.cgi\\'" . perl-mode)) auto-mode-alist)) ;; backup.file~ location (setq backup-by-copying t) (setq make-backup-files t) (setq backup-directory-alist (list (quote ("." . "~/tmp/")) auto-mode-alist)) ;; ddskk 11.6 (require 'skk-setup) (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 ";") ("?" nil "？") ("!" nil "！") )) (setq skk-date-ad t) ;skk-today, skk-clock で西暦表示する (setq skk-number-style 0) ;skk-today, skk-clock で数字を半角表示 ;(skk-mode) ;;; mew 2.2 ;;; ;(setq load-path (cons "/usr/share/emacs/site-lisp/mew" load-path)) (autoload 'mew "mew" nil t) (autoload 'mew-send "mew" nil t) (setq mew-name "Itou Hiroki") ;; (user-full-name) (setq mew-user "itouh") ;; (user-login-name) (setq mew-mail-domain "xxx.ne.jp") (setq mew-pop-user "itouh") ;; (user-login-name) (setq mew-pop-server "xxx.ne.jp") ;; if not localhost (setq mew-smtp-server "xxx.ne.jp") ;; if not localhost ;;(setq mew-icon-directory "icon directory") ;; if using XEmacs (setq mew-pop-delete t) ;; メール取得するとサーバ上のメールを消す (setq mew-pop-auth 'pass) ;; APOP ではなく POP を使う (setq mew-pop-size 0) ;; over 54KB mailも取得可能に (setq mew-auto-get t) (setq mew-scan-form '(type (5 date) " " (5 time) " " (12 from) " " t (0 subj))) (setq mew-dcc "itouh@xxx.ne.jp") ; BCC: to me (setq mew-use-full-window t) ; Emacs のフレーム全体で Mew を使いたい (add-hook 'mew-init-hook (lambda () (mew-passwd-set-passwd "itouh@xxx.ne.jp:pop3" "password"))) (setq mew-use-cached-passwd t) (setq mew-passwd-timer-unit 500000) (setq mew-passwd-lifetime 144) ;(setq mew-passwd-alist ; '(("itouh@xxx.ne.jp:pop3" "password" 0) ; )) ;;; w3m (autoload 'w3m "w3m" "Interface for w3m on Emacs." t) ;;; migemo ;(load "migemo.el") ;;; pobox-el 1.15.1 (setq load-path (cons (expand-file-name "~/local/pobox-el") load-path)) (setq load-path (cons (expand-file-name "~/local/pobox-el/suikyo") load-path)) (setq load-path (cons (expand-file-name "~/local/pobox-el/mell") load-path)) (setq load-path (cons (expand-file-name "~/local/pobox-el/kakasi") load-path)) (load (expand-file-name "~/local/pobox-el/pobox-conf.el")) (buffer-menu) ;; end of file