[Emacs-diffs] scratch/benchmarks 162a8fa 3/3: Add a selector function as a way to avoid running all the tasks

[Gemini Lasswell]

branch: scratch/benchmarks
commit 162a8fa443b9bcbacc391f2f298a440f14710197
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>

    Add a selector function as a way to avoid running all the tasks
    
    * lisp/emacs-lisp/erb.el (erb-task-select-function): New variable.
    (erb--benchmark-one-commit): Use it.
---
 lisp/emacs-lisp/erb.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/erb.el b/lisp/emacs-lisp/erb.el
index 7d3f33d..48f81a9 100644
--- a/lisp/emacs-lisp/erb.el
+++ b/lisp/emacs-lisp/erb.el
@@ -1013,19 +1013,28 @@ system, remove it."
 
 ;;;; Run benchmarks
 
+;; Todo UI for this
+(defvar erb-task-select-function nil
+  "If non-nil, a function to select the benchmark tasks to run.
+Passed one argument, TASK, an `erb--metadata' structure.  Return
+non-nil if TASK should be run.")
+
 (defun erb--benchmark-one-commit (commit target-emacs)
   "Run the benchmark tasks for one COMMIT and record the results.
 The executable to run should be found in the subdirectory
 'result' of the directory TARGET-EMACS."
   (let* ((tasks (erb--vc-tasks-for-commmit commit))
+        (selected-tasks (seq-filter (or erb-task-select-function
+                                        #'identity)
+                                    tasks))
          (benchmark-task-files (directory-files-recursively
                                 (erb--benchmark-dir) "\\.el$"))
          (all-run-results (make-erb--run-results)))
     (when tasks
       (dolist (file benchmark-task-files)
-        (when-let* ((selected-tasks (erb--filter-by-file tasks file)))
+        (when-let* ((file-tasks (erb--filter-by-file selected-tasks file)))
           (let* ((this-run-results (erb--run-tasks target-emacs
-                                                   file selected-tasks)))
+                                                   file file-tasks)))
             (setq all-run-results
                   (erb--merge-run-results all-run-results
                                           this-run-results))