hiro/doom-modeline
1
0
Fork 0
mirror of https://github.com/vale981/doom-modeline synced 2025-03-05 09:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add sml-modeline to buffer-position (#458)

Browse source
This commit is contained in:
_7696122 2021-07-06 15:04:36 +09:00 • committed by GitHub
parent 07d03c4626
commit 30f17d303b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
doom-modeline-segments.el
View file

@ -98,6 +98,7 @@
(defvar phi-search-mode-line-format)
(defvar poke-line-minimum-window-width)
(defvar rcirc-activity)
(defvar sml-modeline-len)
(defvar symbol-overlay-keywords-alist)
(defvar symbol-overlay-temp-symbol)
(defvar text-scale-mode-amount)
@ -216,6 +217,7 @@
(declare-function rcirc-window-configuration-change 'rcirc)
(declare-function rime--should-enable-p 'rime)
(declare-function rime--should-inline-ascii-p 'rime)
(declare-function sml-modeline-create 'sml-modeline)
(declare-function symbol-overlay-assoc 'symbol-overlay)
(declare-function symbol-overlay-get-list 'symbol-overlay)
(declare-function symbol-overlay-get-symbol 'symbol-overlay)
@ -1686,6 +1688,14 @@ mouse-1: Display Line and Column Mode Menu"
(doom-modeline-spc)
(let ((mlscroll-right-align nil))
(format-mode-line (mlscroll-mode-line)))))
((and active
(bound-and-true-p sml-modeline-mode)
(not doom-modeline--limited-width-p)
(>= (window-width) sml-modeline-len))
(concat
(doom-modeline-spc)
(doom-modeline-spc)
(propertize (sml-modeline-create) 'mouse-face mouse-face)))
(t
(when doom-modeline-percent-position
(concat