New 'ledger-indent-region' function

* ledger-mode.el (ledger-mode): Set indent-region-function. * ledger-post.el (ledger-indent-region): New function that indents the region by calling ledger-indent-line for each line. Closes bug #197 Signed-off-by: J. Dekker <[email protected]>
ledger · Feb 24, 2024 · 1e12ddf · 1e12ddf
1 parent 11e748d
commit 1e12ddf
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 2 deletions.
diff --git a/ledger-mode.el b/ledger-mode.el
@@ -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))
 

diff --git a/ledger-post.el b/ledger-post.el
@@ -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.
 

diff --git a/test/post-test.el b/test/post-test.el
@@ -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
@@ -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)