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