commit - 24b533224c84158e85343d16141f8a2cb5c800e8
commit + 36267e0bf9ca63a9bf33f5fe6fb72a7509b7c278
blob - 0bf8d6dba7222606507655c16bbd34c17362b1b8
blob + bc5ba2f5af0fa7bed61e2abc9527cfefdff622f7
--- vmd.el
+++ vmd.el
(mapcar (lambda (x)
(split-string x nil t))
(cdr
- (split-string (shell-command-to-string "vmctl status")
+ (split-string (shell-command-to-string
+ (concat vmd-vmctl-cmd " status"))
"\n" t))))))
(setq tabulated-list-format columns
tabulated-list-entries rows)
(defun vmd--vmctl (&rest args)
"Run a vmctl command with ARGS."
- (shell-command (mapconcat #'shell-quote-argument (cons "vmctl" args) " ")))
+ (shell-command (mapconcat #'shell-quote-argument (cons vmd-vmctl-cmd args) " ")))
(defun vmd-console (vm)
"Open a console for the virtual machine VM at point."