From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?Peter_M=C3=BCnster?= Subject: [PATCH] org-notify: Fix compatibility with latest org-element (uppercase properties) Date: Mon, 24 Aug 2015 15:47:13 +0200 Message-ID: <87fv383iji.fsf@free.fr> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:52587) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZTs8e-00085C-5Z for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 09:50:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZTs8Y-0005uk-Aa for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 09:50:16 -0400 Received: from plane.gmane.org ([80.91.229.3]:50485) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZTs8Y-0005tz-3U for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 09:50:10 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZTs8W-0002c2-K6 for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 15:50:08 +0200 Received: from arennes-651-1-8-41.w86-215.abo.wanadoo.fr ([86.215.151.41]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 24 Aug 2015 15:50:03 +0200 Received: from pmlists by arennes-651-1-8-41.w86-215.abo.wanadoo.fr with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 24 Aug 2015 15:50:03 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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). --- contrib/lisp/org-notify.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/org-notify.el b/contrib/lisp/org-notify.el index da2c96f..8bcca9f 100644 --- a/contrib/lisp/org-notify.el +++ b/contrib/lisp/org-notify.el @@ -120,7 +120,7 @@ simple timestamp string." "Create one todo item." (macrolet ((get (k) `(plist-get list ,k)) (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))) (heading (get :raw-value)) result) @@ -148,7 +148,7 @@ simple timestamp string." 'headline 'org-notify-make-todo))))) (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." (if (> (/ diff period) 1.5) (message "Warning: notification for \"%s\" behind schedule!" heading)) -- 2.1.4 Peter