add incus-tramp.el

2026-05-20 23:01:52 +01:00
parent 3082ce962d
commit 15bbb6815e
1 changed files with 60 additions and 0 deletions
@@ -0,0 +1,60 @@
+;;; incus-tramp.el --- TRAMP integration for Incus -*- lexical-binding:t; coding:utf-8 -*-
+;;
+;; Copyright (C) 2026 Roman Isaev
+;;
+;; Author: Roman Isaev <mdnight@riseup.net>
+;; Maintainer: Roman Isaev <mdnight@riseup.net>
+;; Keywords: tramp, incus, containers, extensions
+;; Package: incus-tramp
+;; Package-Version: 0.0.1
+;; Package-Requires: ((emacs "30.0"))
+
+(require 'tramp)
+(require 'subr-x)
+
+(defgroup incus-tramp nil
+  "TRAMP integration for Incus."
+  :group 'tramp)
+
+(defcustom incus-tramp-incus-executable "incus"
+  "Path to the Incus executable."
+  :type 'string
+  :group 'incus-tramp)
+
+;;;###autoload
+(defconst incus-tramp-method "incus"
+  "Tramp method name to connect to Incus containers.")
+
+;;;###autoload
+(defun incus-tramp--completion-function ()
+  "List running containers available for connection.
+
+This function is used by `tramp-set-completion-function', please
+see its function help for a description of the format."
+  (interactive)
+  (tramp-skeleton-completion-function incus-tramp-method
+    (when-let* ((raw-list
+		         (shell-command-to-string
+		          (concat program " list --columns=n --format=csv status=running")))
+		        (names (split-string raw-list "\n" 'omit)))
+      (mapcar (lambda (name) (list nil name)) names))))
+
+;;;###autoload
+(defun incus-tramp-enable-method ()
+  (interactive)
+  (with-eval-after-load 'tramp
+    (add-to-list 'tramp-methods
+                 `(,incus-tramp-method
+                   (tramp-login-program ,incus-tramp-incus-executable)
+                   (tramp-login-args (("exec") ("%h") ("--") ("%l")))
+                   (tramp-direct-async (,tramp-default-remote-shell "-c"))
+                   (tramp-remote-shell ,tramp-default-remote-shell)
+                   (tramp-remote-shell-login ("-l"))
+                   (tramp-remote-shell-args ("-i" "-c"))
+                   (tramp-completion-use-cache nil)))
+    
+    (tramp-set-completion-function tramp-docker-method
+                                   (incus-tramp--completion-function))
+    (add-to-list 'tramp-completion-multi-hop-methods incus-tramp-method)))
+
+(provide 'incus-tramp)