kiwanami · May 27, 2012 04:11
diff --git a/calfw-howm-workaround1.el b/calfw-howm-workaround1.el
 (defun cfw:howm-schedule-parse-line (line)
  "[internal] Parse the given string and return a result list, (date num type summary)."
  (when (string-match "^\\[\\([^@!]+\\)\\]\\([@!]\\)\\([0-9]*\\) \\(.*\\)$" line)
    (list 
     (match-string 1 line)
     (or (and (match-string 3 line)
              (string-to-number (match-string 3 line))) 0)
     (match-string 2 line) (match-string 4 line))))
	(defun cfw:howm-schedule-parse-line (line)
	"[internal] Parse the given string and return a result list, (date num type summary)."
	(when (string-match "^\\[\\([^@!]+\\)\\]\\([@!]\\)\\([0-9]\\) \\(.\\)$" line)
	(list
	(match-string 1 line)
	(or (and (match-string 3 line)
	(string-to-number (match-string 3 line))) 0)
	(match-string 2 line) (match-string 4 line))))