lava-job-list-mode: make unique to server

This includes copying across the buffer locals we need for this
instance of the job list.

1 files changed, 11 insertions, 1 deletions

diff --git a/lava-job-list-mode.el b/lava-job-list-mode.el
index f5db789..34db077 100644
--- a/lava-job-list-mode.el
+++ b/lava-job-list-mode.el
@@ -85,7 +85,17 @@ Letters do not insert themselves; instead, they are commands.
 
 (defun lava-job-list--buffer ()
   "Return a buffer to process the lava job list."
-  (get-buffer-create "*LAVA Job List*"))
+  (let ((host lava-host)
+        (user lava-user-name)
+        (token lava-api-token)
+        (job-buffer
+         (get-buffer-create
+          (format "*LAVA Job List for %s*" lava-host))))
+    (with-current-buffer job-buffer
+      (setq lava-host host
+            lava-user-name user
+            lava-api-token token))
+    job-buffer))
 
 (defun lava-update-job-status (jobid resp)
   "Process RESP for JOBID."