Skip to content

Commit

Permalink
The new function 'twittering-get-twits-with-timeline-spec' is added.
Browse files Browse the repository at this point in the history
  • Loading branch information
cvmat committed Dec 20, 2009
1 parent 0f512a7 commit 25192b8
Show file tree
Hide file tree
Showing 2 changed files with 14 additions and 3 deletions.
2 changes: 2 additions & 0 deletions ChangeLog
Expand Up @@ -271,6 +271,8 @@
name from the minibuffer.
(twittering-read-timeline-spec-with-completion): Add new function
for reading timeline specification from the minibuffer.
(twittering-get-twits-with-timeline-spec): Add new function for
retrieving tweets with timeline specification.

2009-12-20 Yuto Hayamizu <y.hayamizu@gmail.com>

Expand Down
15 changes: 12 additions & 3 deletions twittering-mode.el
Expand Up @@ -1693,6 +1693,14 @@ following symbols;
(twittering-retrieve-image twittering-image-stack)
))

(defun twittering-get-twits-with-timeline-spec
(timeline-spec &optional noninteractive id)
(let ((pair (twittering-get-host-method-from-timeline-spec timeline-spec)))
(when pair
(let ((host (car pair))
(method (cadr pair)))
(twittering-get-twits host method noninteractive id)))))

(defun twittering-retrieve-image (images)
(if twittering-use-wget
(twittering-retrieve-image-with-wget images)
Expand Down Expand Up @@ -2085,9 +2093,10 @@ following symbols;
(defun twittering-read-timeline-spec-with-completion
(prompt initial)
(let* ((dummy-hist
(append (twittering-make-list-from-assoc
'user-screen-name twittering-timeline-data)
twittering-timeline-history))
(delete-dups
(append twittering-timeline-history
(twittering-make-list-from-assoc
'user-screen-name twittering-timeline-data))))
(spec (completing-read prompt dummy-hist
nil nil initial 'dummy-hist)))
(cond
Expand Down

0 comments on commit 25192b8

Please sign in to comment.