and if one fixes its config right, then emacs does what it should
authorJoerg Jaspert <joerg@debian.org>
Sat, 4 May 2013 08:57:40 +0000 (10:57 +0200)
committerJoerg Jaspert <joerg@debian.org>
Sat, 4 May 2013 08:57:40 +0000 (10:57 +0200)
.emacs.d/config/emacs.org

index fb43b1e..ee169e7 100644 (file)
@@ -354,12 +354,9 @@ shell. Consistent look is great.
   (if (boundp 'custom-theme-load-path)
       (progn
         (defun jj-init-theme ()
-
           (interactive)
           (if (eq jj-color-style 'dark )(load-theme 'solarized-dark t)
             (load-theme 'solarized-light t))
-          (jj-fix-theme)
-          (makunbound 'jj-fix-theme)
           )
         (add-to-list 'custom-theme-load-path jj-theme-dir)
         (add-hook 'after-init-hook 'jj-init-theme)
@@ -369,38 +366,6 @@ shell. Consistent look is great.
     (require 'naquadah-theme))
 #+END_SRC
 
-Emacs somehow is too stupid, so we need to help it. When I split the window,
-it entirely forgets there is a theme for the modeline - and reverts to
-the default color for it. Stupid, so hardcode it here once more, and
-then it seems to work.
-#+BEGIN_SRC emacs-lisp
-  (defun jj-fix-theme ()
-    (let* ((base00    "#657b83")
-          (base0     "#839496")
-          (base2     "#eee8d5")
-          ;; background light
-          (base3     "#fdf6e3")
-          (base03    "#002b36")
-          (base02    "#073642")
-          ;; comments
-          (base1     "#93a1a1")
-          ;; emphasized content
-          (base01    "#586e75")
-          ;; Light/Dark adaptive solarized colors
-          (solarized-fg (if (eq jj-color-style 'light) base00 base0))
-          (solarized-bg (if (eq jj-color-style 'light) base3 base03))
-          (solarized-hl (if (eq jj-color-style 'light) base2 base02))
-          (solarized-emph (if (eq jj-color-style 'light) base01 base1))
-          (solarized-comments (if (eq jj-color-style 'light) base1 base01)))
-     (set-face-foreground 'mode-line base0)
-     (set-face-background 'mode-line base02)
-     (set-face-background 'mode-line-inactive base03)
-     (set-face-foreground 'mode-line-inactive base0)
-     )
-   )
-
-#+END_SRC
-
 Make the fringe (gutter) smaller, the argument is a width in pixels (the default is 8)
 #+BEGIN_SRC emacs-lisp
 (if (fboundp 'fringe-mode)
@@ -471,10 +436,6 @@ modeline in red as soon as you are over the defined limit.
 (setq modelinepos-column-limit 72)
 
 (require 'modeline-posn)
-(set-face-foreground 'mode-line "grey20")
-(set-face-background 'mode-line "grey70")
-(set-face-foreground 'modeline-inactive "grey20")
-(set-face-background 'modeline-inactive "grey40")
 (set-face-foreground 'modelinepos-column-warning "grey20")
 (set-face-background 'modelinepos-column-warning "red")
 #+END_SRC