Browse Source

Move some codes

pull/15/head
10sr 9 years ago
parent
commit
196ad365c5
1 changed files with 85 additions and 106 deletions
  1. +85
    -106
      emacs.el

+ 85
- 106
emacs.el View File

@@ -343,6 +343,24 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(file-readable-p user-init-file))
(load-file user-init-file)))

(safe-require-or-eval 'session)

;; server

(when (safe-require-or-eval 'server)
(setq server-name (concat "server"
(number-to-string (emacs-pid))))

;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil
;; In Darwin environment, init fails with message like 'Service name too long'
;; when server-use-tcp is nil
(when (or (eq system-type
'cygwin)
(eq system-type
'darwin))
(setq server-use-tcp t))
(server-start))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; global keys

@@ -370,6 +388,70 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(global-set-key (kbd "<eisu-toggle>") 'ignore)
(global-set-key (kbd "C-<eisu-toggle>") 'ignore)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; editting

(defun my-copy-whole-line ()
"Copy whole line."
(interactive)
(kill-new (concat (buffer-substring (point-at-bol)
(point-at-eol))
"\n")))

(setq require-final-newline t)
(setq kill-whole-line t)
(setq scroll-conservatively 35
scroll-margin 2
scroll-step 0)
(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) ; when using x indicate empty line
(setq-default tab-width 4)
(setq-default indent-tabs-mode nil)
(setq-default indent-line-function nil)
;; (pc-selection-mode 1) ; make some already defined keybind back to default
(delete-selection-mode 1)
(cua-mode 0)
(setq line-move-visual nil)

;; 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)
(define-key esc-map "p" 'backward-paragraph)
;; (global-set-key (kbd "M-n") 'forward-paragraph)
(define-key esc-map "n" 'forward-paragraph)
(global-set-key (kbd "C-<up>") 'scroll-down-line)
(global-set-key (kbd "C-<down>") 'scroll-up-line)
(global-set-key (kbd "C-<left>") 'scroll-down)
(global-set-key (kbd "C-<right>") 'scroll-up)
(global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
(define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
(define-key ctl-x-map (kbd "ESC :") 'eval-expression)

;; C-h and DEL
(global-set-key (kbd "C-h") (kbd "DEL"))

(global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
(global-set-key (kbd "C-o") (kbd "C-e C-m"))

(define-key esc-map "k" 'my-copy-whole-line)
;; (global-set-key "\C-z" 'undo) ; undo is M-u
(define-key esc-map "u" 'undo)
(define-key esc-map "i" (kbd "ESC TAB"))
;; (global-set-key (kbd "C-r") 'query-replace-regexp)
(global-set-key (kbd "C-s") 'isearch-forward-regexp)
(global-set-key (kbd "C-r") 'isearch-backward-regexp)

(define-key my-prefix-map (kbd "C-o") 'occur)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; title and mode-line

@@ -668,70 +750,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(when (safe-require-or-eval 'autosave)
(autosave-set 2))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; editting

(defun my-copy-whole-line ()
"Copy whole line."
(interactive)
(kill-new (concat (buffer-substring (point-at-bol)
(point-at-eol))
"\n")))

(setq require-final-newline t)
(setq kill-whole-line t)
(setq scroll-conservatively 35
scroll-margin 2
scroll-step 0)
(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) ; when using x indicate empty line
(setq-default tab-width 4)
(setq-default indent-tabs-mode nil)
(setq-default indent-line-function nil)
;; (pc-selection-mode 1) ; make some already defined keybind back to default
(delete-selection-mode 1)
(cua-mode 0)
(setq line-move-visual nil)

;; 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)
(define-key esc-map "p" 'backward-paragraph)
;; (global-set-key (kbd "M-n") 'forward-paragraph)
(define-key esc-map "n" 'forward-paragraph)
(global-set-key (kbd "C-<up>") 'scroll-down-line)
(global-set-key (kbd "C-<down>") 'scroll-up-line)
(global-set-key (kbd "C-<left>") 'scroll-down)
(global-set-key (kbd "C-<right>") 'scroll-up)
(global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
(define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
(define-key ctl-x-map (kbd "ESC :") 'eval-expression)

;; C-h and DEL
(global-set-key (kbd "C-h") (kbd "DEL"))

(global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
(global-set-key (kbd "C-o") (kbd "C-e C-m"))

(define-key esc-map "k" 'my-copy-whole-line)
;; (global-set-key "\C-z" 'undo) ; undo is M-u
(define-key esc-map "u" 'undo)
(define-key esc-map "i" (kbd "ESC TAB"))
;; (global-set-key (kbd "C-r") 'query-replace-regexp)
(global-set-key (kbd "C-s") 'isearch-forward-regexp)
(global-set-key (kbd "C-r") 'isearch-backward-regexp)

(define-key my-prefix-map (kbd "C-o") 'occur)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; buffer killing

@@ -774,36 +792,11 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(when (safe-require-or-eval 'flycheck)
(call-after-init 'global-flycheck-mode))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; server

(when (safe-require-or-eval 'server)
(setq server-name (concat "server"
(number-to-string (emacs-pid))))

;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil
;; In Darwin environment, init fails with message like 'Service name too long'
;; when server-use-tcp is nil
(when (or (eq system-type
'cygwin)
(eq system-type
'darwin))
(setq server-use-tcp t))
(server-start))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; some modes and hooks

(set-variable 'ac-ignore-case nil)

;; (when (require 'ensime nil t)
;; (set-variable 'ensime-ac-case-sensitive t)
;; (set-variable 'ensime-company-case-sensitive t)
;; (add-hook 'scala-mode-hook
;; 'ensime-scala-mode-hook)
;; (add-hook 'ensime-scala-mode-hook
;; 'ac-stop))

(when (autoload-eval-lazily 'term-run '(term-run-shell-command term-run))
(define-key ctl-x-map "t" 'term-run-shell-command))

@@ -827,8 +820,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
'(setq reb-re-syntax 'foreign-regexp)
))

(safe-require-or-eval 'session)

(autoload-eval-lazily 'sql '(sql-mode)
(safe-require-or-eval 'sql-indent))

@@ -840,8 +831,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
t)
(autoload-eval-lazily 'sl))

(defalias 'qcalc 'quick-calc)

(with-eval-after-load 'make-mode
(defvar makefile-mode-map)
(define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
@@ -1013,7 +1002,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; t)
)

(eval-after-load "js"
(with-eval-after-load 'js
(set-variable 'js-indent-level 2))

(add-to-list 'interpreter-mode-alist
@@ -1054,18 +1043,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(global-set-key "\M-r" 'view-mode)
;; (setq view-read-only t)

;; (defun my-view-mode-search-word (word)
;; "Search for word current directory and subdirectories.
;; If called intearctively, find word at point."
;; (interactive (list (thing-at-point 'symbol)))
;; (if word
;; (if (and (require 'gtags nil t)
;; (gtags-get-rootpath))
;; (gtags-goto-tag word "s")
;; (my-rgrep word))
;; (message "No word at point.")
;; nil))

(add-hook 'Man-mode-hook
(lambda ()
(view-mode 1)
@@ -1999,6 +1976,8 @@ If ARG is given or called with prefix argument, create new buffer."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; misc funcs

(defalias 'qcalc 'quick-calc)

(defun memo (&optional dir)
"Open memo.txt in DIR."
(interactive)


Loading…
Cancel
Save