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

Enhance grip segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-08-18 00:40:07 +08:00
parent 0186ce9de9
commit 572d19f194
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
doom-modeline-segments.el
View file

@ -2310,10 +2310,19 @@ The cdr can also be a function that returns a name to use.")
:height 1.1 :height 1.1
:v-adjust -0.225) :v-adjust -0.225)
"G") "G")
'help-echo (format "Preview with grip: http://localhost:%d 'help-echo (format "Preview on: http://localhost:%d
mouse-1: Exit preview" grip-port) mouse-1: Open browser
mouse-2: Stop preview"
grip-port)
'mouse-face '(:box 0) 'mouse-face '(:box 0)
'local-map (make-mode-line-mouse-map 'mouse-1 #'grip-mode)) 'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1]
(lambda ()
(interactive)
(browse-url (format "http://localhost:%d" grip-port))))
(define-key map [mode-line mouse-2]
#'grip-mode)
map))
(doom-modeline-spc)))) (doom-modeline-spc))))
(provide 'doom-modeline-segments) (provide 'doom-modeline-segments)