From dfdbc51501bcf535c6ecb742cfc169f6041be224 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 2 Sep 2019 22:54:19 +0530 Subject: Add filter-map utility function. * ennu.el (ennu--filter-map): New function. --- ennu.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ennu.el b/ennu.el index 3bd5f79..be81523 100644 --- a/ennu.el +++ b/ennu.el @@ -335,6 +335,9 @@ if DESTINATION already exists." (make-directory (file-name-directory destination) t) (copy-file source destination t))) +(defun ennu--filter-map (function sequence) + (seq-filter 'identity (seq-map function sequence))) + (defun ennu--do-operation (temporary-directory operation) (let* ((expand (lambda (directory file) (expand-file-name file directory))) -- cgit v1.2.3