lava-jobs: hacky support for finding last submitted job

1 files changed, 16 insertions, 2 deletions

diff --git a/lava-jobs.el b/lava-jobs.el
index e04f2fd..bc662ef 100644
--- a/lava-jobs.el
+++ b/lava-jobs.el
@@ -83,8 +83,11 @@ symbols.")
   "Return a given field or `NIL' for a given job-id"
   (let ((info-hash (lava-jobs-get-hash job-id)))
     (gethash key info-hash)))
-  
-;; Some generic access functions
+
+;; Return all the lava-jobs
+(defun lava-jobs-get-all-jobs ()
+  "Return a list of all LAVA jobs in the system."
+  (-map 'car lava-job-info))
 
 (defun lava-jobs-get-actual-device (job-id)
   "Return the actual device this job is running on, or nil"
@@ -112,6 +115,17 @@ symbols.")
   "Return a list of jobs in a given state."
   (--filter (string-match-p state (lava-jobs-get-field it "job_status")) list-of-jobs))
 
+
+(defun lava-jobs-find-latest (list-of-jobs)
+  "Return the latest of  `LIST-OF-JOBS' by update time."
+  (--max-by (let ((it-time (lava-jobs-get-field it "updated"))
+                  (other-time (lava-jobs-get-field it "updated")))
+              (time-less-p other-time it-time))
+            list-of-jobs))
+
+;; (lava-jobs-find-latest (lava-jobs-get-all-jobs))
+;; (lava-jobs-find-latest (lava-jobs-find-running-job-by-name "mustang-hacking-session"))
+
 (defun lava-jobs-find-latest-running (list-of-jobs)
   "Return the latest running job of from `LIST-OF-JOBS'."
   (let ((running-jobs (lava-jobs-filter-by-state "Running"