sako/nixos
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

I'm talking about dollar signs

Browse source
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
1 changed files with 85 additions and 76 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
config/emacs/emacs.org
View file

@ -198,6 +198,10 @@ Should make startup faster, taken from doom-emacs
" " " "
sakoline-buffer-state 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 sakoline-major-mode
)) ))
@ -272,13 +276,18 @@ Should make startup faster, taken from doom-emacs
(propertize "!!!" (propertize "!!!"
'face 'sakoline-buffer-state-modified))))) 'face 'sakoline-buffer-state-modified)))))
;; some weird spacing bullshit (put 'sakoline-buffer-state 'risky-local-variable t)
;; weird how its not built in
(defun sakoline-line-render (left right) (defun sakoline-padding-right (face reserve)
"Return a string of `window-width' length containing LEFT, and RIGHT "Return empty space using FACE and leaving RESERVE space on the right."
aligned respectively." (unless reserve
(let* ((available-width (- (window-width) (length left) 2))) (setq reserve 20))
(format (format " %%s %%%ds " available-width) left right))) (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 #+end_src
* Packages * Packages
** Log state ** Log state