Move some codes

emacs.el

@@ -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)