From f22ead6a584557deaa04a246b22574aed38aac3a Mon Sep 17 00:00:00 2001 From: Alex Murray Date: Thu, 4 Apr 2019 16:49:48 +1030 Subject: [PATCH] Switch to originating erc buffer when clicking desktop notification * lisp/erc/erc-desktop-notifications.el: Switch to lexical-binding. (erc-notifications-notify) Add a default action to the desktop notification which switches to the buffer from which the notification originated. As such clicking on the notification now automatically switches to that buffer. (Bug#35141) Copyright-paperwork-exempt: yes --- lisp/erc/erc-desktop-notifications.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/erc/erc-desktop-notifications.el b/lisp/erc/erc-desktop-notifications.el index 56b93925ce..4046399969 100644 --- a/lisp/erc/erc-desktop-notifications.el +++ b/lisp/erc/erc-desktop-notifications.el @@ -1,4 +1,4 @@ -;; erc-desktop-notifications.el -- Send notification on PRIVMSG or mentions +;; erc-desktop-notifications.el -- Send notification on PRIVMSG or mentions -*- lexical-binding:t -*- ;; Copyright (C) 2012-2019 Free Software Foundation, Inc. @@ -59,11 +59,17 @@ This will replace the last notification sent with this function." (dbus-ignore-errors (setq erc-notifications-last-notification - (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)))) + (let ((channel (current-buffer))) + (notifications-notify :bus erc-notifications-bus + :title (format "%s in %s" + (xml-escape-string nick) + channel) + :body (xml-escape-string msg) + :replaces-id erc-notifications-last-notification + :app-icon erc-notifications-icon + :actions '("default" "Switch to buffer") + :on-action (lambda (&rest _) + (pop-to-buffer channel))))))) (defun erc-notifications-PRIVMSG (proc parsed) (let ((nick (car (erc-parse-user (erc-response.sender parsed)))) -- 2.17.1