libcanna1g 3.7p3-14~deb9u1 / usr / share / canna / matsu.canna

;;  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. 

;; Using this customize file gives you a Japanese Input Interface
;; like matsutake does.

;;  $Id: matsu.canna,v 1.1.1.1 2002/10/19 08:27:52 aida_s Exp $ 


;;;  ³ÈÄ¥¥á¥Ë¥å¡¼¤ò¤¢¤Þ¤ê»È¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢do-not-use-extend-mode ¤ò
;;;  t ¤ËÀßÄꤷ¤Æ²¼¤µ¤¤¡£
(setq do-not-use-extend-mode   nil)


;; ¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤ÎÀßÄê

(setq romkana-table "matsu.cbp")

;;; ÍøÍѤ¹¤ë¼­½ñ

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


;ÆüËܸìÆþÎÏ on ¤Ë¤¹¤ë¡£
(set-key 'alpha-mode "\C-Xfer" 'japanese-mode)

; ±¦Ã¼¤Ç±¦¤Ë¹Ô¤³¤¦¤È¤¹¤ë¤Èº¸Ã¼¤Ë¤¤¤¯¡£
(setq cursor-wrap            t)         ; default t

; °ìÍ÷ɽ¼¨¤Ç¿ô»ú¤òÂǤ俤Ȥ­¤ËÁªÂò¤Þ¤Ç¤¹¤ë¡£
(setq select-direct          t)         ; default t

;°ìÍ÷¤«¤éÁªÂò¤ò¹Ô¤¦¤È¤Ò¤È¤ÄÀè¤ÎʸÀá¤Ë°ÜÆ°¤¹¤ë¡£
(setq stay-after-validate    nil)       ; default t

; °ìÍ÷ɽ¼¨¤Ç¿ô»ú¤ÇÁªÂò¤¹¤ë¡£
(setq numerical-key-select   t)         ; default t

; ÆþÎÏÃæ¤ÎÆɤßÁ´ÂΤò¥ê¥Ð¡¼¥¹¤·¤Ê¤¤¡£
(setq reverse-widely         nil)       ; default nil

; °ìÍ÷¤ÎºÇ¸å¤Þ¤Ç¤¤¤Ã¤¿¤é¡¢¤Þ¤¿ÀèƬ¤Î¸õÊä¤òɽ¼¨¤¹¤ë¡£
(setq quit-if-end-of-ichiran nil)       ; default nil

; ʸÀá¤Î±¦Ã¼¤Ç±¦°ÜÆ°¤ò¤¹¤ë¤ÈÁ´ÂΤ¬³ÎÄꤷ¤Æ¤·¤Þ¤¦¡£
(setq kakutei-if-end-of-bunsetsu t)     ; default nil

; ²¿ÅÙÊÑ´¹¥­¡¼¤ò²¡¤·¤Æ¤â°ìÍ÷ɽ¼¨¤Ï¹Ô¤ï¤Ê¤¤¡£
(setq n-henkan-for-ichiran   0)         ; default 2

; ¸õÊ䤬Á´ÂΤβ¿ÈÖÌܤ«¤òɽ¼¨¤·¤Ê¤¤¡£
(setq kouho-count 	     nil)       ; default t

; ÉÑÅٳؽ¬¤ò¤¹¤ë¡£
(setq gakushu                t)         ; default t

; ¸õÊä°ìÍ÷¤ÎÈÖ¹æ¤òȾ³Ñʸ»ú¤Ë¤¹¤ë¡£
(setq index-hankaku	     t)         ; default nil

; ¸õÊä¤ÎÈÖ¹æ¤È¤Î¶èÀÚ¤êʸ»ú¡£
(setq index-separator	     ?:)

; µ­¹æÆþÎϥ⡼¥É¤Çµ­¹æ¤òÆþÎϤ·¤¿¤È¤­µ­¹æÆþÎϥ⡼¥É¤ò½ªÎ»¤¹¤ë¡£
(setq quickly-escape-from-kigo-input t) ; default nil

; ñ¸ìÅÐÏ¿/ºï½ü¤Îľ¸å¤Ë¼­½ñ¤Î½ñ¤­½Ð¤·½èÍý¤ò¹Ô¤¦
(setq auto-sync		     t)         ; default t


;;  ¥­¡¼¥Þ¥Ã¥×

(global-unbind-key-function 'henkan)
(global-unbind-key-function 'extend)
(global-unbind-key-function 'shrink)
(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-set-key "\S-Right"  'end-of-line)
(global-set-key "\S-Left"   'beginning-of-line)
(global-set-key "\Right"    'forward)
(global-set-key "\Left"     'backward)
(global-set-key "\S-Up"     'previous)
(global-set-key "\S-Down"   'next)
(global-set-key "\Xfer"     'henkan)
(global-set-key "\Return"   'kakutei)

(global-set-key	"\F10"      'base-hiragana-katakana-toggle)
(global-set-key	"\F9"       'base-zenkaku-hankaku-toggle)
(global-set-key	"\F8"       'base-kana-eisu-toggle)
(global-set-key	"\F4"       'kigou-mode)


;; ¥â¡¼¥Éɽ¼¨Ê¸»úÎóÄêµÁ

(set-mode-display 'henkan-nyuuryoku-mode " £Ò¤« ")
(set-mode-display 'empty-mode            " £Ò¤« ")
(set-mode-display 'yomi-mode             " £Ò¤« ")
(set-mode-display 'zen-kata-henkan-mode  " £Ò¥« ")
(set-mode-display 'han-kata-henkan-mode  " £ÒȾ ")
(set-mode-display 'zen-alpha-henkan-mode "  ¤«  ")
(set-mode-display 'han-alpha-henkan-mode "  Ⱦ  ")


;; Æɤߥ⡼¥É»þ

(let ((mode 'yomi-mode))
  (set-key mode "\Delete"       'delete-next)
  (set-key mode "\Backspace"    'delete-previous)
  (set-key mode "\F6"           'katakana)
  (set-key mode "\F7"           'hankaku)
)


;; ñ¸õÊä¥â¡¼¥É»þ

(let ((mode 'tankouho-mode))
  (set-key mode "\F6"           'katakana)
  (set-key mode "\F7"           'hankaku)
  (set-key mode "\Space"        'forward)
  (set-key mode "\Nfer"         'henkan)
  (set-key mode "\Down"         'kouho-ichiran)
  (set-key mode "\S-Left"       'shrink)
  (set-key mode "\S-Right"      'extend)
)


;; ʸ»ú¼ï¥â¡¼¥É»þ

(let ((mode 'mojishu-mode))
  (set-key mode "\F6"           'katakana)
  (set-key mode "\F7"           'hankaku)
  (set-key mode "\Space"        'forward)
  (set-key mode "\S-Left"       'shrink)
  (set-key mode "\S-Right"      'extend)
)


;; °ìÍ÷¸õÊä¥â¡¼¥É»þ

(let ((mode 'ichiran-mode))
  (set-key mode "\Down"         'forward)
  (set-key mode "\Up"           'backward)
  (set-key mode "\Space"        'kakutei)
    (if  do-not-use-extend-mode
      (progn
         (set-key mode "\S-Left"       '(quit shrink))
         (set-key mode "\S-Right"      '(quit extend))))
)


;; µ­¹æÆþÎϥ⡼¥É»þ

(let ((mode 'kigou-mode))
  (set-key mode "\Down"         'forward)
  (set-key mode "\Up"           'backward)
  (set-key mode "\Space"        'kakutei)
)


;; ¼­½ñ¥Þ¥¦¥ó¥È¥¢¥ó¥Þ¥¦¥ó¥È»þ

(let ((mode 'on-off-mode))
  (set-key mode "\Down"         'forward)
  (set-key mode "\Up"           'backward)
  (set-key mode "\Space"        'henkan)
)


; ¥·¥ó¥Ü¥ë¤ÎÄêµÁ 

(defsymbol 
  ?[ "¡Ö" "¡Î" 
  ?] "¡×" "¡Ï")
(defsymbol 
  ?/ "¡¦" "¡¿")
(defsymbol 
  ?~ "¡Ý" "¡Á")