cli: drop single-letter aliases, keep the familiar three-letter ones where useful

hledger/Hledger/Cli/Accounts.hs

@@ -27,7 +27,7 @@ import Hledger.Cli.Options
 
 
 -- | Command line options for this command.
-accountsmode = (defCommandMode $ ["accounts"] ++ aliases ++ hiddenaliases) {
+accountsmode = (defCommandMode $ ["accounts"] ++ aliases) {
   modeHelp = "show account names" `withAliases` aliases
  ,modeHelpSuffix = [
     "This command lists the accounts referenced by matched postings (and in tree mode, their parents as well). The accounts can be depth-clipped (--depth N or depth:N) or have their leading components dropped (--drop N)."
@@ -42,7 +42,7 @@ accountsmode = (defCommandMode $ ["accounts"] ++ aliases ++ hiddenaliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where (aliases, hiddenaliases) = (["a"],["acc"])
+  where aliases = []
 
 -- | The accounts command.
 accounts :: CliOpts -> Journal -> IO ()

hledger/Hledger/Cli/Balance.hs

@@ -259,7 +259,7 @@ import Hledger.Cli.Options
 
 
 -- | Command line options for this command.
-balancemode = (defCommandMode $ ["balance"] ++ aliases ++ ["bal"]) { -- also accept but don't show the common bal alias
+balancemode = (defCommandMode $ ["balance"] ++ aliases) { -- also accept but don't show the common bal alias
   modeHelp = "show accounts and balances" `withAliases` aliases
  ,modeGroupFlags = C.Group {
      groupUnnamed = [
@@ -276,7 +276,7 @@ balancemode = (defCommandMode $ ["balance"] ++ aliases ++ ["bal"]) { -- also acc
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["b"]
+  where aliases = ["bal"]
 
 -- | The balance command, prints a balance report.
 balance :: CliOpts -> Journal -> IO ()

hledger/Hledger/Cli/Histogram.hs

@@ -20,8 +20,8 @@ import Prelude hiding (putStr)
 import Hledger.Utils.UTF8IOCompat (putStr)
 
 
-activitymode = (defCommandMode ["activity"]) {
+activitymode = (defCommandMode $ ["activity"] ++ aliases) {
-  modeHelp = "show a barchart of transactions per interval"
+  modeHelp = "show a barchart of transactions per interval" `withAliases` aliases
  ,modeHelpSuffix = ["The default interval is daily."]
  ,modeGroupFlags = Group {
      groupUnnamed = []
@@ -29,6 +29,7 @@ activitymode = (defCommandMode ["activity"]) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
+  where aliases = []
 
 barchar = '*'
 

hledger/Hledger/Cli/Print.hs

@@ -29,7 +29,7 @@ printmode = (defCommandMode $ ["print"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["p"]
+  where aliases = []
 
 -- | Print journal transactions in standard format.
 print' :: CliOpts -> Journal -> IO ()

hledger/Hledger/Cli/Register.hs

@@ -24,7 +24,7 @@ import Hledger.Utils.UTF8IOCompat (putStr)
 import Hledger.Cli.Options
 
 
-registermode = (defCommandMode $ ["register"] ++ aliases ++ ["reg"]) {
+registermode = (defCommandMode $ ["register"] ++ aliases) {
   modeHelp = "show postings and running total" `withAliases` aliases
  ,modeGroupFlags = Group {
      groupUnnamed = [
@@ -36,7 +36,7 @@ registermode = (defCommandMode $ ["register"] ++ aliases ++ ["reg"]) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["r"]
+  where aliases = ["reg"]
 
 -- | Print a (posting) register report.
 register :: CliOpts -> Journal -> IO ()

hledger/Hledger/Cli/Stats.hs

@@ -32,7 +32,7 @@ statsmode = (defCommandMode $ ["stats"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["s"]
+  where aliases = []
 
 -- like Register.summarisePostings
 -- | Print various statistics for the journal.