[mhc:02156] Re: mhc-minibuf.el patch

[NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>]

野口です
度々申し訳ありません。

> mhc-ask-alarm = t を設定しておく、mhc-import() 中で "X-SC-Alarm: " の
> エントリ値を問合せてくれますが、この際に「不正形式チェック」をするよう
> に修正してみました。

Format 違反再入力での、minibuf 初期値が使いづらいとの意見をいただきま
したので、修正版をお送りいたします。

ご検討いただければ幸いです。
-- 
NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>



*** mhc-minibuf.el.org3	Fri Apr 15 20:34:24 2005
--- mhc-minibuf.el	Fri Sep 16 20:12:07 2005
***************
*** 521,533 ****
  	  nil
  	(mhc-misc-split in)))))
  
  (defvar mhc-alarm-hist nil)
  
  (defun mhc-input-alarm (&optional prompt default)
    (interactive)
!   (read-from-minibuffer  (or prompt "Alarm: ")
! 			 (or default mhc-default-alarm)
! 			 nil nil 'mhc-alarm-hist))
  
  (provide 'mhc-minibuf)
  
--- 521,550 ----
  	  nil
  	(mhc-misc-split in)))))
  
+ (defconst mhc-input-alarm-regex "^\\([0-9]+\\)[ ]\\(minute\\|hour\\|day\\)$")
+ 
  (defvar mhc-alarm-hist nil)
  
  (defun mhc-input-alarm (&optional prompt default)
    (interactive)
!   (let ((err t) str prom)
!     (setq prom (concat (or prompt "Alarm") " [# (minute|hour|day)]: "))
!     (setq str (or default mhc-default-alarm))
!     (while err
!       (setq str (mhc-minibuf-read prom
! 				  str
! 				  (current-buffer)
! 				  nil
! 				  0
! 				  nil
! 				  nil))
!       (if (string-match mhc-input-alarm-regex str)
! 	  (setq err nil)
! 	(beep)
! 	(message "illegal format")
! 	(sleep-for 1)))
!     str))
! 		 
  
  (provide 'mhc-minibuf)