Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

New 'ledger-indent-region' function #399

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

New 'ledger-indent-region' function #399

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion ledger-mode.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -331,7 +331,7 @@ With a prefix argument, remove the effective date."
(ledger-init-load-init-file)
(setq-local comment-start ";")
(setq-local indent-line-function #'ledger-indent-line)
(setq-local indent-region-function 'ledger-post-align-postings)
(setq-local indent-region-function #'ledger-indent-region)
(setq-local beginning-of-defun-function #'ledger-navigate-beginning-of-xact)
(setq-local end-of-defun-function #'ledger-navigate-end-of-xact))

Expand Down
14 changes: 14 additions & 0 deletions ledger-post.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -147,6 +147,20 @@ The current region is used, or, if no region, the current line."
(when ledger-post-auto-align
(ledger-post-align-postings (line-beginning-position) (line-end-position))))

(defun ledger-indent-region (beg end)
"Indent the region from BEG to END.
This works by calling `ledger-indent-line' for each line."
(save-excursion
(goto-char beg)
(beginning-of-line)
(ledger-indent-line)
(while (< (point) end)
(forward-line)
(ledger-indent-line))
(when (progn (beginning-of-line)
(looking-at-p "^[[:space:]]*$"))
(delete-region (point) (line-end-position)))))

(defun ledger-post-align-dwim ()
"Align all the posting of the current xact or the current region.

Expand Down
18 changes: 17 additions & 1 deletion test/post-test.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -258,7 +258,7 @@ http://bugs.ledger-cli.org/show_bug.cgi?id=924"
"
(indent-region (point-min) (point-max))
(should
(equal (buffer-string)
(equal (buffer-substring-no-properties (point-min) (point-max))
"1994/01/10 * Mother
Actif:Courant:BnpCc 500,00 F ; Étrennes
Revenu:Autre:CadeauReçu
Expand Down Expand Up @@ -453,6 +453,22 @@ http://bugs.ledger-cli.org/show_bug.cgi?id=946"
Assets:Bar
" ))))

(ert-deftest ledger-post/test-197 ()
"Regress test for Bug #197"
:tags '(post regress)
(ledger-tests-with-temp-file
"2019/08/13 Test
this 8000 GBP
out"
(let ((ledger-post-auto-align nil))
(set-mark-command nil)
(goto-char (point-max))
(call-interactively #'indent-region)
(should (string= (buffer-substring-no-properties (point-min) (point-max))
"2019/08/13 Test
this 8000 GBP
out")))))


(provide 'post-test)

Expand Down