From bed6058fdc1bc9ac5845d0fc761bdabb6ac1b7b3 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Sun, 2 May 2021 23:10:35 +0300 Subject: [PATCH] mu-server: add thread-date as emacs timestamp So we can more easily deal with it from elisp. --- lib/mu-server.cc | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lib/mu-server.cc b/lib/mu-server.cc index f92b124a..fcf3d82d 100644 --- a/lib/mu-server.cc +++ b/lib/mu-server.cc @@ -138,6 +138,13 @@ add_thread_info (Sexp::List& items, const QueryMatch& qmatch) info.add_prop(":level", Sexp::make_number(qmatch.thread_level)); info.add_prop(":date", Sexp::make_string(qmatch.thread_date)); + Sexp::List dlist; + const auto td {::atoi(qmatch.thread_date.c_str())}; + dlist.add(Sexp::make_number((unsigned)(td >> 16))); + dlist.add(Sexp::make_number((unsigned)(td & 0xffff))); + dlist.add(Sexp::make_number(0)); + info.add_prop(":date-tstamp", Sexp::make_list(std::move(dlist))); + if (qmatch.has_flag(QueryMatch::Flags::Root)) info.add_prop( ":root", symbol_t()); if (qmatch.has_flag(QueryMatch::Flags::Related))