From 4ecc57461a74d7db6730a68a9adfc97ecd95515e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 8 Oct 2022 08:22:10 -1000
Subject: [PATCH] imp: accounts: -u, -d

---
 hledger/Hledger/Cli/Commands/Accounts.hs | 4 ++--
 hledger/Hledger/Cli/Commands/Accounts.md | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Accounts.hs b/hledger/Hledger/Cli/Commands/Accounts.hs
index 60a510800..1f1607a3e 100644
--- a/hledger/Hledger/Cli/Commands/Accounts.hs
+++ b/hledger/Hledger/Cli/Commands/Accounts.hs
@@ -37,8 +37,8 @@ accountsmode = hledgerCommandMode
   $(embedFileRelative "Hledger/Cli/Commands/Accounts.txt")
   (flattreeflags False ++
   [flagReq  ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "flat mode: omit N leading account name parts"
-  ,flagNone ["used"] (setboolopt "used") "show only accounts used by transactions"
-  ,flagNone ["declared"] (setboolopt "declared") "show only accounts declared by account directive"
+  ,flagNone ["used","u"] (setboolopt "used") "show only accounts used by transactions"
+  ,flagNone ["declared","d"] (setboolopt "declared") "show only accounts declared by account directive"
   ,flagNone ["unused"] (setboolopt "unused") "show accounts declared but not used"
   ,flagNone ["undeclared"] (setboolopt "undeclared") "show accounts used but not declared"
   ,flagNone ["find"] (setboolopt "find") "find the first account matched by the first command argument (a case-insensitive infix regexp or account name)"
diff --git a/hledger/Hledger/Cli/Commands/Accounts.md b/hledger/Hledger/Cli/Commands/Accounts.md
index b3d906e41..e5995ba7c 100644
--- a/hledger/Hledger/Cli/Commands/Accounts.md
+++ b/hledger/Hledger/Cli/Commands/Accounts.md
@@ -9,8 +9,8 @@ By default it shows all known accounts, either used in transactions or declared
 With query arguments, only matched account names and account names referenced by matched postings are shown.
 
 Or it can show just
-the used accounts (`--used`),
-the declared accounts (`--declared`),
+the used accounts (`--used`/`-u`),
+the declared accounts (`--declared`/`-d`),
 the accounts declared but not used (`--unused`),
 the accounts used but not declared (`--undeclared`),
 or the first account matched by an account name pattern, if any (`--find`).