|
|
@@ -98,52 +98,6 @@ |
|
|
|
(setq mac-option-modifier 'control) |
|
|
|
(setq w32-apps-modifier 'meta) |
|
|
|
|
|
|
|
;; http://www.emacswiki.org/emacs/ChangingCursorDynamically |
|
|
|
;; why saving buffer? |
|
|
|
;; Change cursor color according to mode |
|
|
|
(defvar hcz-set-cursor-color-color "") |
|
|
|
(defvar hcz-set-cursor-color-buffer "") |
|
|
|
(defun hcz-set-cursor-color-according-to-mode () |
|
|
|
"change cursor color according to some minor modes." |
|
|
|
;; set-cursor-color is somewhat costly, so we only call it when needed: |
|
|
|
(let ((color |
|
|
|
(if buffer-read-only "blue" |
|
|
|
(if overwrite-mode "yellow" |
|
|
|
"black")))) |
|
|
|
(unless (and |
|
|
|
(string= color hcz-set-cursor-color-color) |
|
|
|
(string= (buffer-name) hcz-set-cursor-color-buffer)) |
|
|
|
(set-cursor-color (setq hcz-set-cursor-color-color color)) |
|
|
|
(setq hcz-set-cursor-color-buffer (buffer-name))))) |
|
|
|
(and window-system |
|
|
|
(add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode)) |
|
|
|
|
|
|
|
(defun my-set-mode-line-color-read-only () |
|
|
|
"" |
|
|
|
(let ((state (if buffer-read-only |
|
|
|
'readonly |
|
|
|
(if overwrite-mode |
|
|
|
'overwrite |
|
|
|
'insert)))) |
|
|
|
(unless (eq state my-set-mode-line-color-state) |
|
|
|
(set-face-foreground 'modeline |
|
|
|
(nth 1 |
|
|
|
(assq state |
|
|
|
my-set-mode-line-color-color))) |
|
|
|
(set-face-background 'modeline |
|
|
|
(nth 2 |
|
|
|
(assq state |
|
|
|
my-set-mode-line-color-color))) |
|
|
|
(setq my-set-mode-line-color-state state)))) |
|
|
|
(defvar my-set-mode-line-color-color nil "") |
|
|
|
(setq my-set-mode-line-color-color |
|
|
|
'((readonly "blue" "white") |
|
|
|
(overwrite "red" "white") |
|
|
|
(insert nil nil))) |
|
|
|
(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) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; mode-line |
|
|
|
|
|
|
@@ -344,6 +298,52 @@ |
|
|
|
;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11)) |
|
|
|
;; あ a |
|
|
|
|
|
|
|
;; http://www.emacswiki.org/emacs/ChangingCursorDynamically |
|
|
|
;; why saving buffer? |
|
|
|
;; Change cursor color according to mode |
|
|
|
(defvar hcz-set-cursor-color-color "") |
|
|
|
(defvar hcz-set-cursor-color-buffer "") |
|
|
|
(defun hcz-set-cursor-color-according-to-mode () |
|
|
|
"change cursor color according to some minor modes." |
|
|
|
;; set-cursor-color is somewhat costly, so we only call it when needed: |
|
|
|
(let ((color |
|
|
|
(if buffer-read-only "blue" |
|
|
|
(if overwrite-mode "yellow" |
|
|
|
"black")))) |
|
|
|
(unless (and |
|
|
|
(string= color hcz-set-cursor-color-color) |
|
|
|
(string= (buffer-name) hcz-set-cursor-color-buffer)) |
|
|
|
(set-cursor-color (setq hcz-set-cursor-color-color color)) |
|
|
|
(setq hcz-set-cursor-color-buffer (buffer-name))))) |
|
|
|
(and window-system |
|
|
|
(add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode)) |
|
|
|
|
|
|
|
(defun my-set-mode-line-color-read-only () |
|
|
|
"" |
|
|
|
(let ((state (if buffer-read-only |
|
|
|
'readonly |
|
|
|
(if overwrite-mode |
|
|
|
'overwrite |
|
|
|
'insert)))) |
|
|
|
(unless (eq state my-set-mode-line-color-state) |
|
|
|
(set-face-foreground 'modeline |
|
|
|
(nth 1 |
|
|
|
(assq state |
|
|
|
my-set-mode-line-color-color))) |
|
|
|
(set-face-background 'modeline |
|
|
|
(nth 2 |
|
|
|
(assq state |
|
|
|
my-set-mode-line-color-color))) |
|
|
|
(setq my-set-mode-line-color-state state)))) |
|
|
|
(defvar my-set-mode-line-color-color nil "") |
|
|
|
(setq my-set-mode-line-color-color |
|
|
|
`((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) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; file handling |
|
|
|
|
|
|
|