74 lines
1.9 KiB
EmacsLisp
74 lines
1.9 KiB
EmacsLisp
;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-
|
|
|
|
;; Time-stamp: <2019-11-04T19:43:41+00:00>
|
|
|
|
;;; 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? *"))
|
|
|
|
: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/de/firefox/addon/edit-with-emacs1/
|
|
(use-package edit-server
|
|
:custom
|
|
(edit-server-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)
|
|
))
|
|
|
|
:config
|
|
(edit-server-start)
|
|
)
|
|
))
|
|
|
|
(provide 'net/server)
|
|
;;; server.el ends here
|