ledger update

This commit is contained in:
Benson Chu 2024-07-02 19:13:30 -05:00
parent e32e2f338c
commit 7c0734a14c

View file

@ -138,15 +138,21 @@
(save-restriction
(narrow-to-region start end)
(beginning-of-buffer)
(save-excursion
(replace-regexp (rx " "
(or "*" "!")
" "
(group (+ (not (any " " "\n")))))
" \\1 ")
" \\1 "))
(save-excursion
(replace-regexp (rx (and " " (+ " ")
";; [" (+ (any digit "-" "=" "/")) "]"
line-end))
"")))))
""))
(save-excursion
(replace-regexp (rx line-start (group (+ (any "/" digit)) " ")
" ")
"\\1"))))))
(advice-add #'ledger-fully-complete-xact
:after