(files (directory-files-recur
objdir 'full (mapfam
#'(lambda (e)
- (replace-in-string e "\\." ""))
+ (replace-in-string e "\\." ""))
:initiator "\\.\\("
:terminator "\\)$"
:separator "\\|"
directories)
(mapfam
#'(lambda (f)
- (let ((d (car (last (split-string-by-char (file-dirname f) ?/) 2))))
+ (let ((d (file-basename (file-dirname f))))
(unless (bloom-owns-p dir-bloom d)
(bloom-add dir-bloom d)
(setq directories (cons d directories)))))