ついでに ~/.tc

~/.tc

;;; -*-emacs-lisp-*- This file is automatically created
(setq tcode-data-directory (expand-file-name "~/.tcode/"))
(setq tcode-site-data-directory tcode-data-directory)

(setq tcode-default-input-method "japanese-T-Code")

;; 前置型交ぜ書き
;; (setq tcode-use-prefix-mazegaki t)

;; ○句読点等の切り替え
;; 標準よりも組み合わせを増やし、かつ「(」や「)」も切り替えるようにする。
(defvar tcode-left-paren "（" "* 開き括弧")
(make-variable-buffer-local 'tcode-left-paren)
(defvar tcode-right-paren "）" "* 閉じ括弧")
(make-variable-buffer-local 'tcode-right-paren)
(setq tcode-switch-table-list
      '(;; 全角系 デフォールト
        ((tcode-touten . "、")
         (tcode-kuten . "。")
         (tcode-left-paren . "（")
         (tcode-right-paren . "）"))
        ;; 半角系
        ((tcode-touten . ", ")
         (tcode-kuten . ". ")
         (tcode-left-paren . "(")
         (tcode-right-paren . ")"))
        ;; 2バイト系
        ((tcode-touten . "，")
         (tcode-kuten . "．")
         (tcode-left-paren . "（")
         (tcode-right-paren . "）"))))
;;; ○句読点の自動切り替え
;; 切り替えの規準(正規表現)の指定
(setq tcode-kutouten-regexp-alist
      (list '("[、。]" . 1)
            (if (tcode-nemacs-p)
                '("\\z[,.]" . 2)
              '("\\cj[,.]" . 2))
            '("[，．]" . 3)))
;; 切り替える主モードを指定(text-mode latex-mode)
(setq tcode-auto-identify-kutouten-mode-list
      '(text-mode latex-mode hnf-mode))
;; バッファで最初に Tコードモードに入ったときに、
;; 句読点を自動的に切り替える。
(add-hook 'tcode-mode-hook 'tcode-auto-switch-kutouten)

;; EELLL でイメージを使わない。
(setq eelll-use-image nil)

;; ヘルプ用のウィンドウの大きさを自動的に調整する。
(setq tcode-adjust-window-for-help t)

;; isearch-printing-char: Symbol's function definition is void: isearch-last-command-char 対策
;; tc-sysdep.el の L231
(if (string-match "^\\(19\\|2[0123]\\)" emacs-version)
    (progn
      (defun tcode-redo-command (ch)
        "キー CH を現在のキーマップで再実行する"
        (setq unread-command-events
              (cons (character-to-event ch) unread-command-events)))
      (or (fboundp 'character-to-event)
          (defun character-to-event (ch)
            ch))
      ;; XEmacs
      (or (fboundp 'isearch-last-command-char)
          (defun isearch-last-command-char ()
            last-command-char))
      (or (boundp 'search-upper-case)
          (setq search-upper-case 'not-yanks)))
  ;; NEmacs
  (defun tcode-redo-command (ch)
    "キー CH を現在のキーマップで再実行する"
    (setq unread-command-char ch)))


;; キーボードのカスタマイズ
(setq tcode-key-layout-list
  '(("quek" . (?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?0
               ?' ?( ?) ?p ?y ?f ?g ?c ?r ?l
               ?a ?o ?e ?u ?i ?d ?h ?t ?n ?s
               ?\; ?q ?j ?k ?x ?b ?m ?w ?v ?z
               ?! ?\@ ?# ?$ ?% ?^ ?& ?* ?< ?>
               ?\" ?, ?. ?P ?Y ?F ?G ?C ?R ?L
               ?A ?O ?E ?U ?I ?D ?H ?T ?N ?S
               ?L ?Q ?J ?K ?X ?B ?M ?W ?V ?Z
                  ))))


(add-hook
 'tcode-ready-hook
 (lambda ()
   (set-tcode-mode-key
    "/" 'tcode-insert-ya-outset)        ; 記号入力
   (set-tcode-mode-key                  ; 片仮名変換
    "$" 'tcode-katakana-preceding-chars)
   ;; モード切り替え時にヘルプ用のバッファを消す。
   (setq tcode-auto-remove-help-count 1)
   (add-hook 'tcode-toggle-hook
             'tcode-auto-remove-help)
   ;; カーソルに色をつける
   (and window-system
        (tcode-enable-cursor-to-change-color)
        (setq tcode-mode-on-cursor-color "Violet"))
   ;; org-mode 対応
   (push 'org-self-insert-command tcode-input-command-list)
   ;; 独自キーマップ
   (tcode-set-key-layout "quek")
   ;; 補完機能
   (require 'tc-complete)
   ;; "\" を補完・確定に使う。
   ;;(tcode-set-key "\" 'tcode-mazegaki-complete-and-convert)
   ;; 1文字から補完する。
   (setq tcode-complete-min-context-length 1)
   ;; ;; コントロールキーを伴わないモード切り替え
   ;; (global-set-key " " 'tcode-electric-space)
   ;; (global-set-key ")" 'tcode-electric-comma)
   ;; (tcode-set-key " " 'tcode-electric-space)
   ;; zap-to-char の拡張
   (global-set-key "\M-z" 'tcode-zap-to-char)
   ))


;;; ●文字表を読んだ後に行う設定
;;;   ○2ストローク以上のストロークのキー割り当て
(add-hook 'tcode-after-load-table-hook
          (lambda ()
            (when (eq tcode-input-method 'tcode)
              ;; Tコード用の設定
              ;; 表を一部変更する。
              ;;   0  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
              (tcode-set-action-to-table '(5 5) "です。")
              (tcode-set-action-to-table '(5 6) "ます。")
              (tcode-set-action-to-table '(5 7) "削")
              ;; QWERTY での「ke」に変数 tcode-left-paren を割り当てる。
              (tcode-set-action-to-table '(27 12)
                                         'tcode-left-paren)
              ;; QWERTY での「id」に変数 tcode-right-paren を割り当てる。
              (tcode-set-action-to-table '(17 22)
                                         'tcode-right-paren))))


(progn ;; フィルターによる拡張入力。
 (defun my-t-code-filter (x)
   (or (cdr (assoc x '((?で . "です。")
                       (?ま . "ます。")
                       (?し . "した。")
                       (?事 . "こと")
                       (?〜 . "から")
                       (?消 . "削")
                       (?願 . "お願いします。")
                       (?以 . "以上、")
                       (?メ . "read.eval.print@gmail.com")
                       (?住 . "横浜市泉区岡津町110-3 グレーシアパーク山手台 EAST 壱番館 412")
                       )))
       x))

 (setq tcode-input-filter-functions
       '((tcode-katakana-mode . japanese-katakana)
         ((and (boundp 'tcode-bushu-prefix-list)
           tcode-bushu-prefix-list)
          . tcode-bushu-prefix-convert)
         (tcode-alnum-2-byte . tcode-1-to-2)
         (tcode-shift-state . my-t-code-filter)))
 )

(defun quek-dupm-tcode-key-table ()
  "(quek-dupm-tcode-key-table)"
  (load "tc-tbl")
  (remove-if
   (lambda (x)
     (or (string= " " (caadr x))
         (string= "■" (caadr x))
         (atom (caar x))))
   (mapcar (lambda (x)
             (list (list (mapcar (lambda (key)
                                   (char-to-string (tcode-key-to-char key)))
                                 (tcode-encode x)))
                   (list (char-to-string x))))
           (apply 'concat (mapcar 'identity tcode-tbl)))))