From cbb83c58dd1832595659b9d29c8c4127db0fed68 Mon Sep 17 00:00:00 2001
From: Caleb Maclennan <caleb@alerque.com>
Date: Thu, 11 Mar 2021 13:32:13 +0300
Subject: [PATCH 1/2] test: Add test to confirm folding levels

---
 spec/folds.vader | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 spec/folds.vader

diff --git a/spec/folds.vader b/spec/folds.vader
new file mode 100644
index 0000000..6544c99
--- /dev/null
+++ b/spec/folds.vader
@@ -0,0 +1,22 @@
+Given ledger:
+  ;{{{Year: 2011
+  ;{{{Month: January
+
+  2011/01/01 * What a new years night!
+      Expenses:Parties    $ 1500.00
+      Assets:Checking
+
+
+  2011/01/01 * What a new years night!
+      Expenses:Parties    $ 1500.00
+      Assets:Checking
+
+  ;}}}
+  ;{{{Month:February
+
+  2011/01/01 * What a new years night!
+      Expenses:Parties    $ 1500.00
+      Assets:Checking
+
+  ;}}}
+  ;}}}

From 2a10951e0cf5cc74595ad88dff10e7faac4984b0 Mon Sep 17 00:00:00 2001
From: Caleb Maclennan <caleb@alerque.com>
Date: Thu, 11 Mar 2021 13:35:03 +0300
Subject: [PATCH 2/2] feat: Pick up fold markers and add them to syntax folds

---
 syntax/ledger.vim | 36 ++++++++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/syntax/ledger.vim b/syntax/ledger.vim
index ad1b793..eec7eab 100644
--- a/syntax/ledger.vim
+++ b/syntax/ledger.vim
@@ -102,6 +102,38 @@ exe 'syn match ledgerApplyHead '.
 syntax keyword ledgerTodo FIXME TODO
   \ contained containedin=ledgerComment,ledgerTransaction,ledgerTransactionMetadata,ledgerPostingMetadata
 
+syn cluster ledgerAll contains={}
+" syn cluster ledgerAll add=ledgerComment
+" syn cluster ledgerAll add=ledgerBlockComment
+syn cluster ledgerAll add=ledgerBlockTest
+syn cluster ledgerAll add=ledgerTransactionDate
+syn cluster ledgerAll add=ledgerTransactionExpression
+syn cluster ledgerAll add=ledgerTransactionMetadata
+syn cluster ledgerAll add=ledgerPostingMetadata
+syn cluster ledgerAll add=ledgerTypedTag
+syn cluster ledgerAll add=ledgerValueTag
+syn cluster ledgerAll add=ledgerTag
+syn cluster ledgerAll add=ledgerStartApply
+syn cluster ledgerAll add=ledgerEndApply
+syn cluster ledgerAll add=ledgerApplyHead
+syn cluster ledgerAll add=ledgerAccount
+syn cluster ledgerAll add=ledgerAmount
+syn cluster ledgerAll add=ledgerValueExpression
+syn cluster ledgerAll add=ledgerPreDeclarationType
+syn cluster ledgerAll add=ledgerPreDeclarationName
+syn cluster ledgerAll add=ledgerPreDeclarationDirective
+syn cluster ledgerAll add=ledgerDirective
+syn cluster ledgerAll add=ledgerOneCharDirective
+syn cluster ledgerAll add=ledgerTodo
+
+" if get(g:, 'ledger_fold_markers', 0) == 1
+	" syn region foldMarker matchgroup=foldMarkers start='{{{' end ='}}}' fold transparent contained contains=
+	syn region foldMarker matchgroup=foldMarkers start='{{{' end ='}}}' fold transparent
+				\ contained containedin=ledgerBlockComment,ledgerComment
+	" contains=ledgerAll
+	" syn sync fromstart
+" endif
+
 highlight default link ledgerComment Comment
 highlight default link ledgerBlockComment Comment
 highlight default link ledgerBlockTest Comment
@@ -124,9 +156,9 @@ highlight default link ledgerPreDeclarationDirective Type
 highlight default link ledgerDirective Type
 highlight default link ledgerOneCharDirective Type
 highlight default link ledgerTodo Todo
- 
+
 " syncinc is easy: search for the first transaction.
 syn sync clear
 syn sync match ledgerSync grouphere ledgerTransaction "^[[:digit:]~=]"
- 
+
 let b:current_syntax = b:is_hledger ? 'hledger' : 'ledger'