Switching Themes using custom functions

[G. Martin Butz]

Hi,

as I sometimes want to switch themes and I have several custom colors 
(e.g. power line colors) I build some functions to do that (badly hacked 
as my lisp knowledge is close to zero). Here is an example:

      (defun theme-s ()
        "Switch to Solarized-Theme"
        (interactive)

  ;; disable current theme
        (defadvice load-theme
          (before theme-dont-propagate activate)
          (mapcar #'disable-theme custom-enabled-themes))
          (load-theme 'solarized-dark t)
        ;; power line (solarized)
        (set-face-attribute 'mode-line nil
                            :background "#586e75"
                            :box nil)
        (set-face-attribute 'mode-line-inactive nil
                            :box nil)
        (setq powerline-color1 "#002b36")
        (setq powerline-color2 "#073642")
        (set-face-background 'region "#839496")
        (set-face-background 'hl-line "#073642")
        (set-face-background 'region "#454545")
        (set-face-background 'fringe "#002b36")
        (set-face-foreground 'fringe "#002b36")
        (setq indicate-buffer-boundaries 'right)
        (setq indicate-empty-lines nil)
        (setq-default cursor-type 'bar)
        (set-cursor-color "#fdf6e3")
        )

This basically works but I wonder why e.g. the region background color 
is not loaded when using this function. I can eval the function and all 
works well but if I call the function some of it will be applied and 
some of it not (especially the region background color).

Any idea what I am doing wrong?

Martin


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| G. Martin Butz, mb@mkblog.org, 0421 98749324, www.mkblog.org |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~