emacs - 将整个组织模式文件重新归档为树？

Question

我有一个充满组织模式文件的目录。每个文件都被构造成多个树，如下所示。

这是第一个文件

* 第一项
** 子项 1
** 子项 2
* 第二项

我想将所有这些文件组合成一个文件，其中每个文件都有自己的树。所以它看起来像这样。

* file1.org
这是第一个文件
** 第一项
*** 子项 1
*** 子项 2
** 第二项
* file2.org
这是第二个文件。
** 第一项
** 第二项 ...

使用 elisp 实现这一目标的最简单方法是什么？

Answer 1

这当然可以改进，但应该工作得很好：

rm combined.org tmp.org ;
for i in *.org ; do 
    touch combined.org ; 
    echo "* $i" > tmp.org;
    sed "s/^\*/**/" "$i" | cat combined.org tmp.org - > combined.org.tmp ;
    mv combined.org.tmp combined.org ;
done