github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Improve: Use ghub-get instead of ghub+ api.

Browse source
This commit is contained in:
Vincent Zhang 2018-12-23 23:54:35 +08:00
parent a30c981f54
commit 6de3d21959
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -145,7 +145,7 @@ Strongly recommend to use
;; Whether display `lsp' state or not. Non-nil to display in mode-line.
(setq doom-modeline-lsp t)
;; Whether display github notifications or not. Requires `ghub+` package.
;; Whether display github notifications or not. Requires `ghub` package.
(setq doom-modeline-github t)
;; The interval of checking github.

15
doom-modeline.el
View file

@ -128,7 +128,7 @@ The icons may not be showed correctly in terminal and on Windows.")
"Whether display `lsp' state or not. Non-nil to display in mode-line.")
(defvar doom-modeline-github t
"Whether display github notifications or not. Requires `ghub+' package.")
"Whether display github notifications or not. Requires `ghub' package.")
(defvar doom-modeline-github-interval (* 30 60)
"The interval of checking github.")
@ -1553,18 +1553,19 @@ mouse-3: Describe current input method")
(defun doom-modeline-github-fetch-notifications ()
"Fetch github notifications."
(if (and doom-modeline-github
(fboundp 'ghubp-get-notifications))
(fboundp 'ghub-get))
(setq doom-modeline--github-notifications-number
(length (ignore-errors
(ghubp-get-notifications :participating "true"))))))
(ghub-get "/notifications" '((notifications . "true")) :query))))))
(run-with-timer 30
doom-modeline-github-interval
'doom-modeline-github-fetch-notifications)
(defun doom-modeline--github-open-notifications-participating ()
"Open GitHub Notifications/Participating page."
(defun doom-modeline--github-open-notifications ()
"Open GitHub Notifications page."
(interactive)
(browse-url "https://github.com/notifications/participating"))
(browse-url "https://github.com/notifications"))
(doom-modeline-def-segment github
"The github notifications."
@ -1582,7 +1583,7 @@ mouse-3: Describe current input method")
'mouse-face '(:box 1)
'local-map (make-mode-line-mouse-map
'mouse-1
#'doom-modeline--github-open-notifications-participating))))
#'doom-modeline--github-open-notifications))))
;;
;; debug state