procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/notifications.el (notifications-on-action-signal)

Browse source 
(notifications-on-closed-signal): Pass notification id as first
argument to the callback functions. Add docstrings.
(notifications-notify): Fix docstring.
This commit is contained in:
Michael Albinus 2010-06-10 14:44:59 +02:00
parent 3903505c72
commit fa4003dab3
2 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2010-06-10 Julien Danjou <julien@danjou.info>
* net/notifications.el (notifications-on-action-signal)
(notifications-on-closed-signal): Pass notification id as first
argument to the callback functions. Add docstrings.
(notifications-notify): Fix docstring.
2010-06-10 Glenn Morris <rgm@gnu.org>
* emacs-lisp/authors.el (authors-ignored-files)

15
lisp/net/notifications.el
View file

@ -86,9 +86,10 @@
"Mapping between notification and close callback functions.")
(defun notifications-on-action-signal (id action)
"Dispatch signals to callback functions from `notifications-on-action-map'."
(let ((entry (assoc id notifications-on-action-map)))
(when entry
(funcall (cadr entry) action)
(funcall (cadr entry) id action)
(remove entry 'notifications-on-action-map))))
(dbus-register-signal
@ -100,9 +101,11 @@
'notifications-on-action-signal)
(defun notifications-on-closed-signal (id reason)
"Dispatch signals to callback functions from `notifications-on-closed-map'."
(let ((entry (assoc id notifications-on-close-map)))
(when entry
(funcall (cadr entry) (cadr (assoc reason notifications-closed-reason)))
(funcall (cadr entry)
id (cadr (assoc reason notifications-closed-reason)))
(remove entry 'notifications-on-close-map))))
(dbus-register-signal
@ -155,11 +158,13 @@ Various PARAMS can be set:
should point to. The \"y\" hint must also be specified.
:y Specifies the Y location on the screen that the notification
should point to. The \"x\" hint must also be specified.
:on-action Function to call when an action is invoked. The key of the
action is passed as argument to the function.
:on-action Function to call when an action is invoked.
The notification id and the key of the action are passed
as arguments to the function.
:on-close Function to call when the notification has been closed
by timeout or by the user.
The function receives the closing reason as argument:
The function receive the notification id and the closing
reason as arguments:
- `expired' if the notification has expired
- `dismissed' if the notification was dismissed by the user
- `close-notification' if the notification was closed