diff options
Diffstat (limited to 'lisp/org/org-clock.el')
-rw-r--r-- | lisp/org/org-clock.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 069c851abed..e79677ad6be 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2004-2024 Free Software Foundation, Inc. ;; Author: Carsten Dominik <carsten.dominik@gmail.com> -;; Keywords: outlines, hypermedia, calendar, wp +;; Keywords: outlines, hypermedia, calendar, text ;; URL: https://orgmode.org ;; ;; This file is part of GNU Emacs. @@ -51,6 +51,8 @@ (declare-function org-dynamic-block-define "org" (type func)) (declare-function w32-notification-notify "w32fns.c" (&rest params)) (declare-function w32-notification-close "w32fns.c" (&rest params)) +(declare-function haiku-notifications-notify "haikuselect.c") +(declare-function android-notifications-notify "androidselect.c") (defvar org-frame-title-format-backup nil) (defvar org-state) @@ -855,6 +857,18 @@ use libnotify if available, or fall back on a message." ((stringp org-show-notification-handler) (start-process "emacs-timer-notification" nil org-show-notification-handler notification)) + ((fboundp 'haiku-notifications-notify) + ;; N.B. timeouts are not available under Haiku. + (haiku-notifications-notify :title "Org mode message" + :body notification + :urgency 'low)) + ((fboundp 'android-notifications-notify) + ;; N.B. timeouts are not available under Haiku or Android. + (android-notifications-notify :title "Org mode message" + :body notification + ;; Low urgency notifications + ;; are by default hidden. + :urgency 'normal)) ((fboundp 'w32-notification-notify) (let ((id (w32-notification-notify :title "Org mode message" |