New macro helm-case

* helm-files.el (helm-list-dir-external): Use it.
(helm-delete-file):                       Use it.
* helm-lib.el (helm-case): New.

1 files changed, 15 insertions, 0 deletions

diff --git a/helm-lib.el b/helm-lib.el
index 4bb71cf7..88ae6f24 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -454,6 +454,21 @@ The usage is the same as `cond'."
         (t `(helm-aif ,(car conditions)
                 (helm-aand ,@(cdr conditions))))))
 
+;;; Improved existing functions or macros
+;;
+(defmacro helm-case (expr &rest clauses)
+  "A simpler `cl-case' implementation handling strings.
+NOTE: Duplicate keys in CLAUSES are deliberately not handled."
+  (declare (indent 1) (debug t))
+  (unless (null clauses)
+    (let ((clause1 (car clauses)))
+      `(let ((key ',(car clause1)))
+         (if (or (equal ,expr key)
+                 (eq key t)
+                 (and (listp key) (member ,expr key)))
+             (progn ,@(cdr clause1))
+           (helm-case ,expr ,@(cdr clauses)))))))
+
 ;;; Fuzzy matching routines
 ;;
 (defsubst helm--mapconcat-pattern (pattern)