(progn
(cond ((<= emacs-major-version 21)
(require 'un-define)))
(set-default-coding-systems 'utf-8)
(set-buffer-file-coding-system 'utf-8-unix)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8))
;;; 日本語メニューバー (UTF-8のメニューバーを用意?)
;(cond
; (and (>= emacs-major-version 21)
; (equal (substring (concat (getenv "LANG") "__") 0 2) "ja")
; (load "menu-tree-utf8")))
(progn
(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)
;;; 日本語メニューバー
(cond
((and (>= emacs-major-version 21)
(equal (substring (concat (getenv "LANG") "__") 0 2) "ja"))
(load "menu-tree")))
(setq emacs-ime "scim"))
((>= emacs-major-version 21) ;;; メニューバーを消す ;(menu-bar-mode nil) ;;; ツールバーを消す ;(tool-bar-mode nil) ;;; cursor の blink を止める ;(blink-cursor-mode nil) ;;; 表示の行間を拡げる ;(set-default 'line-spacing 2) ;;; active でない window の空 cursor を出さない (setq cursor-in-non-selected-windows nil) ;;; フォントのスケールをしない (setq scalable-fonts-allowed nil) ;;; [Home] Key と [End] Key を従来の動作に戻す (define-key global-map [home] 'beginning-of-buffer) (define-key global-map [end] 'end-of-buffer)
;;; image.el における JPEG の判定基準を緩める ;(eval-after-load "image" ; '(setq image-type-regexps ; (cons (cons "^\377\330" 'jpeg) image-type-regexps)))
;;; 表示の行間を拡げる (setq line-spacing 2)
(equal emacs-ime "Wnn")
(equal emacs-ime "wnn6")
(equal emacs-ime "Wnn6")
(equal emacs-ime "wnn8")
(equal emacs-ime "Wnn8"))
(progn
(if (>= emacs-major-version 21)
(progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;emacs-dl-wnnでないときの設定( emacs-21 + tamago v4)
(global-set-key "\C-\\" 'toggle-input-method)
;; Shift-Space または 半角/全角 でも起動
(global-set-key [?\S-\ ] 'toggle-input-method)
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
(load "egg")
;; InputMethod の設定
;; emacs 起動時 ASCII
;;(setq default-input-method "japanese-egg-wnn")
;; emacs 起動時から日本語入力
(set-input-method "japanese-egg-wnn")
;; jserverの指定
;; jserver のリストを次の様にして指定できます
;;(setq jserver-list '("vanilla" "espresso"))
(setq jserver-list (list (getenv "JSERVER") "localhost"))
;;--------------------------------------------------------
;; tamago v4
;;--------------------------------------------------------
;; 全般
;;(setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
(garbage-collect)
;; "nn" で「ん」を入力
(setq enable-double-n-syntax t)
;; "." で「.」、"," で「,」を入力。
(setq use-kuten-for-period nil)
(setq use-touten-for-comma nil)
)
;; emacs-dl-wnn の場合 (emacs-20)
(progn
(autoload 'egg "egg" "Initialize EGG." t)
(egg)
(global-set-key "\C-\\" 'toggle-egg-mode)
(global-set-key [\S-\ ] 'toggle-egg-mode)
(define-key isearch-mode-map "\C-\\" 'isearch-fep-egg)
(autoload 'toggle-egg-mode "egg" "Initialize EGG." t)
(autoload 'isearch-fep-egg "isearch-ext"
"Read string for incremental search by using egg." t)
(setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
(garbage-collect)
;; jserver のリストを次の様にして指定できます
;;(setq jserver-list '("vanilla" "espresso"))
(setq jserver-list (list (getenv "JSERVER") "localhost"))
;; "nn" で「ん」を入力
(setq enable-double-n-syntax t)
;; "." で「.」、"," で「,」を入力。
(setq use-kuten-for-period nil)
(setq use-touten-for-comma nil)
;; 1234567890%#%"' を「半角」で入力"
(let ((its:*defrule-verbose* nil))
(its-define-mode "roma-kana")
(dolist (symbol '("1" "2" "3" "4" "5"
"6" "7" "8" "9" "0"
"#" "%" "\"" "'" ))
(its-defrule symbol symbol)))
)
)
)
)
(equal emacs-ime "Wnn7"))
(progn
(setq load-path (append '("/usr/share/wnn7/elisp/emacs20") load-path))
(global-set-key "\C-\\" 'toggle-input-method)
;; Shift-Space または 半角/全角 でも起動
(global-set-key [?\S-\ ] 'toggle-input-method)
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
;; canna like toggle keybind
;;(global-set-key "\C-o" 'toggle-input-method)
(load "wnn7egg-leim")
(set-input-method "japanese-egg-wnn7")
(set-language-info "Japanese" 'input-method "japanese-egg-wnn7")
;; "nn" で「ん」を入力
(setq enable-double-n-syntax t)
;; 候補選択モード
(egg-use-input-predict)
(setq egg-predict-realtime nil)
;; インライン候補選択モード
(setq egg-predict-mode "inline")
;; ウインドウ候補選択モード
;(setq egg-predict-mode "window")
;; 候補リスト表示
(define-key wnn7-henkan-mode-map " " 'wnn7-henkan-select-kouho-dai)
;; 1234567890%#%"'/\| を「半角」で入力
(let ((its:*defrule-verbose* nil))
(its-define-mode "roma-kana")
(dolist (symbol '("1" "2" "3" "4" "5"
"6" "7" "8" "9" "0"
"#" "%" "\"" "'" "/" "\\" "|"))
(its-defrule symbol symbol)))
)
(equal emacs-ime "Canna") (equal emacs-ime "canna-tamago"))
(progn
(if (and (or (and (boundp 'CANNA) CANNA)
(<= emacs-major-version 20))
(not (equal emacs-ime "canna-tamago")))
(progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; emacs-dl-canna/emcws の場合
(load-library "canna")
;; color-mate を使わないで、漢字変換に色を付けたい時に
;(setq canna-use-color t)
;; フェンスモードでなくアンダーラインを使う
;;(setq canna-with-fences nil)
;;(setq canna-underline t)
;; Canna サーバの指定
(if (null (getenv "CANNA_SERVER"))
(setq canna-server "unix")
(setq canna-server (getenv "CANNA_SERVER")))
(canna)
;; Canna を Ctrl-\ で起動します。コメントアウトすれば、
;; Ctrl-\ で skk が立ち上がります。
(global-set-key "\C-\\" 'canna-toggle-japanese-mode)
(global-set-key "\C-o" 'canna-toggle-japanese-mode)
;; Shift-Space または 半角/全角 でも起動
(global-set-key [?\S-\ ] 'canna-toggle-japanese-mode)
(global-set-key [zenkaku-hankaku] 'canna-toggle-japanese-mode)
(global-set-key "\C-_" 'canna-undo) ;アンドゥの設定。
(setq canna-save-undo-text-predicate ;アンドゥバッファへ入れる条件
'(lambda (s) (> (length (car s)) 2)) )
(setq canna-undo-hook ;アンドゥ＋α。
'(lambda () (message "再変換します....")
(canna-do-function canna-func-henkan)) )
;;かんなの変換中に BS & DEL を使う
(define-key canna-mode-map [backspace] [?\C-h])
(define-key canna-mode-map [delete] [?\C-h])
;;かんなの変換中に C-h を使う (with term/keyswap)
(define-key canna-mode-map [?\177] [?\C-h])
))
(if (or (and (not (and (boundp 'CANNA) CANNA))
(>= emacs-major-version 21))
(equal emacs-ime "canna-tamago"))
(progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; emacs-dl-canna/emcws でないとき (tamago4)
;; Canna サーバの指定
;;(setq canna-hostname "unix/")
(require 'egg)
;; InputMethod の設定
(setq default-input-method "japanese-egg-canna")
;; tamago v4 共通設定
(setq
;; 何回変換すると（自動的に）辞書に反映するか
wnn-auto-save-dictionaries 1
;; nil にすると、alphanumeric が半角入力になるらしい。
its-enable-fullwidth-alphabet nil
;; Backspace で消すときに、かなを入力したローマ字に展開して
;; ローマ字単位で消す？
its-delete-by-keystroke t
;; 外すと操作方法が変わるみたいです。よく分かりません。
egg-mode-preference t
;; "nn" で「ん」を入力
enable-double-n-syntax t
;; "." で「．」、"," で「，」を入力。
use-kuten-for-period nil
use-touten-for-comma nil
;; 候補の最後まで行ったら先頭に戻る
egg-conversion-wrap-select t
;; 候補一覧を表示するまでの変換回数、0で非表示
egg-conversion-auto-candidate-menu 2)
;; F7 で toroku-region
(global-set-key [f7] 'egg-toroku-region)
;; Canna 用設定 (Canna 風キー設定)
(load "its")
(define-key global-map "\C-o" 'toggle-input-method)
(global-set-key [?\S-\ ] 'toggle-input-method)
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
(define-key isearch-mode-map "\C-o" 'isearch-toggle-input-method)
(define-key isearch-mode-map [?\S-\ ] 'isearch-toggle-input-method)
(define-key isearch-mode-map [zenkaku-hankaku] 'isearch-toggle-input-method)
(define-key its-mode-map "\C-h" 'its-delete-backward-SYL)
(define-key its-mode-map "\C-p" 'its-hiragana)
(define-key its-mode-map "\C-y" 'its-hiragana)
(define-key its-mode-map "\C-n" 'its-katakana)
(define-key its-mode-map [up] 'its-hiragana)
(define-key its-mode-map [down] 'its-katakana)
(define-key egg-conversion-map "\C-g" 'egg-abort-conversion)
(cond ((eq window-system 'x)
(define-key its-mode-map [henkan] 'its-kick-convert-region)
(define-key its-mode-map [hiragana-katakana] 'its-katakana)
(define-key its-mode-map [muhenkan] 'its-hiragana)
(define-key its-mode-map [f6] 'its-hiragana)
(define-key its-mode-map [f7] 'its-katakana)
(define-key its-mode-map [f8] 'its-half-width)
(define-key its-mode-map [backspace] 'its-delete-backward-SYL)
;(define-key menudiag-mode-map [backspace] 'menudiag-exit-one-level)
(define-key its-mode-map [delete] 'its-delete-SYL))
((null window-system)
(define-key its-mode-map "\e[17~" 'its-hiragana)
(define-key its-mode-map "\e[18~" 'its-katakana)
(define-key its-mode-map "\e[19~" 'its-half-width)
(define-key its-mode-map [8] 'its-delete-backward-SYL)
;(define-key menudiag-mode-map [8] 'menudiag-exit-one-level)
(define-key its-mode-map "\e[3~" 'its-delete-SYL)))
)
)
)
)
(progn
(require 'un-define)
(setq coding-category-utf-8 'utf-8)
(setq iiimcf-server-control-hostlist '("localhost"))
(setq iiimcf-server-control-default-language "ja")
(setq default-input-method 'iiim-server-control)
(require 'iiimcf-sc)
;; 変換トグルの設定
(define-key global-map "\C-\\" 'toggle-input-method)
;; Shift-Space または 半角/全角 でも起動
(global-set-key [?\S-\ ] 'toggle-input-method)
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
;;モードライン表示をすっきりと
;;(setcar default-mode-line-format "")
) )
(equal emacs-ime "Anthy-el"))
(progn
(require 'anthy)
;; 変換開始キー
(define-key global-map "\C-\\" 'toggle-input-method)
(define-key global-map "\C-o" 'toggle-input-method)
(define-key global-map [kanji] 'toggle-input-method)
(define-key global-map [M-kanji] 'toggle-input-method)
(global-set-key [?\S-\ ] 'toggle-input-method)
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
;; バックスペースでローマ字単位で消す
;(anthy-set-break-into-roman 't)
)
(or (equal emacs-ime "scim")
(equal emacs-ime "SCIM")
(equal emacs-ime "anthy")
(equal emacs-ime "Anthy")
(equal emacs-ime "egg-anthy")
(equal emacs-ime "tamago-anthy"))
(assoc "japanese-egg-anthy" input-method-alist))
(progn
(require 'egg)
;; InputMethod の設定
(setq default-input-method "japanese-egg-anthy")
;; tamago v4 共通設定
(setq
;; 何回変換すると（自動的に）辞書に反映するか
wnn-auto-save-dictionaries 1
;; nil にすると、alphanumeric が半角入力になるらしい。
its-enable-fullwidth-alphabet nil
;; Backspace で消すときに、かなを入力したローマ字に展開して
;; ローマ字単位で消す？
its-delete-by-keystroke t
;; 外すと操作方法が変わるみたいです。よく分かりません。
egg-mode-preference t
;; "nn" で「ん」を入力
enable-double-n-syntax t
;; "." で「．」、"," で「，」を入力。
use-kuten-for-period nil
use-touten-for-comma nil
;; 候補の最後まで行ったら先頭に戻る
egg-conversion-wrap-select t
;; 候補一覧を表示するまでの変換回数、0で非表示
egg-conversion-auto-candidate-menu 2
;; 不正なキーシーケンスを警告する
its-barf-on-invalid-keyseq t)
;; F7 で toroku-region
(global-set-key [f7] 'egg-toroku-region)
;; egg-anthy.el (add-hook 'anthy-load-hook '(lambda () (load "egg-anthy")))
(load "its")
(define-key global-map "\C-o" 'toggle-input-method)
(global-set-key [?\S-\ ] 'toggle-input-method)
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
(define-key isearch-mode-map "\C-o" 'isearch-toggle-input-method)
(define-key isearch-mode-map [?\S-\ ] 'isearch-toggle-input-method)
(define-key isearch-mode-map [zenkaku-hankaku] 'isearch-toggle-input-method)
(define-key its-mode-map "\C-h" 'its-delete-backward-SYL)
(define-key its-mode-map "\C-p" 'its-hiragana)
(define-key its-mode-map "\C-y" 'its-hiragana)
(define-key its-mode-map "\C-n" 'its-katakana)
(define-key its-mode-map "\C-k" 'its-katakana)
(define-key its-mode-map [up] 'its-hiragana)
(define-key its-mode-map [down] 'its-katakana)
(define-key egg-conversion-map "\C-g" 'egg-abort-conversion)
(cond ((eq window-system 'x)
(define-key its-mode-map [henkan] 'its-kick-convert-region)
(define-key its-mode-map [hiragana-katakana] 'its-katakana)
(define-key its-mode-map [muhenkan] 'its-hiragana)
(define-key its-mode-map [f6] 'its-hiragana)
(define-key its-mode-map [f7] 'its-katakana)
(define-key its-mode-map [f8] 'its-half-width)
(define-key its-mode-map [backspace] 'its-delete-backward-SYL)
(define-key its-mode-map [delete] 'its-delete-SYL))
((null window-system)
(define-key its-mode-map "\e[17~" 'its-hiragana)
(define-key its-mode-map "\e[18~" 'its-katakana)
(define-key its-mode-map "\e[19~" 'its-half-width)
(define-key its-mode-map [8] 'its-delete-backward-SYL)
(define-key its-mode-map "\e[3~" 'its-delete-SYL)))
)
)
(equal emacs-ime "UIM"))
(progn
(require 'uim)
;; 変換開始キー
(global-set-key "\C-\\" 'uim-mode)
(global-set-key "\C-o" 'uim-mode)
(global-set-key [kanji] 'uim-mode)
(global-set-key [M-kanji] 'uim-mode)
(global-set-key [?\S-\ ] 'uim-mode)
(global-set-key [zenkaku-hankaku] 'uim-mode)
;; Anthy の時はデフォルトでひらがな入力に
(setq uim-default-im-prop '("action_anthy_hiragana"
"action_canna_hiragana"
"action_skk_hiragana"))
;; 変換候補をデフォルトでインライン表示にする
;(setq uim-candidate-display-inline t)
)
(function (lambda () (and (boundp 'skk-mode) skk-mode (skk-isearch-mode-setup) ))))
(function (lambda () (and (boundp 'skk-mode) skk-mode (skk-isearch-mode-cleanup) (skk-set-cursor-color-properly) ))))
(load (expand-file-name "~/.mew.el") nil t nil))
(progn
(require 'bitmap)
(require 'x-face-e21)
(mapcar (lambda (fontset)
(set-fontset-font
fontset 'bitmap
"-etl-fixed-medium-r-*--16-*-100-100-m-*-bitmap.8x16-0"))
(fontset-list))
; for Wanderlust
(setq wl-highlight-x-face-function
'x-face-decode-message-header)
; for Mew
(setq mew-use-highlight-x-face t)
(setq mew-use-highlight-x-face-function
(function
(lambda (beg end)
(x-face-mule-x-face-decode-message-header beg end))))))
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
tex-command "platex -src-specials"
dviprint-command-format "dvips %s | lpr"
YaTeX-kanji-code 3)
(cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
(not (equal (getenv "LANG") "ja_JP.UTF-8")))
(>= emacs-major-version 22))
(progn
(setq dayname-j-alist
'(("Sun" . "日") ("Mon" . "月") ("Tue" . "火") ("Wed" . "水")
("Thu" . "木") ("Fri" . "金") ("Sat" . "土")))
(setq display-time-string-forms
'((format "%s年%s月%s日(%s) %s:%s %s"
year month day
(cdr (assoc dayname dayname-j-alist))
24-hours minutes
load)))
))
(progn
(require 'ps-mule)
(defalias 'ps-mule-header-string-charsets 'ignore)))
(setq write-file-hooks
(cons 'time-stamp write-file-hooks)))
(load (expand-file-name "~/.emacs.my.el") nil t nil))
*1 "\\.spec" . rpm-mode
