 ;;   (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")))
+;;	(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 )))
+;;	(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)))


;;   (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")))
;;   (defun setup-color-theme ()
;;     "Set up my color theme"
;;     (when (setup-color-theme-p)
