Emacs: Defer TRAMP and atomic-chrome for 5 seconds.

This commit is contained in:
tastytea 2020-02-18 16:14:08 +01:00
parent 74195acb3c
commit b1aa40297d

View File

@ -1,6 +1,6 @@
;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*- ;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-02-14T14:46:18+0100> ;; Time-stamp: <2020-02-18T16:13:51+0100>
;;; Commentary: ;;; Commentary:
@ -11,6 +11,8 @@
;; Edit remote files. ;; Edit remote files.
(unless slow-computer (unless slow-computer
(use-package tramp (use-package tramp
:defer 5
:custom :custom
(tramp-use-ssh-controlmaster-options nil) ; Don't override SSH config. (tramp-use-ssh-controlmaster-options nil) ; Don't override SSH config.
(tramp-default-method "ssh") ; ssh is faster than scp and supports ports. (tramp-default-method "ssh") ; ssh is faster than scp and supports ports.
@ -52,28 +54,29 @@
(server-start)) (server-start))
) )
;; Server for Firefox-extension that allows to use Emacs to edit textareas. ;; Server for Firefox-extension that allows to use Emacs to edit textareas.
;; https://addons.mozilla.org/en-US/firefox/addon/ghosttext/ ;; https://addons.mozilla.org/en-US/firefox/addon/ghosttext/
(use-package atomic-chrome (use-package atomic-chrome
:config :defer 5
(atomic-chrome-start-server) :config
(atomic-chrome-start-server)
:custom :custom
;; “url” is actually the hostname. ;; “url” is actually the hostname.
(atomic-chrome-url-major-mode-alist (atomic-chrome-url-major-mode-alist
'( '(
("^likeable\\.space$" . markdown-mode) ("^likeable\\.space$" . markdown-mode)
("^schlomp\\.space$" . markdown-mode) ("^schlomp\\.space$" . markdown-mode)
("^wiki\\.gentoo\\.org$" . mediawiki-mode) ("^wiki\\.gentoo\\.org$" . mediawiki-mode)
("^github\\.com$" . markdown-mode) ("^github\\.com$" . markdown-mode)
("^gitlab\\.com$" . markdown-mode) ("^gitlab\\.com$" . markdown-mode)
("^gitlab\\.gnome\\.org$" . markdown-mode) ("^gitlab\\.gnome\\.org$" . markdown-mode)
)) ))
(atomic-chrome-buffer-open-style 'frame) (atomic-chrome-buffer-open-style 'frame)
:hook :hook
(atomic-chrome-edit-mode . (lambda () (setq-local fill-column 400))) (atomic-chrome-edit-mode . (lambda () (setq-local fill-column 400)))
) )
)) ))
(provide 'net/server) (provide 'net/server)