1 files changed, 59 insertions, 0 deletions
diff --git a/emacs.cc b/emacs.cc
new file mode 100644
index 00000000..8a4d7f84
--- /dev/null
+++ b/emacs.cc
@@ -0,0 +1,59 @@
+#include "emacs.h"
+
+namespace ledger {
+
+void format_emacs_transactions::write_entry(entry_t& entry)
+{
+  out << (((unsigned long)entry.beg_pos) + 1) << " ";
+
+  out << (entry.state == entry_t::CLEARED ? "t" : "nil") << " ";
+
+  out << "(" << (entry.date / 65536) << " "
+      << (entry.date % 65536) << " 0) ";
+
+  if (entry.code.empty())
+    out << "nil ";
+  else
+    out << "\"" << entry.code << "\" ";
+
+  if (entry.payee.empty())
+    out << "nil";
+  else
+    out << "\"" << entry.payee << "\"";
+
+  out << "\n";
+}
+
+void format_emacs_transactions::operator()(transaction_t& xact)
+{
+  if (! transaction_has_xdata(xact) ||
+      ! (transaction_xdata_(xact).dflags & TRANSACTION_DISPLAYED)) {
+    if (! last_entry) {
+      out << "((";
+      write_entry(*xact.entry);
+    }
+    else if (xact.entry != last_entry) {
+      out << ")\n (";
+      write_entry(*xact.entry);
+    }
+    else {
+      out << "\n";
+    }
+
+    out << "  (\"" << xact.account->fullname() << "\" \""
+	<< xact.amount << "\"";
+    if (xact.cost)
+      out << " \"" << *xact.cost << "\"";
+    else if (! xact.note.empty())
+      out << " nil";
+    if (! xact.note.empty())
+      out << " \"" << xact.note << "\"";
+    out << ")";
+
+    last_entry = xact.entry;
+
+    transaction_xdata(xact).dflags |= TRANSACTION_DISPLAYED;
+  }
+}
+
+} // namespace ledger