init.el

;; Environment to Japanese /  encoding to utf-8
(set-locale-environment nil)
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(prefer-coding-system 'utf-8)
(menu-bar-mode 0)
(setq inhibit-startup-message t)        ;; Surpress Startup message
;;(setq initial-scratch-message "")       ;; Remove initial message on *scratch* buffer

(setq make-backup-files nil)            ;; Don't create backup file
(setq delete-auto-save-files t)         ;; Remove auto-save-file on close Emacs
(setq-default tab-width 4 indent-tabs-mode nil)  ;; Utilize SPACE instead of TAB
(define-key global-map [165] [92])      ;; replace yen sign mark with backslash
(fset 'yes-or-no-p 'y-or-n-p)        ;; Change 'yes or no' to 'y or n'
(setq dired-dwim-target t)              ;;dired configuration
(show-paren-mode t)    ;;Highlight parenthesis
(setq ring-bell-function 'ignore)   ;; ignore ring-bell

(global-set-key "\C-r" 'replace-regexp) ;;assign C-r to replace-regexp
(global-set-key "\C-ct" 'toggle-truncate-lines)  ;;toggle-truncate-lines
(setq scroll-step 1)     ;; scroll line by line
(display-time)
(line-number-mode 1)
(column-number-mode 1)
(which-function-mode 1)
(global-unset-key "\C-z")
(cua-mode t)
(setq cua-enable-cua-keys nil)
(setq eval-expression-print-length nil)
(global-set-key "\C-x\C-g" 'goto-line)
(if (eq window-system 'ns)
    (set-frame-size (selected-frame) 110 50 )
  )
(global-set-key (kbd "C-h") 'delete-backward-char)
(tool-bar-mode -1)


;; server
(server-start)
(defun iconify-emacs-when-server-is-done ()
  (unless server-clients (iconify-frame)))
(add-hook 'server-done-hook 'iconify-emacs-when-server-is-done)
(global-set-key (kbd "C-x C-c") 'server-edit)
(defalias 'exit 'save-buffers-kill-emacs)


;;window size change
(global-set-key (kbd "M-<right>") 'enlarge-window-horizontally)
(global-set-key (kbd "M-<left>") 'shrink-window-horizontally)
(global-set-key (kbd "M-<up>") 'shrink-window)
(global-set-key (kbd "M-<down>") 'enlarge-window)

;;window move
(global-set-key (kbd "C-c <left>")  'windmove-left)
(global-set-key (kbd "C-c <down>")  'windmove-down)
(global-set-key (kbd "C-c <up>")    'windmove-up)
(global-set-key (kbd "C-c <right>") 'windmove-right)

;;backward-kill-line
(defun backward-kill-line (arg)
  "Kill chars backward until encountering the end of a line."
  (interactive "p")
  (kill-line 0))
(global-set-key (kbd "C-S-k") 'backward-kill-line)             


;; count-lines-and-chars
(defun count-lines-and-chars ()
  (if mark-active
      (format "%d lines,%d chars "
              (count-lines (region-beginning) (region-end))
              (- (region-end) (region-beginning)))
    ;;(count-lines-region (region-beginning) (region-end)) ;; 
    ""))
;;(add-to-list 'default-mode-line-format
  ;;                        '(:eval (count-lines-and-chars)))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;gdb
(setq gdb-many-windows t)
(add-hook 'gdb-mode-hook '(lambda () (gud-tooltip-mode t)))
(setq gdb-use-separate-io-buffer t)
(setq gud-tooltip-echo-area nil)


;;(require 'gud)
;;(add-hook
;; 'gdb-mode-hook
;; '(lambda ()
;;    (gud-tooltip-mode t)
;;    (gud-def gud-break-main "break main" nil "Set breakpoint at main.")
;; ))
;;(setq gud-tooltip-echo-area nil)
;;
;;(define-key gud-minor-mode-map (kbd "<f1>") 'gud-print)
;;(define-key gud-minor-mode-map (kbd "<S-f1>") 'gud-watch)
;;(define-key gud-minor-mode-map (kbd "<f2>") 'gud-refresh)
;;(define-key gud-minor-mode-map (kbd "<f5>") 'gud-cont)
;;(define-key gud-minor-mode-map (kbd "<S-f5>") 'gud-kill)
;;(define-key gud-minor-mode-map (kbd "<f6>") 'gud-until)
;;(define-key gud-minor-mode-map (kbd "<f9>") 'gdb-set-clear-breakpoint)
;;(define-key gud-minor-mode-map (kbd "<S-f9>") 'gud-break-main)
;;(define-key gud-minor-mode-map (kbd "<f10>") 'gud-next)
;;(define-key gud-minor-mode-map (kbd "<f11>") 'gud-step)
;;(define-key gud-minor-mode-map (kbd "<C-f10>") 'gud-until)
;;(define-key gud-minor-mode-map (kbd "<C-f11>") 'gud-finish)
;;(define-key gud-minor-mode-map (kbd "<S-f11>") 'gud-finish)
;;(defun gdb-set-clear-breakpoint ()
;;  (interactive)
;;  (if (or (buffer-file-name) (eq major-mode 'gdb-assembler-mode))
;;      (if (or
;;           (let ((start (- (line-beginning-position) 1))
;;                 (end (+ (line-end-position) 1)))
;;             (catch 'breakpoint
;;               (dolist (overlay (overlays-in start end))
;;                 (if (overlay-get overlay 'put-break)
;;                     (throw 'breakpoint t)))))
;;           (eq (car (fringe-bitmaps-at-pos)) 'breakpoint))
;;          (gud-remove nil)
;;        (gud-break nil))))
;;
;;(defun gud-kill ()
;;  "Kill gdb process."
;;  (interactive)
;;  (with-current-buffer gud-comint-buffer (comint-skip-input))
;;  (kill-process (get-buffer-process gud-comint-buffer)))
;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; el-get
(when load-file-name
  (setq user-emacs-directory (file-name-directory load-file-name)))
(add-to-list 'load-path (locate-user-emacs-file "el-get/el-get"))
(unless (require 'el-get nil 'noerror)
  (with-current-buffer
      (url-retrieve-synchronously
       "https://raw.githubusercontent.com/dimitri/el-get/master/el-get-install.el")
    (goto-char (point-max))
    (eval-print-last-sexp)))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; packages of el-get
(el-get-bundle auto-complete)  ;; auto-complete
(el-get-bundle helm)           ;; helm
(el-get-bundle gtags)          ;; gtags
(el-get-bundle exec-path-from-shell)  ;; exec-path-from-shell
(el-get-bundle flymake)       ;; flymake
(el-get-bundle flymake-ruby)  ;; flymake-ruby
(el-get-bundle flymake-pycheckers) ;; flymake-pychecker for python
(el-get-bundle undo-tree)    ;; undo-tree

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;gtags.el
(add-to-list 'load-path  (expand-file-name "~/.emacs.d/gtags/gtags/gtags.el"))
(global-set-key "\M-t" 'gtags-find-tag)
(global-set-key "\M-r" 'gtags-find-rtag)
(global-set-key "\M-s" 'gtags-find-symbol)
(global-set-key "\C-t" 'gtags-pop-stack)


;; undo-tree
(global-undo-tree-mode t)
(global-set-key (kbd "M-/") 'undo-tree-redo)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; cheat sheet for short cuts
;;
;; return : C-q C-j
;; tab : C-q C-i
;; rectangle-mark-mode : C-x SPC


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; dash
;;(if (eq window-system 'ns)
;;    (el-get-bundle dash-at-point)   ;; dash-at-point
;;    (global-set-key (kbd "<f1>") 'dash-at-point-docset)
;;  )
;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; SLIME
;;
;;(print "test")    
;;(setq interior-lisp-program (executable-find "/usr/local/bin/sbcl"))
;;(add-to-list 'load-path  (expand-file-name "~/.emacs.d/slime"))
;;
;;;; Load SLIME
;;(require 'slime)
;;(slime-setup '(slime-repl slime-fancy slime-banner)) 
;;
;;(custom-set-variables
;; ;; custom-set-variables was added by Custom.
;; ;; If you edit it by hand, you could mess it up, so be careful.
;; ;; Your init file should contain only one such instance.
;; ;; If there is more than one, they won't work right.
;; '(initial-frame-alist (quote ((height . 50) (width . 125))))
;; '(safe-local-variable-values
;;   (quote
;;    ((c-font-lock-extra-types "FILE" "bool" "language" "linebuffer" "fdesc" "node" "regexp")
;;     (c-noise-macro-names "UNINIT")))))
;;(custom-set-faces
;; ;; custom-set-faces was added by Custom.
;; ;; If you edit it by hand, you could mess it up, so be careful.
;; ;; Your init file should contain only one such instance.
;; ;; If there is more than one, they won't work right.
;; )
;;
;;