flymake-growl.elに少し手を加えてみた

元記事 Good night, Posterous
growlnotifyの引数をGrowl for Windows用に変更したのでgistのはforkしないながらも変更してみた．

■変更点
1. 引数を--hogeから/hoge形式化
2. message引数内のダブルクオートをエスケープ
3. provide付けた

$ diff /h/var/Desktop/flymake-growl.el ~/.emacs.d/site-lisp/flymake-growl.el
13,19c13,25
<         (command (concat "growlnotify --appIcon  Emacs"
<                                     " --progress 0.1"
<                                     " --title \""  title "\""
<                                     " --identifier \"" title "\""
<                                     " --message \"" message "\""
<                                     " --priority " (int-to-string priority))))
<     (shell-command (concat command (if sticky " --sticky")))
---
> 	 (command (concat "growlnotify "
> 			  " /a:Emacs"
> 			  " /n:Emacs"
> 			  " /t:\""  title "\""
> 			  " /id:\"" title "\""
> 			  " /p:" (int-to-string priority)
> 			  " \"" (mapconcat #'(lambda (x) (if (= x ?\")
> 						       (string ?\\ ?\")
> 						     (format "%c" x))
> 					 )
> 				     message "") "\""
> 			  )))
>     (shell-command (concat command (if sticky " /s:true")))
75c81,83
<     (flymake-growl-rename-notify old-name new-name)))
\ No newline at end of file
---
>     (flymake-growl-rename-notify old-name new-name)))
> 
> (provide 'flymake-growl)