[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:02046] Re: guess error (date)



From: NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:02044] guess error (date)
Message-ID: <20050316.133052.68531884.nogunogu@xxxxxxxxxxxxxxxxx>
Date: Wed, 16 Mar 2005 13:30:52 +0900 (JST)

> date の guess で、以下のようなフォーマットに対応できませんでした。
> 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> 2005年3月16日〜2005年3月31日
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> おそらく、mhc-guess-date-regexp-list 変数の設定を調整すれば良いのだろ
> うと思っていますが、具体的にどうすればよいのかまではわかっておりません。

えっとですね。mhc-setup-hook でうにうに(*1)やれば良いのですが、
今回の件は元から直した方が簡単かつ合理的に思えるのでやってみまし
た。最後にパッチをつけて、あとで commit しておきます。

(*1) *うにうに* は修行次第ですが、例えば、こんな感じです。

(add-hook 'mhc-setup-hook
	  (setq mhc-guess-date-regexp-list
		(append
		 `((,(concat "\\([0-90-9][0-90-9][0-90-9][0-90-9]年\\)?"
			     "\\([0-90-9][0-90-9]?\\)月"
			     "\\([0-90-9][0-90-9]?\\)日"
			     "\\([〜−-]\\|から\\|より\\)"
			     "\\([0-90-9][0-90-9][0-90-9][0-90-9]年\\)?"
			     "\\(\\([0-90-9]?[0-90-9]\\)月\\)?"
			     "\\([0-90-9]+\\)日?\\(間\\)?")
		    mhc-guess/make-date-from-mmdd 2 3 7 8 9))
		 mhc-guess-date-regexp-list)))

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)
Index: mhc-guess.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-guess.el,v
retrieving revision 1.20
diff -u -u -r1.20 mhc-guess.el
--- mhc-guess.el	28 Oct 2004 08:39:10 -0000	1.20
+++ mhc-guess.el	16 Mar 2005 08:03:52 -0000
@@ -86,14 +86,16 @@
 	      "\\([0-90-9][0-90-9]\\)")
      mhc-guess/make-date-from-yyyymmdd 1 2 3)
 
-    (,(concat "\\([来今0-90-9]+\\)[\n  ]*月[\n  ]*の?[\n  ]*"
+    (,(concat "\\([0-90-9]+年\\)?"
+	      "\\([来今0-90-9]+\\)[\n  ]*月[\n  ]*の?[\n  ]*"
 	      "\\([0-90-9]+\\)日?"
 	      "\\([()()月火水木金土日曜\n   ]*"
-	           "\\([〜−-,,、]\\|から\\|より\\)[\n  ]*"
-		   "\\(\\([来今0-90-9]+\\)[\n  ]*月\\)?[\n  ]*の?[\n  ]*"
-		   "\\([0-90-9]+\\)日?\\(間\\)?"
-	       "\\)?")
-     mhc-guess/make-date-from-mmdd 1 2 6 7 8)
+	      "\\([〜−-,,、]\\|から\\|より\\)[\n  ]*"
+	      "\\([0-90-9]+年\\)?"
+	      "\\(\\([来今0-90-9]+\\)[\n  ]*月\\)?[\n  ]*の?[\n  ]*"
+	      "\\([0-90-9]+\\)日?\\(間\\)?"
+	      "\\)?")
+     mhc-guess/make-date-from-mmdd 2 3 8 9 10)
 
     (,(concat "\\([0-90-9]+[  ]*[//][  ]*\\)?"
 	      "\\([0-90-9]+\\)[  ]*[//][  ]*\\([0-90-9]+\\)"