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

Question

曾看过Htmlize？在现有的缓冲区中调用，它会生成一个新缓冲区，其中包含原始缓冲区内容的HTML版本。

我想要类似的东西，但我希望它为XML到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))