是否存在将缓冲区中的XML转换为JSON的emacs defun？ jsonify缓冲？ JSONize？

Question

见过Htmlize？在现有缓冲区中调用，它会生成一个带有原始缓冲区内容的HTML化版本的新缓冲区。

我想要类似的东西，但我希望它用于XML-to-JSON。 （反之亦然，奖励积分）。

鉴于XML缓冲区，我想生成一个“等效”JSON缓冲区，基于一些设置或假设构建。

例如，从这开始：

<sample>
 <text>This is the text</text>
</sample>

我想得到这个：

{ "sample" : { "text" : "this is the text" } } 

命名空间，属性和数组的处理......理想情况下，它们都可以通过某种方式进行配置。那将是某个地方的设置。一种选择是简单地剥离xml名称空间。另一种方法是在命名的json属性中为元素附加xml命名空间。

有这样的事吗？也许它甚至作为emacs v24中内置的xml或js模式的一部分存在？

我宁愿抓住别人的工作！今晚不要在晚上写这篇文章。 ....

Answer 1

不是我知道的。但这可能会让你开始：

(require 'json)
(json-encode-list (xml-parse-region))