у меня интел

ноут?

мак мини

Один хуй имакс на проце рендерит

🤔интересно, мб чето в графическом движке тогда..сама реализация библиотеки отпадает т.к. в терминале нет фризов

о, все вернул, думал уже все

Как мне сделать из объекта типа tramp-file-name строку, которая будет соответствующим трамповским path'ом?

(Удручает, что не могу искать функции попросту по их типу.)

Ну судя по тому что я вижу вот это не в отдельной функции

(concat tramp-prefix-format hop
 (unless (zerop (length tramp-postfix-method-format))
   (concat method tramp-postfix-method-format))
 user
 (unless (zerop (length domain))
   (concat tramp-prefix-domain-format domain))
 (unless (zerop (length user))
   tramp-postfix-user-format)
 (when host
   (if (string-match-p tramp-ipv6-regexp host)
       (concat
        tramp-prefix-ipv6-format host tramp-postfix-ipv6-format)
     host))
 (unless (zerop (length port))
   (concat tramp-prefix-port-format port))
 tramp-postfix-host-format
 localname)

то только так.

Интерфейс к tramp это жопа, конечно.

Оказывается, tramp-make-tramp-file-name на самом деле это делает.  Но при этом его первый аргумент обозначен VEC.  В то время как struct явно имплементирован как list.

(Я чисто наудачу попробовал.)

Лучше б были Коммоновские pathname'ы, уж точно.  Во всяком случае там есть терминология, а в ней чотко pathname и namestring.

у меня его сигнатура вообще (tramp-make-tramp-file-name &rest ARGS)

какой ужас

Ну там в докстринге написано подробнее.  Но там и написано VEC.

Если функция призвана работать со значением какого-то неочевидного типа, я ≈всегда назову переменную названием этого типа.

я прочитал ^

(setq method (nth 0 args)
     user (nth 1 args)
     domain (nth 2 args)
     host (nth 3 args)
     port (nth 4 args)
     localname (nth 5 args)
     hop (nth 6 args))


21 шаг по списку вместо 6.

Вместо
(let ((args args))
 (setq method    (pop args)
       user      (pop args)
       domain    (pop args)
       host      (pop args)
       port      (pop args)
       localname (pop args)
       hop       (pop args)))

надо бы такое сделать для cl-struct в pcase-let

Тиллинг мой друг