[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00588] Re: mhc-calendar.el
On Tue, 9 May 2000 20:02:13 +0900,
Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> said:
> 了解です。直しました。
うまく動いているようです。
あと、例えば、このドラフトに日付けを入れたくて、
M-x mhc-calendar ってやって、RET を押した場合に、
mhc-calendar: something error occur when insert.
となります。何処でも入れられると嬉しいのですが。
> これ、スッゴク沢山あるんです。(月がなくて)日だけ書いてあるメールもあるし。
あれ、日だけの場合も guess しないんでしたっけ。日だけのと、
「来週の金曜日」 も guess するようにしてみましょう。
> (『19.28 は APEL required』がいいなぁと感じてしまったのは内緒)
やっぱり APEL 勉強しないとだめか。
> 乃村> C-uSPC で region 部分が Duration として入るのはいいですね。
>
> でしょう、でしょう。(^^)
添付のパッチで Date: の入力の所にも、yyyy/mm/dd-yyyy/mm/dd な
形式を受け付けるようにしてみました。3日通しの行事とかの入力に
使えると思います。
mhc-calendar 使わずに手で入力するときも嬉しいはずです。
もちろん yyyy/mm/dd の dd 以外は省略できます。
> 『mhc-calendar で 'v' すると楽しい (toggle)』
> をしました。使ってやって下さい。
これ、いいですね。できたらいいなと思ってたんですよ。
別フレームにして常に置いとくと、gemcal の代替にもなりそう。
(となると、マウスに反応して欲しいよね。)
C-ce に相当する部分があれば、ほとんど mhc の
インターフェースとして使えますね。
> # "Yet Another Human interface for MHC" とでも名乗ろうかしらん。
いや、標準の 1つにさせて下さい。:-)
--
nom
Index: emacs/mhc-minibuf.el
===================================================================
RCS file: /u/nom/prj/cvsroot/mhc/emacs/mhc-minibuf.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- mhc-minibuf.el 2000/02/09 08:43:13 1.7
+++ mhc-minibuf.el 2000/05/09 15:15:56 1.8
@@ -214,6 +214,19 @@
error nil)
(while (car str-list)
(cond
+ ((= 2 (length (mhc-misc-split (car str-list) "-")))
+ (let* ((duration (mhc-misc-split (car str-list) "-"))
+ (b (ddate-new-from-string2 (nth 0 duration) nil t))
+ (e (ddate-new-from-string2 (nth 1 duration) b t)))
+ (if (and b e (ddate< b e))
+ (progn
+ (setq date b)
+ (while (ddate<= date e)
+ (if (not (member date ret))
+ (setq ret (cons date ret))
+ (setq error t))
+ (setq date (ddate-inc date))))
+ (setq error t))))
((string= (car str-list) "")
())
((setq date (ddate-new-from-string2