(setq load-path (cons (expand-file-name “~/.emacs.d/“) load-path))
(setenv “JAVA_HOME” “/System/Library/Frameworks/JavaVM.framework/Versions/CurrentJDK/Home”)
(setenv “CLASSPATH” “.”)
;; no backup file
;(setq make-backup-files nil)
(setq backup-directory-alist
‘((“.” . “/Users/OnlyUno/.emacs.d/backup-files”)))
;; column number
(column-number-mode t)
(global-hl-line-mode 1)
;; tab
(setq default-tab-width 4)
(setq-default c-basic-offset 4
tab-width 4
indent-tabs-mode nil)
;; key binding
(setq mac-command-modifier ‘meta)
(setq mac-option-modifier ‘hyper)
(global-set-key “\C-x\C-b” ‘buffer-menu)
(global-set-key [(hyper a)] ‘mark-whole-buffer)
(global-set-key [(hyper v)] ‘yank)
(global-set-key [(hyper c)] ‘kill-ring-save)
(global-set-key [(hyper x)] ‘kill-region)
(global-set-key [(hyper s)] ‘save-buffer)
(global-set-key [(hyper l)] ‘goto-line)
(global-set-key [(hyper o)] ‘find-file)
(global-set-key [(hyper f)] ‘isearch-forward)
(global-set-key [(hyper g)] ‘isearch-repeat-forward)
(global-set-key [(hyper w)]
(lambda () (interactive) (kill-buffer (current-buffer))))
(global-set-key [(hyper .)] ‘keyboard-quit)
;;yes or no -> y or n
(fset ‘yes-or-no-p ‘y-or-n-p)
;;yasnippet
(add-to-list ‘load-path
“~/.emacs.d/plugins”)
(require ‘yasnippet-bundle)
;; JDE
(add-to-list ‘load-path (expand-file-name “~/.emacs.d/site/cedet/latest/common”))
(add-to-list ‘load-path (expand-file-name “~/.emacs.d/site/cedet/latest/contrib”))
(require ‘cedet)
(add-to-list ‘load-path (expand-file-name “~/.emacs.d/site/ecb/latest/“))
(require ‘ecb)
(add-to-list ‘load-path (expand-file-name “~/.emacs.d/site/jdee/latest/lisp”))
(add-to-list ‘load-path (expand-file-name “~/.emacs.d/site/elib/latest”))
(require ‘jde)
(add-hook ‘jde-mode-hook
(function cscope:hook))
(setq defer-loding-jde t)
;; custom variable
(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.
‘(blink-cursor-mode t)
‘(column-number-mode t)
‘(current-language-environment “Korean”)
‘(delete-selection-mode t)
‘(ecb-options-version “2.40”)
‘(global-font-lock-mode t)
‘(global-linum-mode t)
‘(gnus-secondary-select-method nil)
‘(gnus-select-method (quote (nnml “”)))
‘(mail-sources (quote ((imap :server “
imap.gmail.com” :port 993 :user “아이디” :password “비밀번호” :stream ssl :fetchflag “
\\Seen”))))
‘(save-place t nil (saveplace))
‘(send-mail-function (quote smtpmail-send-it))
‘(show-paren-mode t)
‘(size-indication-mode t)
‘(smtpmail-auth-credentials (quote ((“
smtp.gmail.com” 587 “아이디
@gmail.com” “비밀번호”))))
‘(smtpmail-debug-info t)
‘(smtpmail-smtp-server “
smtp.gmail.com”)
‘(smtpmail-smtp-service 587)
‘(smtpmail-starttls-credentials (quote ((“
smtp.gmail.com” 587 “nil” “nil”))))
‘(transient-mark-mode t)
‘(user-full-name “이름”)
‘(user-mail-address “아이디
@gmail.com”))
;; custom faces
(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 (:inherit nil :stipple nil :background “white” :foreground “black” :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 110 :width normal :foundry “unknown” :family “Liberation Mono”)))))
;; slime
(setq inferior-lisp-program “/opt/local/bin/ccl64 -K utf-8”
lisp-indent-function ‘common-lisp-indent-function
slime-complete-symbol-function ‘slime-fuzzy-complete-symbol
slime-startup-animation nil
slime-enable-evaluate-in-emacs t
slime-log-events t
slime-outline-mode-in-events-buffer nil
slime-repl-return-behaviour :send-only-if-after-complete
slime-autodoc-use-multiline-p t
slime-highlight-compiler-notes t)
(add-to-list ‘load-path “/opt/local/share/emacs/site-lisp/slime”)
(require ‘slime)
(slime-setup ‘(slime-fancy))
;(set-language-environment “UTF-8”)
(set-language-environment “Korean”)
(set-terminal-coding-system ‘utf-8)
(set-keyboard-coding-system ‘utf-8)
(prefer-coding-system ‘utf-8)
(set-default-coding-systems ‘utf-8)
;(setq default-input-method “korean-hangul”)
;(set-input-method “korean-hangul”)
(setq slime-net-coding-system ‘utf-8-unix)
;; 한영전환 shift-space로 하기
;(global-set-key [?\S- ] ‘toggle-input-method)
(add-to-list ‘load-path “/opt/local/share/emacs/site-lisp”)
(require ‘xcscope)
;SECTION: ediff preferences
(setq ediff-ignore-similar-regions t)
(setq ediff-use-last-dir t)
(setq ediff-diff-options “ -b “)
;;ido-mode
;(define-key minibuffer-local-map [tab] ‘minibuffer-complete)
;(ido-mode t)
;(setq ido-enable-flex-matching t)
;(add-hook ‘ido-setup-hook
; (lambda ()
; (define-key ido-completion-map [tab] ‘ido-complete)))
;; org-mode
(add-to-list ‘load-path “/usr/share/emacs/23.1.50/lisp/org”)
(require ‘org)
(add-to-list ‘auto-mode-alist ‘(“
\\.org\\'” . org-mode))
(global-set-key “\C-cl” ‘org-store-link)
(global-set-key “\C-ca” ‘org-agenda)
(global-set-key “\C-cb” ‘org-iswitchb)
(setq org-log-done t)
(setq org-agenda-files (file-expand-wildcards “~/Document/MyWork/todo/org/*.org”))
;; w3m
(add-to-list ‘load-path “/opt/local/share/emacs/site-lisp/w3m”)
(require ‘w3m-load)
(require ‘w3m-e21)
(provide ‘w3m-e23)
;(require ‘mime-w3m)
(setq browse-url-browser-function ‘w3m-browse-url)
(autoload ‘w3m-browse-url “w3m” “Ask a WWW browser to show a URL.” t)
;; optional keyboard short-cut
(global-set-key “\C-xm” ‘browse-url-at-point)
(setq w3m-home-page “
http://www.google.com”)
(setq w3m-use-cookies t)
(setq w3m-coding-system ‘utf-8
w3m-file-coding-system ‘utf-8
w3m-file-name-coding-system ‘utf-8
w3m-input-coding-system ‘utf-8
w3m-output-coding-system ‘utf-8
w3m-terminal-coding-system ‘utf-8)
;; subversion
(require ‘psvn)
(require ‘vc-svn)
(setq svn-status-changelog-style ‘changelog)
(setq svn-status-hide-unknown t)
;; ignore case
(setq read-buffer-completion-ignore-case t)
(setq read-file-name-completion-ignore-case t)
;;tramp
(setq tramp-debug-buffer t)
(setq tramp-verbose 10)
(setq tramp-default-method “telnet”)