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

Remove doom-modeline--github-open-notifications.

Browse source
This commit is contained in:
Vincent Zhang 2019-02-14 20:26:48 +08:00
parent 17d197d9a7
commit 38a3930aff
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
doom-modeline-segments.el
View file

@ -1431,6 +1431,7 @@ Example:
:query '((notifications . "true"))
:noerror t))))))
(lambda (result)
(message "") ; suppress message
(setq doom-modeline--github-notifications-number
(length result))))))
@ -1455,12 +1456,6 @@ Example:
(doom-modeline-github-timer)
(defun doom-modeline--github-open-notifications ()
"Open GitHub Notifications page."
(interactive)
(browse-url "https://github.com/notifications")
(run-with-timer 60 nil #'doom-modeline--github-fetch-notifications))
(doom-modeline-def-segment github
"The github notifications."
(if (and doom-modeline-github
@ -1483,9 +1478,14 @@ mouse-3: Fetch notifications"
'mouse-face '(:box 1)
'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1]
#'doom-modeline--github-open-notifications)
(lambda ()
"Open github notifications page."
(interactive)
(browse-url "https://github.com/notifications")
(run-with-timer 60 nil #'doom-modeline--github-fetch-notifications)))
(define-key map [mode-line mouse-3]
(lambda ()
"Fetching github notifications."
(interactive)
(message "Fetching github notifications...")
(doom-modeline--github-fetch-notifications)))