oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

+visual-line segment

Browse Source
This commit is contained in:
dx
2020-05-31 17:23:58 +01:00
parent d05d83e0be
commit a396b216c2
1 changed files with 28 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Doom/.doom.d/modules/private/oreoline/config.el
View File

@@ -38,24 +38,35 @@
(propertize "") (propertize "")
(propertize ""))) (propertize "")))
;; LHS ;; Visual line check
(setq telephone-line-lhs (telephone-line-defsegment +oreoline-visual-segment ()
'((evil . (telephone-line-evil-tag-segment (if mark-active
telephone-line-buffer-modified-segment)) (let ((lines (count-lines (region-beginning) (region-end)))
(accent . (telephone-line-vc-segment (chars (- (region-end) (region-beginning))))
telephone-line-filesize-segment (if (< lines 2)
telephone-line-buffer-name-segment (propertize (format "%sC" chars))
telephone-line-erc-modified-channels-segment (propertize (format "%sL %sC" lines chars))))
telephone-line-process-segment)) (propertize "~")))
(nil . ())))
;; RHS (setq
(setq telephone-line-rhs ;; LHS
'((nil . (telephone-line-misc-info-segment)) telephone-line-lhs
(accent . (telephone-line-major-mode-segment '((evil . (telephone-line-evil-tag-segment
+oreoline-lsp-segment telephone-line-buffer-modified-segment))
telephone-line-flycheck-segment)) (accent . (telephone-line-filesize-segment
(evil . (telephone-line-airline-position-segment)))) telephone-line-buffer-name-segment
telephone-line-erc-modified-channels-segment
telephone-line-process-segment))
(nil . ()))
;; RHS
telephone-line-rhs
'((nil . (telephone-line-misc-info-segment))
(accent . (telephone-line-vc-segment
+oreoline-lsp-segment
telephone-line-major-mode-segment
telephone-line-flycheck-segment))
(modal . (+oreoline-visual-segment))
(evil . (telephone-line-airline-position-segment))))
:config :config
(size-indication-mode +1)) (size-indication-mode +1))