ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-notify: Fix compatibility with latest org-element (uppercase properties) 

* contrib/lisp/org-notify.el (org-notify-make-todo): Properties from
  org-element are all uppercase now.
* (org-notify-maybe-too-late): Fix typo in docstring (thanks to davemq,
  https://github.com/p-m/org-notify/issues/3).
This commit is contained in:
Peter Münster 2015-08-24 15:47:13 +02:00 committed by Nicolas Goaziou
parent 4ef2c0e439
commit 0b524dd82c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/org-notify.el
View File

@ -120,7 +120,7 @@ simple timestamp string."
"Create one todo item." "Create one todo item."
(macrolet ((get (k) `(plist-get list ,k)) (macrolet ((get (k) `(plist-get list ,k))
(pr (k v) `(setq result (plist-put result ,k ,v)))) (pr (k v) `(setq result (plist-put result ,k ,v))))
(let* ((list (nth 1 heading)) (notify (or (get :notify) "default")) (let* ((list (nth 1 heading)) (notify (or (get :NOTIFY) "default"))
(deadline (org-notify-convert-deadline (get :deadline))) (deadline (org-notify-convert-deadline (get :deadline)))
(heading (get :raw-value)) (heading (get :raw-value))
result) result)
@ -148,7 +148,7 @@ simple timestamp string."
'headline 'org-notify-make-todo))))) 'headline 'org-notify-make-todo)))))
(defun org-notify-maybe-too-late (diff period heading) (defun org-notify-maybe-too-late (diff period heading)
"Print waring message, when notified significantly later than defined by "Print warning message, when notified significantly later than defined by
PERIOD." PERIOD."
(if (> (/ diff period) 1.5) (if (> (/ diff period) 1.5)
(message "Warning: notification for \"%s\" behind schedule!" heading)) (message "Warning: notification for \"%s\" behind schedule!" heading))