I'm talking about dollar signs
This commit is contained in:
parent
12ab87fbf7
commit
1c443cf45f
|
@ -198,6 +198,10 @@ Should make startup faster, taken from doom-emacs
|
|||
|
||||
" "
|
||||
sakoline-buffer-state
|
||||
" "
|
||||
;; everything under here goes to the right
|
||||
;; make sure to change the padding to make it look good
|
||||
(:eval (sakoline-padding-right 'mode-line 20))
|
||||
sakoline-major-mode
|
||||
|
||||
))
|
||||
|
@ -272,13 +276,18 @@ Should make startup faster, taken from doom-emacs
|
|||
(propertize "!!!"
|
||||
'face 'sakoline-buffer-state-modified)))))
|
||||
|
||||
;; some weird spacing bullshit
|
||||
;; weird how its not built in
|
||||
(defun sakoline-line-render (left right)
|
||||
"Return a string of `window-width' length containing LEFT, and RIGHT
|
||||
aligned respectively."
|
||||
(let* ((available-width (- (window-width) (length left) 2)))
|
||||
(format (format " %%s %%%ds " available-width) left right)))
|
||||
(put 'sakoline-buffer-state 'risky-local-variable t)
|
||||
|
||||
(defun sakoline-padding-right (face reserve)
|
||||
"Return empty space using FACE and leaving RESERVE space on the right."
|
||||
(unless reserve
|
||||
(setq reserve 20))
|
||||
(when (and window-system (eq 'right (get-scroll-bar-mode)))
|
||||
(setq reserve (- reserve 3)))
|
||||
(propertize " "
|
||||
'display `((space :align-to (- (+ right right-fringe right-margin) ,reserve)))
|
||||
'face face))
|
||||
|
||||
#+end_src
|
||||
* Packages
|
||||
** Log state
|
||||
|
|
Loading…
Reference in a new issue