[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:01888] Re: 英文日付の取り込み
森下です。
乃村さん、ご指摘ありがとうございます。
From: Yoshinari Nomura <nom@xxxxxxxxxxxxx>
Subject: [mhc:01887] Re: 英文日付の取り込み
Date: Wed, 25 Feb 2004 23:40:46 +0900
Message-ID: <20040225234046Q.nom@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>
> > From: Mimpei MORISHITA <mimpei@xxxxxxxxx>
> > Subject: 英文日付の取り込み
> > Date: Thu, 19 Feb 2004 19:11:29 -0800 (PDT)
> > Message-ID: <20040219.191129.91276483.mimpei@xxxxxxxxxxxx>
> >
> commit したいと思いますが，
> 一般の日本人にとって，上の引用のような Date: にひっかかって，
> 精度が落ちるということはないでしょうか?
確かにそうですね。
まず、Date: ヘッダの引用にひっかかってしまうのは正規表現部分のバグでし
た。Feb 2004 の部分を、Feb 20 04 と解釈していました。
これを修正すれば、Date: ヘッダにひっかかることはとりあえずなくなると思
います。
で、このバグを修正したとしても、Date: ヘッダに現れているような
25 Feb 2004 といった英国式の日付表記、あるいは this Friday のような相
対日付もサポートしたくなります。
そうすると、日付取り込みの候補が増えていってしまいますね。
案として、以下の 2 つを考えたのですが、他に良い方法があればご教示いた
だければ幸いです。
(1) 英文日付を無視するかどうか、例えば mhc-guess-ignore-english-date
のようなオプションで設定できるようにしておく。
今のところこれが一番ラクそうな気がします。
(2) mhc-guess-date-regexp-list の中で、英文日付部分の前に throw シンボ
ルを入れる。
ただこれをしてしまうと、
以下の案内をフォワードします。希望者は 3/1 までに XX さんまで。
> Let's hava a party on Mar 8!
というような日英混合文から英語の日付を拾えなくなってしまうので、こ
れはあまり嬉しくないような気がします。
とりあえず、(1) の形で修正してみました。
ついでに、英国式日付と相対日付も取り入れてみました。
mhc-guess-ignore-english-date のデフォルトはとりあえず nil にしてみま
したが、変更していただいてももちろん構いません。
また、mhc-guess-english-date-format という変数を設けてみました。
usa: 米国式の日付を拾いたい場合
british: 英国式の日付を拾いたい場合
both: 米国式英国式双方の日付を拾う場合
をそれぞれ設定していただければと思います。デフォルトは usa にしてあり
ます。
エンバグしていなければよいのですが、、、
お手数ですが、よろしくお願いいたします。
Index: mhc-guess.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-guess.el,v
retrieving revision 1.17
diff -c -r1.17 mhc-guess.el
*** mhc-guess.el 2003/11/05 01:12:43 1.17
--- mhc-guess.el 2004/02/26 02:51:45
***************
*** 58,63 ****
--- 58,81 ----
(require 'mhc-date)
(provide 'mhc-guess)
+ ;;; Customize variables:
+
+ (defcustom mhc-guess-ignore-english-date nil
+ "*Ignore English dates."
+ :group 'mhc
+ :type '(choice (const :tag "Ignore" t)
+ (const :tag "Don't Ignore" nil)))
+
+ (defcustom mhc-guess-english-date-format 'usa
+ "*English date formats.
+ usa: Suppose the USA style date formats. (e.g. Feb 25, 2004)
+ british: Suppose British style date formats. (e.g. 25 Feb, 2004)
+ both: Suppose both of the USA and British style date formats."
+ :group 'mhc
+ :type '(choice (const :tag "USA" usa)
+ (const :tag "British" british)
+ (const :tag "Both of the USA and British" both)))
+
;;
;; regexp for get date strings.
;;
***************
*** 88,99 ****
--- 106,147 ----
"\\)?")
mhc-guess/make-date-from-mmdd 2 3 8 9 10)
+ ;; USA style date format
+ (,(concat "\\(Jan\\(uary\\)?\\|Feb\\(ruary\\)?\\|Mar\\(ch\\)?\\|"
+ "Apr\\(il\\)?\\|May\\|Jun\\|July?\\|Aug\\(ust\\)?\\|"
+ "Sep\\(tember\\)?\\|Oct\\(ober\\)\\|"
+ "Nov\\(ember\\)?\\|Dec\\(ember\\)?\\)"
+ "\.?,? +"
+ "\\([0-9][0-9]?\\)\\(st\\|nd\\rd\\|th\\)?,?[ \n]+" ;; day
+ "\\(\\('\\|[1-9][0-9]\\)?[0-9][0-9]\\)?") ;; year
+ mhc-guess/make-date-from-usa-style-date 1 11 13)
+
+ ;; British style date format
+ (,(concat "\\([0-9][0-9]?\\)\\(st\\|nd\\rd\\|th\\)?,? " ;; day
+ "\\(Jan\\(uary\\)?\\|Feb\\(ruary\\)?\\|Mar\\(ch\\)?\\|"
+ "Apr\\(il\\)?\\|May\\|Jun\\|July?\\|Aug\\(ust\\)?\\|"
+ "Sep\\(tember\\)?\\|Oct\\(ober\\)\\|"
+ "Nov\\(ember\\)?\\|Dec\\(ember\\)?\\)"
+ "\.?,?[ \n]+"
+ "\\(\\('\\|[1-9][0-9]\\)?[0-9][0-9]\\)?") ;; year
+ mhc-guess/make-date-from-british-style-date 1 3 13)
+
throw
(,(concat "\\(今度\\|[今来次]週\\|再来週\\)[\n ]*の?[\n ]*"
"\\([月火水木金土日]\\)曜")
mhc-guess/make-date-from-relative-week 1 2)
+ (,(concat "\\([Tt]his\\|[Nn]ext\\)[\n ]+"
+ "\\(Monday\\|Tuesday\\|Wednesday\\|Thursday\\|Friday\\|"
+ "Saturday\\|Sunday\\)")
+ mhc-guess/make-date-from-english-relative-week 2 1 nil)
+
+ (,(concat "\\(Monday\\|Tuesday\\|Wednesday\\|Thursday\\|Friday\\|"
+ "Saturday\\|Sunday\\)[\n ]+"
+ "\\([Tt]his\\|[Nn]ext\\)[ \n]+\\([Ww]eek\\)")
+ mhc-guess/make-date-from-english-relative-week 1 2 3)
+
throw
("\\([０-９0-9]+\\)[\n ]*日"
***************
*** 102,109 ****
--- 150,165 ----
("[^\(（]\\([月火水木金土日]\\)\n?曜"
mhc-guess/make-date-from-relative-week nil 1)
+ (,(concat "\\(Monday\\|Tuesday\\|Wednesday\\|Thursday\\|Friday\\|"
+ "Saturday\\|Sunday\\)")
+ mhc-guess/make-date-from-english-relative-week 1 nil nil)
+
("\\(本日\\|今日\\|あす\\|あした\\|あさって\\|明日\\|明後日\\)"
mhc-guess/make-date-from-relative-day 1)
+
+ (,(concat "\\([Tt]oday\\|[Tt]omorrow\\|"
+ "[Tt]he[ \n]+[Dd]ay[ \n]+[Aa]fter[ \n]+[Tt]omorrow\\)")
+ mhc-guess/make-date-from-english-relative-day 1)
))
(defvar mhc-guess-time-regexp-list
***************
*** 333,338 ****
--- 389,424 ----
(store-match-data data)
date))
+ (defun mhc-guess/make-date-from-usa-style-date (now month-str dd-str yy-str)
+ (if (and (null mhc-guess-ignore-english-date)
+ (or (eq 'usa mhc-guess-english-date-format)
+ (eq 'both mhc-guess-english-date-format)))
+ (mhc-guess/make-date-from-english-date now month-str dd-str yy-str)))
+
+ (defun mhc-guess/make-date-from-british-style-date (now dd-str month-str yy-str)
+ (if (and (null mhc-guess-ignore-english-date)
+ (or (eq 'british mhc-guess-english-date-format)
+ (eq 'both mhc-guess-english-date-format)))
+ (mhc-guess/make-date-from-english-date now month-str dd-str yy-str)))
+
+ (defun mhc-guess/make-date-from-english-date (now month-str dd-str yy-str)
+ (let* ((month-alist
+ '(("Jan" . "1") ("Feb" . "2") ("Mar" . "3") ("Apr" . "4")
+ ("May" . "5") ("Jun" . "6") ("Jul" . "7") ("Aug" . "8")
+ ("Sep" . "9") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")))
+ (mm-str (cdr (assoc (substring month-str 0 3) month-alist)))
+ (yy-length (length yy-str)))
+ (cond ((= yy-length 4) ; "yyyy"
+ (mhc-guess/make-date-from-yyyymmdd now yy-str mm-str dd-str))
+ ((= yy-length 3) ; "'yy"
+ (mhc-guess/make-date-from-yyyymmdd
+ now
+ (concat (substring (format-time-string "%Y") 0 2)
+ (substring yy-str 1 3))
+ mm-str dd-str))
+ (t
+ (mhc-guess/make-date-from-mmdd now mm-str dd-str)))))
+
(defun mhc-guess/make-date-from-relative-day (now rel-word)
(cond
((null rel-word)
***************
*** 347,352 ****
--- 433,451 ----
(string= rel-word "明後日"))
(cons (mhc-date+ now 2) nil))))
+ (defun mhc-guess/make-date-from-english-relative-day (now rel-word)
+ (unless mhc-guess-ignore-english-date
+ (let ((rel (downcase rel-word)))
+ (cond
+ ((null rel)
+ nil)
+ ((string= rel "today")
+ (cons now nil))
+ ((string= rel "tomorrow")
+ (cons (mhc-date++ now) nil))
+ (t ;; the day after tommorow.
+ (cons (mhc-date+ now 2) nil))))))
+
(defun mhc-guess/make-date-from-relative-week (now rel-word week)
(let ((data (match-data))
(ww (string-match week "日月火水木金土"))
***************
*** 369,374 ****
--- 468,496 ----
(cons (mhc-date+ date off) nil)
))
+ (defun mhc-guess/make-date-from-english-relative-week (now dow rel-word week)
+ (unless mhc-guess-ignore-english-date
+ (let ((dow-alist '(("Monday" . "月") ("Tuesday" . "火")
+ ("Wednesday" . "水") ("Thursday" . "木")
+ ("Friday" . "金") ("Saturday" . "土")
+ ("Sunday" . "日")))
+ (rel (downcase rel-word)))
+ (mhc-guess/make-date-from-relative-week
+ now
+ (if (null rel)
+ nil
+ (cond ((and (string= rel "this") (null week))
+ "今度")
+ ((and (string= rel "this") week)
+ "今週")
+ ((and (string= rel "next") (null week))
+ "今度")
+ ((and (string= rel "next") week)
+ "来週")
+ (t
+ nil)))
+ (cdr (assoc-ignore-case dow dow-alist))))))
+
;;
;; make time from string.
;;
--
もりした みんぺい