org 모드에 블로그보다 많은 정보를 들고 있고 이걸 .emacs 들과 함께 hg 로 버전관리중이니 뭐 그 이상이지...
오래전 위키에 올렸던 페이지가 어쩌다 오늘 내눈에 보이길래 지금 쓰는 dot emacs 파일을 올려봤다. 예전 위키에 적을때하고 다른점은.. 그때는 주로 윈도에서 놀았으나 지금은 거의 리눅스에서만 개발을 하고 있다는 점? 그리고 그때는 재미삼아 common lisp 을 주로 구경했는데 지금은 haskell 에 좀더 관심있다는 정도...
그때나 지금이나 허접한 개발자란건 변함이 없구만.
아래 소스를 올리긴 하는데 내가 워낙 게으른놈이라 코드가 정리가 전혀안됐다. 주석도 처음에 주절주절 적어둔거 그대로.. 심지어는 svn 쓰던 시절의 $Id$ 이것까지 남아있네. 이거 전부 정리해야 할 글인데.. 지금도 몇몇 코드들은 다픈 파일로 따로 뽑아낸 상태인데 언제 시간내서 싹 정리를 해야겠다.
펼쳐두기..
;; -*- mode: Emacs-Lisp; outline-regexp: "^;;;; .*"; -*-
;; yoonkn at gmail
;; $Id: emacs.el 751 2008-05-09 11:02:29Z yoonkn $
;; vim을 쓰다가 emacs 를 쓰면서 만들고 있는 .emacs
;; 각 섹션마다 ;;;;어쩌구 를 쓰고, 이를 outline-regexp 에 걸리도록 해서
;; outline-minor-mode 와 같이 쓰기 편하도록 했다.
;; emacs 가 최초로 읽어들이는 설정은 ~/.emacs 이다.
;; ( site-lisp 의 el 을 먼저 읽지만, 그건 개인이 건드릴만한게 아니니 제외 )
;;
;; .emacs 를 바로 수정해도 되지만, 커스텀변수가 그곳에 저장되는곳이기도 하고
;; (emacs 가 알아서 써준다), svn 에 넣으려면 따로 폴더를 만들어야 하기 때문에
;; ~/emacs/emacs.el 을 만들게 되었다.
;; ~/.emacs 의 내용은 다음과 같은 형식이다.
;;
;; (load "~/emacs/emacs.el")
;; (load "~/emacs/office.el") ; 집이라면 home.el
;;
;; 이런식으로 만들어서 쓰니 편하더라.
(require 'cl)
;;;; 여러 환경에서 쓰기 위한 설정값들
(defconst win32p (eq system-type 'windows-nt) "윈도머신이면 참")
(defconst unixp (eq system-type (or 'gnu/linux 'berkeley-unix)) "FreeBSD 머신이면 참")
(defconst homep (string-match "MOONFIRE" system-name)"집의 pc 라면 참")
(defconst officep (not homep)"사무실의 pc 라면 참")
(defconst extra-packages "~/.emacs.d" "내가 추가로 설치한 el 패키지들의 위치")
(defmacro with-extra-package (path &rest body)
"path 가 있으면, load-path 에 추가한다, 단 리눅스인 경우는
경로를 무시하고 있는것으로 간주한다. 지금 우분투를 데스크탑으로
쓰고있는데, 우분투에서는 내가 쓰는 대부분의 el 들이 패키지로
제공이 되니 이런식으로 해결했다."
`(let ((fullpath (format "%s/%s" extra-packages ,path)))
(when (or unixp (file-accessible-directory-p fullpath))
(message "%s 패키지를 찾았습니다" fullpath)
(add-to-list 'load-path fullpath)
,@body)))
;;;; 마이너 모드들, 그외 eye-candy 세팅들
(global-font-lock-mode 1) ; syntanx highlight
(transient-mark-mode t) ; marking highlight
(show-paren-mode t) ; 짝이 맞는 괄호 보여준다
(if (functionp 'global-hi-lock-mode) ; C-x w h 등으로 특정 단어들을 빛내준다
(global-hi-lock-mode 1)
(hi-lock-mode 1))
;;(global-hl-line-mode 1) ; 현재줄을 빛내준다. 이거 좀 불편해서 뺐다.
(setq ring-bell-function (lambda () nil)) ; bell 무시
(line-number-mode 1) ; mode line 에 라인수를 표시한다
(column-number-mode 1) ; mode line 에 컬럼을 표시한다(기본이 아니더라)
(setq scroll-step 1) ; 윈도스런 스크롤을 위해서..
(setq scroll-conservatively 4096)
; 윈도우처럼, 선택된 regeion 을 DEL 로 지우거나, 다른 글자를 타이핑 할때 즉시 지운다.
(delete-selection-mode 1)
(setq-default truncate-lines t) ; 화면을 벗어나는 긴 줄처리 toggle-truncate-lines 참고
;;(dynamic-completion-mode) ; 음 이게 뭐드라? M-/ 던가 M-RET 던가
;; Set the text for titlebar and icons, %f=filename, %b=buffername
(setq frame-title-format (list "GNU Emacs " emacs-version "@" system-name " - " '(buffer-file-name "%f" "%b")))
(setq icon-title-format frame-title-format)
(which-function-mode 1) ; 어떤 함수를 수정중인지 표현 semantic-stickyfunc-mode 보다는 이게 보기 좋다
(tool-bar-mode -1) ; toolbar 는 거의 안쓰니 꺼버린다
(auto-compression-mode 1) ; 가끔 필요해서..
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) ; 스크롤바눈에거슬린다
;; (load "~/emacs/dirvars.el") ; 프로젝트 관리에 써먹자
(setq-default indent-tabs-mode nil) ; TAB 보다 space 가 더 좋아졌다.
; lisp 등에서 괄호를 흐리게 보여주는 모드 M-x customize-face
; paren-face 로 적절한 값으로 조절해서 쓰자. 지금은 흰색 바탕화면에서
; grey80 을 쓰고 있다.
(load "~/emacs/parenface")
(require 'parenface)
;; http://emacswiki.org/cgi-bin/wiki?InteractiveSearch
;; isearch 중 붙여넣기를 하려면 C-y 가 아닌 M-y 를 해야 하는데
;; 이건 뭔가 아니다. C-y 로 바꾸자
(define-key isearch-mode-map (kbd "C-y") 'isearch-yank-kill)
;;;; X 에서 휠마우스 버튼 쓰기
;;(global-set-key [(mouse-4)] 'scroll-down)
;;(global-set-key [(mouse-5)] 'scroll-up)
;;;; 윈도에서는 윈도키를 잘 써먹자
(when win32p
(setq w32-pass-lwindow-to-system nil
w32-pass-rwindow-to-system nil
w32-pass-apps-to-system nil
w32-lwindow-modifier 'super ;; Left Windows
w32-rwindow-modifier 'super ;; Rigth Windows
w32-apps-modifier 'hyper) ;; App-Menu (right to Right Windows)
(global-set-key [(super g)] 'goto-line))
;;;; 폰트 설정
;; http://www.emacswiki.org/cgi-bin/wiki/ChangeFontsPermanentlyOnWindows
;; http://www.emacswiki.org/cgi-bin/wiki/GoodFonts 에 다른이들이 쓰는 폰트들이 소개되어있다.
;; 폰트를 고른후 (frame-parameter nil 'font) 를 실행하면 폰트를 알수 있다.
;; (create-fontset-from-fontset-spec
;; "-*-Consolas-normal-r-*-*-12-*-*-*-c-*-fontset-consolas12,
;; korean-ksc5601:-*-malgun-normal-r-*-*-12-*-*-*-c-*-ksc5601.1987-*")
;; http://www.emacswiki.org/cgi-bin/wiki/FontSets
;; Finegrained Fontset Control 참고
;; 원래의 폰트셋에서 korean-ksc5601 부분의 폰트만 굴림으로 바꿨다.
(when nil;win32p
;; consolas 에 굴림체 적용 폰트셋
;; 시프트 클릭으로 적당한 폰트를 고르고
;; (frame-parameter nil 'font) 를 이용해서 폰트 이름을 얻어서
;; 그 이름을 이용 create-fontset-from-ascii-font 으로 폰트셋을 만들고,
;; set-fontset-font 으로 korean-ksc5601 에 대해서만 굴림체를 적용시켜줬다.
;; 단 이때 사이즈가 홀수 인경우 커서의 잔상이 남는등 오동작을 하길래 14 로 바꿔주니 잘되더라.
(setq w32-enable-italics t)
(create-fontset-from-ascii-font "-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1")
(set-fontset-font "-outline-consolas-normal-r-normal-normal-14-105-96-96-c-*-fontset-iso8859_1" 'korean-ksc5601 "-*-맑은 고딕-normal-r-*-*-14-*-*-*-c-*-ksc5601.1987-*")
(set-face-font 'default "-outline-consolas-normal-r-normal-normal-14-105-96-96-c-*-fontset-iso8859_1")
;; 좀더 작은 크기
;; (create-fontset-from-ascii-font "-outline-Consolas-normal-r-normal-normal-13-97-96-96-c-*-iso8859-1")
;; (set-fontset-font "-*-*-normal-r-normal-normal-13-97-96-96-c-*-fontset-iso8859_1_13" 'korean-ksc5601 "-*-Gulimche-normal-r-*-*-13-*-*-*-c-*-ksc5601.1987-*")
;; (set-face-font 'default "-*-*-normal-r-normal-normal-13-97-96-96-c-*-fontset-iso8859_1_13")
)
;; sun 라운드고딕을 한글로, fixed 를 영문으로
(when (and unixp window-system)
;;(set-face-font 'default "-sun-roundgothic-medium-r-normal--12-120-75-75-c-120-ksc5601.1987-0")
(set-face-font 'default "fixed")
)
;;;; 버퍼 전환 설정(http://www.emacswiki.org/cgi-bin/wiki/CategoryBufferSwitching)
;; from http://www.emacswiki.org/cgi-bin/wiki/BufferMenu
(global-set-key (kbd "C-x C-b") 'buffer-menu)
;; ido 써볼까...
(require 'ido)
(ido-mode t)
(ido-everywhere 1)
(setq ido-use-filename-at-point 'guess
ido-use-url-at-point t)
;;(iswitchb-mode 1)
;;;; home 키를 비쥬얼 스튜디오 처럼
;; from http://www.emacswiki.org/cgi-bin/wiki/BackToIndentationOrBeginning
;;
;; 이거 지워버렸다.
;; 공백이 아닌 첫 문자로 point 를 위치시킬때는 M-m 을 하면 된다.
;;;; 한글 설정( 이거 안해주니 grep mode 등에서 한글이 안되더라..)
(when (and enable-multibyte-characters win32p)
(setq-default coding-system 'euc-kr)
(setq file-coding-system 'euc-kr)
(setq display-coding-system 'euc-kr)
(setq-default buffer-coding-system 'euc-kr)
(setq sendmail-coding-system 'euc-kr)
(setq keyboard-coding-system 'euc-kr)
(setq terminal-coding-system 'euc-kr)
(set-language-environment "Korean")
(setq-default file-name-coding-system 'euc-kr)
(setq input-method-verbose-flag nil
input-method-highlight-flag nil)
(prefer-coding-system 'euc-kr)
(set-default-coding-systems 'euc-kr)
;; Hangul Mail setting
(setq-default sendmail-coding-system 'euc-kr))
;;;; gnus 설정
;; 뉴스서버, 집에서는 kornet. 그외엔 프리뉴스서버.
;; 회사에서는 news.dacom.co.kr 을 썼었는데, 데이콤 서버가 아주 안좋아서
;; 그냥 전부 프리서버로
(setq gnus-select-method
(if homep '(nntp "news.kornet.net")
'(nntp "news.bora.net")))
;; 사용자 설정
(setq user-full-name "Yoon Ki-nam"
user-mail-address "yoonkn@gmail.com"
message-from-style 'parens)
(setq mail-yank-prefix "> ")
;; gnus-article-mode 에서는 goto-address 를 쓴다
(add-hook 'gnus-article-mode-hook 'goto-address)
;; RSS 를 볼때 S-return 으로 브라우저를 띄우도록 했다.
(require 'gnus)
(require 'nnrss)
(require 'browse-url)
(defun browse-nnrss-url( arg )
(interactive "p")
(let ((url (assq nnrss-url-field
(mail-header-extra
(gnus-data-header
(assq (gnus-summary-article-number)
gnus-newsgroup-data))))))
(if url
(progn
(browse-url (cdr url))
(gnus-summary-mark-as-read-forward 1))
(gnus-summary-scroll-up arg))))
(eval-after-load "gnus"
#'(define-key gnus-summary-mode-map
(kbd "S-<return>") 'browse-nnrss-url))
(add-to-list 'nnmail-extra-headers nnrss-url-field)
;;;; cc-mode 설정
;; 몇몇 확장자 추가
(add-to-list 'auto-mode-alist '("\\.hpp\\'" . c++-mode))
(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode)) ; 난 주로 c++ 쓰니까.
;; c++ indentation
(defconst my-c-style
'((c-tab-always-indent . t)
(c-comment-only-line-offset . 4)
(c-hanging-braces-alist . ((substatement-open after)
(brace-list-open)))
(c-hanging-colons-alist . ((member-init-intro before)
(inher-intro)
(case-label after)
(label after)
(access-label after)))
(c-cleanup-list . (scope-operator
empty-defun-braces
defun-close-semi))
(c-offsets-alist . ((arglist-close . c-lineup-arglist)
(substatement-open . 0)
(case-label . 0)
(block-open . 0)
(namespace-open . 0)
(namespace-close . 0)
(innamespace . 0)
(inextern-lang . 0)
(knr-argdecl-intro . -)))
(c-echo-syntactic-information-p . t)
)
"My C Programming Style")
;; Customizations for all modes in CC Mode.
(defun my-c-mode-common-hook ()
(c-add-style "PERSONAL" my-c-style t)
(setq tab-width 4
;;indent-tabs-mode t
c-basic-offset 4)
(c-toggle-auto-state -1) ; disable auto-newline mode
(c-toggle-hungry-state 1) ; enable hungry-delete mode
;; return 으로 indent 까지 같이 하도록했다
(define-key c-mode-base-map "\C-m" 'newline-and-indent)
;; C-c RET 로 .h .cpp 간의 전환을 하도록 했다.
(define-key c-mode-base-map [(control c)(return)] 'ff-find-other-file)
;; ecb 가 켜진 상태라면, C-c C-c 를 ecb-goto-window-methods 에 바인딩했다.
(when (fboundp 'ecb-goto-window-methods)
(define-key c-mode-base-map [(control c)(control c)] 'ecb-goto-window-methods))
;; cedet 가 로딩된상태라면 META-Ret 를 semantic-analyze-possible-completions 로 매핑했다.
;; semantic-ia-complete-symbol 등 여러선택이 있지만 이놈이 맘에들었다.
;; ...다가 다시 semantic-ia-complete-symbol 로 바꿨다. 새로 버퍼가 열리면서 인자까지 보여주는게 맘에 들었었는데,
;; 버퍼가 다시 사라지지 않은게 이유
(when (fboundp 'semantic-analyze-possible-completions)
(define-key c-mode-base-map [(meta return)] 'semantic-ia-complete-symbol-menu))
(c-set-offset 'substatement-open 0)
(c-set-offset 'member-init-intro '++)
(c-set-offset 'inline-open 0)
(c-set-offset 'comment-intro 0)
(c-set-offset 'label 0)
(c-set-offset 'arglist-intro '+)
(hs-minor-mode 1)
(hide-ifdef-mode 1)
(setq hide-ifdef-lines t) ; #if 등까지 가려버리자
(setq hide-ifdef-read-only t) ; hide-ifdef-mode 에선 readonly 로 사용해야지
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;; TODO, BUG 등에 강조표시
(font-lock-add-keywords 'c++-mode
'(("\\<\\(FIXME\\):" 1 c-nonbreakable-space-face prepend)
("\\<\\(TODO\\):" 1 c-nonbreakable-space-face prepend)
("\\<\\(BUG\\):" 1 c-nonbreakable-space-face prepend)
("\\<\\(NOTE\\):" 1 c-nonbreakable-space-face prepend)))
;;;; eshell 설정
;; http://www.emacswiki.org/cgi-bin/wiki/CategoryEshell
;; From http://www.emacswiki.org/cgi-bin/wiki.pl?EshellFunctions
(defun eshell/emacs (&rest args)
"Open a file in emacs. Some habits die hard."
(if (null args)
;; If I just ran "emacs", I probably expect to be launching
;; Emacs, which is rather silly since I'm already in Emacs.
;; So just pretend to do what I ask.
(bury-buffer)
;; We have to expand the file names or else weird stuff happens
;; when you try to open a bunch of different files in wildly
;; different places in the filesystem.
(mapc #'find-file (mapcar #'expand-file-name args))))
;; from http://www.emacswiki.org/cgi-bin/wiki.pl/EshellInteractivelyRemove
(setq eshell-cp-interactive-query t
eshell-ln-interactive-query t
eshell-mv-interactive-query t
eshell-rm-interactive-query t
eshell-mv-overwrite-files nil)
;; http://www.emacswiki.org/cgi-bin/wiki.pl/EshellWThirtyTwo
(when win32p
(defun eshell/start (FILE)
"Invoke (w32-shell-execute \"Open\" FILE) and substitute slashes for backslashes"
(w32-shell-execute "Open"
(subst-char-in-string ?\\ ?/ (expand-file-name FILE))) nil))
;; eshell 스크롤, 아직 원하는대로 돌지 않는다.
;; http://www.emacswiki.org/cgi-bin/wiki/EshellScrolling
(setq eshell-scroll-show-maximum-output t
eshell-scroll-to-bottom-on-output nil)
;; 종료시에 히스토리 세이브 할거냐고 물어보지 말고 걍 세이브해라
(setq eshell-save-history-on-exit t)
;; 용량 보기 좋게
(setq eshell-ls-initial-args '("-h"))
;; win32 에서 ls -al 이 모양이 깨지는 문제
;; 음 이것참. 그럴듯한 방법을 모르겠네. 그냥 소스를 수정해버렸다.
;; em-ls.el 의 eshell-ls-file 코드중 format-time-string 을 만드는
;; 부분이 있는데 이중 "%b %e " 로 된 부분을 "%2b-%d " 로 바꿔버렸다.
;;;; word count
;; from http://www.emacswiki.org/cgi-bin/wiki/WordCount
;; 자주 쓰지 않는거라 그냥 지웠다. 필요하면 위 링크를 보자
;;;; planner mode 설정(planner 파일이 있을때만 로딩되도록 했다)
;; http://www.emacswiki.org/cgi-bin/wiki/PlannerMode
;; muse port 를 쓰면서 이쪽은 주석처리 했다. muse port 설정은 아랫부분을 찾아볼것
;; (when (file-exists-p "~/.emacs_plugin/planner")
;; (add-to-list 'load-path "~/.emacs_plugin/emacs-wiki")
;; (add-to-list 'load-path "~/.emacs_plugin/planner")
;; (require 'planner)
;; (planner-option-customized 'planner-directory "~/emacs/plans")
;; (planner-option-customized 'planner-publishing-directory
;; "~/emacs/published_plans")
;; (setq planner-carry-tasks-forward t)
;; (add-hook 'planner-mode-hook 'turn-on-auto-fill))
;;;; browse-url 설정(windows 환경일때는 iexplore 를 쓰도록)
(when win32p
(setq
html-viewer "C:/Program Files/Internet Explore/IEXPLORE.exe"
browse-url-generic-program "C:/Program Files/Internet Explore/IEXPLORE.exe"))
;;(goto-address) ; 요 모드 기억해두자
;;;; FFAP(Finding Files and URLs at Point)
;; ido 를 쓰면서 이놈 뺀다.
;;(ffap-bindings)
;; ffaq-c-path 는 vim 의 includeexpr 같은놈으로, ffap 시의 path 를 지정해 준다
;; ffap-bindings 을 뺐지만 ido 가 ffap 의 코드를 그대로 썼다 하니 ffap-c-path 값은 살려둔다.
(setq ffap-c-path
(cond (win32p
'("C:/Program Files/Microsoft Platform SDK/Include"
"C:/Program Files/Microsoft Visual Studio 8/VC/include"
"C:/Program Files/Microsoft Visual Studio 8/VC/atlmfc/include"
"C:/Program Files/Microsoft Visual Studio 8/VC/PlatformSDK/Include"))
(t ; win32 가 아니면 유닉스라고 생각.
'("~/boost/include/boost-1_38"
"/usr/include"
"/usr/include/c++/4.3"
"/usr/local/include"
"/usr/X11R6/include"
))))
;;;; putty 를 통해 접속한경우를 위해서(미완성)
;; 아직은 코딩할때 vim 쓰기 때문에.. 이부분 업데이트는 최후에 한다.
(unless window-system
(global-hl-line-mode -1)
(global-set-key "\C-h" 'backward-delete-char)
(global-set-key "\M-?" 'help-command)
(menu-bar-mode nil)
(global-set-key "\e[A" 'previous-line) ; VT100 small keypad up arrow
(global-set-key "\e[B" 'next-line) ; VT100 small keypad down arrow
(global-set-key "\e[C" 'forward-char) ; VT100 small keypad right arrow
(global-set-key "\e[D" 'backward-char) ; VT100 small keypad left arrow
(global-set-key "\e[2~" 'overwrite-mode) ; insert
(global-set-key "\e[1~" 'beginning-of-line) ; home
(global-set-key "\e[4~" 'end-of-line) ; end
(global-set-key "\e[5~" 'scroll-down) ; page up
(global-set-key "\e[6~" 'scroll-up)) ; page down
;;;; vxml 편집을 위해( 확장자별로 뭔가 해줄때의 샘플)
(add-to-list 'auto-mode-alist
(cons (concat "\\." (regexp-opt '("vxml" "vxml" "vxml") t) "\\'")
'xml-mode))
;;;; word-at-point 로 영어사전 검색
;; 햐.. 몇줄안되지만 elisp 처음 써보는거라 힘들었다.
;; thingatpt 의 word-at-point ( thing-at-point 의 alias ) 의 존재를 모르고
;; word-at-point 를 만들어 볼려고 고생했었는데.. thingatpt 의 존재를 알게되서 다행이다
;; 키바인딩을 해야 하는데.. 뭘로 할까? vim 이면 <Leader>dic 정도로 했을텐데..
(require 'thingatpt)
;;(setq yoonkn-dic-dicurl "http://kr.engdic.yahoo.com/search/engdic?p=%s")
;;(setq yoonkn-dic-dicurl "http://dic.naver.com/search.naver?query=%s")
(setq yoonkn-dic-dicurl "http://dic.yahoo.co.kr/search/all/search.html?p=%s")
(defun yoonkn-dic-at-point ()
(interactive)
(browse-url (format yoonkn-dic-dicurl (word-at-point))))
(defun yoonkn-cdic ()
"직접 만든 cdic.exe 를 써먹기위한 함수
cdic 소스는 svn://yoonkn.dyndns.org/scratch/trunk/cdic 에 있다"
(interactive)
(let ((command (format "cdic.exe \"%s\"" (word-at-point))))
(save-excursion
(set-buffer (get-buffer-create "*cdic*"))
(local-set-key (kbd "q") '(lambda () (interactive) (kill-buffer (current-buffer))))
(erase-buffer)
(insert (shell-command-to-string command))
(beginning-of-buffer)
(switch-to-buffer "*cdic*"))))
(when win32p
(global-set-key [(super shift w)] 'yoonkn-dic-at-point)
(global-set-key [(super w)] 'yoonkn-cdic)
)
;;;; backup 설정
;; 나는 작업 디렉토리에 백업파일이 남는것을 싫어한다
;; backup-by-coping 이라는 중요한 변수가 있는데, 메뉴얼을 봐라
(setq backup-directory-alist '(("." . "~/.emacs_backup")))
(setq
version-control t ; 백업을 여러벌한다
kept-old-versions 2 ; oldest 백업 2개는 유지
kept-new-versions 3 ; newest 백업 3개 유지
delete-old-versions t) ; 지울때마다 묻지 않도록
;;;; M-x compile 설정
(require 'compile)
;; 내가 원하는 빌드 과정을 간단히 적으면
;;
;; 1. 어떤 코드를 수정을 하다가 빌드를 하려는 마음이 생기면
;; 2. Makefile ( 또는 *.sln ) 이 존재하는 디렉토리로 가서
;; 3. 적절한 빌드 명령 (make 또는 devenv) 을 내리고
;; 4. 원래의 코드 작성으로 돌아온다.
;;
;; 위와 같다.
;; 아래 함수는 그런 일을 해주는데 간단히 설명을 적으면
;;
;; .emacs-dirvars 등을 통해 yoonkn-build-option 의 값을
;; (:wc "c:/tmp/a/build" :cmd "make -k ")
;; 이런식으로 지정을 해두고 아래 함수를 실행하면
;; 현재 작업 디렉토리를 기억해두고 wc 로 지정된 디렉토리로 가서
;; cmd 로 지정된 명령을 실행후 기억해둔 작업디렉토리로 돌아오게 된다.
;;
;; 2008/12/19
;; dirvars 에 해당하는 기능이 emacs 에 정식으로 들어와서 그쪽을 쓰도록
;; 했다. 뭐 사실 yoonkn-build 는 안바꿔도 되지만 수정 하는 김에 plist
;; 에서 alist 형태로 바꿨다.
;;
;; 세팅은 아래 코드 참고
;;
;; (setq project-directory-alist nil)
;; (define-project-bindings 'mao
;; '((nil . ((yoonkn-build-option . ((source-directory . "~/scratch/voceweb/libbrpc")
;; (build-directory . "/tmp/mao")
;; (build-command . "make ")))))))
;; (set-directory-project "~/scratch/voceweb/libbrpc" 'mao)
;;
(defun yoonkn-build ()
(interactive)
(if (and (boundp 'yoonkn-build-option)
(not (null yoonkn-build-option)))
(let ((pwd (substring (pwd) (length "Directory ")))
(wc (cdr (assq 'build-directory yoonkn-build-option)))
(compile-command (cdr (assq 'build-command yoonkn-build-option))))
(unwind-protect
(progn
(cd wc)
(call-interactively 'compile))
(cd pwd)))
(call-interactively 'compile)))
(global-set-key [f7] 'yoonkn-build) ; visual studio 처럼 f7 매핑
(global-set-key [(f4)] 'next-error) ; M-x grep 에서도 쓸만하다
(global-set-key [(shift f4)] 'previous-error)
(defmacro yoonkn-enable-flymake-mode (pattern hook)
"hook 에 pattern 을 검사해서 통과한 경우에만 flymake-mode 를 켜는 함수를 추가한다.
사용예:
(yoonkn-enable-flymake-mode \"\\`/home/yoonkn/scratch/voceweb/mao\" 'c-mode-common-hook)"
`(add-hook ,hook '(lambda ()
(let ((path (buffer-file-name)))
(when (and path (string-match ,pattern path))
(flymake-mode-on))))))
(defmacro defproject/yoonkn (name root builddir buildcmd &optional flymake-enable-modes)
"per-directory 로컬변수 세팅이 반복되는 작업이라 매크로를 만들었다.
사용예:
(defproject/yoonkn 'mao \"~/scratch/voceweb/mao\" \"~/tmp/mao\" \"make \" '(c-mode-common-hook))
(defproject/yoonkn 'boost \"~/scratch/boost\" \"~/tmp/boost\" \"make \")
"
`(progn
(define-project-bindings ,name
'((nil . ((yoonkn-build-option . ((build-directory . ,builddir)
(build-command . ,buildcmd)))))))
(set-directory-project ,root ,name)
;; flymake-enable-modes 가 지정된경우 각각의 모드마다 후킹함수 추가
(loop for mode in ,flymake-enable-modes
collect (yoonkn-enable-flymake-mode (concat "\\`" (expand-file-name ,root)) mode))))
;;;; cmake-mode
(add-to-list 'auto-mode-alist '("\\`CMakeLists\\.txt\\'" . cmake-mode))
(add-to-list 'auto-mode-alist '("\\.cmake\\'" . cmake-mode))
(autoload 'cmake-mode "~/emacs/cmake-mode.el" t)
;;;; psvn.el subversion 지원
;; ~/emacs 폴더 안에 psvn.el(http://www.xsteve.at/prg/emacs/psvn.el) 을 집어넣었다.
;; vim 의 subversion 지원 플러그인보다 불편한것 같다
;; http://www.xsteve.at/prg/index.html 는 좋은 내용이 많으니 한번씩 가보자
;; 이곳의 .emacs 는 내가 지금까지 본것중에는 가장 방대하더라
(add-to-list 'load-path "~/emacs")
(require 'psvn)
(setq svn-status-default-log-arguments "--verbose")
;;;; F12 키를 누르면 *svn-status* 를 바로 보도록
;; 내가주로 코딩을 할때 svn-status 를 자주 쓰기때문에 이렇게 만들어 둔다.
;; F12 에 매핑할 가치가 있다..
;;
;; (mapcar #'buffer-name (buffer-list)) 로 현재 버퍼들의 이름을 따오고
;; (remove-if-not .. ) 로 *svn-statur* 를 찾아서
;; 있다면, switch-to-buffer
;; 없다면 svn-status 를 실행
;;
(defun switch-to-svn-status-buffer ()
"if there is a buffer named *svn-statys*, switch to it.
or execute svn-status"
(interactive)
(if (remove-if-not #'(lambda (x) (string-equal "*svn-status*" x))
(mapcar #'buffer-name (buffer-list)))
(switch-to-buffer "*svn-status*")
(call-interactively 'svn-status)))
;; (global-set-key [(f12)] 'switch-to-svn-status-buffer)
;;;; 이건 C-u F12 로 현재 버퍼 기억, F12 로 그 버퍼로 점프
(defun yoonkn/quick-switch-buffer ()
"f12 에 매핑을 했다면 C-u f12 를 눌러서 현재 버퍼를 기억해두고
f12 를 누르면 그 버퍼로 뿅"
(interactive)
(if current-prefix-arg
(setq yoonkn/quick-switch-buffer-registered (current-buffer))
(switch-to-buffer yoonkn/quick-switch-buffer-registered)))
(global-set-key [(f12)] 'yoonkn/quick-switch-buffer)
;;;; darcsum.el
;; http://chneukirchen.org/repos/darcsum/
;; http://darcs.net/DarcsWiki/DarcsumMode
;;
;; 전에는 에러가 나서 못쓰고있었는데, 갑자기 생각나서 새버전을 받아보니
;; 잘 돌아가더라. M-F12 를 darcsum-whatsnew 에 매핑도 해둔다.
;; (require 'darcsum)
;; (defun switch-to-darcsum-buffer ()
;; (interactive)
;; (if (remove-if-not #'(lambda (x) (string-equal "*darcs*" x))
;; (mapcar #'buffer-name (buffer-list)))
;; (switch-to-buffer "*darcs*")
;; (call-interactively 'darcsum-whatsnew)))
;; (global-set-key [(meta f12)] 'switch-to-darcsum-buffer)
;;;; ediff 설정
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(setq ediff-split-window-function 'split-window-horizontally)
;;;; auto-insert 설정들
;; http://www.emacswiki.org/cgi-bin/wiki/AutoInsertMode
;; 의 내용을 바탕으로 한다.
(require 'autoinsert)
(auto-insert-mode)
(setq auto-insert-directory "~/emacs/autoinsert/")
(setq auto-insert-query nil)
(define-auto-insert "\\<Makefile\\'" "autoinsert.makefile")
(define-auto-insert "\\.py\\'" "autoinsert.py")
(define-auto-insert "\\.pyw\\'" "autoinsert.py")
(define-auto-insert "\\TODO\\'" "autoinsert.org")
(define-auto-insert "\\README\\'" "autoinsert.org")
;;(define-auto-insert ".emacs-dirvars" "emacs-dirvars")
(define-auto-insert "\\<CMakeLists\\.txt\\'" "CMakeLists.txt")
(define-auto-insert "\\<version\\.cmake\\'" "version.cmake")
(define-auto-insert "\\<misc\\.cmake\\'" "misc.cmake")
(define-auto-insert "\\.erl\\'" "foo.erl")
(define-auto-insert "\\.hgignore\\'" "hgignore")
(define-auto-insert "^\\.dired$" "autoinsert.dired")
(define-auto-insert "\\<build.xml\\'" "build.xml")
(define-auto-insert "\\<minunit\\.h\\'" "minunit.h")
;; (define-auto-insert "\\<\\.dir-settings.el\\'" "autoinsert.dir-settings.el")
(setq auto-insert-alist
(append auto-insert-alist
`((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header")
"" (yoonkn-auto-insert-cpp-header))
(("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ body")
"" (yoonkn-auto-insert-cpp-body))
(("\\.emacs-dirvars\\'" . ".emacs-dirvars")
"" (yoonkn-auto-insert-emacs-dirvars)))))
(defun yoonkn-auto-insert-cpp-header ()
"__HEADER_H__ 형태의 가드를 삽입한다"
(let ((guard (upcase
(replace-regexp-in-string "\\." "_"
(file-relative-name (buffer-file-name))))))
(format "#pragma once
#ifndef __%s__
#define __%s__
#endif // #ifndef __%s__" guard guard guard)))
(defun yoonkn-auto-insert-cpp-body ()
(let*
((stem
(file-name-sans-extension buffer-file-name))
(header (cond
((file-exists-p (concat stem ".h"))
(file-name-nondirectory (concat stem ".h")))
((file-exists-p (concat stem ".hpp"))
(file-name-nondirectory (concat stem ".hpp")))
((file-exists-p (concat stem ".hh"))
(file-name-nondirectory (concat stem ".hh"))))))
(format "#include \"%s\"
" header)))
;; yoonkn-build 를 주로 windows, msvc 에서만 쓰다 보니 .emacs-dirvars
;; 생성시 msvc 용의 yoonkn-build-option 을 만들도록 했다.
(defun yoonkn-auto-insert-emacs-dirvars ()
(let* ((dir default-directory)
(sln (concat (file-name-nondirectory (directory-file-name dir)) ".sln"))
(cmd (format "run-devenv /build Debug %s" sln)))
(format "yoonkn-build-option: ((source-directory . \"%s\") (build-directory . \"%s\") (build-command . \"%s\"))"
dir dir cmd)))
;;;; cedet 설정
;; http://cedet.sourceforge.net/ 에서 받을수 있다.
;; http://xtalk.msk.su/~ott/en/writings/emacs-devenv/EmacsCedet.html 참고
(let ((cedet-mode-path "~/.emacs.d/cedet-1.0pre6"))
(when (file-accessible-directory-p cedet-mode-path)
(load-file (format "%s/common/cedet.el" cedet-mode-path))
(global-ede-mode 1)
(semantic-load-enable-code-helpers)
(global-srecode-minor-mode 1)
(require 'semantic-ia)
(require 'semantic-gcc)
(semantic-add-system-include "/home/yoonkn/boost/include/boost-1_38" 'c++-mode)
(require 'semanticdb)
(global-semanticdb-minor-mode 1)
;(require 'semanticdb-global)
;(semanticdb-enable-gnu-global-databases 'c-mode)
;(semanticdb-enable-gnu-global-databases 'c++-mode)
;(semantic-load-enable-all-exuberent-ctags-support)
(global-semantic-tag-folding-mode 1)
))
(when nil
(with-extra-package
"cedet-1.0pre4"
(setq semantic-load-turn-useful-things-on t)
(if unixp
(require 'cedet) ; ubuntu 에서는 require 로 충분
(load (format "%s/cedet-1.0pre4/common/cedet" extra-packages))) ; require 가 안되서 드럽네
;; 보기 흉한것들은 꺼버렸다
(global-semantic-decoration-mode -1)
(global-semantic-stickyfunc-mode -1)
;; semantic 이 쓰는 includepath 인데, ffap 의 설정과 유사하니 재사용한다.
(setq semantic-default-c-path ffap-c-path)
;;imenu 와 semantic
(add-hook 'semantic-init-hooks (lambda ()
(imenu-add-to-menubar "Tokens")))
;; semantic database
;; 이부분은 머신마다 다르니, office.el 또는 home.el 등에서 설정하자.
(require 'semanticdb)
(global-semanticdb-minor-mode 1)
(setq semanticdb-project-roots
(list "d:/src/rrun"
"d:/src/Cleopatra/chairking"))))
;;;; ecb 설정
;; http://ecb.sourceforge.net/
(with-extra-package
"ecb-2.32"
(require 'ecb-autoloads)
;; 윈도스럽게, 왼쪽버튼과 오른쪽 버튼을 쓰는게 편하다.
(setq ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))
;; 초기 팁 알려주는거 끈다
(setq ecb-tip-of-the-day nil)
;; ecb-source-path 를 세팅해두면 좀더 편해진다.
;; cedet 와 같이 ffap-c-path 를 재사용했다.
(add-hook 'ecb-activate-hook
'(lambda ()
(setq ecb-source-path
(append ecb-source-path ffap-c-path))))
;; method-buffer 외에는 별 필요가 없어보인다.(vim 의 TagList 를 원하고 있기 때문에)
;; 음 ecb-layout-name 은 setq 로 지정하지 말고 customize 로만 바꿔야 한다고 문서에 있네..
;; 일단 주석처리 한다.
;;(setq ecb-layout-name "left9")
)
;;;; renumber regeion
;; http://www.emacswiki.org/cgi-bin/wiki/RenumberList
;; 주석문 안의 region 에는 적용안되는게 좀 아쉽다.
;; 그냥 정규식에 * 이후도 포함하게 해버릴까?
;; 모드마다 주석인지 감지해서 돌아갔으면 좋겠는데..
(defun renumber-list (start end &optional num)
"Renumber the list items in the current START..END region.
If optional prefix arg NUM is given, start numbering from that number
instead of 1."
(interactive "*r\np")
(save-excursion
(goto-char start)
(setq num (or num 1))
(save-match-data
(while (re-search-forward "^[0-9]+" end t)
(replace-match (number-to-string num))
(setq num (1+ num))))))
;;;; vim 의 % 처럼, 짝이 맞는 괄호를 찾아주는 놈
;; http://www.emacswiki.org/cgi-bin/wiki/MatchParenthesis
;; 에서 가져왔다.
(defun match-paren ()
"% command of vi"
(interactive)
(let ((char (char-after (point))))
(cond ((memq char '(?\( ?\{ ?\[))
(forward-sexp 1)
(backward-char 1))
((memq char '(?\) ?\} ?\]))
(forward-char 1)
(backward-sexp 1))
(t (call-interactively 'self-insert-command)))))
;; (defun match-paren (arg)
;; "Go to the matching paren if on a paren; otherwise insert %."
;; (interactive "p")
;; (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
;; ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
;; (t (self-insert-command (or arg 1)))))
;; % 에 바로 바인딩했다.
;; 필요하다면, C-q % 를 쓰자
(global-set-key (kbd "%") 'match-paren)
;;;; timestamp 입력
;; 나중에 주석을 달고 자동으로 넣는다던지.. 등등할때 쓸려고 만들어 둔다.
;; howm-mode 인경우엔 [2005-06-08] 의 형태로 입력하도록 했다.
;; 추후에도 특별한 상황에 특별한 포맷스트링을 쓰려면, cond 부분에 적당히 추가해주면 된다.
(defun yoonkn-insert-timestamp ()
(interactive)
(insert (format-time-string
(cond ((and (featurep 'howm) howm-mode) "[%Y-%m-%d]")
(t "%Y/%m/%d %H:%M:%S")))))
(global-set-key (kbd "ESC ESC tm") 'yoonkn-insert-timestamp) ; tm 은 time 의 tm
;;;; emacs-lisp-mode 설정
(add-hook 'emacs-lisp-mode-hook
(lambda ()
(progn
(eldoc-mode 1)
;; hs-minor-mode 가 더 어울리겠지만, 주석 ;;;; 로 아웃아리닝을 하기위해서
;; outline-minor-mode 를 골랐다. hs-minor-mode 를 켜고 정규식을 바꿔주려고 했는데
;; 방법을 아직 못찾았다.
(outline-minor-mode 1)
(local-set-key (kbd "RET") 'newline-and-indent)
(setq indent-tabs-mode nil))))
;;;; Xref 설정. 이거 아주 좋은데 상용인게 문제
;; (when (file-exists-p "~/.emacs_plugin/xref")
;; (setq exec-path (cons "~/.emacs_plugin/xref" exec-path))
;; (setq load-path (cons "~/.emacs_plugin/xref/emacs" load-path))
;; (load "xrefactory"))
;;;; python-mode 설정
;; http://sourceforge.net/projects/python-mode/ 의 python-mode 를 받아 설치해야만 한다.
(when win32p
(with-extra-package
"python-mode-1.0"
(setq auto-mode-alist (cons '("\\.py\\'" . python-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.pyw\\'" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist (cons '("python" . python-mode)
interpreter-mode-alist))
(autoload 'python-mode "python-mode" "Python editing mode." t)))
;; emacs 22 부터는 eldoc-mode 가 python 지원
(add-hook 'python-mode-hook
'(lambda () (eldoc-mode 1)) t)
;;; python flymake
;; pylint 와 http://www.emacswiki.org/cgi-bin/wiki/PythonMode 의 epylint 스크립트가 필요
(when (load "flymake" t)
(defun flymake-pylint-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(list "epylint" (list local-file))))
(add-to-list 'flymake-allowed-file-name-masks
'("\\.py\\'" flymake-pylint-init)))
(add-hook 'python-mode-hook
'(lambda () (flymake-mode 1)))
;; ffap 에 python module 을 찾는 기능을 넣기 위해서, 구글링해서 가져온 코드들
;;
;; ffap.py 의 내용은 아래와 같다.
;; import imp, sys, string
;;
;; def find(parts, path=None):
;; top = parts[0]
;; file, pathname, stuff = imp.find_module(top, path)
;; if not parts[1:]:
;; return pathname
;; mod = imp.load_module(top, file, pathname, stuff)
;; return find(parts[1:], mod.__path__)
;;
;; if __name__ == '__main__':
;; try:
;; sys.stdout.write(find(string.split(sys.argv[1], '.')))
;; except ImportError:
;; pass
(defun ffap-python ()
(interactive)
(let ((keyword (word-at-point))) ; word-at-point 가 어쩌구.저쩌구 에서 저쩌구 만 가져오기 때문에 깔끔하게 돌지 못하더라.
(let ((text (shell-command-to-string
(format "cmd.exe /c \"%s\" %s"
(expand-file-name "~/emacs/ffap.py")
(read-from-minibuffer "module? " keyword)))))
(find-file text))))
;;;; scons
(add-to-list 'auto-mode-alist '("\\`SConstruct\\'" . python-mode))
(define-auto-insert "\\`SConstruct\\'" "SConstruct")
;;;; ispell 설정
;; 영어로 주석을 달기 위해서 flyspell-prog-mode 를 쓰고싶었는데,
;; 이거 켜니까 너무 느리구나.
;; 그냥 aspell 깔아만 둔다.
;; aspell 은 http://aspell.sourceforge.net/ 에서 윈도용 포트도 받을수 있다.
(when win32p
(setq-default ispell-program-name "C:\\Program Files\\Aspell\\bin\\aspell"))
(when unixp
(setq-default ispell-program-name "aspell"))
;;;; table.el 사용
;; http://table.sourceforge.net/
;; 테이블 작성할때 괜찮아 보이길래 주워왔다.
;; M-x table-insert 로 사용시작.
;; 역시 한글은 잘 안된다.
;; 폰트를 다른것으로 바꿔보면 제대로 보이게 되는데,
;; 음 왜 쿠리어로는 안되지?
;; 프비에서 fixed 폰트를 쓰면 정상으로 보이더라.
;; 내가 주로 쓰는 쿠리어뉴, 루시다, 선 라운드고딕은 모두 비정상이다.
;; (require 'table)
;;;; RSS reader, newsticker.el 설정
;; SharpReader 로 대체했다.
;; newsticker.el 은 많은 사이트를 등록했을때 느려지는 현상이 있더라.
;; 동작하는 방식은 newsticker.el 에 만족을 하지만
;; 어쩔수 없이 SharpReader 로 옮겨갔다
;; http://www.nongnu.org/newsticker/ (http://savannah.nongnu.org/projects/newsticker/)
;; M-x newsticker-start 로 시작
;; M-x newsticker-show-news 로 뉴스를 보면 된다.
;; newsticker-url-list 는 4개의 element 를 가지는데, 각각
;; (이름 주소 시작시각 인터벌)
;; 이다.( \C-h v newsticker-url-list 로 좀더 자세한 도움말)
;; (autoload 'newsticker-start "newsticker" "Emacs Newsticker" t)
;; (setq newsticker-url-list
;; '(
;; ;;; 한글 사이트
;; ;;("bbs.kldp.org" "http://bbs.kldp.org/rss.php" nil 1800)
;; ("gpwiki" "http://gpwiki.org/index.php?title=Special:Recentchanges&feed=rss" nil 3600)
;; ("bsdforum.or.kr" "http://bsdforum.or.kr/rss.php" nil 3600)
;; ("GPG" "http://www.gpgstudy.com/forum_rdf.php" nil 3600)
;; ;;("database.sarang.net" "http://database.sarang.net/rss.php" nil 3600) ; 으.. 이거 깨진다. 인코딩문제인듯?
;; ("bbspython" "http://bbs.python.or.kr/rss.php" nil 3600)
;; ;;("hanbit" "http://www.hanbitbook.co.kr/sync/rss.php" nil 3600)
;; ;;; 개발관련(영문)
;; ("SlashdotDeveloperSection" "http://developers.slashdot.org/developers.rss" nil 3600)
;; ("codeguru" "http://www.codeguru.com/icom_includes/feeds/codeguru/rss-cpp.xml" nil 3600)
;; ("codeproject" "http://www.codeproject.com/webservices/articlerss.aspx?cat=2" nil 3600)
;; ;;; MS 관련 http://msdn.microsoft.com/aboutmsdn/rss/
;; ("MSDN" "http://msdn.microsoft.com/rss.xml" nil 3600)
;; ("VisualC++" "http://msdn.microsoft.com/visualc/rss.xml" nil 3600)
;; ("MSDNTV" "http://msdn.microsoft.com/msdntv/rss.xml" nil 3600)
;; ("channel9" "http://channel9.msdn.com/rss.aspx" nil 3600)
;; ;;; 게임개발관련(영문)
;; ("gamasutra-news" "http://www.gamasutra.com/include/news_xml_include.xml" nil 3600)
;; ("gamasutra-fetures" "http://www.gamasutra.com/include/articles_xml_include.xml" nil 3600)
;; ("gamedev" "http://www.gamedev.net/xml/" nil 3600)
;; ;;; 뉴스
;; ("zdnet-news" "http://www.zdnet.com/2509-1_22-0-20.xml" nil 3600)
;; ))
;; ;; 읽지 않은 아이템들이 old 로 마킹되는것을 막았다.
;; (setq newsticker-automatically-mark-items-as-old nil)
;; ;; 헤더는 * 붙이고 로고이미지를 뺐다. 아이템마다는 ** 를 붙여서 outline-mode 삘이 나도록 했다.
;; ;; M-x customize-group newsticker 로 세팅한후 가져온값
;; ;; face 조절은 적당히 모니터에따라 커스터마이징해서 쓰자
;; (setq newsticker-heading-format "* %t %d %s")
;; (setq newsticker-item-format "** %t %d")
;; ;; wget 이 맛가는 경우가 있길래.
;; (setq newsticker-wget-arguments '("--timeout=30" "-q" "-O" "-"))
;; ;; 사무실과 집에서는 newsticker 처음부터 띄우자
;; ;;(when (or officep homep) (newsticker-start))
;; ;; ESC ESC rss 를 newsticker-show-news 에 바인딩
;; (global-set-key (kbd "ESC ESC rss") 'newsticker-show-news)
;;;; lua-mode 설정
;; lua-mode.el 은 구글링해서 lua 관련페이지에서 주워왔다.
;; 나중에 emacs 에 정식으로 lua-mode 가 지원되면 지우자
(require 'lua-mode)
;;;; w32-find-dired
;; http://www.emacswiki.org/cgi-bin/wiki/WThirtyTwoFindDired
;; w32-find-dired.el 때문에 findr.el 도 추가되었는데,
;; 이놈이 쏠쏠하다.
(require 'w32-find-dired)
;;;; Makefile.* 를 열때 makefile-mode 로 뜨도록
(add-to-list 'auto-mode-alist '("\\`Makefile\\.[[:alpha:]]*" . makefile-mode))
;;;; yoonkn-grep-project
;;
;; 아래 주석의 세줄은 이전버전의 yoonkn-grep-semantic-project-root 에서 배운것들로,
;; 힘들게 찾았던것이니 주석에 남겨둔다.
;;
;; convert-standard-filename 가 유닉스 스타일 path 를 윈도 스타일 path 로 바꿔주는 함수
;; elt 는 시퀀스(배열) 에서 n 번째 엘리먼트를 얻을때
;; 그리고 백쿼트, `(이건평가안되고 ,(이건평가된다)) 는 꼭 외워두자
;;
;; (defun yoonkn-grep-project ()
;; "현재 디렉토리, 또는 project-root 를 대상으로 gre-find(strfind.exe 를 이용한) 을 한다.
;; 만약 current-prefix-arg 가 지정되었거나, 현재 디렉토리가
;; 프로젝트관리하에 없다면 현재 디렉토리로 grep-find 를 하고,
;; current-prefix-arg 가 없고 현재 디렉토리가
;; semanticdb-project-roots 의 root 중 하나의 아래디렉토리라면 그
;; root 를 중심으로 findstr 를 한다"
;; (interactive)
;; (let ((project-root)
;; (command))
;; (setq project-root
;; (if current-prefix-arg
;; default-directory
;; (or
;; (let ((root nil)
;; (roots semanticdb-project-roots))
;; (while (and roots (not root))
;; (if (string-match
;; (concat "^" (regexp-quote (expand-file-name (car roots))))
;; (expand-file-name default-directory))
;; (setq root (car roots))
;; (setq roots (cdr roots))))
;; root)
;; default-directory)))
;; (setq command
;; (format "findstr /snD:\"%s\" *.el *.h *.cpp *.c *.py *.lisp *.org" project-root))
;; (set 'grep-find-command `(,command . ,(+ 17 (length project-root))))
;; (call-interactively 'grep-find)))
(defun yoonkn-grep-project ()
"yoonkn-build 에 지정된 src 디렉토리, 또는 현재 디렉토리를
대상으로 grep-find 를 한다. current-prefix-arg 가 있는경우엔 :src
를 무시하고 현재디렉토리를 대상으로 검색한다."
(interactive)
(let* ((project-root (expand-file-name (if current-prefix-arg
default-directory
(or (and (boundp 'yoonkn-build-option)
(cdr (assq 'source-directory yoonkn-build-option)))
default-directory))))
(grep-find-command (if win32p
(cons (format "findstr /snD:\"%s\" *.el *.h *.c *.cpp *.py *.lisp *.erl *.org " project-root)
(+ 17 (length project-root)))
(format "find %s -type f -print0 | xargs -0 -e grep -nH -e " project-root))))
(call-interactively 'grep-find)))
;; visual studio 의 키바인딩을 빌려왔다.
(global-set-key (kbd "C-S-f")
(if win32p
'yoonkn-grep-project
'grep-find))
;;;; ilisp-mode
;; gcl 을 과 함께 쓰기위한 ilisp 설정
;; (when (file-exists-p "~/.emacs_plugin/ilisp-20021222")
;; (add-to-list 'load-path "~/.emacs_plugin/ilisp-20021222")
;; (autoload 'gcl "ilisp" "Inferior GNU Common Lisp." t)
;; ;; 기본적으로 깔리는 gcl.bat 는 gcl binary 를 start 를 이용해 띄우고
;; ;; 있는데, 이럴경우 새창으로 떠버리기 때문에, emacs 내에서 같이 쓰지
;; ;; 못한다. start 를 제외한 gcl2.bat 를 만들어서 이놈을 불러주면 해결된다.
;; (setq gcl-program "C:/bin/GCL-2.6.5-ANSI/bin/gcl2.bat")
;; (setq inferior-lisp-program gcl-program)
;; (add-to-list 'auto-mode-alist '("\\.lisp\\'" . lisp-mode))
;; (add-to-list 'auto-mode-alist '("\\.lsp\\'" . lisp-mode))
;; (add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
;; (add-hook 'lisp-mode-hook '(lambda () (require 'ilisp)))
;; (setq common-lisp-hyperspec-root "file:/C:/bin/GCL-2.6.5-ANSI/doc/HyperSpec/")
;; (setq common-lisp-hyperspec-symbol-table "C:/bin/GCL-2.6.5-ANSI/doc/HyperSpec/Data/Map_Sym.txt")
;; ;; hyperspec-root
;; ;; (setq common-lisp-hyperspec-root
;; ;; "file:/home/joe/HyperSpec/")
;; ;; (setq common-lisp-hyperspec-symbol-table
;; ;; "/home/joe/HyperSpec/Data/Map_Sym.Txt")
;; )
;;;; paredit.el
;;; 이게 묘하게 기능이 많다. M-1 ( 등등 편한기능도 많고 이놈때문에
;;; 불편한점도 좀 있으니 잘 알아서 써먹자.
(autoload 'paredit-mode "paredit"
"Minor mode for pseudo-structurally editing Lisp code."
t)
;; http://www.emacswiki.org/cgi-bin/wiki/ParEdit 에서 주은 코드 이거 좋군
(mapc (lambda (mode)
(let ((hook (intern (concat (symbol-name mode)
"-mode-hook"))))
(add-hook hook (lambda () (paredit-mode +1)))))
'(emacs-lisp lisp inferior-lisp scheme clojure))
;;;; slime 설정
;; http://home.comcast.net/~bc19191/blog/040306.html 를 참고하자
;;
(when win32p ; 리눅스인경우는 clbuild 를 활용하기에 요로코롬
(with-extra-package
"slime"
(setq inferior-lisp-program "sbcl") ; SBCL 1.0 win32 용이 나와서 그놈을 써본다.
(setq slime-complete-symbol*-fancy t)
(require 'slime)
(add-hook 'lisp-mode-hook (lambda ()
(slime-mode t)
(setq indent-tabs-mode nil)))
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
;; If you don't want eldoc-like behavior, comment out the following line
;; (slime-autodoc-mode)
(add-to-list 'auto-mode-alist '("\\.lsp\\'" . lisp-mode))
(add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
;; clisp 은 euc-kr 과 친하지 않으니 utf-8 을 쓰도록 하자
(add-to-list 'file-coding-system-alist '("\\.lisp\\'" . utf-8))
(add-to-list 'file-coding-system-alist '("\\.cl\\'" . utf-8))
(add-to-list 'file-coding-system-alist '("\\.lsp\\'" . utf-8))
;; slime 이 utf-8 을 쓰도록 한다.
(setq slime-net-coding-system 'utf-8-unix)
(define-key slime-mode-map (kbd "M-<return>") 'slime-fuzzy-complete-symbol)
(defun indent-or-slime-complete-symbol ()
"포인트(커서)가 단어 끝에 위치했다면 slime-complete-symbol 을
부르고 아니라면 인덴트"
(interactive)
(if (looking-at "\\>")
(slime-complete-symbol)
(indent-according-to-mode)))
;; bind return key to newline-and-indent
(add-hook 'slime-mode-hook (lambda ()
(local-set-key (kbd "RET") 'newline-and-indent)
(local-set-key (kbd "TAB") 'indent-or-slime-complete-symbol)))
;; slime-mode 에서 인덴트가 elisp 스타일로 되는것을 막기위해
;; http://www.cliki.net/SLIME%20Tips 에서 얻은 팁
(add-hook 'lisp-mode-hook (lambda ()
(set (make-local-variable 'lisp-indent-function)
'common-lisp-indent-function)))
(slime-setup '(slime-fancy
slime-fancy-inspector
slime-tramp
slime-asdf
slime-indentation
slime-fontifying-fu))))
;; (eval-after-load "slime"
;; '(progn
;; (slime-setup '(slime-fancy
;; slime-fancy-inspector
;; slime-asdf
;; slime-indentation
;; slime-fontifying-fu))
;; (slime-autodoc-mode)
;; (setq slime-complete-symbol*-fancy t)
;; (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)))
;; (require 'slime)
;;;; webjump
;; 이전에 쓰던 yoonkn-help-* 함수들을 대신하기 위해서 webjump 를 이용한다.
;; 주로 코딩시 자주 쓰는 레퍼런스 사이트들을 등록할 생각.
(require 'webjump)
(global-set-key (kbd "ESC ESC bm") 'webjump) ; bm 은 bookmark 의미
(global-set-key (kbd "ESC ESC wj") 'webjump)
(setq webjump-sites
'(("emacs" . "http://www.gnu.org/software/emacs/manual/emacs.html")
("elisp-intro" . "http://www.gnu.org/software/emacs/emacs-lisp-intro/html_mono/emacs-lisp-intro.html")
("elisp-reference" . "http://www.gnu.org/software/emacs/elisp-manual/html_mono/elisp.html")
("msdn" . "http://msdn.microsoft.com/library/default.asp")
("msdn-forum" . "http://forums.microsoft.com/msdn/")
("iostream" . "http://www.cplusplus.com/ref/")
("stl" . "http://www.sgi.com/tech/stl/table_of_contents.html")
("sgi" . "http://www.sgi.com/tech/stl/")
("tr1" . "http://www.aristeia.com/EC3E/TR1_info.html")
("man" . "http://www.freebsd.org/cgi/man.cgi")
("wikipedia" . "http://en.wikipedia.org/wiki/Main_Page")
("koders" . "http://www.koders.com")
("c++faq" . "http://www.parashift.com/c++-faq-lite/index.html")
("python" . "http://www.python.org/doc/")
("erlang" . "http://www.erlang.org/doc.html")
("sbcl" . "http://www.sbcl.org/manual/")
("java" . "http://java.sun.com/javase/6/docs/api/")
("haskell" . "http://haskell.org/ghc/docs/latest/html/libraries/")))
;; ;;;; html-helper-mode
;; ;; http://www.nongnu.org/baol-hth/
;; ;; ASP,PHP 등을 편집하기 위한 모드
;; (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;; (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
;; (setq auto-mode-alist (cons '("\\.asp$" . html-helper-mode) auto-mode-alist))
;; (setq auto-mode-alist (cons '("\\.phtml$" . html-helper-mode) auto-mode-alist))
;;;; visual-basic-mode
;; http://www.nongnu.org/baol-hth/
;; html-helper-mode 지원을 위해서
;; (autoload 'visual-basic-mode "visual-basic-mode" "Visual Basic mode." t)
;; (setq auto-mode-alist (append '(("\\.\\(frm\\|bas\\|cls\\)$" .
;; visual-basic-mode)) auto-mode-alist))
;;;; folding mode
;; http://www.emacswiki.org/cgi-bin/wiki/FoldingMode
;; http://www.chrislott.org/geek/emacs/n2n_folding_mode.php
;; (if (load "folding" 'nomessage 'noerror)
;; (folding-mode-add-find-file-hook))
;;;; use GNU GLOBAL
;;
;; xgtags.el 를 잠시 써봤는데, gtags.el 의 동작이 더 맘에 들어서 원복
;;
(load "~/emacs/gtags")
(add-hook 'c-mode-common-hook
(lambda () (gtags-mode 1)))
(global-set-key "\C-c\M-." 'gtags-find-rtag) ; gtags-find-rtag 는 매핑해서 써야지
;; gtags-mode 상태에서는 C-S-f 를 gtags 의 기능을 이용하도록 하자
(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)))
;; 헐 힘들게 만들었다.
;; 리스트들을 join 해서 스트링으로 만드는것은 (mapconcat 'identity ffap-c-path "") 으로 하고
;; 거기에 loop collect 를 한번 써봤다.
;; (defun yoonkn%setenv-gtagslibpath (path-list)
;; (setenv "GTAGSLIBPATH"
;; (mapconcat 'identity
;; (loop for path in path-list
;; collect (concat (convert-standard-filename path) ";"))
;; ""
;; )))
;; 위의 함수를 이용해서 ffap-c-path 를 GTAGSLIBPATH 로 잡아주도록 하자.
;; dirvars.el 하고 같이 쓰려다 보니 find-file-hook 에 매달게 되었다.
;; 다른 hook 에 매달면 dirvars.el 통해서 ffap-c-path 가 바뀌기 전에 불려버리네..
;; (add-hook 'find-file-hook
;; '(lambda () (yoonkn%setenv-gtagslibpath ffap-c-path)))
;;;; use xcscope.el
;; 요거 존내 좋구나
;; gtags 의 깔끔함이 더 맘에 들지만 이것도 세팅해둔다
;; cscope-database-regexps 설정은 office.el 에 해둔다.
;; cscope 설치후엔 INCLUDEDIRS 환경변수를 잡는것을 잊지 말자
(require 'xcscope)
(defun yoonkn%select-other-window ()
"cscope-bury-buffer 가 오동작하길래 땜빵으로 만들었다"
(interactive)
(message "cscope-bury-buffer 가 정상작동하는지 확인해보고 이거 지워라!")
(select-window (previous-window))
(delete-other-windows))
(define-key cscope-list-entry-keymap [(return)] 'cscope-select-entry-one-window)
(define-key cscope-list-entry-keymap "q" 'yoonkn%select-other-window)
;;;; cdb-gud.el
;; MS 의 cdb.exe 를 쓰기 위해
;; http://www.emacswiki.org/elisp/cdb-gud.el
;; (load "cdb-gud")
;;;; quack.el
;; SICP 를 공부하기 위해서 scheme 모드를 설치했다.
;; http://www.neilvandyke.org/quack/
;; (setq quack-pltcollect-dirs '("C:/Program Files/PLT/collects/"))
;; (require 'quack)
;;;; howm
;; http://howm.sourceforge.jp/ 에서 받을수 있다.
;; planner 보다 좀더 나은듯
;;
;; NOTE 음. EmacsW32 의 문제인가.. emacs 를 새로 깔았더니 howm 을
;; .emacs 실행중에 읽으면 안되고 user init 이 다 끝난후에 불러야만
;; 로딩이 되는 문제가 있어서 window-setup-hook 에 매달아 뒀다.
(when nil
(add-to-list 'auto-mode-alist '("\\.howm$" . org-mode))
(add-hook 'window-setup-hook
(lambda ()
(with-extra-package
"howm-1.3.4"
(add-hook 'org-mode-hook 'howm-mode)
(let ((howm-installed-path (format "%s/howm-1.3.4" extra-packages)))
(defconst howm-en-dir (expand-file-name (concat howm-installed-path "/en")))
(add-to-list 'load-path howm-installed-path)
(setf howm-directory "~/emacs/howm/")
(require 'howm)
(setf howm-menu-todo-priority (- howm-huge-))))))) ; 지나간 TODO 들이 표시되는것을 막았다. 버전1.3.3 부터 이러더라.
;;;; RFC 가져오기
;; http://emacswiki.org/cgi-bin/wiki/JorgenSchaefersEmacsConfig
;; M-x rfc 후 0 또는 원하는 rfc 문서번호를 넣는다.
;; RFC 를 가져오는것 자체보다, 여러가지로 응용해볼만한 함수
(defun rfc (num)
"Show RFC NUM in a buffer."
(interactive "nRFC (0 for index): ")
(let ((url (if (zerop num)
"http://www.ietf.org/iesg/1rfc_index.txt"
(format "http://www.ietf.org/rfc/rfc%i.txt" num)))
(buf (get-buffer-create "*RFC*")))
(with-current-buffer buf
(let ((inhibit-read-only t))
(delete-region (point-min) (point-max))
(let ((proc (start-process "wget" buf "wget" "-q" "-O" "-" url)))
(set-process-sentinel proc 'rfc-sentinel))
(message "Getting RFC %i..." num)))))
(defun rfc-sentinel (proc event)
"Sentinel for `rfc'."
(with-current-buffer (process-buffer proc)
(goto-char (point-min))
(view-mode 1)
(when (fboundp 'rfcview-mode)
(rfcview-mode)))
(display-buffer (process-buffer proc)))
;;;; dired-do-kill-comment dired 모드중 선택된 파일의 주석 제거
;; 공부겸 짜봤다.
;; save-current-buffer, set-buffer, save-buffer 의 사용법과
;; dolist, dired-get-marked-files, find-file-noselect, 그외
;; count-lines, point-min, point-max 등의 용법을 봐두자.
(defun dired-do-kill-comment ()
"dired 모드중 선택된 파일들의 주석들을 지워준다. kill-comment 를
이용하기 때문에 주석이 지워지고 난후 공백이 남는다."
(interactive)
(dolist (file (dired-get-marked-files))
(save-current-buffer
(set-buffer (find-file-noselect file))
(message "%s 의 주석을 지우는 중입니다." file)
(kill-comment (count-lines (point-min) (point-max)))
(when (buffer-modified-p)
(message "%s 의 주석을 지웠습니다." file)
(save-buffer)))))
;;;; yoonkn-fortune
;; shell-command-to-string 의 함수를 몰랐을때는
;; (insert
;; (with-temp-buffer
;; (shell-command "fortune" t)
;; (buffer-string))))
;; 이렇게 만들어 썼었다.
;; (with-temp-buffer ... (buffer-string))
;; 은 기억해둘만한 표현이라 주석으로 남겨둔다.
(defun yoonkn-fortune ()
"시작시 fortune 을 보려고
http://www.pie.pe.kr/cgi-bin/moin.cgi/stupid_fortune_for_win32
를 짜고, 이런 함수를 만든다."
(interactive)
(insert (shell-command-to-string "fortune")))
;;;; yoonkn/create-file
;; emacs 초기화과정에 필요한 파일이 없는경우 그 파일을 생성해내기
;; 위해서 만든 함수인데 이걸 만든 현재는 아직 적용하지는 않았다. 대강
;; 만들어보고 테스트까지만 끝낸 상태.
(defun yoonkn/create-file (path content &optional overwrite)
"content 의 내용을 가지는 path 파일을 생성한다. 이미 파일이
존재하는 경우는 아무일도 하지 않지만, overwrite 가 t 로 주어지면
파일을 새로 덮어 쓰게 된다."
(interactive)
(when (or (not (file-exists-p path))
(eql overwrite t))
(set-buffer (find-file-noselect path))
(erase-buffer)
(insert content)
(save-buffer)
(kill-buffer nil)))
;;;; muse-mode
;;; 홈: http://www.mwolson.org/projects/MuseMode.html
;;; 문서: http://www.mwolson.org/static/doc/muse.html
(with-extra-package
"muse/lisp"
(require 'muse-mode)
(require 'muse-html)
(require 'muse-wiki)
;; (define-auto-insert "\\.muse\\'" "autoinsert.muse")
;; (add-to-list 'auto-mode-alist '("\\.muse\\'" . muse-mode))
(add-hook 'muse-mode-hook 'footnote-mode)
(setq muse-html-charset-default "euc-kr")
(setq muse-html-style-sheet
"<style type=\"text/css\">
html {
background-color: white;
color: black;
font-family: 맑은고딕, Verdana, Tahoma, Arial, sans-serif;
font-size: 0.9em;
}
body {
margin-left: 2%
}
p {
margin-top: 1%;
margin-left: 1%;
}
h1 { font-size: 210% }
h2 { font-size: 200% }
h3 { font-size: 190% }
h4 { font-size: 180% }
table
{
margin: 0.5em 0 0 0.5em;
border-collapse: collapse;
}
td
{
padding: 0.25em 0.5em 0.25em 0.5em;
border: 1pt solid #ADB9CC;
}
td p {
margin: 0;
padding: 0;
}
pre {
padding: 5px;
border: 1pt solid #AEBDCC;
background-color: #F3F5F7;
font-family: Consolas, Bitstream Bera Sans Mono, courier new, courier, monospace;
margin-left: 3%;
white-space: pre;
}
</style>
")
)
;;;; planner-mode (muse 지원 추가된 신버전)
;;; 원래의 planner 에서 planner-muse 를 쓰다가 planner 에 muse 지원이
;;; 추가되어서 다시 planner 에 맞는 세팅으로 수정
;;; 도움말은 http://www.mwolson.org/static/doc/planner.html
(with-extra-package
"planner"
(setq planner-project "WikiPlanner")
(load "planner")
(require 'planner)
(setq muse-project-alist
'(("WikiPlanner"
("~/emacs/plans"
:default "TaskPool"
:major-mode planner-mode
:visit-link planner-visit-link)
(:base "xhtml" :path "~/emacs/published_plans"))))
(setq mark-diary-entries-in-calendar t))
;;;; yoonkn-choose-random-line
(defun yoonkn-choose-random-line ()
"현재 버퍼 내에서 랜덤하게 10줄의 내용을 뽑아 보여준다.
CD 리스트중 랜덤하게 내용을 뽑고싶을때가 있어서 만들었다.
기억해둘만한 elisp 사용들은,
현재 버퍼의 줄수를 세고, 그중에 하나를 뽑아내는 random-line-number
지정된 줄의 내용을 가져오는 get-line-text
위의 함수들을 보기쉽도록 구분한 flet 용법
dotime 를 통한 반복문
princ 를 통해서 human-readable 한 출력 ( 시험삼아 print 로 바꿔서 출력해보자 )
new line 을 넣어주는 terpri ( common-lisp 의 fresh-line 함수는 지원되지 않았다 )
"
(interactive)
(flet ((random-line-number () (random (count-lines (point-min) (point-max))))
(get-line-text (num)
(save-excursion
(goto-line num)
(buffer-substring
(line-beginning-position)
(line-end-position))))
(get-random-line ()
(get-line-text (random-line-number))))
(dotimes (x 10)
(princ (get-random-line))
(terpri))))
;;;; darcs
;; (add-to-list 'vc-handled-backends 'DARCS)
;;;; yoonkn-execute-program
;;; http://www.pie.pe.kr/cgi-bin/moin.cgi/EmacsAsLauncher
;;; emacs 를 어플리케이션 런처로 이용
;;; launchy 를 쓰게되면서 더이상 쓰지 않게됐다.
(setq yoonkn-executable-program-list
'(("emacs" . "c:/bin/emacs/bin/emacs")
("notepad" . "notepad.exe")
("cmd" . "cmd.exe")))
(defun yoonkn-execute-program ()
"간단한 런처 함수. QuickCut 이란 런처로부터 동기를 얻고 webjump
와 iswitchb 패키지를 참고해서 작성했다. howm 을 참고해서
메이저모드로 짜고싶었는데 일단 간단한 함수로 하나 만들어 두고
뒤로 미룬다.
;; (setq yoonkn-executable-program-list
;; (append '((\"notepad\" . \"notepad.exe\")
;; (\"emacs\" . \"c:/bin/emacs/bin/emacs.exe\"))
;; yoonkn-executable-program-list))
이런식으로 원하는 프로그램을 등록해서 사용하자
TODO: 인자를 줘서 실행하는것도 있어야 할거 같은데
TODO: 실행전 cwd 를 옮겨주는 작업도 있어야 될듯"
(interactive)
(let* ((item (assoc
(ido-completing-read
"실행할 프로그램은? "
(mapcar 'car yoonkn-executable-program-list))
yoonkn-executable-program-list))
(name (car item))
(program (cdr item)))
(w32-shell-execute "OPEN" program)))
(global-set-key [(super return)] 'yoonkn-execute-program) ; 윈도키+엔터
;;;; gnuserv
;;; 브라우저에서 소스보기등, 윈도우와 emacs 를 좀더 친하게 지내기위한 툴
;;; http://www.gnu.org/software/emacs/windows/faq3.html#TOC36 를 읽어보자
;;; 그리고 에러처리를 하는 예제이기도 하다. 위쪽의 코드들도 이런식으로 수정해야 할텐데..
;;;
;;; EmacsW32 로 갈아타며 주석처리했다. EmacsW32 에선 기본으로 띄워주기때문에 쫑나더라
;;;
;; (condition-case nil
;; (progn
;; (load-library "gnuserv")
;; (gnuserv-start)
;; (setq gnuserv-frame (selected-frame)))
;; (file-error "no gnuserv.el")
;; (error "unknown error"))
;;;; w3
;;; 너무 느린감이 있는데, cygwin 을 쓰지 않다보니 w3m 은 안되고,
;;; nero.el 은 모양이 덜이뻐서 이걸 깔았다
;; (let*
;; ((w3-dir "~/.emacs_plugin/w3-4.0pre.47/lisp")
;; (w3-exists (file-exists-p w3-dir)))
;; (when w3-exists
;; (add-to-list 'load-path w3-dir)
;; (require 'w3-auto)))
;;;; nero.el
;;; w3 은 너무 느리고 최신버전의 윈도용 lynx 를 배포하는곳을 찾은김에
;;; nero.el 도 로딩해둔다 win32 용 lynx 는 아래사이트에서 받자
;;; http://csant.info/lynx
;;;
;;; nero.el 은 http://www.ma.utexas.edu/~jcorneli/a/elisp/nero.el 에서
;;; 받을수있다
;;;
;;; NOTE: path 내에 포함된 공백때문에 문제가 생겨서 c:/bin/lynx 에
;;; 설치를 하고 c:/bin/lynx/lynx.bat 를 약간 수정해서 lynx2.bat 를
;;; 만들었다 전에 쓰던 구버전의 lynx 보다 좀더 피곤한듯
;;;
;;; -------- lynx2.bat ---------
;;; @set temp=c:\bin\lynx\tmp
;;; @set lynx_cfg=c:\bin\lynx\lynx.cfg
;;; @set lynx_lss=c:\bin\lynx\opaque.lss
;;; @c:\bin\lynx\lynx.exe %1 %2 %3 %4 %5
;;; ----------------------------
;; (load-library "nero")
;; (setq nero-lynx-program "c:/bin/lynx/lynx2.bat")
;; (setq nero-links-display-default nil)
;; (setq nero-default-coding-system 'euc-kr)
;;;; tramp-mode
;; /plink:yoonkn@111.111.111.11:/home/yoonkn/src/ 형태로 열면 된다.
;; 아직 자주 쓰지 않으니 상세한 설정은 나중에
(require 'tramp)
(setq tramp-auto-save-directory "c:/tmp"
tramp-default-method "plink"
tramp-password-end-of-line "\r\n")
;;;; graphviz-dot-mode
;; http://users.skynet.be/ppareit/projects/graphviz-dot-mode/graphviz-dot-mode.el
(load "~/emacs/graphviz-dot-mode")
;;;; httpcall function
;; 자주쓰게 되길래 걍 만들어버렸다.
(defun httpcall ()
(interactive)
(save-excursion
(let ((url (read-from-minibuffer "url: " "http://")))
(set-buffer (get-buffer-create "*httpcall*"))
(erase-buffer)
(insert-buffer (url-retrieve-synchronously url))
(switch-to-buffer "*httpcall*"))))
;;; gud 설정
(setq gdb-many-windows t) ; mingw 의 gdb 버전을 올리면 그럭저럭 잘 돌아가길래 이걸 기본으로 했다.
(global-set-key [f9] 'gud-break)
(global-set-key [f10] 'gud-next)
(global-set-key [f11] 'gud-step)
(global-set-key [(shift f11)] 'gud-finish)
(global-set-key [(shift f10)] '(lambda ()
(interactive)
(call-interactively 'gud-tbreak)
(call-interactively 'gud-cont)))
(global-set-key (kbd "C-x C-a C-c") 'gud-cont)
(global-set-key (kbd "C-x C-a C-w") 'gud-watch)
;;;; org-mode
;; 아직 여기 적용하지는 않고 org-customize 를 통해서만 세팅하고 있는데
;; org-hide-leading-stars 를 t 로 잡고 org-hide face 를 gray90 정도로
;; 잡으면 흰색바탕에서 보기 좋은 모양이 나온다.
(require 'org)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-to-list 'auto-mode-alist '("\\`TODO\\'" . org-mode))
(add-to-list 'auto-mode-alist '("\\`README\\'" . org-mode))
(global-set-key (kbd "ESC ESC <f12>") 'org-agenda) ; ESC ESC f12 로 org-agenda 띄우도록 했다.
(mapc #'(lambda (x) (add-to-list 'org-agenda-files x))
'("~/emacs/org/office.org"
"~/emacs/org/home.org"))
(setq org-log-done t
;; 시작할때 적절히 접은 상태로
org-startup-folded 'content
;; 태그로 검색했을때 너무 많이 걸리네. 태그상속은 끄자.
org-use-tag-inheritance nil
;; 헤더를 보여주는 * 들을 좀더 이쁘게 보자. org-face 페이스를
;; gray90 정도로 잡아주는것도 잊지말자. 여기서하는 하는 방법을
;; 모르겠네
org-hide-leading-stars t
)
;;; 매일매일 뭔가를 적을때도 org-mode 를 써먹자.
(defun yoonkn-today-org-note-name ()
"노트를 월단위로 작성하기 위해서 연도.월.org 의 이름을
리턴하도록 했다."
(let ((tm (decode-time (current-time))))
(format "~/emacs/org/%d.%02d.org" (nth 5 tm) (nth 4 tm))))
(defun yoonkn-today-node ()
(interactive)
(find-file (yoonkn-today-org-note-name)))
(global-set-key (kbd "ESC ESC M-<f12>") 'yoonkn-today-node)
;;;; F5 누르면 vsvars32.bat 먹은 cmd.exe 띄운다 윈도가 아니면 gnome-terminal 을 띄우자
(defun yoonkn-run-cmd ()
(interactive)
(if win32p
(w32-shell-execute "OPEN"
"cmd"
"/K \"c:\\Program Files\\Microsoft Visual Studio 8\\Common7\\Tools\\vsvars32.bat\"")
(start-process "gnome-terminal" nil "gnome-terminal")))
(global-set-key [(f5)] 'yoonkn-run-cmd)
;;;; meta-F5 누르면 탐색기
(global-set-key [(meta f5)]
'(lambda ()
(interactive)
(if win32p
(eshell/start ".")
(start-process "nautilus" nil "nautilus" "."))))
;;;; ocaml & F# 을 위한 tuareg-mode
(with-extra-package
"tuareg-mode-1.45.5"
(setq auto-mode-alist (cons '("\\.ml\\w?" . tuareg-mode) auto-mode-alist))
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
(autoload 'camldebug "camldebug" "Run the Caml debugger" t)
(add-hook 'tuareg-mode-hook
(lambda ()
(local-set-key (kbd "RET") 'newline-and-indent)))
;; 요건 F# 을 위한것
;; http://cs.hubfs.net/forums/thread/299.aspx 에서 주워왔다.
(setq auto-mode-alist (cons '("\\.fs\\w?" . tuareg-mode) auto-mode-alist))
(add-hook 'tuareg-mode-hook
'(lambda ()
(set (make-local-variable 'compile-command)
(concat "fsc \""
(file-name-nondirectory buffer-file-name)
"\"")))))
(add-to-list 'file-coding-system-alist '("\\.fs\\w?" . utf-8))
;;;; findr 해서 indent 하기
;; findr.el 이 필요
(defun indent-all-files (dir)
"지정된 디렉토리 아래에서 C 소스파일들을 찾아 indent
한다. 사용하기 전에 상황에 맞게 조금씩 수정하면서 사용하자."
(interactive "D")
(save-excursion
(dolist (file (findr "\\.c$\\|\\.h$" dir))
(unless (string-match "_darcs" file)
(set-buffer (find-file-noselect file))
(message "indenting %s..." file)
(mark-whole-buffer)
(call-interactively 'indent-region)
(when (buffer-modified-p)
(message "done.")
(save-buffer))
(kill-buffer (current-buffer))))))
;;;; d-mode.el
;;
;; http://www.prowiki.org/wiki4d/wiki.cgi?EditorSupport/EmacsEditor
;;
(autoload 'd-mode "d-mode" "Major mode for editing D code." t)
(add-to-list 'auto-mode-alist '("\\.d[i]?\\'" . d-mode))
;; Many of DMD's compilation error messages lack a category prefix
;; (like "Error" or "Warning"). Without the category, the messages
;; don't match Emacs' built-in error matching regexps used for M-x
;; next-error after a M-x compile. That makes M-x compile unable to
;; take you to the the file and line where the error is.
(add-to-list
'compilation-error-regexp-alist
'("^\\([^ \n]+\\)(\\([0-9]+\\)): \\(?:error\\|.\\|warnin\\(g\\)\\|remar\\(k\\)\\)"
1 2 nil (3 . 4)))
;;;; erlang
(when win32p
(when (file-accessible-directory-p "C:/Program Files/erl5.6")
(add-to-list 'load-path "C:/Program Files/erl5.6/lib/tools-2.6/emacs")
(setq erlang-root-dir "C:/Program Files/erl5.6")
(add-to-list 'exec-path "C:/Program Files/erl5.6/bin")
(require 'erlang-start)))
(when (featurep 'erlang-start)
(add-hook 'erlang-mode-hook
(lambda ()
(local-set-key (kbd "RET") 'newline-and-indent)
(flymake-mode 1)))
(defun flymake-erlang ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(list "erlc" (list local-file))))
(add-to-list 'flymake-allowed-file-name-masks
'("\\.erl\\'" flymake-erlang)))
;;;; wedisk lister
;; 짜다 말았다.
;; (defun wedisk ()
;; (interactive)
;; (let ((url "http://wedisk.co.kr/wedisk/wedisk.jsp?qrytype=2&ds=107&dasort=107&sorttype=0&rc=100&cate_ds=0&wordtype2=1&category=08&wordtype=1")
;; (inbuf (get-buffer-create "*wedisk-raw*"))
;; (outbuf (get-buffer-create "*wedisk*"))
;; (maxpage 10))
;; (flet ((output (msg)
;; (with-current-buffer outbuf
;; (goto-char (point-max))
;; (insert msg)))
;; (extract (text begin end)
;; (let* ((pos1 (+ (string-match begin text) (length begin)))
;; (pos2 (string-match end text pos1)))
;; (substring text pos1 pos2)))
;; (geturl (page) (format "%s&vp=%d" url page)))
;; (with-current-buffer outbuf
;; (delete-region (point-min) (point-max)))
;; (with-current-buffer inbuf
;; (loop for i from 1 to maxpage
;; do (progn
;; (delete-region (point-min) (point-max))
;; (output (format "======== %d 페이지 ========\n" i))
;; (insert-buffer (url-retrieve-synchronously (geturl i)))
;; (while (re-search-forward "<td title=.*>.*\n*.*javascript:openDnWin(.*)" nil t)
;; (let* ((text (match-string 0))
;; (title (extract text "title=\"" "\>"))
;; (id (extract text "javascript:openDnWin(" ", ")))
;; (output (format "%s: %s\n" id title))))))
;; (switch-to-buffer outbuf)))))
;; ;;;; global-modes
;; ;; 아래의 light-symbol-mode 를 전체 버퍼에 적용하기 위해서 가져왔다.
;; ;; (add-hook 'find-file-hook 'light-symbol-mode) 이런것도 되지 않을까?
;; (load-library "global-modes")
;; ;;;; light-symbol-mode
;; ;; 이거 좋드라. 뉴스그룹에서 본것. 아직 초기버전이니 생각날때마다
;; ;; 새버전 찾아보자
;; (load-library "light-symbol")
;; (make-minor-mode-global 'light-symbol-mode)
;; (global-light-symbol-mode 1)
;;;; lispdoc
;; http://bc.tech.coop/blog/070515.html
(defun lispdoc ()
"Searches lispdoc.com for SYMBOL, which is by default the symbol
currently under the curser"
(interactive)
(let* ((word-at-point (word-at-point))
(symbol-at-point (symbol-at-point))
(default (symbol-name symbol-at-point))
(inp (read-from-minibuffer
(if (or word-at-point symbol-at-point)
(concat "Symbol (default " default "): ")
"Symbol (no default): "))))
(if (and (string= inp "") (not word-at-point) (not
symbol-at-point))
(message "you didn't enter a symbol!")
(let ((search-type (read-from-minibuffer
"full-text (f) or basic (b) search (default b)? ")))
(browse-url (concat "http://lispdoc.com?q="
(if (string= inp "")
default
inp)
"&search="
(if (string-equal search-type "f")
"full+text+search"
"basic+search")))))))
;;;; rect-mark.el
;; http://www.emacswiki.org/cgi-bin/emacs-en/RectangleMark
(global-set-key (kbd "C-x r C-SPC") 'rm-set-mark)
(global-set-key (kbd "C-x r C-x") 'rm-exchange-point-and-mark)
(global-set-key (kbd "C-x r C-w") 'rm-kill-region)
(global-set-key (kbd "C-x r M-w") 'rm-kill-ring-save)
(autoload 'rm-set-mark "rect-mark"
"Set mark for rectangle." t)
(autoload 'rm-exchange-point-and-mark "rect-mark"
"Exchange point and mark for rectangle." t)
(autoload 'rm-kill-region "rect-mark"
"Kill a rectangular region and save it in the kill ring." t)
(autoload 'rm-kill-ring-save "rect-mark"
"Copy a rectangular region to the kill ring." t)
;;;; snippet.el
;; 이정도만 알아두면 쓰는데 지장없다.
;; $${blahblah} blahblah 기본값가진 필드
;; blahblah$> blahblah 입력후 인덴트
;; $. 커서위치
;; \n newline
;; 보기 흉해서 뉴라인을 모두 \n 으로 적어뒀으니 수정할 일이 있으면 \n
;; 을 뉴라인으로 바꿔서 수정후 다시 \n 으로 바꿔주자.
(require 'snippet)
(defun install-c++-snippet ()
(abbrev-mode 1)
(snippet-with-abbrev-table
'c++-mode-abbrev-table
("classx" . "class $${class}$>\n{$>\npublic:$>\n$${class}();$>\n~$${class}();$>\nprivate:$>\n$${class}(const $${class}& _);$>\n$${class}& operator=(const $${class}& _);$>\n};\n")
("doxx" . "/**$>\n* \\brief $${brief}$>\n*$>\n* $.$>\n*/$>")
))
(add-hook 'c++-mode-hook 'install-c++-snippet)
;;;; ebrowse
;; ebrowse-build.bat
;; {{{
;; @echo off
;; set find=c:/bin/find.exe
;; set tr=c:/bin/tr.exe
;; set ebrowse=c:/"Program Files"/Emacs/emacs/bin/ebrowse.exe
;; set srcdir=%1
;; set list1=%srcdir%/.ebrowse.filelist.1
;; set list2=%srcdir%/.ebrowse.filelist.2
;; set brdat=%srcdir%/BROWSE
;; %find% %srcdir% -type f -regex ".*\.\(h\|\hh\|\H\|hpp\|hxx\)" > %list1%
;; %find% %srcdir% -type f -regex ".*\.\(c\|\cc\|\C\|cpp\|cxx\)" >> %list1%
;; %tr% \\ / < %list1% > %list2%
;; %ebrowse% -f %list2% -o %brdat%
;; rm -f %list1%
;; rm -f %list2%
;; @echo on
;; }}}
(defun my-ebrowse-build (srcdir)
(w32-shell-execute "OPEN"
"ebrowse-build.bat"
srcdir))
(defun my-ebrowse-switch ()
(interactive)
(let* ((srcdir (expand-file-name (or (and (boundp 'yoonkn-build-option)
(cdr (assq 'source-directory yoonkn-build-option)))
default-directory)))
(ebrowse-file (format "%s/BROWSE" srcdir))
(ebrowse-buffer (get-buffer "*Tree*")))
(if current-prefix-arg
(progn
(when ebrowse-buffer (kill-buffer ebrowse-buffer))
(my-ebrowse-build srcdir))
(cond (ebrowse-buffer
(switch-to-buffer ebrowse-buffer))
((file-exists-p ebrowse-file)
(find-file ebrowse-file))
(t
(my-ebrowse-build srcdir))))))
(global-set-key [(meta f12)] 'my-ebrowse-switch)
;;;; anything
;;; 이거 정말 다양하게 응용이 가능할듯.
(require 'anything-config)
(global-set-key (kbd "ESC ESC aa") 'anything)
;;;; Per-Directory Local Variables 하고 anything 을 이용해서 프로젝트 관리
;;; define-project-bindings, set-directory-project 로 적절히 프로젝트를
;;; 세팅해 두면 그걸 anything 이 읽어서 dired 를 띄울수 있도록 해줬다.
(defun yoonkn-projects-candidates ()
(reverse ; reverse 안해주면 set-directory-project 역순으로 나온다
(mapcar #'(lambda (x)
(symbol-name (cdr x)))
project-directory-alist)))
(defun yoonkn-projects-get-dir (name)
(let* ((name-symbol (intern name))
(dir (car (find name-symbol project-directory-alist :key 'cdr))))
dir))
(defun yoonkn-projects-dired (name)
(dired (yoonkn-projects-get-dir name)))
(defun yoonkn-projects-psvn (name)
(psvn-status (yoonkn-projects-get-dir name)))
(setq anything-sources-my-projects
'((name . "내 프로젝트들")
(candidates . yoonkn-projects-candidates)
(action . (("dired 실행하기" . yoonkn-projects-dired)
("psvn 실행하기" . yoonkn-projects-psvn)))))
(pushnew anything-sources-my-projects anything-sources)
;;;; c-eldoc-mode
;;; 요즘은 C++ 보다 C 가 더 좋아져서 이놈을 깔아버렸다.
;;; c-eldoc-includes 를 세팅하면 라이브러리 함수들에도 적용이
;;; 가능하겠지만 적용 안했다.
(when unixp
(load "c-eldoc")
(add-hook 'c-mode-hook 'c-turn-on-eldoc-mode))
;;;; doc-mode
;;; http://nschum.de/src/emacs/doc-mode/
;;; 자주 쓸만한 커맨드는
;;; C-c d d : 문서 작성
;;; C-c d n : 문서 작성중 다음 수정항목으로
;;; C-c d t : 폴딩 토글
;;; C-c d C-f : 버퍼 전체 폴드
;;; C-c d C-u : 버퍼 전체 언폴드
;; (when unixp
;; (require 'doc-mode)
;; (add-hook 'c++-mode-hook 'doc-mode)
;; (add-hook 'c-mode-hook 'doc-mode)
;; (add-hook 'java-mode-hook 'doc-mode))
;;;; csharp mode
(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
(setq auto-mode-alist
(append '(("\\.cs$" . csharp-mode)) auto-mode-alist))
;;;; erc
(setq erc-default-coding-system '(euc-kr . undecided))
;; (add-to-list 'erc-encoding-coding-alist '("#foo" . iso-8859-1))
(setq erc-autojoin-channels-alist
'(("freenode.net" "#emacs" "#lisp" "#nethack" "#clojure")
("irc.hanirc.org" "#kldp" "#ubuntu" "#gnome")))
;; (erc-select :server "irc.freenode.net" :port 6667 :nick "yoonkn")
;; (erc-select :server "irc.hanirc.org" :port 6667 :nick "yoonkn")
;;;; flymake
;; (add-hook 'find-file-hook 'flymake-mode)
;;;; scratch 에 저장기능을 넣다니.. 염병
(add-hook 'emacs-startup-hook
(lambda ()
(when (get-buffer "*scratch*")
(with-current-buffer "*scratch*"
(auto-save-mode -1)
(setq buffer-offer-save nil)))))
;;;; gambit
(let ((gambit-path "C:/Program Files/Gambit-C/v4.0.1/share/emacs/site-lisp"))
(when (file-accessible-directory-p gambit-path)
(add-to-list 'load-path gambit-path)
;; http://www.iro.umontreal.ca/~gambit/doc/gambit-c.html#SEC28
(autoload 'gambit-inferior-mode "gambit" "Hook Gambit mode into cmuscheme.")
(autoload 'gambit-mode "gambit" "Hook Gambit mode into scheme.")
(add-hook 'inferior-scheme-mode-hook (function gambit-inferior-mode))
(add-hook 'scheme-mode-hook (function gambit-mode))
(setq scheme-program-name "gsi -:d-")))
;;;; mercurial
;; C-c h h 로 도움말을 읽어보자.
;; mercurial 패키지를 세가지를 섞어쓰다보니 코드가 요꼴이됐다. 언젠가 하나로 통일되면 나머진 지우자.
(when win32p
(load "C:/Program Files/TortoiseHg/Contrib/mercurial" t)
(load "C:/Program Files/Mercurial/Contrib/mercurial" t))
;; 이거 좀 오버스런 코드인데 내 .emacs 에 condition-case 쓴적이 없길래 이걸로 적어둔다.
(when unixp
(condition-case nil
(load-library "mercurial")
(error nil)))
(setq hg-outgoing-repository "default")
;;;; C-x m 을 누르면 gmail compose 창이 뜨도록 했다.
(defun yoonkn-compose-mail ()
(interactive)
(browse-url "http://mail.google.com/mail/?account_id=yoonkn%40gmail.com&view=comp&extsrc=ig"))
(global-set-key (kbd "C-x m") 'yoonkn-compose-mail)
;;;; google code search
;; http://www.hoetzel.info/Hacking/emacs/codesearch.el
;; 이거 정말 편하구나 M-x codesearch 로 검색어를 넣으면 현재 모드에 맞는 언어로 검색을 해준다.
(load-library "codesearch")
;;;; dired-x
;; dired-omit-files 를 쓰기 위해서..
(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
'(;; . 으로 시작하는놈들
"\\.hg\\'"
"\\.svn\\'"
"\\`\\." ; . 으로 시작하는놈은 걍 죄다 숨기자
;; emacs 가 만드는 파일들
"\\`semantic.cache\\'"
"\\.elc\\'"
;; 각종 태그 유틸리티들이 만드는 파일들
"\\`tags\\'"
"\\`TAGS\\'"
"\\`GPATH\\'"
"\\`GRTAGS\\'"
"\\`GSYMS\\'"
"\\`GTAGS\\'"
"\\`cscope.out\\'"
"\\`cscope.files\\'"
"\\`cscope.index\\'"
;; 몇몇 언어들이 만드는 중간파일들 (c/c++ 은 out of source build 를 하니 제외)
"\\.fas\\'"
"\\.fasl\\'"
"\\.pyc\\'"
"\\.pyo\\'"
"\\.beam\\'"
))
(add-hook 'dired-mode-hook '(lambda () (dired-omit-mode 1))) ; 단축키는 M-o
;;;; dired+.el
(require 'w32-browser)
(require 'dired-sort-menu)
;; sort 하려면 dired-mode 에서 C-d 눌러보자
(add-hook 'dired-load-hook
(lambda () (require 'dired-sort-menu)))
;;;; win32 일때 dired 모드에서 gid, uid 감추기
;; 이거 안해주면 보기싫게 나온다.
(when win32p
(setq ls-lisp-verbosity (delq 'uid ls-lisp-verbosity))
(setq ls-lisp-verbosity (delq 'gid ls-lisp-verbosity)))
;;;; ccrypt
;; http://ccrypt.sourceforge.net/
;; 개인정보를 담을때 써먹자. 확장자가 .cpt 인경우 적용된다.
;; 저장시에도 암호를 물어보는게 좀 귀찮은데 끄는 방법을 찾아봐야 할듯.
(let ((ccrypt-path "C:/bin/ccrypt"))
(when (file-accessible-directory-p ccrypt-path)
(add-to-list 'load-path ccrypt-path)
(add-to-list 'exec-path ccrypt-path)
(require 'jka-compr-ccrypt "jka-compr-ccrypt.el")))
;;;; nxml-mode
(let ((nxml-mode-path "~/.emacs.d/nxml-mode-20041004"))
(when (file-accessible-directory-p nxml-mode-path)
(load (format "%s/rng-auto" nxml-mode-path))
(add-to-list 'auto-mode-alist `(,(regexp-opt '("xml" "xsd" "sch" "rng" "xslt" "svg" "rss") t) . nxml-mode))))
;;;; rectangle
;;; * M-x delete-rectangle 직사각형 영역을 지운다.
;;; * M-x kill-rectangle 위의 명령과 비슷하다. 그러나, 지워지는 내용을 "last killed rectangle" 로 저장한다.
;;; * M-x yank-rectangle ``last killed rectangle''을 그것의 위 왼쪽 끝이 포인트 위치에 오도록 삽입한다.
;;; * M-x open-rectangle 직사각형영역을 빈 공간으로 채운다. 원래의 내용은 직사각형 영역 오른쪽으로 밀려난다.
;;; * M-x clear-rectangle 직사각형영역의 내용을 없에고 스페이스를 채운다.
;;; * M-x string-insert-rectangle 스트링 추가
;;; C-x r k 킬
;;; C-x r d 딜리트
;;; C-x r y yank
;;; C-x r o 빈공간 추가
(global-set-key (kbd "C-x r RET") 'string-insert-rectangle) ; 자주 쓸만한 놈이니 바인딩 해놓는다. C-x r i 를 하고 싶었는데 이미 쓰이길래 우선 엔터로.
;;;; haskell mode
;;; http://www.haskell.org/haskellwiki/Haskell_mode_for_Emacs#Obtaining_the_CVS_version
;;; haskell-font-lock-symbols 는 음.. 몇가지는 맘에 들고 몇가지는
;;; 아닌데 적절히 haskell-font-lock-symbols-alist 를 수정해서 쓰자.
(let ((haskell-mode-path "~/.emacs.d/haskell-mode-2.4"))
(when (file-accessible-directory-p haskell-mode-path)
(load (format "%s/haskell-site-file" haskell-mode-path))
(setq haskell-font-lock-symbols t)
(add-hook 'haskell-mode-hook (lambda () (local-set-key (kbd "RET") 'newline-and-indent)))
;(load "~/emacs/flymake-haskell")
;(add-hook 'haskell-mode-hook 'flymake-mode)
))
;;;; smart tab
;; http://www.emacswiki.org/cgi-bin/wiki/TabCompletion
;; tabkey2 라는놈으로 변경
;; (require 'smart-tab)
;; (global-set-key [(tab)] 'smart-tab)
;;;; tabkey2
;; http://www.emacswiki.org/cgi-bin/wiki/tabkey2.el
;; (require 'tabkey2)
;;;; smerge-mode
;; 이런것도 있구나. 현재 작업환경상 머지를 할일이 별로 없어서 당장
;; 이모드를 사용할 생각은 없는데 아래 코드는 여러가지로 응용이 가능할듯
;; 하다. find-file-hook 에 적당한 함수를 집어넣고 모드를
;; 제어하는것.. 언젠가 쓸날이 올것같다.
;; (defun sm-try-smerge ()
;; (save-excursion
;; (goto-char (point-min))
;; (when (re-search-forward "^<<<<<<< " nil t)
;; (smerge-mode 1))))
;; (add-hook 'find-file-hook 'sm-try-smerge t)
;;;; reddit.el
;; 내가 만든거.
(load "reddit")
;;;; yasnippet
;;; http://code.google.com/p/yasnippet/
(when (file-accessible-directory-p "~/.emacs.d/yasnippet")
(add-to-list 'load-path "~/.emacs.d/yasnippet")
(require 'yasnippet)
(yas/initialize)
(yas/load-directory "~/emacs/snippets/"))
;;;; htmlize
;; 웹에 긁어붙일때 유용하더라.
(setq htmlize-output-type 'inline-css)
(require 'htmlize-view)
;;;; etags-select
;; 이거 희한하네. 태그를 찾으면 그 태그위치로 가는게 아니고 해당
;; 파일에서 그 태그와 같은 단어가 나오는 첫번째 위치로 간다. 설마 이거
;; 의도한건가? 어쨌건 난 못쓰겠다.
;;
;; (require 'etags-select)
;; (global-set-key "\M-." 'etags-select-find-tag)
;;;; fullscreen 전체화면
;; http://www.emacswiki.org/cgi-bin/wiki/FullScreen
(when unixp
(defun fullscreen ()
(interactive)
(set-frame-parameter nil 'fullscreen
(if (frame-parameter nil 'fullscreen) nil 'fullboth))))
;;;; 자바스크립트 개발환경 ( moz 를 이용해서 REPL 까지 )
;;; http://wiki.github.com/bard/mozrepl/emacs-integration
(add-to-list 'auto-mode-alist '("\\.js\\'" . javascript-mode))
(autoload 'javascript-mode "javascript" nil t)
(autoload 'moz-minor-mode "moz" "Mozilla Minor and Inferior Mozilla Modes" t)
(add-hook 'javascript-mode-hook
(lambda ()
(moz-minor-mode 1)))
;;;; auto-complete-mode
;;; 자동완성을 별로 좋아하지 않지만... 있으면 편해지는건 사실이니 한번 써보자.
;;; http://www.emacswiki.org/emacs/AutoComplete
;;; http://www.emacswiki.org/emacs/AutoCompleteSources
;;; http://www.emacswiki.org/emacs/init-auto-complete.el
(require 'auto-complete)
(require 'auto-complete-extension)
(require 'ac-dabbrev)
(global-auto-complete-mode t)
(custom-set-variables
'(ac-sources
'(ac-source-words-in-buffer
ac-source-dabbrev)))
;;;; ysp, yoonkn-start-project
(require 'yoonkn-start-project)
;;;; 정규식
;; http://www.emacswiki.org/emacs/RegularExpression
;; 를 참고하자. 헷갈리는걸 적어둘까
;; \\`README\\' \` 와 \' 의 사용을 봐두자
;; \\.org\\' \. 을 봐두자
;;
;; http://www.emacswiki.org/emacs/ReplaceRegexp
;; 치환을 할때는 위링크 참고
;; (\.*\) 로.. \( 와 \) 로 묶어서 그룹을 만들고 이 그룹을 \1 또는 \2
;; 식으로 지칭할수 있다는정도만 머리에 넣어두자.
흠. 그나저나 예전에는 여러가지로 불편해서 남들 elisp 도 뒤져보고 내가 직접 만들어보는 삽질도 하고 했는데 요즘은 그야말로 불편한게 없어서 더이상 발전이 없네. 오랜만에 emacswiki 좀 구경가야겠다... 음 내일.. ㅎㅎ
댓글 없음:
댓글 쓰기