enotify-mode-line.el

(defun enotify-mode-line-set (message message-face)
  (let ((map (make-sparse-keymap)))
    (define-key map [mouse-2] (lambda () (interactive)
				(message "mlosucci")))
    (setq enotify-msg message)
    (setq enotify-mode-line-string
	  (list enotify-mode-line-prefix
		`(:eval
		  (propertize
		   enotify-msg
		   'face ,message-face
		   'help-echo "Last notification"
		   ;; ))
		  
		   'local-map ,map))
		enotify-mode-line-suffix))
    (force-mode-line-update)))