mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

* notifications.el (notifications-get-server-information-method):

Browse Source 
New defconst.
(notifications-get-capabilities): Fix docstring.
(notifications-get-server-information): New defun.
This commit is contained in:
Michael Albinus 2012-11-07 17:55:39 +01:00
parent eb147960b1
commit 499a0f7a98
2 changed files with 36 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2012-11-07 Michael Albinus <michael.albinus@gmx.de>
* notifications.el (notifications-get-server-information-method):
New defconst.
(notifications-get-capabilities): Fix docstring.
(notifications-get-server-information): New defun.
2012-11-06 Agustín Martín Domingo <agustin.martin@hispalinux.es>
* textmodes/ispell.el (ispell-region): Standard re-indent for better

33
lisp/notifications.el
View File

@ -66,6 +66,9 @@
(defconst notifications-get-capabilities-method "GetCapabilities"
"D-Bus notifications get capabilities method.")
(defconst notifications-get-server-information-method "GetServerInformation"
"D-Bus notifications get server information method.")
(defconst notifications-action-signal "ActionInvoked"
"D-Bus notifications action signal.")
@ -349,7 +352,7 @@ BUS can be a string denoting a D-Bus connection, the default is `:session'."
(defvar dbus-debug) ; used in the macroexpansion of dbus-ignore-errors
(defun notifications-get-capabilities (&optional bus)
"Return the capabilities of the notification server, a list of strings.
"Return the capabilities of the notification server, a list of symbols.
BUS can be a string denoting a D-Bus connection, the default is `:session'.
The following capabilities can be expected:
@ -371,12 +374,34 @@ The following capabilities can be expected:
Further vendor-specific caps start with `:x-vendor', like `:x-gnome-foo-cap'."
(dbus-ignore-errors
(mapcar
(lambda (x) (intern (concat ":" x)))
(mapcar
(lambda (x) (intern (concat ":" x)))
(dbus-call-method (or bus :session)
notifications-service
notifications-path
notifications-interface
notifications-get-capabilities-method))))
(defun notifications-get-server-information (&optional bus)
"Return information on the notification server, a list of strings.
BUS can be a string denoting a D-Bus connection, the default is `:session'.
The returned list is (NAME VENDOR VERSION SPEC-VERSION).
NAME The product name of the server.
VENDOR The vendor name. For example, \"KDE\", \"GNOME\".
VERSION The server's version number.
SPEC-VERSION The specification version the server is compliant with.
If SPEC_VERSION is missing, the server supports a specification
prior to \"1.0\".
See `notifications-specification-version' for the specification
version this library is compliant with."
(dbus-ignore-errors
(dbus-call-method (or bus :session)
notifications-service
notifications-path
notifications-interface
notifications-get-capabilities-method))))
notifications-get-server-information-method)))
(provide 'notifications)