80 lines
2.1 KiB
EmacsLisp
80 lines
2.1 KiB
EmacsLisp
;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-
|
|
|
|
;; Time-stamp: <2020-01-01T05:03:16+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)
|
|
)
|
|
|
|
:config
|
|
(edit-server-start)
|
|
)
|
|
))
|
|
|
|
(provide 'net/server)
|
|
;;; server.el ends here
|