[bug#36957] [PATCH 1/5] machine: Allow non-root users to deploy.

[Ricardo Wurmus]

Hi Jakob,

> * doc/guix.texi (Invoking guix deploy): Add section describing
> prerequisites for deploying as a non-root user.
> * guix/remote.scm (remote-pipe-for-gexp): New optional 'become-command'
> argument.
> (%remote-eval): New optional 'become-command' argument.
> (remote-eval): New 'become-command' keyword argument.
> * guix/ssh.scm (remote-inferior): New optional 'become-command'
> argument.  
> (inferior-remote-eval): New optional 'become-command' argument.
> (remote-authorize-signing-key): New optional 'become-command' argument.
> * gnu/machine/ssh.scm (machine-become-command): New variable.
> (managed-host-remote-eval): Invoke 'remote-eval' with the
> '#:become-command' keyword.
> (deploy-managed-host): Invoke 'remote-authorize-signing-key' with the
> '#:become-command' keyword.
[…]
> -(define (%remote-eval lowered session)
> +  (let ((pipe (apply open-remote-pipe* session OPEN_READ repl-command)))
> +    (when (eof-object? (peek-char pipe))
> +      (raise (condition
> +              (&message
> +               (message (format #f (G_ "failed to run '~{~a~^ ~}'")
> +                                repl-command))))))
> +    pipe))

This leads to a compile warning because G_ isn’t available.

-- 
Ricardo