source/directory.el: add subdirectory append function