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

Update mouse-face.

Browse source
This commit is contained in:
Vincent Zhang 2019-02-28 14:06:54 +07:00
parent 0e0988331a
commit 58267460c6
1 changed files with 37 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

72
doom-modeline-segments.el
View file

@ -365,7 +365,7 @@ directory, the file name, and its state (modified, read-only or non-existent)."
" ") " ")
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)
'help-echo 'mode-line-mule-info-help-echo 'help-echo 'mode-line-mule-info-help-echo
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map mode-line-coding-system-map)) 'local-map mode-line-coding-system-map))
@ -592,7 +592,7 @@ mouse-2: Show help for minor mode")
('errored "Error") ('errored "Error")
('interrupted "Interrupted") ('interrupted "Interrupted")
('suspicious "Suspicious"))) ('suspicious "Suspicious")))
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line down-mouse-1] (define-key map [mode-line down-mouse-1]
flycheck-mode-menu-map) flycheck-mode-menu-map)
@ -728,7 +728,7 @@ wheel-up/wheel-down: Previous/next error"))
mouse-1: Display minor mode menu mouse-1: Display minor mode menu
mouse-2: Show help for minor mode" mouse-2: Show help for minor mode"
(length running) (length known))))) (length running) (length known)))))
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line down-mouse-1] (define-key map [mode-line down-mouse-1]
flymake-menu) flymake-menu)
@ -1026,7 +1026,7 @@ Requires `anzu', also `evil-anzu' if using `evil-mode' for compatibility with
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)
'help-echo "Buffer size 'help-echo "Buffer size
mouse-1: Display Line and Column Mode Menu" mouse-1: Display Line and Column Mode Menu"
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map mode-line-column-line-number-mode-map))) 'local-map mode-line-column-line-number-mode-map)))
(doom-modeline-def-segment matches (doom-modeline-def-segment matches
@ -1287,7 +1287,7 @@ See `mode-line-percent-position'.")
(propertize (format-mode-line lc) (propertize (format-mode-line lc)
'help-echo "Buffer position\n\ 'help-echo "Buffer position\n\
mouse-1: Display Line and Column Mode Menu" mouse-1: Display Line and Column Mode Menu"
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map mode-line-column-line-number-mode-map)) 'local-map mode-line-column-line-number-mode-map))
(propertize (propertize
(concat " " (concat " "
@ -1300,7 +1300,7 @@ mouse-1: Display Line and Column Mode Menu"
'face (if active 'mode-line 'mode-line-inactive) 'face (if active 'mode-line 'mode-line-inactive)
'help-echo "Buffer position\n\ 'help-echo "Buffer position\n\
mouse-1: Display Line and Column Mode Menu" mouse-1: Display Line and Column Mode Menu"
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map mode-line-column-line-number-mode-map)))) 'local-map mode-line-column-line-number-mode-map))))
;; ;;
@ -1491,35 +1491,37 @@ 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 (propertize
(doom-modeline-icon-faicon "github" (concat
:v-adjust -0.0575 (if doom-modeline-icon
:face 'doom-modeline-warning) (doom-modeline-icon-faicon "github"
(propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) :v-adjust -0.0575
doom-modeline-vspc :face 'doom-modeline-warning)
(propertize (number-to-string doom-modeline--github-notifications-number) (propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
'face '(:inherit (warning doom-modeline-unread-number))) doom-modeline-vspc
" ") (propertize (number-to-string doom-modeline--github-notifications-number)
'help-echo "Github Notifications 'face '(:inherit (warning doom-modeline-unread-number))))
'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
'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]
(lambda () (lambda ()
"Open github notifications page." "Open github notifications page."
(interactive) (interactive)
(browse-url "https://github.com/notifications") (browse-url "https://github.com/notifications")
(run-with-timer 60 nil #'doom-modeline--github-fetch-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." "Fetching github notifications."
(interactive) (interactive)
(message "Fetching github notifications...") (message "Fetching github notifications...")
(doom-modeline--github-fetch-notifications))) (doom-modeline--github-fetch-notifications)))
map)))) map))
" ")))
;; ;;
@ -1538,7 +1540,7 @@ mouse-3: Fetch notifications"
(propertize "!" 'face 'doom-modeline-urgent)) (propertize "!" 'face 'doom-modeline-urgent))
'help-echo "Debug on Error 'help-echo "Debug on Error
mouse-1: Toggle Debug on Error" mouse-1: Toggle Debug on Error"
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map (make-mode-line-mouse-map 'mouse-1 #'toggle-debug-on-error))) 'local-map (make-mode-line-mouse-map 'mouse-1 #'toggle-debug-on-error)))
(when debug-on-quit (when debug-on-quit
(propertize (propertize
@ -1547,7 +1549,7 @@ mouse-1: Toggle Debug on Error"
(propertize "!" 'face 'doom-modeline-warning)) (propertize "!" 'face 'doom-modeline-warning))
'help-echo "Debug on Quit 'help-echo "Debug on Quit
mouse-1: Toggle Debug on Quit" mouse-1: Toggle Debug on Quit"
'mouse-face '(:box 1) 'mouse-face 'mode-line
'local-map (make-mode-line-mouse-map 'mouse-1 #'toggle-debug-on-quit))) 'local-map (make-mode-line-mouse-map 'mouse-1 #'toggle-debug-on-quit)))
(and (or debug-on-error debug-on-quit) " ")))) (and (or debug-on-error debug-on-quit) " "))))