blog/content/posts/Editing-remote-files-with-emacs-comfortably.adoc
tastytea 0c1c260c88
Capitalize tags.
They are case insensitive anyway, might as well write them right.
2021-03-15 16:55:29 +01:00

8.1 KiB
Raw Blame History


title: "Editing remote files with Emacs, comfortably" description: "Edit remote files with Emacs using SSH and a wrapper for emacsclient." date: "2019-05-08T15:59:00+02:00" draft: false tags: ["Emacs", "SSH"] comtodon: 9ibPpjSsYeNmHrbBDc ---

It took me a long time to collect all the bits and pieces I needed to make editing remote files with Emacs work the way I want, with a simple command that works via SSH. I hope I can save you some time by stitching it here together into a tutorial. I assume you use use-package in my examples.

Emacs server & TRAMP

We start with Emacss good old inbuilt server. The default is to use an UNIX domain socket; We have to change that to TCP to be able to receive input from our remote hosts. The server will bind to 127.0.0.1. Pick a strong password that is exactly 64 characters long and a port above 1023. I chose 51313 because if we substitute the digits for letters in the Latin alphabet, we get E M A C. The server will create the file ~/.emacs.d/server/server with the IP, port and password in it. This file needs to be distributed to every host that should be able to access the server.

;; Run server if:
;; - Our EUID is not 0,
;; - We are not logged in via SSH,
;; - It is not already running.
(unless (equal (user-real-uid) 0)
  (unless (getenv "SSH_CONNECTION")
    (use-package server
      :init
      (setq server-use-tcp t
            server-port 51313
            server-auth-key ; 64 chars, saved in ~/.emacs.d/server/server.
            "looph8oow3Aph5ahje1eek1aish3Ohthu4Paengae0iketohGhaemi2iek5ae4ee")
      :config
      (unless (eq (server-running-p) t) ; Run server if not t.
          (server-start)))))

The server expects filenames as input, we cant just feed it the file. The package TRAMP allow us to use remote file paths with Emacs with the help of SSH. I have modified tramp-password-prompt-regexp to look for verification code prompts from the Google Authenticator PAM module.

Note
My modification overwrites the original value of tramp-password-prompt-regexp, which has a bunch of localized variants of “password” in it. You can view the original value with C-h v tramp-password-prompt-regexp.
(use-package tramp
  :custom
  (tramp-use-ssh-controlmaster-options nil) ; Don't override SSH config.
  (tramp-default-method "ssh")    ; ssh is faster than scp and supports ports.
  (tramp-password-prompt-regexp   ; Add verification code support.
   (concat
    "^.*"
    (regexp-opt
     '("passphrase" "Passphrase"
       "password" "Password"
       "Verification code")
     t)
    ".*:\0? *")))

SSH

In order to avoid having to enter our password again and again, we can edit our SSH configuration to reuse existing connections. The following configuration will create an UNIX domain socket per host and re-use that for all further connections to this host. It will also forward the Emacs server port, that we picked earlier, to every host we connect to. We will have to create ~/.ssh/sockets/ before we use the new configuration.

Warning
These sockets allow for unauthenticated access to every host you are connected to. While this is very convenient, it is also a security risk. The sockets are only usable by your user and root (file mode 0600).
Warning
Everyone on the remote host can connect to the port you forward. They will still need the password, but you might not want to do this if you dont trust the other users.
Host fc??:* fd??:* 192.168.* server1.example.com server2.example.com
    # Reuse connections.
    ControlMaster auto
    # Close socket 600s after after last connection closes.
    ControlPersist 600
    # Set path for sockets.
    ControlPath ~/.ssh/sockets/%r@%h-%p
    # Forward Emacs-server port.
    RemoteForward 127.0.0.1:51313 127.0.0.1:51313

Wrapper for emacsclient

Using file paths in TRAMP notation gets annoying really quick. Thankfully Andy Skelton created a wrapper script; I extended it with the ability to become root using sudo and an option to use it with local servers. This file needs to be distributed to every host that should be able to access the server.

#!/bin/bash
# Open file on a remote Emacs server.
# https://andy.wordpress.com/2013/01/03/automatic-emacsclient/ with added sudo.

params=()
sudo=0
local=0

for p in "${@}"; do
    if [[ "${p}" == "-n" ]]; then
        params+=( "${p}" )
    elif [[ "${p:0:1}" == "+" ]]; then
        params+=( "${p}" )
    elif [[ "${p}" == "--sudo" ]]; then
        sudo=1
    elif [[ "${p}" == "--local" ]]; then
        # Use local server, for use with --sudo.
        local=1
    else
        # Setting field separator to newline so that filenames with spaces will
        # not be split up into 2 array elements.
        OLDIFS=${IFS}
        IFS=$'\n'

        if [[ $(id -u) -eq 0 || ${sudo} -eq 1 ]]; then
            if [[ ${local} -eq 0 ]]; then
                params+=( "/ssh:$(hostname -f)|sudo:$(hostname -f):"$(realpath -m "${p}") )
            else
                params+=( "/sudo:localhost:"$(realpath -m "${p}") )
            fi
        else
            params+=( "/ssh:$(hostname -f):"$(realpath "${p}") )
        fi

        IFS=${OLDIFS}
    fi
done

emacsclient -f ~/.emacs.d/server/server "${params[@]}"

I had to add [[ "${TERM}" = "dumb" ]] && unsetopt zle to my Zsh configuration to prevent TRAMP connections from hanging all the time. Thanks to Darius for their answer on StackExchange.

Shell configuration

Now we should set VISUAL and EDITOR to the wrapper and set up some nice, short aliases. In my examples I assume we called our wrapper emacsremote. The argument -f causes emacsclient to not try to use UNIX domain sockets (and print an error message).

Note
I wrote the following code for Zsh, but it should also work for Bash.
# Set preferred editor.
if command -v emacsclient > /dev/null; then
    VISUAL="$(command -v emacsclient) -f ~/.emacs.d/server/server -a emacs"
    if [[ -n "${SSH_CONNECTION}" ]]; then # Logged in via SSH.
        if command -v emacsremote > /dev/null; then
            VISUAL="$(command -v emacsremote)"
        fi
    elif [[ $(id -u) -eq 0 ]] && command -v emacsremote > /dev/null; then
        # Edit files as root in the Emacs instance run by the current user.
        VISUAL="$(command -v emacsremote) --sudo --local"
    fi
elif command -v emacs > /dev/null; then
    VISUAL="$(command -v emacs)"
elif command -v vim > /dev/null; then
    VISUAL="$(command -v vim)"
elif command -v nano > /dev/null; then
    VISUAL="$(command -v nano)"
fi
export VISUAL
export EDITOR="${VISUAL}"
if [[ "${VISUAL}" =~ "emacs(client|remote)" ]]; then
    alias e="${VISUAL} -n"
    if [[ "${VISUAL}" =~ "emacsremote$" ]]; then
        # Don't block the terminal until the file is closed.
        alias se="${VISUAL} -n --sudo"
    elif command -v emacsremote >/dev/null &&  [[ -z "${SSH_CONNECTION}" ]]; then
        # Edit files as root in the Emacs instance run by the current user.
        alias se="$(command -v emacsremote) -n --sudo --local"
    fi
else
    alias e="${VISUAL}"
    alias se="sudo ${VISUAL}"
fi

To detect SSH connections after using sudo -i, we have to tell sudo to preserve the environment variable SSH_CONNECTION.

echo 'Defaults env_keep += "SSH_CONNECTION"' >> /etc/sudoers.d/ssh_vars

Updates

  • Updated 2019-05-12: Add -f argument to emacsclient.

  • Updated 2019-10-06: Support files with spaces in emacsremote and allow to open files the user cant read (for use with emacsremote --sudo).

  • Updated 2019-10-17: Added Zsh-hack to prevent hanging TRAMP-connections.