код для обновления на лиспе

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
(defun twitter-start-autoupdate ()
(interactive)
(setq twitter-timer (run-at-time nil godville-update-interval
twitter-get-friends-timeline))
)
(defun twitter-stop-autoupdate ()
(interactive)
(cancel-timer twitter-timer)
)