Skip to content

Commit

Permalink
'twittering-get-twits-with-timeline-spec' is renamed.
Browse files Browse the repository at this point in the history
  • Loading branch information
cvmat committed Jan 3, 2010
1 parent 4d5cf8e commit 8f47149
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 10 deletions.
2 changes: 2 additions & 0 deletions ChangeLog
Expand Up @@ -34,6 +34,8 @@
timeline spec.
(twittering-get-timeline, twittering-get-list): replaced with
`twittering-get-twits-with-timeline-spec'.
(twittering-get-and-render-timeline): renamed from
`twittering-get-twits-with-timeline-spec'.

* test/test-twittering-mode.el (timeline-spec): add tests for new
timeline spec.
Expand Down
19 changes: 9 additions & 10 deletions twittering-mode.el
Expand Up @@ -1905,7 +1905,7 @@ following symbols;
(twittering-retrieve-image twittering-image-stack)
))

(defun twittering-get-twits-with-timeline-spec (spec &optional noninteractive id)
(defun twittering-get-and-render-timeline (spec &optional noninteractive id)
(if (twittering-timeline-spec-primary-p spec)
(let ((pair (twittering-timeline-spec-to-host-method spec)))
(when pair
Expand Down Expand Up @@ -2026,20 +2026,19 @@ following symbols;

(defun twittering-friends-timeline ()
(interactive)
(twittering-get-twits-with-timeline-spec '(friends)))
(twittering-get-and-render-timeline '(friends)))

(defun twittering-replies-timeline ()
(interactive)
(twittering-get-twits-with-timeline-spec '(replies)))
(twittering-get-and-render-timeline '(replies)))

(defun twittering-public-timeline ()
(interactive)
(twittering-get-twits-with-timeline-spec '(public)))
(twittering-get-and-render-timeline '(public)))

(defun twittering-user-timeline ()
(interactive)
(twittering-get-twits-with-timeline-spec
`(user ,(twittering-get-username))))
(twittering-get-and-render-timeline `(user ,(twittering-get-username))))

(defun twittering-current-timeline-noninteractive ()
(twittering-current-timeline t))
Expand Down Expand Up @@ -2241,7 +2240,7 @@ following symbols;
(twittering-read-timeline-spec-with-completion
"timeline: " initial))))
(when timeline-spec
(twittering-get-twits-with-timeline-spec timeline-spec))))
(twittering-get-and-render-timeline timeline-spec))))

(defun twittering-other-user-timeline ()
(interactive)
Expand All @@ -2252,7 +2251,7 @@ following symbols;
(username `(user ,username))
(t nil))))
(if spec
(twittering-get-twits-with-timeline-spec spec)
(twittering-get-and-render-timeline spec)
(message "No user selected"))))

(defun twittering-other-user-timeline-interactive ()
Expand All @@ -2262,7 +2261,7 @@ following symbols;
"user: " nil
'twittering-user-history)))
(if (> (length username) 0)
(twittering-get-twits-with-timeline-spec `(user ,username))
(twittering-get-and-render-timeline `(user ,username))
(message "No user selected"))))

(defun twittering-other-user-list-interactive ()
Expand All @@ -2276,7 +2275,7 @@ following symbols;
(let* ((list-name (twittering-read-list-name username))
(spec `(list ,username ,list-name)))
(when list-name
(twittering-get-twits-with-timeline-spec spec))))))
(twittering-get-and-render-timeline spec))))))

(defun twittering-direct-message ()
(interactive)
Expand Down

0 comments on commit 8f47149

Please sign in to comment.