From 3c1a95877efb7b3c28e4a1dc86a7204e222b7775 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 19 Dec 2014 04:08:29 -0800 Subject: [PATCH] alert alerting for everything. --- init.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index 32e0d213..2836ceb5 100644 --- a/init.el +++ b/init.el @@ -843,13 +843,12 @@ The current directory is assumed to be the project's root otherwise." :config (progn (defun alert-notifier-notify (info) - (message "%s" info) (if alert-notifier-command (let ((args (list "-title" (alert-encode-string (plist-get info :title)) - ;;"-sender" "org.gnu.Emacs" + "-activate" "org.gnu.Emacs" "-message" (alert-encode-string (plist-get info :message)) - "-execute" (switch-to-buffer-command (plist-get info :buffer))))) + "-execute" (format "\"%s\"" (switch-to-buffer-command (plist-get info :buffer)))))) (apply #'call-process alert-notifier-command nil nil nil args)) (alert-message-notify info))) @@ -857,7 +856,7 @@ The current directory is assumed to be the project's root otherwise." (emacsclient-command (format "(switch-to-buffer \\\"%s\\\")" buffer-name))) (defun emacsclient-command (command) - (format "\"emacsclient --server-file='%s' -e '%s'\"" server-name command)) + (format "emacsclient --server-file='%s' -e '%s'" server-name command)) (setq alert-default-style 'notifier)))