[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[jfriends] Re: Kondaraインストール完了
えんどう＠今年からコンダラーです。
反響がありませんがとりあえず続けます。
> インストールに成功しました。
その後 [Fn]+[F7] でレジュームができないのに気づきました。
レジューム用の退避パーティションを削除してしまったようです。
しかたがないので Windows 98 パーティションを削除して
またインストールしました。気分壮快です。
> (XEmacs はインストールしたままでは漢字使えないし..)
その後 kondara.org のメーリングリスト・アーカイブを探索して
..emacs ファイルをでっちあげました。
このようなものです。いちおう動いてます。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Kondara .emacs サンプルファイル for emacs-20
;;;
;;; (c) Project Kondara 1999
;;;
;;; 2000.1.2 yasyuki@xxxxxxxxxx
;;;
(set-language-environment "Japanese")
;;; 漢字コードの指定
(set-default-coding-systems 'euc-jp)
;;;(set-default-font "-*-fixed-medium-*-*-*-16-*-*-*-*-*-fontset-standard")
(if (equal window-system 'x)
(progn
(set-face-font 'default
"-*-fixed-medium-r-normal--16-*"
'global '(mule-fonts) 'prepend)
(set-face-font 'bold
"-*-fixed-bold-r-normal--16-*"
'global '(mule-fonts) 'prepend)
(set-face-font 'bold-italic
"-*-fixed-bold-i-normal--16-*"
'global '(mule-fonts) 'prepend)
(set-face-font 'italic
"-*-fixed-medium-i-normal--16-*"
'global '(mule-fonts) 'prepend)
))
;;;(define-key global-map [S-down-mouse-3] 'mouse-set-font)
;;; 入力手段
(setq default-input-method 'japanese-canna)
;;;(setq default-input-method 'japanese-skk)
;;; スタートアップメッセージを非表示にする
(setq inhibit-startup-message t)
(setq visible-bell t)
;;; My mode line is already very very very long...
(add-hook 'emacs-startup-hook
(function
(lambda ()
(setcar (cdr (assq 'encoded-kbd-mode minor-mode-alist)) " en-k")
(setcar (cdr (assq 'abbrev-mode minor-mode-alist)) " ab")
)))
(setq display-time-string-forms '(24-hours ":" minutes (if mail " M ")))
(setq-default mode-line-buffer-identification '(" %b"))
;;;行数を表示する
(setq line-number-mode t)
;;; デフォルトをtext-modeにし、auto-fill-modeにする。
(setq default-major-mode 'text-mode)
(setq text-mode-hook 'turn-on-auto-fill)
;;;
;;; マクロサーチパスの追加
;;; ~/lib/emacs 以下にユーザ用の *.el, *.elc を置くことができます
;;;(setq load-path (append '("~/lib/emacs") load-path))
;;;
;;; Info
;;;
(setq Info-default-directory-list
(append '("/usr/info"
"/usr/local/info"
)Info-default-directory-list))
;;;
;;; for canna
;;;
(if (and (boundp 'CANNA) CANNA) ; 『かんな/emacs』であることを確認
;;かんな/emacsの場合のみ以下を実行する
(progn
;;; (setq canna-underline t) ;アンダーラインスタイル
(load-library "canna")
(setq canna-do-keybind-for-functionkeys nil)
(setq canna-server "localhost")
(canna)
;;; かんなでのリージョンの単語登録を C-tで行う
(global-set-key "\C-t" 'canna-touroku-region)
;;; アンドゥの設定
(global-set-key "\C-_" 'canna-undo)
;;; (setq canna-use-color t)
;;;かんなの変換中に 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])
))
;;;
;;; Egg (Wnn フロントエンド) の設定
;;;
(if (and (boundp 'WNN) WNN) ; 『Wnn/emacs』であることを確認
(progn
;; jserver が動いているホストを指定
(set-wnn-host-name "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)))
;; おまけ :-)
;;(set-egg-fence-mode-format "♪" "♪" 'highlight)
))
;;;
;;; SKK-9.6m
;;; Mule 上の仮名漢字変換システム SKK の設定
;;; C-x t でチュートリアルが起動します
;;;
;;; 使用する辞書の設定
;;; SKK-JISYO.L をメモリ上に読み込んで利用する場合
(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L")
;;; SKK-JISYO.M をメモリ上に読み込み、
;;; 見付からない場合は skkserv を起動して SKK-JISYO.L から検索する場合
;;; (skkexdic パッケージが必要です)
;;;(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.M")
;;;(setq skk-aux-large-jisyo "/usr/share/skk/SKK-JISYO.L")
;;;(setq skk-server-portnum 1178)
;;;(setq skk-server-host "localhost")
;;;(setq skk-server-prog "/usr/libexec/skkserv")
(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)
(autoload 'skk-mode "skk" nil t)
(autoload 'skk-auto-fill-mode "skk" nil t)
(autoload 'skk-tutorial "skk-tut" nil t)
(autoload 'skk-isearch-mode-setup "skk-isearch" nil t)
(autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t)
(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)
(skk-set-cursor-color-properly) ))))
;;;
;;; SEMI
;;;
(load "mime-setup")
;;;
;;; GNUS 5.4.61(参考)
;;; NetNews リーダー GNUS
;;; M-x gnus で起動します
;;;
;;; News Server 名やドメイン名を指定してください
;;;(setq gnus-nntp-server "news.hoge.hoge.or.jp")
;;;(setq gnus-local-domain "hoge.hoge.or.jp")
;;;(setq gnus-local-organization "HogeHoGe Org.")
;;;(setq gnus-use-generic-from t)
;;;
;;; Wanderlust
;;;
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
;;;
;;; ps-print
;;;
(setq ps-multibyte-buffer 'non-latin-printer)
;;;
;;; Mule-UCS
;;;
;(require 'un-define)
;(require 'un-tools)
;;;
;;; X-face-mule
;;;
(if window-system
(progn
(add-hook 'mew-init-hook
(function
(lambda ()
(require 'x-face-mule))))
(setq mew-use-highlight-x-face t)
(setq mew-use-highlight-x-face-function
'x-face-mule-x-face-decode-message-header)
))
;;;
;;; lookup
;;;
(setq lookup-use-bitmap t)
;;;
;;; auto-save の .save-*を一ヶ所のディレクトリにまとめる
;;;
(setq auto-save-list-file-prefix (expand-file-name "~/.autosave/"))
;;;(setq auto-save-list-file-prefix nil)
;;;
;;; backup fileを作らない
;;;
;;; (setq make-backup-files nil)
;;;
;;; C-h と Del の入れ替え
;;; 前一文字削除が Ctrl + h に割当てられます
(load "term/bobcat")
;;;
;;; Help が Shift + Ctrl + h および Del に割当てられます
;;;(if (eq window-system 'x)
;;; (progn
;;; (define-key function-key-map [delete] [8])
;;; (put 'delete 'ascii-character 8)))
;;;
;;; 時間を表示する
;;;
(setq display-time-day-and-date t)
;;;(display-time)
;;;
;;; mule/emacs -nw で起動した時にメニューバーを消す
;(if window-system (menu-bar-mode 1) (menu-bar-mode -1))
;;; 最終更新日の自動挿入
;;; ファイルの先頭から 8 行以内に Time-stamp: <> または
;;; Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入されます
;;;
;;;(if (not (memq 'time-stamp write-file-hooks))
;;; (setq write-file-hooks
;;; (cons 'time-stamp write-file-hooks)))
;;;
;;;
;;; window-system nil C-h
(cond ((eq window-system nil)
(global-set-key "\C-h" 'backward-delete-char-untabify)))
;;;
;;; linux-c-mode
;;; from /usr/src/linux/Documentation/CodingStyle
;;;
(defun linux-c-mode ()
"C mode with adjusted defaults for use with the Linux kernel."
(interactive)
(c-mode)
(c-set-style "K&R")
(setq c-basic-offset 8))
;;;(setq auto-mode-alist (cons '("/usr/src/linux.*/.*\\.[ch]$" . linux-c-mode)
;;; auto-mode-alist))
(setq auto-mode-alist (cons '(".*\\.[ch]$" . linux-c-mode)
auto-mode-alist))
;;; (setq compile-command "gcc -O6 -Wall -mpentiumpro -o ")))
;;; (setq compile-command "gcc -O6 -Wall -mv8 -s -o ")))
;;;
;;; 最終行から下に余計な空白行を付けない
;;;
(setq next-line-add-newlines nil)
;;; buffer の先頭で previous-line を実行すると、
;;; beginning-of-buffer ! と
;;; いってピィピィ鳴るのがうるさいので
;;; それを防ぐ
;;;
(defun previous-line (arg)
(interactive "p")
(condition-case nil
(line-move (- arg))
(beginning-of-buffer)))
;;;
;;; for rail
;;; semiなどのversion name が日本語になるパッケージを使う
;;;
;(setq rail-emulate-genjis t)
;(require 'rail)
;;;
;;; スクロールバーの設定
;;;
;;; mule-2.3互換モード
;;;(set-scroll-bar-mode 'right)
;;;
;;; emacs-20のdefault
;;;(set-scroll-bar-mode 'left)
;;;
;;; スクロールバー要らない人向け
;;;(set-scroll-bar-mode 'nil)
;;;
;;;
;;; 色の設定
;;;
(if window-system
(progn
(if (featurep 'xemacs)
(font-lock-mode t)
(global-font-lock-mode t)
)
(setq font-lock-support-mode 'fast-lock-mode)
(if (featurep 'xemacs)
(setq fast-lock-cache-directories '("~/.xemacs-flc"))
(setq fast-lock-cache-directories '("~/.emacs-flc")))
))
;;;
;(transient-mark-mode t)
;;; このファイルに間違いがあった場合に全てを無効にする.
(put 'eval-expression 'disabled nil)
;;; .emacs ends here
---
ENDO Yasuyuki <yasuyuki@xxxxxxxxxx>
http://www.javaopen.org/jfriends/index.html (Japanese Only)