인수인계를 위해 남겨둔 최소한의 .emacs 파일

퇴사전 PC 정리중인데 인수인계가 늦어져서 간단히 코드와 문서를 보여줄수있을 정도의 .emacs 를 만들었다. emacs 안에 워낙 잡스러운것들을 들고있다보니 이런 작업도 하게 됐네

내가 필요했던것은

1. 소스브라우징을 위한  gtags, cscope
2. 잡스런 파일을 숨긴 dired
3. ido
4. F5 로 커맨드창 실행
5. alt-F5 로 탐색기 실행
6. 문서를 org 로 썼기 때문에 org
   

그래서 ~/.emacs.d 에 gtags.el xcscope.el 만 넣어두고 .emacs 에 아래 코드만 남기고 나머진 모두 삭제했다.

;;; 최소한의 el 들은 이곳에 넣어둔다.
(add-to-list 'load-path "~/.emacs.d")


;;; cscope 설정
(require 'xcscope)

;;; gtags 설정, gtags.el 이 필요
(load "gtags")
(add-hook 'c-mode-common-hook (lambda () (gtags-mode 1)))
(global-set-key "\C-c\M-." 'gtags-find-rtag)
(defun yoonkn%search-project-by-gtags ()
  (interactive)
  (if current-prefix-arg
      (yoonkn-grep-project)
    (gtags-find-pattern)))
(add-hook 'gtags-mode-hook
          '(lambda ()
             (local-set-key (kbd "C-S-f")
                            'yoonkn%search-project-by-gtags)))

;;; dired 쪽 설정은 가지고있는게 좋겠군.
(require 'dired-x)
(defun add-to-dired-omit-files (pattern)
  (setq dired-omit-files
        (concat dired-omit-files
                "\\|"
                pattern)))
(mapc #'add-to-dired-omit-files
      '("\\`\\."
        "\\`semantic.cache\\'"
        "\\.elc\\'"
        "\\`tags\\'"
        "\\`TAGS\\'"
        "\\`GPATH\\'"
        "\\`GRTAGS\\'"
        "\\`GSYMS\\'"
        "\\`GTAGS\\'"
        "\\`cscope.out\\'"
        "\\`cscope.files\\'"
        "\\`cscope.index\\'"))
(add-hook 'dired-mode-hook '(lambda () (dired-omit-mode 1)))
(when (eq system-type 'windows-nt)
  (setq ls-lisp-verbosity (delq 'uid ls-lisp-verbosity))
  (setq ls-lisp-verbosity (delq 'gid ls-lisp-verbosity)))


;;; ido 도 필요하겠다
(require 'ido)
(ido-mode t)
(ido-everywhere 1)
(setq ido-use-filename-at-point 'guess
      ido-use-url-at-point t)


;;; F5 로 터미널
(when (eq system-type 'windows-nt)
  (global-set-key [(f5)]
                  '(lambda ()
                     (interactive)
                     (w32-shell-execute "OPEN"
                                        "cmd"
                                        "/K echo hello"))))
;;; alt-F5 로 탐색기
(when (eq system-type 'windows-nt)
  (global-set-key [(meta f5)]
                  '(lambda ()
                     (interactive)
                     (w32-shell-execute "OPEN" default-directory))))


;;; 문서를 org 모드로 주로 남기기 때문에 이 모드도 필요하겠다
(require 'org)
(setq org-hide-leading-stars t)