.emacs.d/init.d/net/server.el

;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-

;; Time-stamp: <2020-01-01T09:01:07+0100>

;;; Commentary:

;;; Code:

(require 'basics/global-variables)

;; Edit remote files.
(unless slow-computer
  (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? *"))
    (tramp-connection-timeout 20)

    :config
    ;; Respect remote PATH.
    (add-to-list 'tramp-remote-path 'tramp-own-remote-path)
    )
  ) ; unless slow-computer.

;; 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
      :defer 5
      :functions (server-running-p)

      :init
      (setq server-use-tcp t
            server-port 51313
            server-auth-key ; 64 chars, saved in ~/.emacs.d/server/server.
            "phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh")

      :config
      (unless (eq (server-running-p) t) ; Run server if not t.
        (server-start))
      )

      ;; Server for Firefox-extension that allows to use Emacs to edit textareas.
      ;; https://addons.mozilla.org/en-US/firefox/addon/ghosttext/
      (use-package atomic-chrome
        :config
        (atomic-chrome-start-server)

        :custom
        (atomic-chrome-url-major-mode-alist
         '(
           ("^likeable\\.space/" . markdown-mode)
           ("^schlomp\\.space/" . markdown-mode)
           ("^wiki\\.gentoo\\.org/" . mediawiki-mode)
           ("^github\\.com/" . markdown-mode)
           ("^gitlab\\.com/" . markdown-mode)
           ))
        (atomic-chrome-buffer-open-style 'frame)
        )
    ))

(provide 'net/server)
;;; server.el ends here