growl.l

via Big Sky :: Growl For Windowsがリリースされてアイコンが表示出来る様になった。
とりあえず表示するだけ。
ソース -> http://gist.github.com/83546

改行コードのいじり方がよくわからん…おかげで複数行メッセージが送れない。

できた

(growl "multilines" (format nil "~V@{てす~%~}"10 0))

connectで:encoding :binaryと指定してやらないと駄目だった。(#\LFDがCRLFに変換されてしまう)

(let ((state nil)
      (msgo #'message)
      (msgg #'(lambda (&rest args)
		(growl (buffer-name (selected-buffer))
		       (apply #'format nil args)))))
  (defun toggle-growl ()
    (interactive)
    (setf (symbol-function 'message)
	  (if (setq state (null state)) msgg msgo))))

(toggle-growl)

などとしておいてldocをonにすると楽しげ。