[nongnu] elpa/beancount 8c52ee05ee 030/103: beancount.el: Revamp function to toggle transaction flag

[ELPA Syncer]

branch: elpa/beancount
commit 8c52ee05eed61572a7ee8f35311a0e7e24e14bfa
Author: Daniele Nicolodi <dani...@grinta.net>
Commit: Daniele Nicolodi <dani...@grinta.net>

    beancount.el: Revamp function to toggle transaction flag
---
 beancount.el | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/beancount.el b/beancount.el
index a8b5b84e3e..2d5eff56ee 100644
--- a/beancount.el
+++ b/beancount.el
@@ -266,7 +266,7 @@ to align all amounts."
         (p beancount-mode-map-prefix))
     (define-key map (kbd "TAB") #'beancount-tab-dwim)
     (define-key map (vconcat p [(\')]) #'beancount-insert-account)
-    (define-key map (vconcat p [(control g)]) #'beancount-transaction-set-flag)
+    (define-key map (vconcat p [(control g)]) #'beancount-transaction-clear)
     (define-key map (vconcat p [(l)]) #'beancount-check)
     (define-key map (vconcat p [(q)]) #'beancount-query)
     (define-key map (vconcat p [(x)]) #'beancount-context)
@@ -562,6 +562,17 @@ will allow to align all numbers."
     (let ((bounds (beancount-find-transaction-extents (point))))
       (beancount-indent-region (car bounds) (cadr bounds)))))
 
+(defun beancount-transaction-clear (&optional arg)
+  "Clear transaction at point. With a prefix argument set the
+transaction as pending."
+  (interactive "P")
+  (save-excursion
+    (save-match-data
+      (let ((flag (if arg "!" "*")))
+        (beancount-goto-transaction-begin)
+        (if (looking-at beancount-transaction-regexp)
+            (replace-match flag t t nil 2))))))
+
 (defcustom beancount-use-ido t
   "If non-nil, use ido-style completion rather than the standard completion."
   :type 'boolean)
@@ -583,14 +594,6 @@ Uses ido niceness according to `beancount-use-ido'."
       (delete-region (car bounds) (cdr bounds))))
   (insert account-name))
 
-(defun beancount-transaction-set-flag ()
-  (interactive)
-  (save-excursion
-    (backward-paragraph 1)
-    (forward-line 1)
-    (while (search-forward "!" (line-end-position) t)
-      (replace-match "*"))))
-
 (defmacro beancount-for-line-in-region (begin end &rest exprs)
   "Iterate over each line in region until an empty line is encountered."
   `(save-excursion