|
|
@@ -133,8 +133,7 @@ |
|
|
|
'readonly |
|
|
|
(if overwrite-mode |
|
|
|
'overwrite |
|
|
|
'insert))) |
|
|
|
) |
|
|
|
'insert)))) |
|
|
|
(unless (eq state my-set-mode-line-color-state) |
|
|
|
(set-face-foreground 'modeline |
|
|
|
(nth 1 |
|
|
@@ -144,8 +143,7 @@ |
|
|
|
(nth 2 |
|
|
|
(assq state |
|
|
|
my-set-mode-line-color-color))) |
|
|
|
(setq my-set-mode-line-color-state state) |
|
|
|
))) |
|
|
|
(setq my-set-mode-line-color-state state)))) |
|
|
|
(defvar my-set-mode-line-color-color |
|
|
|
'((readonly "blue" "white") |
|
|
|
(overwrite "red" "white") |
|
|
@@ -154,6 +152,57 @@ |
|
|
|
(defvar my-set-mode-line-color-state nil "") |
|
|
|
(add-hook 'post-command-hook 'my-set-mode-line-color-read-only) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; mode-line |
|
|
|
|
|
|
|
(setq eol-mnemonic-dos "crlf") |
|
|
|
(setq eol-mnemonic-mac "cr") |
|
|
|
(setq eol-mnemonic-unix "lf") |
|
|
|
|
|
|
|
(which-function-mode 0) |
|
|
|
|
|
|
|
(line-number-mode 0) |
|
|
|
(column-number-mode 0) |
|
|
|
(size-indication-mode 0) |
|
|
|
(setq mode-line-position |
|
|
|
'(:eval (format "L%%l/%d,C%%c" |
|
|
|
(count-lines (point-max) |
|
|
|
(point-min))))) |
|
|
|
|
|
|
|
;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title |
|
|
|
;; display date |
|
|
|
(add-hook 'after-init-hook |
|
|
|
(lambda () |
|
|
|
;; (setq display-time-string-forms |
|
|
|
;; '(dayname ", " day " " monthname " " year " " 24-hours ":"minutes ":" seconds)) |
|
|
|
(setq display-time-string-forms |
|
|
|
'((my-format-time-string))) |
|
|
|
(when display-time-mode |
|
|
|
(display-time-update)) |
|
|
|
)) |
|
|
|
(setq display-time-interval 29) |
|
|
|
(setq display-time-day-and-date t) |
|
|
|
(if window-system |
|
|
|
(display-time-mode 0) |
|
|
|
(display-time-mode 1)) |
|
|
|
|
|
|
|
;; ;; current directory |
|
|
|
;; (let ((ls (member 'mode-line-buffer-identification |
|
|
|
;; mode-line-format))) |
|
|
|
;; (setcdr ls |
|
|
|
;; (cons '(:eval (concat " (" |
|
|
|
;; (abbreviate-file-name default-directory) |
|
|
|
;; ")")) |
|
|
|
;; (cdr ls)))) |
|
|
|
|
|
|
|
;; ;; display last modified time |
|
|
|
;; (let ((ls (member 'mode-line-buffer-identification |
|
|
|
;; mode-line-format))) |
|
|
|
;; (setcdr ls |
|
|
|
;; (cons '(:eval (concat " " |
|
|
|
;; my-buffer-file-last-modified-time)) |
|
|
|
;; (cdr ls)))) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; minibuffer |
|
|
|
|
|
|
@@ -168,75 +217,6 @@ |
|
|
|
|
|
|
|
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) ; complete symbol when `eval' |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; editting |
|
|
|
(setq require-final-newline t) |
|
|
|
(setq kill-whole-line t) |
|
|
|
(setq scroll-conservatively 35 |
|
|
|
scroll-margin 2 |
|
|
|
scroll-step 0) ;4行ずつスクロール? |
|
|
|
(setq default-major-mode 'text-mode) |
|
|
|
(setq next-line-add-newlines nil) |
|
|
|
(setq kill-read-only-ok t) |
|
|
|
(setq truncate-partial-width-windows nil) ; when splitted horizontally |
|
|
|
;; (setq-default line-spacing 0.2) |
|
|
|
(setq-default indicate-empty-lines t) ; なんだろうこれ |
|
|
|
(setq-default tab-width 4) |
|
|
|
(setq-default indent-tabs-mode nil) |
|
|
|
(setq-default indent-line-function nil) |
|
|
|
(pc-selection-mode 1) |
|
|
|
(delete-selection-mode 1) |
|
|
|
(cua-mode 0) |
|
|
|
|
|
|
|
;; key bindings |
|
|
|
;; moving around |
|
|
|
;; (global-set-key (kbd "M-j") 'next-line) |
|
|
|
;; (global-set-key (kbd "M-k") 'previous-line) |
|
|
|
;; (global-set-key (kbd "M-h") 'backward-char) |
|
|
|
;; (global-set-key (kbd "M-l") 'forward-char) |
|
|
|
;;(keyboard-translate ?\M-j ?\C-j) |
|
|
|
(global-set-key (kbd "M-p") 'backward-paragraph) |
|
|
|
(global-set-key (kbd "M-n") 'forward-paragraph) |
|
|
|
(global-set-key (kbd "C-<up>") (lambda () (interactive)(scroll-down 1))) |
|
|
|
(global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1))) |
|
|
|
(global-set-key (kbd "C-<left>") 'scroll-down) |
|
|
|
(global-set-key (kbd "C-<right>") 'scroll-up) |
|
|
|
(global-set-key (kbd "<select>") 'previous-line-mark) |
|
|
|
(define-key ctl-x-map (kbd "M-x") 'execute-extended-command) |
|
|
|
(define-key ctl-x-map (kbd "M-:") 'eval-expression) |
|
|
|
|
|
|
|
;; C-h and DEL |
|
|
|
(global-set-key (kbd "C-h") (kbd "DEL")) |
|
|
|
;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify) |
|
|
|
;; (global-set-key (kbd "DEL") help-map) |
|
|
|
;; (global-set-key (kbd "C-h") (lambda () |
|
|
|
;; (interactive) |
|
|
|
;; (call-interactively (key-binding (kbd "DEL"))))) |
|
|
|
;; (keyboard-translate ?\^h ?\^?) ; scimにはC-hを送りたい |
|
|
|
;; (keyboard-translate ?\b ?\^h) ; dont translate backspace |
|
|
|
|
|
|
|
(global-set-key (kbd "C-m") 'reindent-then-newline-and-indent) |
|
|
|
(global-set-key (kbd "C-o") |
|
|
|
;; (lambda () |
|
|
|
;; (interactive) |
|
|
|
;; (move-end-of-line nil) |
|
|
|
;; (newline-and-indent)) |
|
|
|
(kbd "C-e C-m") |
|
|
|
) |
|
|
|
(global-set-key (kbd "C-k") 'kill-whole-line) |
|
|
|
(global-set-key (kbd "M-k") 'my-copy-whole-line) |
|
|
|
;; (global-set-key "\C-z" 'undo) ; undo is C-/ |
|
|
|
;; (global-set-key (kbd "C-<return>") (lambda () (interactive) (insert "\f\n"))) |
|
|
|
(global-set-key (kbd "M-u") 'undo) |
|
|
|
(global-set-key (kbd "C-r") 'query-replace-regexp) |
|
|
|
(global-set-key (kbd "C-s") 'isearch-forward-regexp) |
|
|
|
(global-set-key (kbd "M-i") |
|
|
|
(lambda () |
|
|
|
(interactive) |
|
|
|
(call-interactively (key-binding (kbd "M-TAB")))) |
|
|
|
;; (kbd "M-TAB") |
|
|
|
) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; letters, font-lock mode and fonts |
|
|
|
|
|
|
@@ -372,58 +352,6 @@ |
|
|
|
;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11)) |
|
|
|
;; あ a |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; mode-line |
|
|
|
|
|
|
|
(setq eol-mnemonic-dos "crlf") |
|
|
|
(setq eol-mnemonic-mac "cr") |
|
|
|
(setq eol-mnemonic-unix "lf") |
|
|
|
|
|
|
|
(which-function-mode 0) |
|
|
|
|
|
|
|
(line-number-mode 0) |
|
|
|
(column-number-mode 0) |
|
|
|
(size-indication-mode 0) |
|
|
|
(setq mode-line-position |
|
|
|
'(:eval (format "L%%l/%d,C%%c" |
|
|
|
(count-lines (point-max) |
|
|
|
(point-min))))) |
|
|
|
|
|
|
|
|
|
|
|
;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title |
|
|
|
;; display date |
|
|
|
(add-hook 'after-init-hook |
|
|
|
(lambda () |
|
|
|
(setq display-time-string-forms |
|
|
|
'(dayname ", " day " " monthname " " year " " 24-hours ":"minutes ":" seconds)) |
|
|
|
(setq display-time-string-forms |
|
|
|
'((my-format-time-string))) |
|
|
|
(when display-time-mode |
|
|
|
(display-time-update)) |
|
|
|
)) |
|
|
|
(setq display-time-interval 29) |
|
|
|
(setq display-time-day-and-date t) |
|
|
|
(if window-system |
|
|
|
(display-time-mode 0) |
|
|
|
(display-time-mode 1)) |
|
|
|
|
|
|
|
;; ;; current directory |
|
|
|
;; (let ((ls (member 'mode-line-buffer-identification |
|
|
|
;; mode-line-format))) |
|
|
|
;; (setcdr ls |
|
|
|
;; (cons '(:eval (concat " (" |
|
|
|
;; (abbreviate-file-name default-directory) |
|
|
|
;; ")")) |
|
|
|
;; (cdr ls)))) |
|
|
|
|
|
|
|
;; ;; display last modified time |
|
|
|
;; (let ((ls (member 'mode-line-buffer-identification |
|
|
|
;; mode-line-format))) |
|
|
|
;; (setcdr ls |
|
|
|
;; (cons '(:eval (concat " " |
|
|
|
;; my-buffer-file-last-modified-time)) |
|
|
|
;; (cdr ls)))) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; file handling |
|
|
|
|
|
|
@@ -447,6 +375,75 @@ |
|
|
|
;; (setq delete-by-moving-to-trash t |
|
|
|
;; trash-directory "~/.emacs.d/trash") |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; editting |
|
|
|
(setq require-final-newline t) |
|
|
|
(setq kill-whole-line t) |
|
|
|
(setq scroll-conservatively 35 |
|
|
|
scroll-margin 2 |
|
|
|
scroll-step 0) ;4行ずつスクロール? |
|
|
|
(setq default-major-mode 'text-mode) |
|
|
|
(setq next-line-add-newlines nil) |
|
|
|
(setq kill-read-only-ok t) |
|
|
|
(setq truncate-partial-width-windows nil) ; when splitted horizontally |
|
|
|
;; (setq-default line-spacing 0.2) |
|
|
|
(setq-default indicate-empty-lines t) ; なんだろうこれ |
|
|
|
(setq-default tab-width 4) |
|
|
|
(setq-default indent-tabs-mode nil) |
|
|
|
(setq-default indent-line-function nil) |
|
|
|
(pc-selection-mode 1) |
|
|
|
(delete-selection-mode 1) |
|
|
|
(cua-mode 0) |
|
|
|
|
|
|
|
;; key bindings |
|
|
|
;; moving around |
|
|
|
;; (global-set-key (kbd "M-j") 'next-line) |
|
|
|
;; (global-set-key (kbd "M-k") 'previous-line) |
|
|
|
;; (global-set-key (kbd "M-h") 'backward-char) |
|
|
|
;; (global-set-key (kbd "M-l") 'forward-char) |
|
|
|
;;(keyboard-translate ?\M-j ?\C-j) |
|
|
|
(global-set-key (kbd "M-p") 'backward-paragraph) |
|
|
|
(global-set-key (kbd "M-n") 'forward-paragraph) |
|
|
|
(global-set-key (kbd "C-<up>") (lambda () (interactive)(scroll-down 1))) |
|
|
|
(global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1))) |
|
|
|
(global-set-key (kbd "C-<left>") 'scroll-down) |
|
|
|
(global-set-key (kbd "C-<right>") 'scroll-up) |
|
|
|
(global-set-key (kbd "<select>") 'previous-line-mark) |
|
|
|
(define-key ctl-x-map (kbd "M-x") 'execute-extended-command) |
|
|
|
(define-key ctl-x-map (kbd "M-:") 'eval-expression) |
|
|
|
|
|
|
|
;; C-h and DEL |
|
|
|
(global-set-key (kbd "C-h") (kbd "DEL")) |
|
|
|
;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify) |
|
|
|
;; (global-set-key (kbd "DEL") help-map) |
|
|
|
;; (global-set-key (kbd "C-h") (lambda () |
|
|
|
;; (interactive) |
|
|
|
;; (call-interactively (key-binding (kbd "DEL"))))) |
|
|
|
;; (keyboard-translate ?\^h ?\^?) ; scimにはC-hを送りたい |
|
|
|
;; (keyboard-translate ?\b ?\^h) ; dont translate backspace |
|
|
|
|
|
|
|
(global-set-key (kbd "C-m") 'reindent-then-newline-and-indent) |
|
|
|
(global-set-key (kbd "C-o") |
|
|
|
;; (lambda () |
|
|
|
;; (interactive) |
|
|
|
;; (move-end-of-line nil) |
|
|
|
;; (newline-and-indent)) |
|
|
|
(kbd "C-e C-m") |
|
|
|
) |
|
|
|
(global-set-key (kbd "C-k") 'kill-whole-line) |
|
|
|
(global-set-key (kbd "M-k") 'my-copy-whole-line) |
|
|
|
;; (global-set-key "\C-z" 'undo) ; undo is C-/ |
|
|
|
;; (global-set-key (kbd "C-<return>") (lambda () (interactive) (insert "\f\n"))) |
|
|
|
(global-set-key (kbd "M-u") 'undo) |
|
|
|
(global-set-key (kbd "C-r") 'query-replace-regexp) |
|
|
|
(global-set-key (kbd "C-s") 'isearch-forward-regexp) |
|
|
|
(global-set-key (kbd "M-i") |
|
|
|
(lambda () |
|
|
|
(interactive) |
|
|
|
(call-interactively (key-binding (kbd "M-TAB")))) |
|
|
|
;; (kbd "M-TAB") |
|
|
|
) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; gmail |
|
|
|
|
|
|
|