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 git notifications segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-01-24 01:58:17 +08:00
parent 849ba7097f
commit 9ca40d04b1
1 changed files with 22 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
doom-modeline-segments.el
View file

@ -1429,6 +1429,7 @@ Example:
(if (and doom-modeline-github (if (and doom-modeline-github
(doom-modeline--active) (doom-modeline--active)
(> doom-modeline--github-notifications-number 0)) (> doom-modeline--github-notifications-number 0))
(propertize
(concat " " (concat " "
(if doom-modeline-icon (if doom-modeline-icon
(doom-modeline-icon-faicon "github" (doom-modeline-icon-faicon "github"
@ -1437,11 +1438,12 @@ Example:
(propertize "#" 'face '(:inherit (doom-modeline-warning italic)))) (propertize "#" 'face '(:inherit (doom-modeline-warning italic))))
doom-modeline-vspc doom-modeline-vspc
(propertize (number-to-string doom-modeline--github-notifications-number) (propertize (number-to-string doom-modeline--github-notifications-number)
'face '(:inherit (warning italic)) 'face '(:inherit (warning italic)))
" ")
'help-echo "Github Notifications 'help-echo "Github Notifications
mouse-1: Show notifications mouse-1: Show notifications
mouse-3: Fetch notifications" mouse-3: Fetch notifications"
'mouse-face 'mode-line-highlight '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) #'doom-modeline--github-open-notifications)
@ -1450,8 +1452,7 @@ mouse-3: Fetch notifications"
(interactive) (interactive)
(message "Fetching github notifications...") (message "Fetching github notifications...")
(doom-modeline--github-fetch-notifications))) (doom-modeline--github-fetch-notifications)))
map)) map))))
" ")))
;; ;;