summaryrefslogtreecommitdiff
path: root/.emacs.d
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-02-07 18:02:47 +0200
committerThanos Apollo <[email protected]>2024-02-07 18:02:47 +0200
commit5384cd03ebfa4b868a1d60d05fa6ee8a3af1c64c (patch)
tree7a0d7d80d0f7eeedf50f7395f05d930f25ea58d6 /.emacs.d
parent8ecf80c4f105f3b48f627e21d12108640a97a0d4 (diff)
emacs:(commands) Fix vm & disable thanos/toggle-input-method
Diffstat (limited to '.emacs.d')
-rw-r--r--.emacs.d/modules/thanos-commands.el11
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