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

Improve github segment.

Browse source 
1. Fetch notifications 1 min later after opening the page.
2. Mouse-3 to fetch notifications.
This commit is contained in:
Vincent Zhang 2018-12-28 15:46:40 +08:00
parent f9e021a2eb
commit be9df01374
1 changed files with 22 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
doom-modeline.el
View file

@ -1561,7 +1561,7 @@ mouse-3: Describe current input method")
;;
(defvar doom-modeline--github-notifications-number 0)
(defun doom-modeline-github-fetch-notifications ()
(defun doom-modeline--github-fetch-notifications ()
"Fetch github notifications."
(if (and doom-modeline-github
(fboundp 'async-start))
@ -1580,12 +1580,13 @@ mouse-3: Describe current input method")
(run-with-timer 30
doom-modeline-github-interval
'doom-modeline-github-fetch-notifications)
#'doom-modeline--github-fetch-notifications)
(defun doom-modeline--github-open-notifications ()
"Open GitHub Notifications page."
(interactive)
(browse-url "https://github.com/notifications"))
(browse-url "https://github.com/notifications")
(run-with-timer 60 nil #'doom-modeline--github-fetch-notifications))
(doom-modeline-def-segment github
"The github notifications."
@ -1594,16 +1595,26 @@ mouse-3: Describe current input method")
(> doom-modeline--github-notifications-number 0))
(propertize
(concat (if doom-modeline-icon " ")
(doom-modeline-icon-faicon "github" :v-adjust -0.0575 :face 'doom-modeline-warning)
(doom-modeline-icon-faicon "github"
:v-adjust -0.0575
:face 'doom-modeline-warning)
(if doom-modeline-icon doom-modeline-vspc " ")
(propertize
(format "%s " doom-modeline--github-notifications-number)
'face 'doom-modeline-warning))
'help-echo "mouse-1: Show github notifications"
(propertize (format "%s " doom-modeline--github-notifications-number)
'face 'doom-modeline-warning))
'help-echo "Github
mouse-1: Show notifications
mouse-3: Fetch notifications"
'mouse-face '(:box 1)
'local-map (make-mode-line-mouse-map
'mouse-1
#'doom-modeline--github-open-notifications))))
'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1]
#'doom-modeline--github-open-notifications)
(define-key map [mode-line mouse-3]
(lambda ()
(interactive)
(message "Fetching github notifications...")
(doom-modeline--github-fetch-notifications)))
map))))
;;
;; debug state