;;~/.emacs ;;(c)sakito hizakra 2000.10.14 ;;http://www.linkclub.or.jp/~sakito/ ;;mailto:sakito@macknowledge.club.ne.jp ;;ライセンスはGPLに従います。かってに使ってください ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; 日本語の設定 ;; ;; 文字コード (set-language-environment 'Japanese) (set-default-coding-systems 'sjis) (set-keyboard-coding-system 'sjis) (set-terminal-coding-system 'sjis) (setq file-name-coding-system 'sjis) (set-clipboard-coding-system 'sjis-mac) (setq file-name-coding-system 'sjis) (setq network-coding-system-alist '(("nntp" . (junet-unix . junet-unix)) (110 . (no-conversion . no-conversion)) (25 . (no-conversion . no-conversion)))) ;; フォントの設定 (if (fboundp 'new-fontset) (create-fontset-from-fontset-spec "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-mac, ascii:-*-monaco-*-*-*-*-12-*-*-*-*-*-*, thai-tis620:-ETL-Fixed-*-*-*-*-12-*-*-*-*-*-tis620.2529-1, lao:-Misc-Fixed-*-*-*-*-12-*-*-*-*-*-MuleLao-1, vietnamese-viscii-lower:-ETL-Fixed-*-*-*-*-10-*-*-*-*-*-viscii1.1-1, vietnamese-viscii-upper:-ETL-Fixed-*-*-*-*-10-*-*-*-*-*-viscii1.1-1, chinese-big5-1:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5, chinese-big5-2:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5, chinese-gb2312:-*-Beijing-*-*-*-*-16-*-*-*-*-*-gb2312, japanese-jisx0208:-*-\x8d\xd7\x96\xbe\x92\xa9\x91\xcc-*-*-*-*-12-*-*-*-*-*-jisx0208-sjis, katakana-jisx0201:-*-*-*-*-*-*-12-*-*-*-*-*-JISX0201.1976-0, korean-ksc5601:-*-Seoul-*-*-*-*-12-*-*-*-*-*-ksc5601" t)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; フレームの設定 ;; ;;色の設定です変更してください ;;コメントアウトしてるのはうまく効かないもの (setq default-frame-alist (append (list '(foreground-color . "snow") '(background-color . "black") ;'(border-color . "white") ;'(cursor-color . "orange") ;'(mouse-color . "orange") '(width . 80) '(height . 30) ;'(top . 100) ;'(left . 200) '(vertical-scroll-bars . nil) '(font . "fontset-mac") ) default-frame-alist)) ;; モードライン(下にあるやつ)の色設定・・・反映されない(;_;) ;(set-face-foreground 'modeline "snow") ;(set-face-background 'modeline "black") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; 編集設定 ;; ;; TAB はスペース 4 個ぶんを基本 (setq-default tab-width 4) ;; モードラインにライン数、カラム数表示 (line-number-mode 1) (column-number-mode 1) ;; shiftと移動でリージョン選択 (pc-selection-mode) ;; 対応するカッコを色表示する (show-paren-mode 1) ;;コマンドキーをMetaキーとして利用 (setq mac-command-key-is-meta t) ;; 色を付ける ;; Highlighting on. modified 言語色設定 ;; hilit19カラフルになります。 (require 'hilit19) ;; フォントロックの設定 ;; hilit19はemacs19の設定用ですでにメンテナンスされてません。 ;; これからはfont-lockを使うようにします。 (cond ((fboundp 'global-font-lock-mode) (global-font-lock-mode t) (setq font-lock-maximum-decoration t))) ;; リンク等の色表示 ;; 変えてみてください (custom-set-variables) (custom-set-faces '(font-lock-comment-face ((t (:italic t :foreground "DarkOliveGreen")))) '(font-lock-string-face ((t (:foreground "Brown")))) '(font-lock-keyword-face ((t (:bold t :foreground "Purple4")))) '(font-lock-constant-face ((t (:bold t :foreground "IndianRed4")))) '(font-lock-type-face ((t (:bold t :foreground "grey40")))) '(font-lock-variable-name-face ((t (:bold t :foreground "Navy")))) '(font-lock-builtin-face ((t (:bold t :foreground "Orchid4"))))) ;;動的略語展開で大文字小文字を区別 (setq dabbrev-case-fold-search nil) ;; 前回のカーソル位置を記憶 (require 'saveplace) (setq-default save-place t) (setq save-place-file "~/save/places.txt") ; Emacs Lisp info filesの場所 (setq Info-default-directory-list '("~emacs/../elisp-manual-jp/" "~emacs/info")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; アプリケーションの設定 ;; ;;; SKK の設定 (setq load-path (cons "skk" load-path)) (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) (setq skk-large-jisyo "~emacs/mac/save/SKK-JISYO.L") ;;; sdicの設定 (autoload 'sdic-describe-word "sdic" "英単語の意味を調べる" t nil) (global-set-key "\C-cw" 'sdic-describe-word) (autoload 'sdic-describe-word-at-point "sdic" "カーソルの位置の英単語の意味を調べる" t nil) (global-set-key "\C-cW" 'sdic-describe-word-at-point) ;; 検索結果ウィンドの幅の設定および動作設定 (setq sdic-window-height 10 sdic-disable-select-window t) ;; つかってるのはGene95とedictって辞書です ;; 本当はあといろいろ使ってます (setq sdic-eiwa-dictionary-list '((sdicf-client "~/save/gene.sdic")) sdic-waei-dictionary-list '((sdicf-client "~/save/jedict.sdic" (add-keys-to-headword t)))) ;;; Wlの設定 (require 'mime-setup) (autoload 'wl "wl" "Wanderlust" t) (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) ;;; Python-mode (setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist)) (setq interpreter-mode-alist (cons '("python" . python-mode) interpreter-mode-alist)) (autoload 'python-mode "python-mode" "Python editing mode." t) ;;; YaTeX & yahtml (野鳥、HTML屋) ;; yatex-mode (setq auto-mode-alist (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist)) (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) ;; yahtml-mode (setq auto-mode-alist (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) ;; 最初に開くフォルダcd ~/ (cd "~/sakito")