;; loads libraries in ~/.emacs.d/site-lisp
(let ((default-directory (expand-file-name "~/.emacs.d/site-lisp")))
(add-to-list 'load-path default-directory)
(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
(normal-top-level-add-subdirs-to-load-path)))
;(require 'init-loader)
;(setq init-loader-show-log-after-init nil)
;(init-loader-load "~/.emacs.d/inits")
;(require 'package)
;; adding MELPA
;(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/"))
;; Marmaladeを追加
;(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
;; initialize
;(package-initialize)
;; helm ---------------------------------------------------
;(require 'helm-config)
;(helm-mode 1)
;(define-key helm-read-file-map (kbd "TAB") 'helm-execute-persistent-action)
;(define-key helm-find-files-map (kbd "TAB") 'helm-execute-persistent-action)
;(define-key helm-map (kbd "C-h") 'delete-backward-char)
;(define-key helm-map (kbd "TAB") 'helm-execute-persistent-action)
;(define-key helm-find-files-map (kbd "C-h") 'delete-backward-char)
;(define-key helm-M-x-map (kbd "TAB") 'helm-execute-persistent-action)
;(define-key global-map (kbd "M-x") 'helm-M-x)
;(define-key global-map (kbd "C-x C-f") 'helm-find-files)
;(define-key global-map (kbd "C-c i") 'helm-imenu)
;(define-key global-map (kbd "M-y") 'helm-show-kill-ring)
;; ---------------------------------------------------
;; auto-complete ---------------------------------------------------
(require 'auto-complete)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-complete/dict")
(require 'auto-complete-config)
(ac-config-default)
; ---------------------------------------------------
;; undo-tree -------------------------------------
(require 'undo-tree)
(setq undo-limit 600000)
(setq undo-strong-limit 900000)
;;(global-set-key (kbd "M-/") 'undo-tree-redo)
(global-undo-tree-mode t)
;; ---------------------------------------------------
;; smooth-scroll -------------------------------------
(require 'smooth-scroll)
(smooth-scroll-mode t)
;; ---------------------------------------------------
;; git-gutter-fringe -------------------------------------
(require 'git-gutter-fringe)
(set-face-foreground 'git-gutter-fr:modified "yellow")
(set-face-foreground 'git-gutter-fr:added "green")
(set-face-foreground 'git-gutter-fr:deleted "white")
(global-set-key "\C-c\C-g" 'git-gutter:next-diff)
(global-set-key "\C-c\C-r" 'git-gutter:previous-diff)
(setq git-gutter-fr:side 'right-fringe)
;; ---------------------------------------------------
;; anzu ----------------------------------------------
(require 'anzu)
(anzu-mode +1)
(global-anzu-mode +1)
;; ---------------------------------------------------
;; magit ------------------------------
(require 'magit)
(global-set-key "\C-xvv" 'magit-status)
;; ------------------------------------
;(require 'flycheck)
;(require 'flycheck-pos-tip)
;(add-hook 'after-init-hook #'global-flycheck-mode)
;(eval-after-load 'flycheck
; '(custom-set-variables
; '(flycheck-display-errors-function "'flycheck-pos-tip-error-messages)))
;(flycheck-define-checker c/c++
; "A C/C++ checker using g++."
; :command ("g++" "-Wall" "-Wextra" source)
; :error-patterns ((error line-start
; (file-name) ":" line ":" column ":" "error:" (message);
; line-end)
; (warning line-start
; (file-name) ":" line ":" column ":" "warning:" (message)
; line-end))
; :modes (c-mode c++-mode))
;; ---------------------------------------------------
;; default to unified diffs
(setq diff-switches "-u")
(mouse-wheel-mode t)
(defun Xmy-c-mode-hook()
(c-set-style "cc-mode")
(setq tab-width 4)
(setq c-basic-offset tab-width)
)
(add-hook 'c-mode-hook 'my-c-mode-hook)
(add-hook 'c-mode-common-hook
'(lambda()
; (c-toggle-auto-hungry-state 1)
))
;; convert ident to space
(setq-default tab-width 4 indent-tabs-mode nil)
;; delete ths last spaces of the line
(add-hook 'before-save-hook 'delete-trailing-whitespace)
;; ignore case in file name
(setq completion-ignore-case t)
(setq read--completion-ignore-case t)
(setq read-file-name-completion-ignore-case t)
;; auto revert the buffer
(global-auto-revert-mode t)
(global-hl-line-mode)
(setq hl-line-face 'underline)
(hl-line-mode 1)
(which-function-mode 1)
(column-number-mode 1)
(display-time-mode 1)
(setq inhibit-startup-message t)
;; my key bind setting -------------------------
(global-set-key "\C-x\C-b" 'buffer-menu)
(global-set-key "\C-x\C-g" 'goto-line)
(global-set-key "\C-xc" 'compile)
(global-set-key "\C-z" 'undo)
(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\C-xx" 'comment-region)
(global-set-key "\C-xw" 'uncomment-region)
(global-set-key [f1] 'clipboard-kill-ring-save)
(global-set-key [f2] 'clipboard-yank)
(global-set-key [f3] 'clipboard-kill-region)
(global-set-key [f4] 'delete-forward-char)
(global-set-key [f5] 'compile)
(global-set-key [f6] 'align)
(global-set-key [f7] 'flymake-mode)
;; ---------------------------------------------
;; whitespace ----------------------------------
(require 'whitespace)
;; (setq whitespace-style '(face
;; trailing
;; tabs
;; spaces
;; empty
;; space-mark
;; tab-mark
;; ))
(setq-default whitespace-style '(face
tabs
tab-mark
spaces
space-mark
trailing
;; newline
;; newline-mark
))
(setq-default whitespace-space-regexp "\\(\x3000+\\)")
(setq-default whitespace-display-mappings
'((space-mark ?\x3000 [?□] [?＿]) ;□
(newline-mark ?\n [?$ ?\n])
(tab-mark ?\t [?\u00BB ?\t] [?\\ ?\t]))
)
(set-face-attribute 'whitespace-space nil :foreground "purple4" :background 'unspecified :weight'normal :slant 'italic)
(set-face-attribute 'whitespace-tab nil :foreground "DodgerBlue4" :background 'unspecified :weight'normal :slant 'italic)
(set-face-attribute 'whitespace-trailing nil :foreground 'unspecified :background "#35006b" :weight'normal :slant 'italic)
(set-face-attribute 'whitespace-newline nil :foreground "blue" :italic t :bold nil)
(global-whitespace-mode 1)
;; ---------------------------------------------
;; wdired ---------------------------------------------------
(require 'wdired)
(setq wdired-allow-to-change-permissions t)
(define-key dired-mode-map "e" 'wdired-change-to-wdired-mode)
;;-----------------------------------------------------------
;; gtags --------------------------------------------
(load-library "/usr/local/share/gtags/gtags.el")
(autoload 'gtags-mode "gtags" "" t)
(setq gtags-mode-hook
'(lambda()
(local-set-key "\M-." 'gtags-find-tag)
(local-set-key "\M-r" 'gtags-find-rtag)
(local-set-key "\M-s" 'gtags-find-symbol)
; (local-set-key "\C-t" 'gtags-pop-stack)
))
(defadvice gtags-find-tag (before gtags-find-tag activate)
(let ((default-directory (locate-dominating-file default-directory "makefile")))
(shell-command "gtags")))
;; (shell-command (format "cd %s && gtags" default-directory))))
;;---------------------------------------------------
;; parenthesis highlight mode
(show-paren-mode t)
(setq-default blink-matching-paren t)
(face-spec-set 'show-paren-match '((t (:foreground "magenta" :background nil :bold))))
(face-spec-set 'show-paren-mismatch '((t (:foreground "black" :background "red" :bold))))
;; (lazy-loaded 'mic-paren nil
;; (paren-activate)
;; (setq paren-match-face '(bold))
;; ;; (setq paren-match-face '(bold italic))
;; (setq paren-sexp-mode t)
;; (setq paren-display-message 'never)
;; (setq paren-message-linefeed-display "^J"))
;; (lazy-loaded 'rainbow-delimiters nil)
;;-----------------------------------------------------------
(setq c-mode-hook '(lambda ()
(gtags-mode 1)
(git-gutter-mode 1)
))
(setq c++-mode-hook '(lambda ()
(gtags-mode 1)
(git-gutter-mode 1)
))
(setq java-mode-hook '(lambda ()
(gtags-mode 1)
(git-gutter-mode 1)
))
;;-----------------------------------------------------------
(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.
'(column-number-mode t)
'(display-time-mode t))
(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.
'(default ((t (:family "fixed" :foundry "misc" :slant normal :weight normal :height 125 :width semi-condensed)))))
(setq-default c-basic-offset 4)
(electric-pair-mode 1)
(defadvice compile (around in-make-file activate)
(let ((default-directory (locate-dominating-file default-directory "makefile")))
ad-do-it)
;; (shell-command "./l")
(print "aaaaaa" (get-buffer "Messages"))
(print default-directory (get-buffer "Messages"))
)
(defadvice compile (after compile-finished activate)
;; (let ((default-directory (locate-dominating-file default-directory "makefile"))))
(print "bbbbbbbbb" (get-buffer "Messages"))
(print default-directory (get-buffer "Messages"))
(shell-command "./l"))
;; (shell-command "/private/share/NativeUpdater/cds-updater_native/l"))
(put 'dired-find-alternate-file 'disabled nil)
