colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

alert alerting for everything.

Browse Source
This commit is contained in:
Ivan Malison 2014-12-19 04:08:29 -08:00
parent badc19167a
commit b70181b71e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/emacs.d/init.el
View File

@ -843,13 +843,12 @@ The current directory is assumed to be the project's root otherwise."
:config :config
(progn (progn
(defun alert-notifier-notify (info) (defun alert-notifier-notify (info)
(message "%s" info)
(if alert-notifier-command (if alert-notifier-command
(let ((args (let ((args
(list "-title" (alert-encode-string (plist-get info :title)) (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)) "-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)) (apply #'call-process alert-notifier-command nil nil nil args))
(alert-message-notify info))) (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))) (emacsclient-command (format "(switch-to-buffer \\\"%s\\\")" buffer-name)))
(defun emacsclient-command (command) (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))) (setq alert-default-style 'notifier)))