From 849ba7097f43f0a788357798d43ff84471756788 Mon Sep 17 00:00:00 2001 From: Vincent Zhang Date: Wed, 23 Jan 2019 17:54:35 +0800 Subject: [PATCH] Beautify github notifications. --- doom-modeline-segments.el | 41 ++++++++++++++++++++------------------- 1 file changed, 21 insertions(+), 20 deletions(-) diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el index 818464e..2b33df5 100644 --- a/doom-modeline-segments.el +++ b/doom-modeline-segments.el @@ -1429,28 +1429,29 @@ Example: (if (and doom-modeline-github (doom-modeline--active) (> 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) - (if doom-modeline-icon doom-modeline-vspc " ") - (propertize (number-to-string doom-modeline--github-notifications-number) - 'face 'doom-modeline-warning) - " ") - 'help-echo "Github + (concat " " + (if doom-modeline-icon + (doom-modeline-icon-faicon "github" + :v-adjust -0.0575 + :face 'doom-modeline-warning) + (propertize "#" 'face '(:inherit (doom-modeline-warning italic)))) + doom-modeline-vspc + (propertize (number-to-string doom-modeline--github-notifications-number) + 'face '(:inherit (warning italic)) + 'help-echo "Github Notifications mouse-1: Show notifications 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) - (define-key map [mode-line mouse-3] - (lambda () - (interactive) - (message "Fetching github notifications...") - (doom-modeline--github-fetch-notifications))) - map)))) + 'mouse-face 'mode-line-highlight + '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)) + " "))) ;;