Avoiding repetition

Used mapcar in order to avoid the repetition
clojure-emacs · May 2, 2017 · c33fc5f · c33fc5f
1 parent c02c15f
commit c33fc5f
Showing 1 changed file with 11 additions and 9 deletions.
diff --git a/clj-refactor.el b/clj-refactor.el
@@ -760,16 +760,18 @@ A new record is created to define this constructor."
 
 ;; ------ file -----------
 
+(defun cljr--locate-project-file (file)
+  (ignore-errors
+    (file-truename
+     (locate-dominating-file default-directory file))))
+
 (defun cljr--project-dir ()
-  (or (ignore-errors
-	(file-truename
-	 (locate-dominating-file default-directory "project.clj")))
-      (ignore-errors
-	(file-truename
-	 (locate-dominating-file default-directory "build.boot")))
-      (ignore-errors (file-truename
-		      (locate-dominating-file default-directory "pom.xml")))
-      ""))
+  (or
+   (thread-last  '("project.clj" "build.boot" "pom.xml")
+     (mapcar 'cljr--locate-project-file)
+     (delete 'nil)
+     car)
+     ""))
 
 (defun cljr--project-file ()
   (let ((project-dir (cljr--project-dir)))