diff options
| author | Alex Bennée <alex.bennee@linaro.org> | 2017-05-18 16:30:06 +0100 |
|---|---|---|
| committer | Alex Bennée <alex.bennee@linaro.org> | 2017-05-18 16:30:06 +0100 |
| commit | 2e93886ce0904817497540333720c67c577969cd (patch) | |
| tree | 5cfbb4047430ba67ae5fab34271ae36f8a4ec320 | |
| parent | db7a576f0caa050b663d2088c11e21cf1d27422c (diff) | |
lava-list-mode: fixes for multiple hosts
| -rw-r--r-- | lava-job-list-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lava-job-list-mode.el b/lava-job-list-mode.el index dca4e25..cc29b6b 100644 --- a/lava-job-list-mode.el +++ b/lava-job-list-mode.el @@ -115,7 +115,8 @@ Letters do not insert themselves; instead, they are commands. (defun lava-job-status (jobid) "Request the job status of JOBID." - (lexical-let ((jobid jobid)) + (lexical-let ((jobid jobid) + (lava-host (lava-jobs-get-field jobid "lava_host"))) (lava-xml-async-rpc-call #'(lambda (resp) (lava-update-job-status jobid resp)) 'scheduler.job_status jobid))) @@ -189,7 +190,7 @@ Letters do not insert themselves; instead, they are commands. "Refresh the list of `JOBS' in the display." (with-current-buffer (lava-job-list--buffer) (let (entries '()) - (-each (-map 'car lava-job-info) + (-each (lava-jobs-get-all-on-host lava-host) (lambda (job) (lava-start-polling-job job) (add-to-list 'entries `(,job ,(lava-job-list--format-row job))))) |