branch: elpa/fj
commit 31164f51dbfab7e7858ec714f6e9310f98558217
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
fj-user-repos: remove phantom ORDER arg (nonexistent)
---
fj.el | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/fj.el b/fj.el
index a9886e3bc5..e5826b8a79 100644
--- a/fj.el
+++ b/fj.el
@@ -959,16 +959,17 @@ X and Y are sorting args."
(defun fj-get-user-repos (user &optional page limit)
"GET request repos owned by USER.
PAGE, LIMIT."
- ;; NB: API has no sort arg!
+ ;; NB: API has no sort/order arg!
(let ((params (append
`(("limit" . ,(or limit (fj-default-limit))))
(fedi-opt-params page)))
(endpoint (format "users/%s/repos" user)))
(fj-get endpoint params)))
-(defun fj-user-repos (&optional user page limit order)
+(defun fj-user-repos (&optional user page limit) ;; order)
"View a tabulated list of respos for USER.
-PAGE, LIMIT, ORDER."
+PAGE, LIMIT."
+ ;; NB: API has no order arg
(interactive "sView user repos: ")
(let* ((repos (fj-get-user-repos user page limit))
(entries (fj-repo-tl-entries repos :no-owner))
@@ -976,13 +977,13 @@ PAGE, LIMIT, ORDER."
(prev-buf (buffer-name))
(wd default-directory))
(fj-with-tl #'fj-user-repo-tl-mode buf entries wd nil
- (setq fj-buffer-spec
- `( :owner ,user :url ,(concat fj-host "/" user)
- :viewargs ( :user ,user :page ,page
- :limit ,limit :order ,order)
- :viewfun fj-user-repos))
- (fj-other-window-maybe
- prev-buf "*fj-search" #'string-prefix-p))))
+ (setq fj-buffer-spec
+ `( :owner ,user :url ,(concat fj-host "/" user)
+ :viewargs ( :user ,user :page ,page
+ :limit ,limit) ;; :order ,order)
+ :viewfun fj-user-repos))
+ (fj-other-window-maybe
+ prev-buf "*fj-search" #'string-prefix-p))))
(defun fj-list-own-repos-read ()
"List repos for `fj-user', prompting for an order type."
