I'm talking about dollar signs

This commit is contained in:
Sakooooo 2023-12-17 15:55:01 +04:00 committed by GitHub
parent 12ab87fbf7
commit 1c443cf45f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -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