[mhc:02052] Location: guess 時の全角半角変換

[NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>]

野口です。

人によって、「場所」を

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
会場：６０１会議室
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
と書く人や
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
会場: 601会議室
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

がいます。私個人の好みとしては、すべて「601会議室」という形式で登録し
たいのですが、現状では guess で挙がってきた「６０１会議室」という候補
を手で修正しています。

これがだんだん面倒になってきましたので、添付のような変更を加えてみまし
た。動作としては私の思い通りに動いてくれています。

ただ、

  (1) mhc-minibuf/location-to-string() の中で実施するので良いのか?
  (2) 変換方法として japanese-{hankaku,zenkaku}() を使うので良いのか?

等については良くわかりません。

とりあえず、「こんな風に動いて欲しい」という雛型として提出いたします。
御検討いただければ幸いです。
-- 
NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>


*** mhc-minibuf.el.org	Wed Sep  8 18:12:10 2004
--- mhc-minibuf.el	Thu Mar 17 15:59:34 2005
***************
*** 229,237 ****
--- 229,255 ----
  	 (mhc-time-to-string time) "-" (mhc-time-to-string time2))
        (mhc-time-to-string time))))
  
+ (defcustom mhc-location-string-conversion 'no-care
+   "Location character conversion. (Zenkaku or Hankaku)"
+   :group 'mhc
+   :type '(choice (const :tag "Dont Care" dont-care)
+ 		 (const :tag "Hankaku" hankaku)
+ 		 (const :tag "Zenkaku" zenkaku)))
+ 
  (defun mhc-minibuf/location-to-string (location-cons)
    (let ((loc (car location-cons))
  	(loc2 (cdr location-cons)))
+     (cond
+      ((eq mhc-location-string-conversion 'hankaku)
+       (setq loc (japanese-hankaku loc t))
+       (if loc2 
+ 	  (setq loc2 (japanese-hankaku loc2 t))))
+      ((eq mhc-location-string-conversion 'zenkaku)
+       (setq loc (japanese-zenkaku loc))
+       (if loc2
+ 	  (setq loc2 (japanese-zenkaku loc2))))
+      (t
+       ))
      (if loc2
  	(concat
  	 (format "%s" loc) "-" (format "%s" loc2))