10sr
/
dotfiles-mirror
mirror of https://github.com/10sr/dotfiles.git
1
0
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Browse Source

set color for vertical border in terminal, and so on

pull/1/head
10sr 12 years ago
parent
bd43412cbc
commit
2d2c8b6a66
1 changed files with 88 additions and 58 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +88
    -58
      .emacs.el

+ 88
- 58
.emacs.el View File

@@ -15,7 +15,8 @@

(defvar my-prefix-map
(make-sparse-keymap))
(global-set-key (kbd "C-q") my-prefix-map)
(global-set-key (kbd "C-z") my-prefix-map)
(define-key my-prefix-map (kbd "C-q") 'quoted-insert)
(define-key my-prefix-map (kbd "C-z") 'suspend-frame)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -46,6 +47,7 @@
nbl))
(setq confirm-kill-emacs 'y-or-n-p)
(setq gc-cons-threshold (* 1024 1024 4))

(when window-system
(add-to-list 'default-frame-alist '(cursor-type . box))
(add-to-list 'default-frame-alist '(background-color . "white"))
@@ -60,17 +62,6 @@
(when (file-readable-p "~/.emacs")
(load-file "~/.emacs"))))

(when (eq system-type 'Darwin)
(mac-set-input-method-parameter ’japanese ’cursor-color ”red”)
(mac-set-input-method-parameter ’roman ’cursor-color ”black”))

(when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない
(boundp 'input-method-inactivate-hook))
(add-hook 'input-method-activate-hook
(lambda () (set-cursor-color "red")))
(add-hook 'input-method-inactivate-hook
(lambda () (set-cursor-color "black"))))

(cd ".") ; when using windows use / instead of \ in default-directory

;; locale
@@ -86,11 +77,6 @@

;; (comint-show-maximum-output)

;; change color for border
(set-face-foreground (make-face 'vertical-border-face) "red")
(set-display-table-slot standard-display-table 'vertical-border
(make-glyph-code #x3a 'vertical-border-face))

;; kill scratch
(add-hook 'after-init-hook
(lambda ()
@@ -163,11 +149,40 @@
(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 "C-x M-x") 'execute-extended-command)
(global-set-key (kbd "C-x M-:") 'eval-expression)
(global-set-key (kbd "<select>") 'previous-line-mark)

;; 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") 'newline-and-indent)
(global-set-key (kbd "C-o") (lambda ()
(interactive)
(goto-char (point-at-eol))
(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-/
@@ -175,13 +190,39 @@
(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")))))
(global-set-key (kbd "M-i")
(lambda ()
(interactive)
(call-interactively (key-binding (kbd "M-TAB"))))
;; (kbd "M-TAB")
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; letters, font-lock mode and fonts

;; change color for border
;; (set-face-foreground (make-face 'vertical-border-face) "white")
;; (set-face-background 'vertical-border-face "black")
(defface vertical-border-face
`((((background dark))
(:background "white"))
(((background light))
(:background "black")))
"vertical border")
(set-display-table-slot standard-display-table 'vertical-border
(make-glyph-code #x3a 'vertical-border-face))

(when (eq system-type 'Darwin)
(mac-set-input-method-parameter 'japanese 'cursor-color ”red”)
(mac-set-input-method-parameter 'roman 'cursor-color ”black”))

(when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない
(boundp 'input-method-inactivate-hook))
(add-hook 'input-method-activate-hook
(lambda () (set-cursor-color "red")))
(add-hook 'input-method-inactivate-hook
(lambda () (set-cursor-color "black"))))

(show-paren-mode 1)
(setq show-paren-style 'mixed)

@@ -190,7 +231,7 @@

(standard-display-ascii ?\n "$\n")
(defface my-eol-face
'((t (:foreground "gray")))
'((t (:foreground "green")))
"eol.")

(standard-display-ascii ?\f "---------------------------------------------------------------------------------------^L")
@@ -308,6 +349,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)
@@ -354,6 +399,11 @@

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; file handling

;; カーソルの場所を保存する
(when (require 'saveplace nil t)
(setq-default save-place t))

;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
(setq make-backup-files t)
;; (make-directory (expand-file-name "~/.emacsbackup"))
@@ -383,31 +433,6 @@
(define-key my-prefix-map (kbd "C-s") (or (require 'multi-term nil t)
'ansi-term))

;; 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 "C-x M-x") 'execute-extended-command)
(global-set-key (kbd "C-x M-:") 'eval-expression)
(global-set-key (kbd "<select>") 'previous-line-mark)

;; C-h and 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

;; (define-key my-prefix-map (kbd "C-h") help-map)
(global-set-key (kbd "C-\\") help-map)
(global-set-key (kbd "C-x DEL") help-map)
@@ -499,10 +524,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(require 'xclip nil t)
(turn-on-xclip))

;; カーソルの場所を保存する
(when (require 'saveplace nil t)
(setq-default save-place t))

;; その他のhook
(add-hook 'after-save-hook
'executable-make-buffer-file-executable-if-script-p)
@@ -580,7 +601,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(compile (format "gcc -Wall -g -o %s %s"
(file-name-sans-extension buffer-file-name)
buffer-file-name)))
;; (define-key c-mode-base-map "\C-h" 'c-electric-backspace)
;; (when (require 'c nil t)(c-toggle-hungry-state t)

(when (dllib-if-unfound "js2-mode"
@@ -660,16 +680,22 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))
(define-key term-raw-map (kbd "ESC") 'term-send-raw)
(define-key term-raw-map [delete] 'term-send-raw)
(define-key term-mode-map "\C-c" 'term-send-raw)
(define-key term-raw-map "\C-c" 'term-send-raw)
(define-key term-raw-map "\C-h" 'term-send-backspace)
(define-key term-raw-map "\C-y" 'term-paste)
;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
;; (define-key term-raw-map (kbd key) 'term-send-raw))
;; (define-key term-raw-map "\C-d" 'delete-char)
(set (make-variable-buffer-local 'scroll-margin) 0)))
(set (make-variable-buffer-local 'scroll-margin) 0)
;; (set (make-variable-buffer-local 'cua-enable-cua-keys) nil)
;; (cua-mode 0)
;; (and cua-mode
;; (local-unset-key (kbd "C-c")))
;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)
))
;; (add-hook 'term-exec-hook 'forward-char)



;; (when (and (executable-find "git")
;; (require 'sgit-mode nil t))
;; (add-hook 'find-file-hook
@@ -1330,6 +1356,10 @@ Optional prefix ARG says how many lines to unflag; default is one line."
;; (goto-line line))
;; (view-file (pop args))))))

(defun eshell/git (&rest args)
""
nil)

(defun eshell/o (&optional file)
(my-x-open (or file ".")))



Write Preview
Loading…
Cancel
Save