Emacs: Update server starting conditions.

init.d/net/server.el

@@ -1,6 +1,6 @@
 ;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-11-18T18:34:29+0100>
+;; Time-stamp: <2020-11-29T10:32:03+0100>
 
 ;;; Commentary:
 
@@ -33,12 +33,12 @@
              'tramp-remote-path 'tramp-own-remote-path)) ; Respect remote PATH.
   ) ; unless slow-computer.
 
-;; Run server if:
+;; Run server on TCP socket 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")
+(when (not (or (equal (user-real-uid) 0)
+               (getenv "SSH_CONNECTION")))
   (use-package server
     :defer 2
     :functions (server-running-p)
@@ -54,6 +54,8 @@
   ;; https://addons.mozilla.org/en-US/firefox/addon/ghosttext/
   (use-package atomic-chrome
     :defer 2
+    :if (or (executable-find "firefox")
+            (executable-find "firefox-bin"))
     :config (atomic-chrome-start-server)
     ;; “url” is actually the hostname.
     :custom ((atomic-chrome-url-major-mode-alist
@@ -64,7 +66,7 @@
                 ("^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))))))
+    :hook (atomic-chrome-edit-mode . (lambda () (set-fill-column 400)))))
 
 (provide 'net/server)
 ;;; server.el ends here