cli: some new short command aliases

accounts: a
balance: b
print: p, txns
register: r

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 ()

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 ()

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 ()

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 ()