71 lines
2.5 KiB
EmacsLisp
71 lines
2.5 KiB
EmacsLisp
;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-
|
|
|
|
;; Time-stamp: <2020-07-08T05:46:27+0200>
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'basics/package-management)
|
|
(require 'basics/global-variables)
|
|
|
|
;; Edit remote files.
|
|
(unless slow-computer
|
|
(use-package tramp
|
|
:straight nil ; Use built-in version.
|
|
:defer 2
|
|
:custom ((tramp-use-ssh-controlmaster-options nil
|
|
"Don't override SSH config.")
|
|
(tramp-default-method "ssh" "Faster than scp and supports ports.")
|
|
(tramp-password-prompt-regexp
|
|
(concat
|
|
"^.*"
|
|
(regexp-opt
|
|
'("passphrase" "Passphrase"
|
|
"password" "Password"
|
|
"Verification code")
|
|
t)
|
|
".*:\0? *") "Add verification code support.")
|
|
(tramp-connection-timeout 20)
|
|
(tramp-auto-save-directory
|
|
(concat user-emacs-directory "backups/") "Auto-save locally."))
|
|
:config (add-to-list
|
|
'tramp-remote-path 'tramp-own-remote-path)) ; Respect 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 2
|
|
: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)
|
|
(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
|
|
:defer 2
|
|
:config (atomic-chrome-start-server)
|
|
;; “url” is actually the hostname.
|
|
:custom ((atomic-chrome-url-major-mode-alist
|
|
'(("^likeable\\.space$" . markdown-mode)
|
|
("^schlomp\\.space$" . gfm-mode)
|
|
("^wiki\\.gentoo\\.org$" . mediawiki-mode)
|
|
("^github\\.com$" . gfm-mode)
|
|
("^gitlab\\.com$" . gfm-mode)
|
|
("^gitlab\\.gnome\\.org$" . gfm-mode)))
|
|
(atomic-chrome-buffer-open-style 'frame))
|
|
:hook (atomic-chrome-edit-mode . (lambda () (set-fill-column 400))))))
|
|
|
|
(provide 'net/server)
|
|
;;; server.el ends here
|