Emacs

kahua

インストール

Ubuntu 6.10のパッケージにはデフォルトではmule-ucsが入っていないみたいなので、せっかくだからCVS HEADのEmacsをとってきた。

% CVS_RSH=ssh
% cvs -z3 -d:pserver:anonymous@cvs.savannah.gnu.org:/cvsroot/emacs co emacs-cvs-2007-2-3
ubuntu-desktop% cd emacs-cvs-2007-2-3 
ubuntu-desktop% ./configure --prefix=${HOME}/local --with-gtk
% make bootstrap
% make install

どうやらパッケージが足りてなかったらしく、gtkのアイコンが貧相、、消しちゃうけど。

うお

activate-input-method: Can't activate input method `japanese-anthy'

とかいわれてCVS HEADだとanthy動かないorz。今の僕のスキルではむりぽ。
21.4 + mule-ucsに変更(意気地無し
試した結果、Mule-UCS-0.84.tar.gzでは無くhttp://tats.haun.org/mule-ucs/のsnapshotの方で動いた。

% wget http://www.meadowy.org/~shirai/elips/mule-ucs.tar.gz
% tar zxvf mule-ucs.tar.gz
% cd mule-ucs-20061127-1/
% emacs -q --no-site-file -batch -l mucs-comp.el  
% cd ~/
% mkdir .elisp
% cd .elisp
% ln -s ../src/mule-ucs-20061127-1/lisp Mule-UCS

.emacs

gaucheとkahuaのための参考サイト

% cp src/Kahua-1.0.1/emacs/kahua.el .elisp/

;===================================
; Load Path
;===================================
(setq load-path (cons "~/.elisp" load-path))
(setq load-path (cons "~/.elisp/Mule-UCS" load-path))

;===================================
; Language
;===================================
(require 'un-define)
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
;;
;===================================
; Anthy
;    CTRL-\
;===================================
(load-library "anthy")
(setq default-input-method "japanese-anthy")
;;
;===================================
; Wheel mouse
;===================================
(global-set-key [mouse-4] 'scroll-down)
(global-set-key [mouse-5] 'scroll-up)
(mouse-wheel-mode)
(global-set-key [mouse-5] '(lambda () (interactive) (scroll-up (/ (window-height) 2))))
(global-set-key [mouse-4] '(lambda () (interactive) (scroll-down (/ (window-height) 2))))
(progn
 (defun scroll-up-half ()
     "Scroll up half a page."
     (interactive)
     (scroll-up (/ (window-height) 2))
 )
 (defun scroll-down-half ()
     "Scroll down half a page."
     (interactive)
     (scroll-down (/ (window-height) 2))
 )
 (global-set-key [(mouse-5)] 'scroll-up-half)
 (global-set-key [(mouse-4)] 'scroll-down-half)
)

;;
;====================================
; Misc
;====================================
(global-font-lock-mode t)  ;;
(display-time)             ;;
(setq line-number-mode t)  ;;
(setq column-number-mode t)  ;;
(auto-compression-mode t)  ;;
(setq frame-title-format   ;;
      (concat "%b - emacs@" system-name))
;;
;====================================
; Initial 
;====================================
; 
(setq initial-frame-alist
      (append (list
               '(foreground-color . "white")   ;;
               '(background-color . "#333366") ;;
               '(border-color . "black")
               '(mouse-color . "white")
               '(cursor-color . "white")
               '(width . 90)                   ;;
               '(height . 49)                  ;;
               '(top . 0)                      ;;
               '(left . 340)                   ;;
               )
              initial-frame-alist))
(setq default-frame-alist initial-frame-alist)

;===================================
; Gauche
;===================================
(setq scheme-program-name "gosh")
(require 'cmuscheme)

(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))

;(define-key global-map
;  "?C-cS" 'scheme-other-window)

;===================================
; Kahua
;===================================
(require 'kahua)
(setq auto-mode-alist
      (append '(("\\.kahua$" . kahua-mode)) auto-mode-alist))