Commit 709a5173 authored by Michael Albinus's avatar Michael Albinus
Browse files

* erc-desktop-notifications.el (erc-notifications-bus):

New customer option.  Supports cases when Emacs hasn't been
invoked in the same environment where the notifications shall go to.
(erc-notifications-notify): Use it.
parent 116be282
2014-11-23 Michael Albinus <michael.albinus@gmx.de>
* erc-desktop-notifications.el (erc-notifications-bus):
New customer option. Supports cases when Emacs hasn't been
invoked in the same environment where the notifications shall go to.
(erc-notifications-notify): Use it.
2014-11-10 Kelvin White <kwhite@gnu.org>
* erc-stamp.el (erc-timestamp-intangible): Change version tag to 24.5.
......
......@@ -46,6 +46,12 @@
:group 'erc-notifications
:type '(choice (const :tag "No icon" nil) file))
(defcustom erc-notifications-bus :session
"D-Bus bus to use for notification."
:version "24.5"
:group 'erc-notifications
:type '(choice (const :tag "Session bus" :session) string))
(defvar dbus-debug) ; used in the macroexpansion of dbus-ignore-errors
(defun erc-notifications-notify (nick msg)
......@@ -53,7 +59,8 @@
This will replace the last notification sent with this function."
(dbus-ignore-errors
(setq erc-notifications-last-notification
(notifications-notify :title (xml-escape-string nick)
(notifications-notify :bus erc-notifications-bus
:title (xml-escape-string nick)
:body (xml-escape-string msg)
:replaces-id erc-notifications-last-notification
:app-icon erc-notifications-icon))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment