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

Beautify github notifications.

Browse source
This commit is contained in:
Vincent Zhang 2019-01-23 17:54:35 +08:00
parent d649c38d4a
commit 849ba7097f
1 changed files with 21 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
doom-modeline-segments.el
View file

@ -1429,28 +1429,29 @@ 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"
:v-adjust -0.0575 :v-adjust -0.0575
:face 'doom-modeline-warning) :face 'doom-modeline-warning)
(if doom-modeline-icon doom-modeline-vspc " ") (propertize "#" 'face '(:inherit (doom-modeline-warning italic))))
(propertize (number-to-string doom-modeline--github-notifications-number) doom-modeline-vspc
'face 'doom-modeline-warning) (propertize (number-to-string doom-modeline--github-notifications-number)
" ") 'face '(:inherit (warning italic))
'help-echo "Github 'help-echo "Github Notifications
mouse-1: Show notifications mouse-1: Show notifications
mouse-3: Fetch notifications" mouse-3: Fetch notifications"
'mouse-face '(:box 1) 'mouse-face 'mode-line-highlight
'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)
(define-key map [mode-line mouse-3] (define-key map [mode-line mouse-3]
(lambda () (lambda ()
(interactive) (interactive)
(message "Fetching github notifications...") (message "Fetching github notifications...")
(doom-modeline--github-fetch-notifications))) (doom-modeline--github-fetch-notifications)))
map)))) map))
" ")))
;; ;;