Make write-code and write-words states independent.

* color-theme only set on current frame.

init.el

@@ -125,36 +125,40 @@
 ;; narrower window, better line wrapping for prose
 (defun write-words ()
   (interactive)
-  (color-theme-emacs-21)
-  (setq-default line-spacing 2)
+  (color-theme-emacs-21-custom)
+  ;;(set-face-background 'fringe "#ffffff")
+  (setq line-spacing 2)
   (set-frame-width nil 90)
+  (set-frame-height nil 50)
+
   (visual-line-mode t)
   (setq mode-line-format nil)
-  (show-paren-mode nil))
+  (show-paren-mode 0))
 
 ;; widescreen, no line-wrap
 (defun write-code ()
-  (interactive)
   (color-theme-initialize)
   (color-theme-blackboard)
-  (set-face-background 'fringe "#0C1021")
-  (global-visual-line-mode 0)
-  (setq-default line-spacing 0)
+  (interactive)
+  ;;(set-face-background 'fringe "#0C1021")
+  (visual-line-mode 0)
+  (setq line-spacing 0)
   (show-paren-mode 1)
+  ;; (set-frame-width nil 90)
+  ;; (set-frame-height nil 50)
+
   (setq mode-line-format
     (list "-"
-      'mode-line-mule-info
-      'mode-line-modified
-      'mode-line-frame-identification
-      'mode-line-buffer-identification
-      "   "
-      'mode-line-position
-      '(vc-mode vc-mode)
-      "   "
-      'mode-line-modes
-      '(which-func-mode ("" which-func-format))
-      '(global-mode-string (global-mode-string))
-      )))
+          'mode-line-mule-info
+          'mode-line-modified
+          'mode-line-frame-identification
+          'mode-line-buffer-identification
+          "   "
+          'mode-line-position
+          "   "
+          ;;'mode-line-modes
+          '(which-func-mode ("" which-func-format))
+          '(global-mode-string (global-mode-string)))))
 
 ;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
 (defun rename-file-and-buffer (new-name)
@@ -282,7 +286,7 @@
 (setq-default cursor-type '(bar . 1))
 (set-cursor-color '"#FFFFFF")
 
-(set-frame-height nil 53)
+(set-frame-height nil 50)
 
 ;; start with the shell open
 (shell)

themes/color-theme-blackboard.el

@@ -20,7 +20,8 @@
   (color-theme-install
    '(color-theme-blackboard
      ((background-color . "#0C1021")
-      (background-mode . dark)
+      (background-mode . "dark")
+
       (border-color . "black")
       (cursor-color . "#A7A7A7")
       (foreground-color . "#F8F8F8")
@@ -40,9 +41,8 @@
      (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
      (font-lock-reference-face ((t (:foreground "SlateBlue"))))
 
-
-     (comint-highlight-prompt  ((t (:foreground "blue"))))
-
+     (comint-highlight-prompt  ((t (:foreground "#9999ff"))))
+     (minibuffer-prompt ((t (:foreground "#9999ff"))))
 
      (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
      (font-lock-regexp-grouping-construct ((t (:foreground "red"))))
@@ -53,13 +53,25 @@
      (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
      (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
      (region ((t (:background "#253B76"))))
-     (mode-line ((t (:background "grey75" :foreground "black"))))
+     ;;(mode-line ((t (:background "grey75" :foreground "black"))))
+
      (highlight ((t (:background "#222222"))))
      (highline-face ((t (:background "SeaGreen"))))
      (italic ((t (nil))))
      (left-margin ((t (nil))))
      (text-cursor ((t (:background "yellow" :foreground "black"))))
      (toolbar ((t (nil))))
      (underline ((nil (:underline nil))))
-     (zmacs-region ((t (:background "snow" :foreground "ble")))))))
+     (zmacs-region ((t (:background "snow" :foreground "ble"))))
+
+     ;; stuff from default color-theme theme (hober2 I think) that will return
+     ;; things to the defaults from that theme after using white theme
+     (isearch ((t (:background "steel blue" :foreground "lemon chiffon"))))
+     (isearch-lazy-highlight-face ((t (:background "DarkGreen"
+                                       :foreground "lemon chiffon"))))
+     (lazy-highlight ((t (:background "indian red" :foreground "lemon chiffon"))))
+     (isearch-secondary ((t (:background "indian red" :foreground "lemon chiffon"))))
+     (isearch-fail ((t (:background "indian red" :foreground "lemon chiffon"))))
+
+     )))
 ;; Generated by JD Huntington using scpaste at Thu Nov 27 11:54:22 2008.