Skip to content

Commit

Permalink
v2.0.1
Browse files Browse the repository at this point in the history
- API bugfixes for issue and pullreq listings
- Updated package dependency versions
  • Loading branch information
anticomputer committed Apr 10, 2024
1 parent eda39b5 commit 6d1a267
Showing 1 changed file with 9 additions and 9 deletions.
18 changes: 9 additions & 9 deletions gh-notify.el
Original file line number Diff line number Diff line change
Expand Up @@ -5,14 +5,14 @@
;;
;; All rights reserved

;; Modified: 2021-11-26
;; Version: 0.1.0
;; Modified: 2024-04-10
;; Version: 2.0.1
;; Author: Bas Alberts <[email protected]>
;; xristos <[email protected]>
;;
;; Maintainer: Bas Alberts <[email protected]>
;; URL: https://github.com/anticomputer/gh-notify
;; Package-Requires: ((emacs "27.1") (magit "3.0.0") (forge "0.2.0"))
;; Package-Requires: ((emacs "29.1") (magit "3.3.0") (forge "0.3.2"))
;; Keywords: comm

;; Redistribution and use in source and binary forms, with or without
Expand Down Expand Up @@ -979,8 +979,8 @@ All pull request on prefix P."
(oref obj number)
(oref obj title))))
;; list all issues on prefix, only open by default
(pullreqs (if P (forge-ls-pullreqs repo)
(forge-ls-pullreqs repo 'open)))
(pullreqs (if P (forge--ls-pullreqs repo)
(forge--ls-active-pullreqs repo)))
(choice (completing-read
(format "%s visit pull request (%s): " repo-id (if P "all" "open"))
(mapcar fmt pullreqs) nil t)))
Expand All @@ -990,7 +990,7 @@ All pull request on prefix P."
(string-to-number (match-string 1 choice)))))
(with-demoted-errors "Warning: %S"
(with-temp-buffer
(forge-visit-pullreq (forge-get-pullreq topic)))))))))
(forge-visit-pullreq (forge-get-pullreq repo topic)))))))))

(defun gh-notify-ls-issues-at-point (P)
"Navigate a list of open issues available for notification at point.
Expand All @@ -1006,8 +1006,8 @@ All issues on prefix P."
(oref obj number)
(oref obj title))))
;; list all issues on prefix, only open by default
(issues (if P (forge-ls-issues repo)
(forge-ls-issues repo 'open)))
(issues (if P (forge--ls-issues repo)
(forge--ls-open-issues repo)))
(choice (completing-read
(format "%s visit issue (%s): " repo-id (if P "all" "open"))
(mapcar fmt issues) nil t)))
Expand All @@ -1018,7 +1018,7 @@ All issues on prefix P."
(string-to-number (match-string 1 choice)))))
(with-demoted-errors "Warning: %S"
(with-temp-buffer
(forge-visit-issue (forge-get-issue topic)))))))))
(forge-visit-issue (forge-get-issue repo topic)))))))))

(defun gh-notify-display-state ()
"Show the current state for an issue or pull request notification."
Expand Down

0 comments on commit 6d1a267

Please sign in to comment.