From c58b9e6ac9b87bd80c7a50578acbe3c6f62c0b46 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 22 Dec 2022 00:27:35 -1000
Subject: [PATCH] imp: journal: accept `apply year` as another synonym for `Y`
 (ledger compat)

---
 hledger-lib/Hledger/Read/JournalReader.hs | 2 +-
 hledger/hledger.m4.md                     | 2 +-
 hledger/test/journal/directives.test      | 4 ++++
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index e32eb2694..4617393f7 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -598,7 +598,7 @@ payeedirectivep = do
 
 defaultyeardirectivep :: JournalParser m ()
 defaultyeardirectivep = do
-  (string "Y" <|> string "year") <?> "default year"
+  (string "Y" <|> string "year" <|> string "apply year") <?> "default year"
   lift skipNonNewlineSpaces
   setYear =<< lift yearp
 
diff --git a/hledger/hledger.m4.md b/hledger/hledger.m4.md
index 7f08694c7..ad1f6079b 100644
--- a/hledger/hledger.m4.md
+++ b/hledger/hledger.m4.md
@@ -2641,7 +2641,7 @@ and less trustworthy in an audit.
 ### Default year
 
 You can set a default year to be used for subsequent dates which don't
-specify a year. This is a line beginning with `Y` or `year` followed by the year. Eg:
+specify a year. This is a line beginning with `Y` (or `year` or `apply year`) followed by the year. Eg:
 
 ```journal
 Y2009  ; set default year to 2009
diff --git a/hledger/test/journal/directives.test b/hledger/test/journal/directives.test
index bc105554c..c75bd51a0 100644
--- a/hledger/test/journal/directives.test
+++ b/hledger/test/journal/directives.test
@@ -24,11 +24,15 @@ Y 1111
 1/1
 year 2222
 2/2
+apply year 3333
+3/3
 $ hledger -f- print
 1111-01-01
 
 2222-02-02
 
+3333-03-03
+
 >=
 
 # Legacy ! and @ prefixes are accepted.