[nongnu] elpa/csv2ledger 4f6bb9e1bd 184/190: Update example function jk/c2l-convert-amount in the README

[ELPA Syncer]

branch: elpa/csv2ledger
commit 4f6bb9e1bd7d634c6bfa2c1940ebfeaa742c1032
Author: Joost Kremers <joostkremers@fastmail.com>
Commit: Joost Kremers <joostkremers@fastmail.com>

    Update example function jk/c2l-convert-amount in the README
---
 README.md | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 07bae19bfe..2d129bee8f 100644
--- a/README.md
+++ b/README.md
@@ -162,12 +162,15 @@ Since this is a very particular conversion, there is no 
function for it included
 
 ```emacs-lisp
 (defun jk/c2l-convert-amount (amount)
-  "Convert AMOUNT from the format \"-3.150,20 €\" to \"-€3150.20\"."
-  (string-match 
"\\(-\\)?\\([[:digit:].]+\\)\\(?:,\\([[:digit:]]\\{2\\}\\)\\)?" amount)
+  "Convert AMOUNT from the format \"-3.150,20 €\" to \"-€3150.20\".
+This also handles cases such as \"300\" and \"8,7\"."
+  (string-match "\\(-\\)?\\([[:digit:].]+\\(?:,[[:digit:]]\\{2\\}\\)?\\)" 
amount)
   (let ((sign (or (match-string 1 amount) ""))
-        (euros (string-replace "." "" (match-string 2 amount)))
-        (cents (or (match-string 3 amount) "00")))
-    (concat sign "€" euros "." cents)))
+        (amount (thread-last (match-string 2 amount)
+                             (string-replace "." "")
+                             (string-replace "," ".")
+                             string-to-number)))
+    (format "%s€%.2f" sign amount)))
 ```
 
 The setting for `c2l-field-modify-functions` then ends up like this: