emacs設定メモ

.emacs

;;---------------------------------------------------------------------------
;; Emacs設定
;;---------------------------------------------------------------------------
;; 日本語の設定
(set-language-environment "Japanese")



;; リージョンの色
(set-face-background 'region "SkyBlue")
(set-face-foreground 'region "black")

(if (boundp 'window-system)
  (setq initial-frame-alist
    (append (list
      '(foreground-color . "azure3") ;; 文字が白
      '(background-color . "black")  ;; 背景は黒
      '(border-color     . "black")
      '(mouse-color      . "white")
      '(cursor-color     . "white")
      '(cursor-type      . bar)
      '(menu-bar-lines . 1)
      '(vertical-scroll-bars . nil) ;;スクロールバーはいらない
      '(width . 100) ;; ウィンドウ幅
      '(height . 35) ;; ウィンドウの高さ
      '(top . 60) ;;表示位置
      '(left . 140) ;;表示位置
    )
  initial-frame-alist)))
(setq default-frame-alist initial-frame-alist)

;; タイトルバーにバッファ名を表示
(setq frame-title-format "%b")

;; ツールバーを表示しない
(tool-bar-mode 0)

;; メニューを表示しない
(menu-bar-mode -1)

;; ミニバッファのサイズを変更しない
(setq resize-mini-windows nil)

;; 起動時の画面を表示しない
(setq inhibit-startup-message t)



;; グローバルキーバインドの変更
(global-set-key "\C-h" 'backward-delete-char)
(global-set-key [f1] 'help-for-help)



;; タブ幅を4に設定
(setq-default tab-width 4)

;; タブ幅の倍数を設定
(setq tab-stop-list
  '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60))

;; タブではなくスペースを使う
(setq-default indent-tabs-mode nil)
(setq indent-line-function 'indent-relative-maybe)



;; モードラインにカーソルがある行の行数を表示
(line-number-mode 1)

;; モードラインにカーソルがある位置の文字数を表示
(column-number-mode 1)



;; リージョンに色をつける
(setq transient-mark-mode t)

;; リージョンを選択中にBSか文字を入力すると内容を削除する
(delete-selection-mode 1)

ごめん。まだ途中なんだ。



apelのインスコ

$ cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login
CVS password: [CR] # NULL string
$ cvs -z9 -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout apel
$ cd apel
$ make elc
$ make install