 ;;   (defun setup-color-theme-p ()
 ;;     "Returns true if it looks like the display can handle 24-bit colors"
 ;;     (or (display-graphic-p)
-;; 	(< 256 (display-color-cells))
-;; 	(getenv "KONSOLE_DBUS_SESSION")))
+;;	(< 256 (display-color-cells))
+;;	(getenv "KONSOLE_DBUS_SESSION")))
 ;;   (defun setup-color-theme ()
 ;;     "Set up my color theme"
 ;;     (when (setup-color-theme-p)

;;   (when (getenv "DISPLAY")
;;     (defun xclip-cut-function (text &optional push)
;;       (with-temp-buffer
;; 	(insert text)
;; 	(call-process-region (point-min) (point-max) "xclip" nil 0 nil "-i" "-selection" "clipboard")))
;;     (defun xclip-paste-function()
;;       (let ((xclip-output (shell-command-to-string "xclip -o -selection clipboard")))
;; 	(unless (string= (car kill-ring) xclip-output)
;; 	  xclip-output )))
;;     (setq interprogram-cut-function 'xclip-cut-function)
;;     (setq interprogram-paste-function 'xclip-paste-function))
;;   (defun terminal-init-screen ()


(use-package server
  :ensure t
  :config
  (unless (server-running-p)
    (server-start)))

