Re: org-mode and remind integration

* Re: org-mode and remind integration
@ 2009-02-11 14:23 Sharad Pratap
  2009-02-11 15:21 ` Carsten Dominik
  0 siblings, 1 reply; 7+ messages in thread
From: Sharad Pratap @ 2009-02-11 14:23 UTC (permalink / raw)
  To: danielemc; +Cc: emacs-orgmode


[-- Attachment #1.1: Type: text/plain, Size: 355 bytes --]

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

[-- Attachment #1.2: Type: text/html, Size: 457 bytes --]

[-- Attachment #2: org2rem.el.patch --]
[-- Type: text/x-patch, Size: 2355 bytes --]

--- 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)
+    ))
 
 
 \f

[-- Attachment #3: org2remind --]
[-- Type: application/octet-stream, Size: 847 bytes --]

#! /usr/bin/emacs --script


(load-file "~/.emacs")
(require 'org2rem)

(defun org2remind ()
  "batch org2rem function"
  (setq org2rem-scheduled-reminders nil)
  (setq org2rem-deadline-reminders nil)
  (setq org2rem-pure-timestamps-string nil)
  (save-window-excursion
    (find-file "~/my/test.org")
    (org2rem-list-reminders org-scheduled-string)
    (org2rem-list-reminders org-deadline-string)
    (org2rem-list-reminders org2rem-pure-timestamps-string)

    (org2rem-write-file org2rem-scheduled-remind-file ;"~/.reminders.org.scheduled" 
			org2rem-scheduled-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)

[-- Attachment #4: show-agenda --]
[-- Type: application/octet-stream, Size: 1611 bytes --]

#!/usr/bin/emacs --script
;;
;; be.el
;; 
;; Made by s
;; Login   <s@taj>
;; 
;; Started on  Wed Feb  4 21:51:00 2009 s
;; Last update Wed Feb 11 17:17:09 2009 Sharad Pratap


(setq
 european-calendar-style nil
 diary-mail-days 7 
 diary-file "~/.Organize/emacs/diary/diary")

(org-batch-agenda "a"
                  european-calendar-style nil
                  diary-mail-days 12
                  org-agenda-ndays 20
                  diary-file "~/.Organize/emacs/diary/diary"
                  org-agenda-files
                  (file-expand-wildcards "~/.Organize/emacs/org/*/*.org"))
;                   org-agenda-files
;                   (quote 
;                    (
;                     "~/.Organize/emacs/org/myself/test.org"
;                     )))
;                  )

;;;      emacs -batch -l ~/.emacs -eval '(org-batch-agenda "t")' | lpr

;;; You may also modify parameters on the fly like this:

;;;      emacs -batch -l ~/.emacs                                      \
;;;         -eval '(org-batch-agenda "a"                               \
;;;                  org-agenda-ndays 300                              \
;;;                  org-agenda-include-diary nil                      \
;;;                  org-agenda-files (quote ("~/org/project.org")))'  \
;;;         | lpr

;;;     (org-batch-agenda "S")



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; from: http://www.mail-archive.com/emacs-orgmode@gnu.org/msg10679.html
;;emacs --batch --no-init-file -q  -l ~/.emacs.slim --eval "(progn
;;(org-agenda-list) (princ (buffer-string)))" 2> /dev/null

[-- Attachment #5: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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

^ permalink raw reply	[flat|nested] 7+ messages in thread