alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu-find: implement format=json2

Browse Source 
Implement a new experimental json2 format for mu-find, which gets rid of
the ":" prefixes for fields, i.e., "subject" instead of ":subject".
Document it as well.
This commit is contained in:
Dirk-Jan C. Binnema
2025-03-23 19:43:07 +02:00
parent d99785ed35
commit 44ba631a34
7 changed files with 52 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/utils/mu-sexp.cc
View File

@ -228,6 +228,13 @@ Sexp::to_json_string(Format fopts) const
{
std::stringstream sstrm;
const auto sym_name=[&](const std::string& sym) {
if (any_of(fopts & Format::NoColon) && sym[0] == ':')
return sym.substr(1); // remove colon
else
return sym;
};
switch (type()) {
case Type::List: {
// property-lists become JSON objects
@ -237,16 +244,18 @@ Sexp::to_json_string(Format fopts) const
bool first{true};
while (it != list().end()) {
const auto key{it->symbol().name};
sstrm << (first ? "" : ",") << quote(key) << ":";
sstrm << (first ? "" : ",")
<< quote(sym_name(key)) << ":";
++it;
const auto emacs_tstamp{*it};
sstrm << emacs_tstamp.to_json_string();
sstrm << emacs_tstamp.to_json_string(fopts);
++it;
first = false;
// special-case: tstamp-fields also get a "unix" value,
// which are easier to work with than the "emacs" timestamps
if (key == ":date" || key == ":changed")
sstrm << "," << quote(key + "-unix") << ":"
sstrm << "," << quote(sym_name(key) + "-unix")
<< ":"
<< unix_tstamp(emacs_tstamp);
}
sstrm << "}";
@ -256,7 +265,7 @@ Sexp::to_json_string(Format fopts) const
sstrm << '[';
bool first{true};
for (auto&& child : list()) {
sstrm << (first ? "" : ", ") << child.to_json_string();
sstrm << (first ? "" : ", ") << child.to_json_string(fopts);
first = false;
}
sstrm << ']';
@ -287,7 +296,6 @@ Sexp::to_json_string(Format fopts) const
}
Sexp&
Sexp::del_prop(const std::string& pname)
{