From bc66c75bd2318b50ed993760caf9748e2e10b961 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 14 Sep 2017 05:53:12 -0700
Subject: [PATCH] cli: some new short command aliases

accounts: a
balance: b
print: p, txns
register: r
---
 hledger/Hledger/Cli/Commands/Accounts.hs | 2 +-
 hledger/Hledger/Cli/Commands/Balance.hs  | 2 +-
 hledger/Hledger/Cli/Commands/Print.hs    | 2 +-
 hledger/Hledger/Cli/Commands/Register.hs | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Accounts.hs b/hledger/Hledger/Cli/Commands/Accounts.hs
index 15128962f..4b4cf8535 100644
--- a/hledger/Hledger/Cli/Commands/Accounts.hs
+++ b/hledger/Hledger/Cli/Commands/Accounts.hs
@@ -47,7 +47,7 @@ accountsmode = (defCommandMode $ ["accounts"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = []
+  where aliases = ["a"]
 
 -- | The accounts command.
 accounts :: CliOpts -> Journal -> IO ()
diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs
index 444d8989c..18777335c 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -288,7 +288,7 @@ balancemode = (defCommandMode $ ["balance"] ++ aliases) { -- also accept but don
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["bal"]
+  where aliases = ["b","bal"]
 
 -- | The balance command, prints a balance report.
 balance :: CliOpts -> Journal -> IO ()
diff --git a/hledger/Hledger/Cli/Commands/Print.hs b/hledger/Hledger/Cli/Commands/Print.hs
index 5f48f97c7..62f169eee 100644
--- a/hledger/Hledger/Cli/Commands/Print.hs
+++ b/hledger/Hledger/Cli/Commands/Print.hs
@@ -44,7 +44,7 @@ printmode = (defCommandMode $ ["print"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = []
+  where aliases = ["p","txns"]
 
 -- | Print journal transactions in standard format.
 print' :: CliOpts -> Journal -> IO ()
diff --git a/hledger/Hledger/Cli/Commands/Register.hs b/hledger/Hledger/Cli/Commands/Register.hs
index db6c6b10f..640770c36 100644
--- a/hledger/Hledger/Cli/Commands/Register.hs
+++ b/hledger/Hledger/Cli/Commands/Register.hs
@@ -54,7 +54,7 @@ registermode = (defCommandMode $ ["register"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["reg"]
+  where aliases = ["r","reg"]
 
 -- | Print a (posting) register report.
 register :: CliOpts -> Journal -> IO ()