 (put 'upcase-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
 
-(dark)
+(customize-set-variable 'frame-background-mode 'light)
+;; (dark)
 (cd "~")

     (dante-repl-command-line "stack" "repl" "--ghc-options=\"-j -fno-code -fobject-code\"" dante-target)
     (dante-repl-command-line "stack" "repl" dante-target)
     (dante-repl-command-line quote
                              ("stack" "repl" dante-target))
     (intero-targets . "externalogic:lib")
     (dante-repl-command-line
      '("stack" "repl" dante-target))

  (customize-set-variable 'frame-background-mode 'dark)
  (load-theme 'k-bx-2 t)
  (load-theme 'k-bx t))
(defun dark2 ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'dark)
  (load-theme 'solarized-dark-high-contrast t))
(defun dark3 ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'dark)
  (load-theme 'zenburn t))
(defun dark4 ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'dark)
  (load-theme 'misterioso t))

(defun light ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'light)
  (load-theme 'solarized-light-high-contrast t))
(defun light2 ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'light)
  (load-theme 'solarized-selenized-white t))
  ;; (load-theme 'adwaita t))

(defun light3 ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'light)
  (load-theme 'light-blue t))
  ;; (load-theme 'mccarthy t))
(defun light4 ()
  (interactive)
  (disable-all-themes)
  (customize-set-variable 'frame-background-mode 'light)
  (load-theme 'ritchie t))

;; (dark)

(add-hook 'python-mode-hook (lambda () (turn-on-subword-mode)))

