modify mode-line color, fix gauche prefs

emacs.el

@@ -57,9 +57,6 @@
 
 (add-hook 'after-init-hook
           (lambda ()
-            ;; (message "init time: %d msec"
-            ;;          (+ (* (- (nth 1 after-init-time) (nth 1 before-init-time)) 1000)
-            ;;             (/ (- (nth 2 after-init-time) (nth 2 before-init-time)) 1000)))
             (message (emacs-init-time))
             (switch-to-buffer "*Messages*")
             ))
@@ -205,8 +202,9 @@
         Man-mode))
 
 (standard-display-ascii ?\n "$\n")
-(copy-face 'default 'my-eol-face)
-(set-face-foreground 'my-eol-face "green")
+(set-face-foreground (copy-face 'default
+                                'my-eol-face)
+                     "green")
 ;; (defface my-eol-face
 ;;   '((t (:foreground "green")))
 ;;   "eol.")
@@ -318,7 +316,7 @@
 (and window-system
      (add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode))
 
-(defun my-set-mode-line-color-read-only ()
+(defun my-set-mode-line-color-according-to-readily-state ()
   ""
   (let ((state (if buffer-read-only
                    'readonly
@@ -326,11 +324,11 @@
                      'overwrite
                    'insert))))
     (unless (eq state my-set-mode-line-color-state)
-      (set-face-foreground 'modeline
+      (set-face-foreground 'mode-line
                            (nth 1
                                 (assq state
                                       my-set-mode-line-color-color)))
-      (set-face-background 'modeline
+      (set-face-background 'mode-line
                            (nth 2
                                 (assq state
                                       my-set-mode-line-color-color)))
@@ -341,12 +339,12 @@
           `((readonly "white" "blue")
             (overwrite "white" "red")
             (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))
-      `((readonly "blue" "white")
-        (overwrite "red" "white")
-        (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))))
+        `((readonly "blue" "white")
+          (overwrite "red" "white")
+          (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))))
 (defvar my-set-mode-line-color-state nil "")
-(add-hook 'post-command-hook 'my-set-mode-line-color-read-only)
-(add-hook 'after-init-hook 'my-set-mode-line-color-read-only)
+(add-hook 'post-command-hook 'my-set-mode-line-color-according-to-readily-state)
+(add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readily-state)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling
@@ -379,7 +377,7 @@
 (setq kill-whole-line t)
 (setq scroll-conservatively 35
       scroll-margin 2
-      scroll-step 0)                    ;4行ずつスクロール?
+      scroll-step 0)
 (setq default-major-mode 'text-mode)
 (setq next-line-add-newlines nil)
 (setq kill-read-only-ok t)
@@ -538,9 +536,9 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; share clipboard with x
 (when (and window-system
-          ;; (getenv "DESKTOP_SESSION")
-          (not (eq window-system 'mac))
-          )
+           ;; (getenv "DESKTOP_SESSION")
+           (not (eq window-system 'mac))
+           )
   (setq x-select-enable-clipboard t     ; these settings seems to be useless when using emacs in terminal
         x-select-enable-primary nil)
   ;; (global-set-key "\C-y" 'x-clipboard-yank)
@@ -934,7 +932,8 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; gauche-mode
 
-(setq scheme-program-name "gosh")
+(setq scheme-program-name
+      (setq gauche-program-name "gosh"))
 
 (defun run-gauche-other-window ()
   "Run gauche on other window"
@@ -945,21 +944,25 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 
 (defun run-gauche ()
   "run gauche"
-  (run-scheme "gosh"))
+  (run-scheme gauche-program-name)
+  )
 
 (defun scheme-send-buffer ()
   ""
   (interactive)
-  (scheme-send-region (point-min) (point-max)))
+  (scheme-send-region (point-min) (point-max))
+  (set-window-text-height (display-buffer "*scheme*"
+                                          t)
+                          7)
+  )
 
 (add-hook 'scheme-mode-hook
           (lambda ()
-            (define-key scheme-mode-map "\C-c\C-c" 'scheme-send-buffer)))
+            nil))
 
 (add-hook 'inferior-scheme-mode-hook
           (lambda ()
-            (set-window-text-height (display-buffer (current-buffer)
-                                                    t)
+            (set-window-text-height (display-buffer "*scheme*")
                                     7)
             ))
 
@@ -977,7 +980,9 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
   (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)
   (add-hook 'gauche-mode-hook
             (lambda ()
-              (define-key gauche-mode-map "\C-c\C-z" 'run-gauche-other-window))))
+              (define-key gauche-mode-map "\C-c\C-z" 'run-gauche-other-window)
+              (define-key scheme-mode-map "\C-c\C-c" 'scheme-send-buffer)
+              )))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; recentf-mode
@@ -1302,8 +1307,8 @@ otherwise, use `pack-default-extension' for pack."
 (setq ls-lisp-dirs-first t)
 (setq ls-lisp-use-localized-time-format t)
 (setq ls-lisp-format-time-list
-       '("%Y-%m-%d %H:%M"
-         "%Y-%m-%d      "))
+      '("%Y-%m-%d %H:%M"
+        "%Y-%m-%d      "))
 
 (setq dired-dwim-target t)
 
@@ -1524,15 +1529,15 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
                       (add-to-list 'eshell-command-aliases-list
                                    alias))
                     '(
-                      ; ("ll" "ls -l $*")
-                      ; ("la" "ls -a $*")
-                      ; ("lla" "ls -al $*")
+                                        ; ("ll" "ls -l $*")
+                                        ; ("la" "ls -a $*")
+                                        ; ("lla" "ls -al $*")
                       ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")
                       ("aptin" "apt-get install $*")
                       ("eless" "cat >>> (with-current-buffer (get-buffer-create \"*eshell output\") (erase-buffer) (setq buffer-read-only nil) (current-buffer)); (view-buffer (get-buffer \"*eshell output*\"))")
                       ("g" "git $*")
                       ))
-            ; (eshell/alias "g" "git $*")
+                                        ; (eshell/alias "g" "git $*")
             (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
             (apply 'eshell/addpath exec-path)
             (set (make-variable-buffer-local 'scroll-margin) 0)