branch: externals/org-notify
commit 13afc93024aad4b3f6b91d9716e61cb28814b8c4
Author: Peter Münster <p...@free.fr>
Commit: Peter Münster <p...@free.fr>
Add support for sending emails.
org-notify.el (org-notify-action-email): new function
---
org-notify.el | 27 +++++++++++++++------------
1 file changed, 15 insertions(+), 12 deletions(-)
diff --git a/org-notify.el b/org-notify.el
index ccee3601c8..317e53a7c5 100644
--- a/org-notify.el
+++ b/org-notify.el
@@ -245,10 +245,23 @@ for SECS is 50."
(run-with-timer (or (plist-get plist :duration) 3) nil
'cancel-timer timer)))
+(defun org-notify-body-text (deadline)
+ "Make human readable string for remaining time to deadline.
+This time in seconds is provided by DEADLINE."
+ (require 'gnus-art)
+ (replace-regexp-in-string
+ " in the future" ""
+ (article-lapsed-string (time-add (current-time)
+ (seconds-to-time deadline))
+ 2)))
+
(defun org-notify-action-email (plist)
"Send email to user."
-; todo
-)
+ (compose-mail user-mail-address (concat "TODO: " (plist-get plist :heading)))
+ (insert (org-notify-body-text (plist-get plist :deadline)))
+ (funcall send-mail-function)
+ (flet ((yes-or-no-p (prompt) t))
+ (kill-buffer)))
(defun org-notify-select-highest-window ()
"Select the highest window on the frame, that is not is not an
@@ -301,16 +314,6 @@ org-notify window. Mostly copied from
`appt-select-lowest-window'."
(set-buffer-modified-p nil) (setq buffer-read-only t)
(raise-frame (selected-frame)) (select-window this-window)))))
-(defun org-notify-body-text (deadline)
- "Make human readable string for remaining time to deadline.
-This time in seconds is provided by DEADLINE."
- (require 'gnus-art)
- (replace-regexp-in-string
- " in the future" ""
- (article-lapsed-string (time-add (current-time)
- (seconds-to-time deadline))
- 2)))
-
(defun org-notify-action-notify (plist)
"Pop up a notification window."
; todo perhaps: dbus-unregister-service for NotificationClosed to
