/usr/share/canna/skk.canna is in libcanna1g 3.7p3-14.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | ;; Copyright 1992 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: skk.canna,v 1.1.1.1 2002/10/19 08:27:52 aida_s Exp $
; skk like customization
;
; KANZEN ¤«¤é SKK ¤Ø¤Èή¤ì¤Æ¤¤¤ë¡Ö¤¤¤Þ¤Þ¤Ç¤Î¤«¤Ê´Á»úÊÑ´¹¤ÏÊÑ´¹¤ò¤·¤¹¤®
; ¤ë¡×¤È¤¤¤¦Àº¿À¤ò¼õ¤±·Ñ¤¤¤À¥«¥¹¥¿¥Þ¥¤¥º¤Ç¤¹¡£¤¿¤À¤·¡¢SKK ¤Î ¡ÖSimple
; Kana Kanji¡×¤Îsimple ¤ÎÊý¤Ï¼õ¤±·Ñ¤¤¤Ç¤ª¤é¤º¡¢SKK ¤Ç¤ÏñʸÀáÊÑ´¹¤¬ºÎ
; ÍѤµ¤ì¤Æ¤¤¤ë¤Î¤ËÂФ·¤Æ¤³¤³¤Ç¤ÏϢʸÀáÊÑ´¹¤òÍѤ¤¤Æ¤¤¤Þ¤¹¡£
;
; ¤¿¤È¤¨¤Ð¡¢¡ÖSKK ¤Î¥·¥ó¥×¥ë¤È¤¤¤¦Éôʬ¤Ï¼õ¤±·Ñ¤®¤Þ¤»¤ó¤Ç¤·¤¿¡£¡×¤ÈÆþÎÏ
; ¤¹¤ë¤Î¤Ë¡¢SKK ¤Ç¤Ï¡¢
;
; lSKK ^JnoqsinpuruqtoiuBubunHa UKe TsuGimasendeshita .
;
; ¤ÈÆþÎϤ·¤Þ¤¹¤¬¡¢¤³¤³¤Ç¤Ï¡¢¾å¤ÎÆþÎÏÊýË¡¤Ë²Ã¤¨¤Æ¡¢°Ê²¼¤ÎÆþÎϤâ¼õ¤±ÉÕ¤±
; ¤Þ¤¹¡£
;
; lSKK ^JnoqsinpuruqtoiuBubunhauketsugimasendeshita .
;
; ¤¹¤Ê¤ï¤Á¡¢¤³¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤ò»È¤Ã¤¿¾ì¹ç¡¢Ä̾ï¤Ï¤«¤Ê´Á»úÊÑ´¹¤ò
; ȼ¤ï¤Ê¤¤¡Ö³ÎÄêÆþÎϥ⡼¥É¡×¤ÇÆüËܸì¤ÎÆþÎϤ¬¹Ô¤ï¤ì¤Þ¤¹¤¬¡¢±ÑÂçʸ»ú¤òÆþ
; ÎϤ¹¤ë¤È°ì»þŪ¤Ë¤«¤Ê´Á»úÊÑ´¹¤òȼ¤¦¡ÖÊÑ´¹ÆþÎϥ⡼¥É¡×¤Ç¤ÎÆþÎϤˤʤê¤Þ
; ¤¹¡£°ì»þŪ¤Ê¡ÖÊÑ´¹ÆþÎϥ⡼¥É¡×¤ÏÊÑ´¹¥¡¼¤ò²¡¤·¤¿¸å¡¢¼¡¤ÎÆþÎϤ¬¹Ô¤ï¤ì
; ¤ë¤Ê¤É¤·¤Æ¡¢ÊÑ´¹¤·¤¿Ê¸»ú¤ò³ÎÄꤹ¤ë¤È¡¢È´¤±¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
;
; ¤³¤Î¥Õ¥¡¥¤¥ë¤Ï°Ê²¼¤Î¤è¤¦¤ÊÁàºî¤òÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£
;
; C-j ÆüËܸìÆþÎϥ⡼¥É¤È¤Ê¤ë¡£
; l ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥ÈÆþÎϥ⡼¥É¤Ë¤Ê¤ë(l ¤Ï latin ¤Î l)¡£
; L Á´³Ñ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥ÈÆþÎϥ⡼¥É¤Ë¤Ê¤ë¡£
; q ¤Ò¤é¤¬¤Ê¤È¥«¥¿¥«¥Ê¤ò¥È¥°¥ë¤¹¤ë¡£
; / ±Ñ»úÊÑ´¹¥â¡¼¥É¤Ë¤Ê¤ë¡£
; \ 16 ¿Ê¥³¡¼¥ÉÆþÎϥ⡼¥É¤Ë¤Ê¤ë¡£
; AB.. ÊÑ´¹ÆþÎϥ⡼¥É¤Ë¤Ê¤ë¡£SKK ¤Î¢¦¥â¡¼¥É¡£
;
(initialize-function '(japanese-mode base-kakutei alpha-mode))
(setq romkana-table "default.cbp")
(use-dictionary
"iroha"
"fuzokugo"
"hojomwd"
"hojoswd"
:bushu "bushu"
:user "user"
)
(global-unbind-key-function 'japanese-mode)
(global-unbind-key-function 'alpha-mode)
(defmode LATIN-mode "[£Á ]" romkana-table '(zenkaku romaji kakutei) nil)
(set-mode-display 'yomi-mode "[¤¢¢¦]")
(set-mode-display 'tankouho-mode "[¤¢¢§]")
(set-mode-display 'zen-hira-henkan-mode "[¤¢ ]")
(set-mode-display 'zen-hira-kakutei-mode "[¤¢ ]")
(set-mode-display 'zen-kata-kakutei-mode "[¥¢ ]")
(set-mode-display 'han-alpha-henkan-mode "[񥯣]")
(set-key 'alpha-mode "\C-j" 'japanese-mode)
(set-key 'empty-mode "\C-j" '(base-kana base-kakutei))
(set-key 'LATIN-mode "\C-j" '(henkan-nyuuryoku-mode base-kakutei))
(set-key 'empty-mode "l" 'alpha-mode)
(set-key 'empty-mode "L" 'LATIN-mode)
(set-key 'henkan-nyuuryoku-mode "q" 'base-hiragana-katakana-toggle)
(set-key 'yomi-mode "\Return" '(kakutei kakutei))
(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 skk-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 skk-capitals)
(set-key 'henkan-nyuuryoku-mode
"/" '(temporary base-henkan base-eisu base-hankaku))
(set-key 'henkan-nyuuryoku-mode "\\" 'hex-mode)
(setq allow-next-input t)
(setq hex-direct t)
|