Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Change acquiring yomi of postfix katakana conversion to be customizable.
* scm/tutcode.scm
  - (tutcode-postfix-katakana-char-list): New variable.
  - (tutcode-begin-postfix-katakana-conversion):
    Change to call tutcode-postfix-katakana-acquire-char?
  - (tutcode-postfix-katakana-acquire-char?):
    New function extracted from tutcode-begin-postfix-katakana-conversion.
  • Loading branch information
deton committed Dec 22, 2012
1 parent 9f5ee46 commit f41f5a5
Showing 1 changed file with 10 additions and 7 deletions.
17 changes: 10 additions & 7 deletions scm/tutcode.scm
Expand Up @@ -609,6 +609,9 @@
(define tutcode-postfix-mazegaki-terminate-char-list
'("\n" "\t" " " "" "" "" "" "" "" "" "" ""))

;;; 後置型カタカナ変換の対象取得時に、(ひらがなに加えて)対象にする文字のリスト
(define tutcode-postfix-katakana-char-list '(""))

;;; 後置型漢字→入力シーケンス変換の読み取得時に、読みに含めない文字のリスト。
;;; スペースを含む英単語の変換を楽にしたい場合、'(":")等にすることを想定。
;;; ("\n" "\t"は別扱い。tutcode-delete-leading-delimiter-on-postfix-kanji2seq?
Expand Down Expand Up @@ -3999,15 +4002,15 @@
;;; @return 取得した文字列(文字列の逆順リスト)
(define (tutcode-postfix-katakana-acquire-yomi pc yomi-len)
(let ((former-seq (tutcode-postfix-acquire-text pc
(or yomi-len tutcode-mazegaki-yomi-max)))
;; カタカナへの変換対象文字(ひらがな、・ー)かどうかを返す
(tokatakana?
(lambda (str)
(or (tutcode-hiragana? str)
(member str '("" ""))))))
(or yomi-len tutcode-mazegaki-yomi-max))))
(if yomi-len
former-seq
(take-while tokatakana? former-seq))))
(take-while tutcode-postfix-katakana-acquire-char? former-seq))))

;;; 後置型カタカナ変換対象文字(ひらがな、ー)かどうかを返す
(define (tutcode-postfix-katakana-acquire-char? char)
(or (tutcode-hiragana? char)
(member char tutcode-postfix-katakana-char-list)))

;;; ひらがなかどうか
(define (tutcode-hiragana? s)
Expand Down

0 comments on commit f41f5a5

Please sign in to comment.