tc2 で 3 ストローク

tc2 で「ます。」を 2 ストローク だけど、シフトキーを使うとどうもリズムが悪い。

"-" をプレフィクスとした 3 ストロークに変更してみた。

それはともかく https://github.com/naota/tc の tc2 はいいですね。ありがとうございます。

(add-hook
 'tcode-ready-hook
 (lambda ()

   ;; いろいろ他の設定。。。

   ;; フィルターによる拡張入力。
   (progn
     (defvar *my-t-code-filter-active-p* nil)

     (defun my-t-code-filter-activate ()
       (setq *my-t-code-filter-active-p* t))

     (defun my-t-code-filter (x)
       (setq *my-t-code-filter-active-p* nil)
       (or (cdr (assoc x '((?で . "です。")
                           (?ま . "ます。")
                           (?し . "した。")
                           (?事 . "こと")
                           (?〜 . "から")
                           (?消 . "削")
                           (?願 . "お願いします。")
                           (?以 . "以上、")
                           (?メ . "foo.bar.baz@gmail.com")
                           (?住 . "横浜市中区上野町123-42")
                           )))
           x))

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

     (set-tcode-mode-key "-" 'my-t-code-filter-activate)
     )))

ついでに ~/.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)))))

tc2 で「ます。」を 2 ストローク

この記事は 漢直 Advent Calendar : ATND の中のある 1 日です。

Eamcs での T-Code 入力 tc2 をちょっ便利にしてみます。

AZIK の特殊拡張では「ます」を「ms」、「こと」を「kt」、「から」を「kr」で打てます。これらを T-Code 打つと一文字 2 ストロークですから、それぞれ 4 ストロークで、 AZIK の倍の打鍵が必要になります。

tc2 でも AZIK と同様に 2 ストロークで入力できるようにしたいと思います。

tc2 には入力フィルタという仕組みがあり、打鍵の結果をいじることができます。

;; "-shift" 付のレイアウトを指定します。
(tcode-set-key-layout "qwerty-jis-shift")

(progn ;; フィルターによる拡張入力。
 (defun my-t-code-filter (x)
   (or (cdr (assoc x '((?で . "です。")
                       (?ま . "ます。")
                       (?し . "した。")
                       (?事 . "こと")
                       (?〜 . "から")
                       (?消 . "削")
                       (?願 . "お願いします。")
                       (?以 . "以上、")
                       (?メ . "foo.bar.baz@gmail.com")
                       (?住 . "横浜市中区上野町123-42")
                       )))
       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)))
 )

これで、「ます。」は「Shift+ま」（「Md」）、「こと」は「Shift+事」（「Uf」）、「から」は「Shift+〜」（「<m」）で入力できるようになります。シフトキーは必要でするが 2 ストロークになりました。

また、「Shift+メ」でメールアドレスを入力したり、「Shift+住」で住所を入力したりするのもいいですね。

Climacs で uim T-Code

Climacs で T-Code で uim を使わずにと思っていたが、uim を使った方が楽だし便利だと思いなおす。

ということで mcclim-uim が T-Code では動かなかったのを修正した。

https://github.com/quek/mcclim-uim

(require :mcclim-uim) すれば Climacs（McCLIM）で uim が動くはず。

さて、だれか使う人いるのかな? SKK も動くはず。

何だか短いので Climacs のカスタマイズのコードでも載せておく。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :mcclim)
  (require :mcclim-freetype)
  (require :climacs)
  (require :mcclim-uim)
  )

;; フォントを大きく。
(setf mcclim-truetype::*dpi* 96)

;; C-h をバックスペースにするために、C-h のキーストロークを削除。
(clim:remove-keystroke-from-command-table 'esa:help-table
                                          '(:keyboard #\h 512)
                                          :errorp nil)
;; C-h でバックスペース
(esa:set-key `(drei-commands::com-backward-delete-object
               ,clim:*numeric-argument-marker*
               ,clim:*numeric-argument-marker*)
             'drei:deletion-table
             '((#\h :control)))
;; C-m newline and indent
(esa:set-key 'drei-lisp-syntax::com-newline-indent-then-arglist
             'drei-lisp-syntax:lisp-table
             '((#\m :control)))
;; C-/ undo
(esa:set-key 'drei-commands::com-undo
             'drei:editing-table
             '((#\/ :control)))
;; C-i で補完
(esa:set-key 'drei-lisp-syntax::com-indent-line-and-complete-symbol
             'drei-lisp-syntax:lisp-table
             '((#\i :control)))

;; Climacs 起動
(climacs:climacs-rv :width 900 :height 1000 :new-process t)