% Copyright 1994 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: customex.tex,v 2.5 1994/06/01 06:32:57 kuma Exp $
%
\chapter{\HIDX{ޥե}{ޤդΤ줤}
{H0.F.0.0.0}}
\label{Fޥե}

ʲ˥ޥեȤunix.cannajust.canna򼨤
줾Υե\refCANNALIBDIR /sampleβ¸ߤޤΤǼº
˴ĶѿCANNAFILEǻꤹʤɤƻƤߤƤ

%\begin{enumerate}
% --------------------------------(1) 
%\item {\tt unix.canna} \\
\section{\HIDX{unix.canna}{գΣɣءãΣΣ}{H0.F.1.0.0}ե}

ä UNIX 桼ˤ default.canna  unix.canna 
ߤ䤹ȻפޤʤɤΥǥեȤȾʸˤƤޤ

\begin{verbatim}
;; ֤ѴѤ뤫

(setq use-symbolic-definition t)

;;; ޻Ѵ
;
; ޻Ѵơ֥ꤷޤ޻Ѵơ֥
; (1) ȥǥ쥯ȥ
; (2) ۡǥ쥯ȥ
; (3) /usr/lib/canna/dic
; ν˥ޤ
;

;(setq romkana-table "unix.kp")
(setq romkana-table "default.kp")

;; Ѵ
;(setq english-table "canna/english.kp")


;;; Ѥ뼭
;
; ñ˽¤٤ƤΤñϿԤʤǥƥ༭ʤɤ
; ޤ
;
; 󼭽˴ؤƤ :bushu ԤƵҤޤ
;
; ñϿ򤷤˴ؤƤ :user ԤƵҤޤñ
; Ͽ򤹤뼭ϥƥȷǤʤФʤޤñϿ
;  mkdic user Τ褦ʥޥɤǤĤȤǤǴñ˺뤳Ȥ
; ޤ
;
(use-dictionary
 "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 :bushu "bushu"
 :user  "user"
 )

;;; ޤޤʥѥ᥿
;
; ͤꤹΤˤĤƤϿˤĤƤ t ˤĤƤ nil 
; ꤷޤ

; ֱDZ˹ԤȤȺüˤ褦ˤ뤫
(setq cursor-wrap          t)	; default t

; ɽǿǤäȤ˥ưα(nil)ޤǤ
; ޤ(t)
(setq select-direct        t)	; default t

; ɽǿ򤹤뤫(t)nilλϿɽޤ
(setq numerical-key-select t)	; default t

; ɽʸζڤ˶򤤤뤫
(setq bunsetsu-kugiri nil)      ; default nil

; ʸ١ΰư򤹤뤫(t) nilλϥ޻Ѵñ̤ǥ
; ưԤޤ
(setq character-based-move t)	; default t

; ɤΤС뤫
(setq reverse-widely       nil)	; default nil

; ٳؽ򤹤뤫
(setq gakushu              t)	; default t

; κǸޤǤä餤äɽ뤫
(setq quit-if-end-of-ichiran nil); default nil

; ʸαüDZư򤹤ΤꤷƤޤ
(setq kakutei-if-end-of-bunsetsu nil) ; default nil

; ƱʸˤȤɤޤ뤫(t)nilλϰԤ1
; ʸ˰ưޤ
(setq stay-after-validate  t)	; default t

; ɤߤ˥ХåڡǤĤȥ޻ޤǥХХˤ뤫
(setq break-into-roman     t)	; default nil

; ѴǰɽԤѴǤ
; ɽˤϰܤޤ󡣤ξˤ C-w Ϥưɽ
; 
(setq n-henkan-for-ichiran 2)	; default 2

; ñϿʸˡϢμ򤹤뤫(t)nilλŬʻդƤ
; ޤޤ
(setq grammatical-question  t)	; default t

; 䤬Τβܤɽ뤫
(setq kouho-count t)            ; default t

; ༡Ѵ򤹤뤫
(setq auto nil)                 ; default nil

; ༡Ѵ򤹤˲ĤʸޤǤ̤ݻ뤫
(setq n-kouho-bunsetsu 16)      ; default 16

; ޻Ѵǥ꡼ʥ޻ΤƤ뤫
(setq abandon-illegal-phonogram nil)              ; default nil

; λ⼡Ϥǧ뤫
(setq allow-next-input 		 t)	; default nil

; ʸ٥Υ޻Ѵơ֥
(if use-symbolic-definition
    (progn
      (defsymbol ?-  "" "-" "" "")
      (defsymbol ?/  "/"  ""  "")
      (defsymbol ?\\ "\\" ""  "")
      (defsymbol
	?( "(" "" ""
	?) ")" "" "" )
      (defsymbol 
	?[ "" "" "" "" "["
	?] "" "" "" "" "]")
      (defsymbol 
	?. "" "" "."
	?, "" "" "," )
      (defsymbol
	?0 "0" "" "" ""
	?1 "1" "" "" ""
	?2 "2" "" "" ""
	?3 "3" "" "" ""
	?4 "4" "" "" ""
	?5 "5" "" "" ""
	?6 "6" "" "ϻ" "ϻ"
	?7 "7" "" "" ""
	?8 "8" "" "Ȭ" "Ȭ"
	?9 "9" "" "" "" )
      (defsymbol
	?? "?" ""
	?! "!" "")
      (defsymbol ?# "#" "")
      (defsymbol ?$ "$" "")
      (defsymbol ?% "%" "")
      (defsymbol ?& "&" "")
      (defsymbol ?+ "+" "")
      (defsymbol ?* "*" "" "")
      (defsymbol ?_ "_" "")
      (defsymbol ?' "'" "")
      (defsymbol ?` "`" "")
      (defsymbol ?\" "\"" "")
      ))

;; delete ХåڡƱ򤵤
(global-set-key "\Delete" 'delete-previous) ; necessary in using Emacs

;; Help ʤͤ⤤Τ F1 ǤƱư򤵤롣
(global-set-key "\F1" 'extend-mode)
\end{verbatim}
\newpage

% --------------------------------(2) 
%\item {\tt just.canna} \\
\section{\HIDX{just.canna}{ʣգӣԡãΣΣ}{H0.F.2.0.0}ե}

Ϻ\footnote{Ϻϥ㥹ȥƥ()ξɸǤ}ˤܸ
򥷥ߥ졼Ȥ륫ޥեǤ޻Ѵơ
֥ѤΥơ֥ȤäƤޤޤ˰ʲΤ褦ˡ
Ƥޤ

{\tt
\begin{center}
\begin{tabular}{|c|l|}
\hline
     &  ǽ \\
\hline
Space    &  Ѵ \\
\hline
Return   &   \\
\hline
C-u      &  Ҥ餬Ѵ \\
\hline
C-i      &  Ѵ \\
\hline
C-o      &  ȾѴ \\
\hline
C-p      &  ޻ \\
\hline
C-n      &  ʸư \\
\hline
C-l  &  ưʸ῭Ф \\
\hline
C-k  &  ưʸ̤ \\
\hline
       &   \\
\hline
\end{tabular}
\end{center}
}

{\dg ;; ϺǤϤˡ򥷥ߥ졼Ȥ뤿Υޥե}

\begin{verbatim}
;(setq initial-mode 'han-alpha-kakutei-mode)

(setq romkana-table "just.kp")

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

(setq cursor-wrap            nil) ; default on
(setq select-direct          t)   ; default on
(setq numerical-key-select   t)   ; default on
(setq character-based-move   nil) ; default on
(setq reverse-widely         nil) ; default off
(setq break-into-roman       nil) ; default off
(setq stay-after-validate    nil) ; default on
(setq quit-if-end-of-ichiran t)   ; default off
(setq kakutei-if-end-of-bunsetsu t) ; default off
(setq n-henkan-for-ichiran   2)   ; default 2
(setq inhibit-list-callback  t)   ; default off
(setq kouho-count            t)   ; default off

;;  setting for keymapping

(global-unbind-key-function 'quoted-insert)
(global-unbind-key-function 'extend)
(global-unbind-key-function 'shrink)
(global-unbind-key-function 'quoted-insert)
(global-unbind-key-function 'forward)
(global-unbind-key-function 'backward)
(global-unbind-key-function 'previous)
(global-unbind-key-function 'next)
(global-unbind-key-function 'beginning-of-line)
(global-unbind-key-function 'end-of-line)
(global-unbind-key-function 'kill-to-end-of-line)

;(global-unbind-key-function 'alpha-mode)
;(global-unbind-key-function 'japanese-mode)
;(global-unbind-key-function 'henkan)
;(global-unbind-key-function 'quit)
;(global-unbind-key-function 'deleteNext)

(global-set-key "\C-l"      'extend)
(global-set-key "\C-k"      'shrink)
(global-set-key "\Right"    'forward)
(global-set-key "\Left"     'backward)
(global-set-key "\Up"       'previous)
(global-set-key "\Down"     'next)
(global-set-key "\C-["      'quit)

(set-key 'empty-mode "\F10"       'kigo-mode)
(set-key 'kigo-mode  "\F10"       'henkan-nyuuryoku-mode)

(let ((mode 'yomi-mode))
  (set-key mode "\C-u" 'hiragana)
  (set-key mode "\F6"  'hiragana)
  (set-key mode "\C-i" 'katakana)
  (set-key mode "\F7"  'katakana)
  (set-key mode "\C-o" 'hankaku)
  (set-key mode "\F8"  'hankaku)
  (set-key mode "\C-p" 'romaji)
  (set-key mode "\F9"  'romaji)
  (set-key mode "\C-l" 'forward)
  (set-key mode "\Right" 'forward)
  (set-key mode "\C-k"   'backward)
  (set-key mode "\Left" 'backward)
  (set-key mode "\C-n"  'kakutei)
  (set-key mode "\Down" 'kakutei)
  )

(let ((mode 'tan-kouho-mode))
  (set-key mode "\C-u" 'hiragana)
  (set-key mode "\F6"  'hiragana)
  (set-key mode "\C-i" 'katakana)
  (set-key mode "\F7"  'katakana)
  (set-key mode "\C-o" 'hankaku)
  (set-key mode "\F8"  'hankaku)
  (set-key mode "\C-p" 'romaji)
  (set-key mode "\F9"  'romaji)
  (set-key mode "\C-n" 'forward)
  (set-key mode "\Down" 'forward)
  (set-key mode "\C-l" '(shinshuku-mode extend))
  (set-key mode "\C-k" '(shinshuku-mode shrink))
  (set-key mode "\Right" '(shinshuku-mode extend))
  (set-key mode "\Left"  '(shinshuku-mode shrink))
  (set-key mode "\Up"  'previous)
  )

(let ((mode 'mojishu-mode))
  (set-key mode "\C-u" 'hiragana)
  (set-key mode "\F6"  'hiragana)
  (set-key mode "\C-i" 'katakana)
  (set-key mode "\F7"  'katakana)
  (set-key mode "\C-o" 'hankaku)
  (set-key mode "\F8"  'hankaku)
  (set-key mode "\C-p" 'romaji)
  (set-key mode "\F9"  'romaji)
  (set-key mode "\C-l" 'extend)
  (set-key mode "\Right" 'extend)
  (set-key mode "\C-k"  'shrink)
  (set-key mode "\Left" 'shrink)
  (set-key mode "\C-n"  'kakutei)
  (set-key mode "\Down" 'kakutei)
  )

(let ((mode 'ichiran-mode))
  (set-key mode "\Xfer"  'next)
  (set-key mode "\C-l"   'forward)
  (set-key mode "\Right"  'forward)
  (set-key mode "\C-k"   'backward)
  (set-key mode "\Left"  'backward)
  (set-key mode "\C-n"   'next)
  (set-key mode "\Down"  'next)
  (set-key mode "\Up"    'previous)
;;  Please put off comment character below
;;  if you do not use Extend mode well.
;  (set-key mode "\C-n"   'kakutei)
;  (set-key mode "\Right" '(quit shinshuku-mode extend))
;  (set-key mode "\C-l"   '(quit shinshuku-mode extend))
;  (set-key mode "\Left"  '(quit shinshuku-mode shrink))
;  (set-key mode "\C-k"   '(quit shinshuku-mode shrink))
;  (set-key mode "\Up"    'backward)
  )
(let ((mode 'shinshuku-mode))
  (set-key mode "\C-u" '(henkan hiragana))
  (set-key mode "\F6"  '(henkan hiragana))
  (set-key mode "\C-i" '(henkan katakana))
  (set-key mode "\F7"  '(henkan katakana))
  (set-key mode "\C-o" '(henkan hankaku))
  (set-key mode "\F8"  '(henkan hankaku))
  (set-key mode "\C-p" '(henkan romaji))
  (set-key mode "\F9"  '(henkan romaji))
  )
\end{verbatim}

%\end{enumerate}