unquote incus-tramp-incus-program in tramp-methods definitions

README.org

@@ -15,6 +15,7 @@ similarly to how it is implemented for Docker, Podman, and other programs.
 
 #+begin_src emacs-lisp
   (use-package incus-tramp
+    :ensure nil
     :after tramp
     :vc (incus-tramp :url "https://github.com/mdnight/incus-tramp.git"
                      :rev "v0.1.0")

incus-tramp.el

@@ -46,14 +46,14 @@
 
 (defgroup incus-tramp nil
   "TRAMP integration for Incus."
-  :group 'tramp
+  :group 'tramp)
-  :prefix "incus-tramp-")
 
-(defcustom incus-tramp-program "incus"
+(defcustom incus-tramp-incus-program "incus"
-  "The executable name for Incus CLI"
+  "Path to the Incus executable."
   :type 'string
   :group 'incus-tramp)
 
+;;;###autoload
 (defconst incus-tramp-method "incus"
   "Tramp method name to connect to Incus containers.")
 
@@ -64,14 +64,15 @@
                 (names (split-string raw-list "\n" 'omit)))
       (mapcar (lambda (name) (list nil name)) names))))
 
+;;;###autoload
 (defun incus-tramp-enable-method ()
   (with-eval-after-load 'tramp
     (add-to-list 'tramp-methods
-                 `(,incus-tramp-method
+                 `(incus-tramp-method
-                   (tramp-login-program ,incus-tramp-program)
+                   (tramp-login-program incus-tramp-incus-program)
                    (tramp-login-args (("exec") ("%h") (,(format "--env TERM=%s" tramp-terminal-type)) ("--") ("%l")))
-                   (tramp-direct-async "/bin/sh")
+                   (tramp-direct-async (,tramp-default-remote-shell "-c"))
-                   (tramp-remote-shell "/bin/sh")
+                   (tramp-remote-shell ,tramp-default-remote-shell)
                    (tramp-remote-shell-login ("-l"))
                    (tramp-remote-shell-args ("-i" "-c"))
                    (tramp-completion-use-cache nil)