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

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")) :query '((notifications . "true"))
:noerror t)))))) :noerror t))))))
(lambda (result) (lambda (result)
(message "") ; suppress message
(setq doom-modeline--github-notifications-number (setq doom-modeline--github-notifications-number
(length result)))))) (length result))))))
@ -1455,12 +1456,6 @@ Example:
(doom-modeline-github-timer) (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 (doom-modeline-def-segment github
"The github notifications." "The github notifications."
(if (and doom-modeline-github (if (and doom-modeline-github
@ -1483,9 +1478,14 @@ mouse-3: Fetch notifications"
'mouse-face '(:box 1) 'mouse-face '(:box 1)
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1] (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] (define-key map [mode-line mouse-3]
(lambda () (lambda ()
"Fetching github notifications."
(interactive) (interactive)
(message "Fetching github notifications...") (message "Fetching github notifications...")
(doom-modeline--github-fetch-notifications))) (doom-modeline--github-fetch-notifications)))