diff options
| -rw-r--r-- | .emacs.d/modules/thanos-commands.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/.emacs.d/modules/thanos-commands.el b/.emacs.d/modules/thanos-commands.el index 3cb0f8c..eb950c0 100644 --- a/.emacs.d/modules/thanos-commands.el +++ b/.emacs.d/modules/thanos-commands.el @@ -30,7 +30,7 @@ ;;; Code: ;; VM -(defvar vm-directory "~/virtual-machines/") +(defvar vm-directory "~/Virtual/") (defun vm-create-image () "Create qcow2 image." @@ -47,12 +47,11 @@ (let ((memory (format "%sG" (read-string "Memory(G): "))) (cores (read-string "Cores: ")) (image (read-file-name "Image: " vm-directory)) - (iso (if (y-or-n-p "Load iso?? ") + (iso (if (y-or-n-p "Load iso? ") (read-file-name "ISO: ") nil))) - (start-process-shell-command - "virtual-machine" nil - (format "qemu-system-x86_64 -enable-kvm -m %s -smp %s -hda %s -vga qxl -device virtio-serial-pci -spice port=5784,disable-ticketing -display spice-app %s " + (call-process-shell-command + (format "qemu-system-x86_64 -enable-kvm -m %s -smp %s -hda %s -vga virtio -device virtio-serial-pci %s" memory cores image (when iso (concat "-cdrom " iso)))))) ;; MISC @@ -256,7 +255,7 @@ (let ((input-method (nth thanos/input-methods-index thanos/input-methods))) (set-input-method (if (string= "nil" input-method) nil input-method)))) -(define-key global-map (kbd "C-\\") #'thanos/toggle-input-method) +;; (define-key global-map (kbd "C-\\") #'thanos/toggle-input-method) (provide 'thanos-commands) ;;; thanos-commands.el ends here |