haiku/data/etc/KanBe/default/tut.canna

;; Copyright 1993 NEC Corporation, Tokyo, Japan.
;;
;; Permission to use, copy, modify, distribute and sell this software
;; and its documentation for any purpose is hereby granted without
;; fee, provided that the above copyright notice appear in all copies
;; and that both that copyright notice and this permission notice
;; appear in supporting documentation, and that the name of NEC
;; Corporation not be used in advertising or publicity pertaining to
;; distribution of the software without specific, written prior
;; permission.  NEC Corporation makes no representations about the
;; suitability of this software for any purpose.  It is provided "as
;; is" without express or implied warranty.
;;
;; NEC CORPORATION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
;; INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN 
;; NO EVENT SHALL NEC CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF 
;; USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR 
;; OTHER TORTUOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR 
;; PERFORMANCE OF THIS SOFTWARE. 

;;  $Id: tut.canna,v 1.4 1996/10/25 05:23:01 kon Exp $

; customize file for TUT-code
;
; <20>ؤ<EFBFBD><D8A4><EFBFBD><EFBFBD>ʡ٤<CAA1> TUT <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϥ<EFBFBD><CFA4>Ԥ<EFBFBD><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Υե<CEA5><D5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǥ<EFBFBD><C7A4><EFBFBD>
;
; <20><><EFBFBD>Υ<EFBFBD><CEA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޥ<EFBFBD><DEA5><EFBFBD><EFBFBD>ե<EFBFBD><D5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȥä<C8A4> TUT <20><><EFBFBD><EFBFBD><EFBFBD>ɤ<EFBFBD><C9A4><EFBFBD><EFBFBD>Ϥ<EFBFBD><CFA4><EFBFBD><EFBFBD>ˤ<EFBFBD> 
; <20>ʲ<EFBFBD><CAB2>Τ褦<CEA4>ˤ<EFBFBD><CBA4>ޤ<EFBFBD><DEA4><EFBFBD>
;
; C-o  <20><><EFBFBD><EFBFBD><EFBFBD>ե<EFBFBD><D5A5>٥å<D9A5><C3A5><EFBFBD><EFBFBD>ϥ⡼<CFA5>ɤ<EFBFBD> TUT <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϥ⡼<CFA5>ɤ<EFBFBD><C9A4><EFBFBD><EFBFBD><EFBFBD>
;      <20><><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>
; <20><>ʸ<EFBFBD><CAB8>
;      TUT <20><><EFBFBD><EFBFBD><EFBFBD>Ϥ<EFBFBD><CFA4><EFBFBD>ʸ<EFBFBD><CAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϥ<EFBFBD><CFA4><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϥϰ<CFA4>ö
;      <20><><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>ϥХåե<C3A5><D5A5>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤ<EFBFBD><DEA4>ޤ<EFBFBD><DEA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>ϥХåե<C3A5>
;      <20>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤ줿ʸ<ECA4BF><CAB8><EFBFBD>ϡ<EFBFBD><CFA1><EFBFBD><EFBFBD>ʴ<EFBFBD><CAB4><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD>оݤ<D0BE>
;      <20>ʤ<EFBFBD><CAA4>ޤ<EFBFBD><DEA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>ϥХåե<C3A5><D5A5>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤ줿ʸ<ECA4BF><CAB8><EFBFBD><EFBFBD><EFBFBD>Ф<EFBFBD>
;      <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD>Ū<EFBFBD>ˤϡؤ<CFA1><D8A4><EFBFBD><EFBFBD>ʡ٤Υǥե<C7A5><D5A5><EFBFBD><EFBFBD>Ȥ<EFBFBD><C8A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˽स
;      <20>ޤ<EFBFBD><DEA4><EFBFBD><EFBFBD>ʲ<EFBFBD><CAB2>Ϥ<EFBFBD><CFA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΰ<EFBFBD><CEB0><EFBFBD><EFBFBD>Ǥ<EFBFBD><C7A4><EFBFBD>
; SPC  <20>Ѵ<EFBFBD>(<28><>)<29><><EFBFBD><EFBFBD><EFBFBD>ʴ<EFBFBD><CAB4><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>
; C-n  <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD>C-n <20><><EFBFBD>ǤĤȡ<C4A4><C8A1><EFBFBD><EFBFBD>ѥ<EFBFBD><D1A5>ʡ<EFBFBD>Ⱦ<EFBFBD>ѥ<EFBFBD><D1A5>ʡ<EFBFBD><CAA1><EFBFBD><EFBFBD>ѥ<EFBFBD><D1A5><EFBFBD>
;      <20>޻<EFBFBD><DEBB><EFBFBD>Ⱦ<EFBFBD>ѥ<EFBFBD><D1A5><EFBFBD><EFBFBD>޻<EFBFBD><DEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϥ<EFBFBD><CFA4><EFBFBD>ʸ<EFBFBD><CAB8><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>
; C-p  C-n <20>εղ<CEB5><D5B2><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>Ǥ<EFBFBD><C7A4><EFBFBD>
; C-w  <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϥ<EFBFBD><CFA4><EFBFBD><EFBFBD>ɤߤ<C9A4><DFA4><EFBFBD><EFBFBD><EFBFBD>̾<EFBFBD>˻<EFBFBD><CBBB>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>ΰ<EFBFBD><CEB0><EFBFBD><EFBFBD><EFBFBD>ɽ<EFBFBD><C9BD>
;      <20><><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>
; C-y  <20><><EFBFBD>Ϥ<EFBFBD><CFA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɤȤ<C9A4><C8A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>

(initialize-function '(japanese-mode base-kakutei alpha-mode))

(setq romkana-table "tut.cbp")
(setq romaji-yuusen t)

(use-dictionary
 "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 :bushu "bushu"
 :user  "user"
 )

(set-mode-display 'yomi-mode "[TUT ]")
(set-mode-display 'zen-hira-henkan-mode "[TUT ]")
(set-mode-display 'zen-hira-kakutei-mode "[TUT ]")

(set-key 'empty-mode "\Space" 'self-insert)
;(set-key 'henkan-nyuuryoku-mode "q" 'base-hiragana-katakana-toggle)

(defun define-as-capital (x)
  (set-key 'empty-mode x 
           '(temporary base-hiragana base-henkan self-insert)))

(setq ignore-case t)

(defun define-capitals (l)
  (cond ((atom l) nil)
        (t
         (define-as-capital (car l))
         (define-capitals (cdr l)) )))

(setq tut-capitals '(
  "A"     "E"     "I"           "O"             "U"
                "H"   "K" "M" "N"     "R" "S" "T"   "W" "Y"
    "B" "D"   "G"                 "P"                     "Z"
      "C"   "F"     "J"                           "V" "X"
                        "L"         "Q"))

(define-capitals tut-capitals)

(setq allow-next-input t)
(setq hex-direct t)