Hi Daniel, Your regular expression working fine!!, I have made few change with same regular expression, and it has worked for me.
I wish `org2rem' could be as robust as `org-export-icalendar'.
Like me you also want orgmode outside editor, So I have added to
executable script `org2remind' and `show-agenda'.
--
Regard
(`
_) h a r a d
--- org2rem.el.old 2009-01-09 09:00:48.000000000 +0000
+++ org2rem.el.new 2009-02-11 13:59:16.777712000 +0000
@@ -34,13 +34,21 @@
(eval-when-compile
(require 'cl))
+(defvar org2rem-pure-timestamps-string ;we need it.
+ (concat "\\(" org-deadline-string "\\|"
+ org-scheduled-string "\\)\\{0\\}"))
+
(defvar org2rem-scheduled-reminders nil)
(defvar org2rem-deadline-reminders nil)
+(defvar org2rem-pure-timestamps-reminders nil)
+
(defvar pure-time nil)
(defvar org2rem-scheduled-remind-file
"~/.reminders.org.scheduled")
(defvar org2rem-deadline-remind-file
"~/.reminders.org.deadline")
+(defvar org2rem-pure-timestamps-remind-file
+ "~/.reminders.org.pure-timestamps")
(defun org2rem-list-reminders (regexp)
"Make a list of appointments.
@@ -95,9 +103,15 @@
(setq rem-task (concat "REM" rem-time "MSG " task "%")
)
- (if (equal regexp org-scheduled-string)
- (push rem-task org2rem-scheduled-reminders)
- (push rem-task org2rem-deadline-reminders)))))))
+
+ (cond
+ ((equal regexp org2rem-pure-timestamps-string)
+ (push rem-task org2rem-pure-timestamps-reminders))
+ ((equal regexp org-scheduled-string)
+ (push rem-task org2rem-scheduled-reminders))
+ ((equal regexp org-deadline-string)
+ (push rem-task org2rem-deadline-reminders))
+ ))))))
(defun org2rem-write-file (file reminders)
"Write reminders list to files."
@@ -116,13 +130,19 @@
(interactive)
(setq org2rem-scheduled-reminders nil)
(setq org2rem-deadline-reminders nil)
+ (setq org2rem-pure-timestamps-string nil)
(save-window-excursion
(org2rem-list-reminders org-scheduled-string)
(org2rem-list-reminders org-deadline-string)
- (org2rem-write-file "~/.reminders.org.scheduled"
+ (org2rem-list-reminders org2rem-pure-timestamps-string)
+
+ (org2rem-write-file org2rem-scheduled-remind-file ;"~/.reminders.org.scheduled"
org2rem-scheduled-reminders)
- (org2rem-write-file "~/.reminders.org.deadline"
- org2rem-deadline-reminders)))
+ (org2rem-write-file org2rem-deadline-remind-file ;"~/.reminders.org.deadline"
+ org2rem-deadline-reminders)
+ (org2rem-write-file org2rem-pure-timestamps-remind-file ;"~/.reminders.org.pure-timestamps"
+ org2rem-pure-timestamps-reminders)
+ ))
org2remind
Description: Binary data
show-agenda
Description: Binary data
_______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
