From 10180f0fffd5dcb14df06617c17b1607a5818bfe Mon Sep 17 00:00:00 2001
From: Craig Earls <enderw88@gmail.com>
Date: Fri, 26 Oct 2012 13:33:27 -0700
Subject: Added "draft" and "lisp" command synonyms

---
 src/report.cc | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/report.cc')

diff --git a/src/report.cc b/src/report.cc
index dc5a0704..9e085a98 100644
--- a/src/report.cc
+++ b/src/report.cc
@@ -1592,7 +1592,10 @@ expr_t::ptr_op_t report_t::lookup(const symbol_t::kind_t kind,
         return POSTS_REPORTER(new report_commodities(*this));
       }
       break;
-
+    case 'd':
+      if (is_eq(p, "draft")) {
+        return WRAP_FUNCTOR(xact_command);
+      }
     case 'e':
       if (is_eq(p, "equity")) {
         HANDLER(generated).on("#equity");
@@ -1614,7 +1617,10 @@ expr_t::ptr_op_t report_t::lookup(const symbol_t::kind_t kind,
         return POSTS_REPORTER(new format_ptree(*this,
                                                format_ptree::FORMAT_JSON));
       break;
-
+    case 'l':
+      if (is_eq(p, "lisp"))
+        return POSTS_REPORTER(new format_emacs_posts(output_stream));
+      break;
     case 'o':
       if (is_eq(p, "org"))
         return POSTS_REPORTER(new posts_to_org_table
-- 
cgit v1.2.3