Synthesize the number of unread tweets.

speech-synth-new-tweets.el

(eval-after-load "speech-synth"
  '(progn
     (defun speech-synth-new-tweets ()
       (when (not (eq (length (twittering-current-timeline-data
                               twittering-new-tweets-spec))
                      twittering-new-tweets-count))
         (let* ((buf-name (buffer-name (current-buffer)))
                (num_new_tweets (+ (or (cadr (assq (get-buffer buf-name)
                                                   twittering-unread-status-info)) 0)
                                   (length twittering-rendered-new-tweets))))
           (when (>= num_new_tweets 1)
             (cond ((string= ":home" buf-name)
                    (speech-synth-execute-synthesis
                     (format "新着ツイートが%d件来ましたよ．" num_new_tweets))))))))

     (add-hook 'twittering-new-tweets-rendered-hook
               #'(lambda () (speech-synth-new-tweets)))))