- ;; .emacs (Emacs 23)
;; Seungwon Jeong
;; 2008-11-24
;; Hangul font setting
(set-fontset-font "fontset-default" '(#x1100 . #xffdc) '("UnDotum" . "unicode-bmp"))
(set-fontset-font "fontset-default" '(#xe0bc . #xf66e) '("UnDotum" . "unicode-bmp"))
;; elisp load path
(setq load-path (cons (expand-file-name "~/.emacs.d/") load-path))
;; remove tool-bar
(tool-bar-mode -1)
;; remove menu-bar
(menu-bar-mode -1)
;; remove scroll-bar
(scroll-bar-mode -1)
;; color-theme
(require 'color-theme)
(color-theme-initialize)
(color-theme-shaman)
;; Hangul
(set-input-method "korean-hangul3f")
(setq default-korean-keyboard "3f")
(setq default-input-method "korean-hangul3f")
(global-set-key (kbd "S-SPC") 'toggle-input-method)
(global-set-key (kbd "<Hangul>") 'toggle-input-method)
(global-set-key (kbd "<Hangul_Hanja>") 'hangul-to-hanja-conversion)
;; visible bell
(setq visible-bell t)
;; show-paren-mode
(show-paren-mode t)
;; icomplete-mode
(icomplete-mode t)
;; ido-mode
(ido-mode t)
;; dabbrev
(setq dabbrev-case-replace nil)
;; ispell
(setq ispell-local-dictionary "american")
;; global-cwarn-mode
(global-cwarn-mode t)
;; disabled command
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
;; MakingScriptsExecutableOnSave
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
;; org-mode
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(setq org-agenda-files (quote ("~/todo.org")))
;; display time in mode-line
(setq display-time-day-and-date t)
(display-time-mode t)
;; windmove default keybindings
(when (fboundp 'windmove-default-keybindings)
(windmove-default-keybindings))
;; echo-keystrokes
(setq echo-keystrokes 0.1)
;; shell-command-completion-mode
(require 'shell-command)
(shell-command-completion-mode)
;; flymake-pylint
(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)))
;; js2-mode
(autoload 'js2-mode "js2" nil t)
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
;; flymake-jslint
(require 'flymake-jslint)
;; clipboard-kill-ring-save and clipboard-kill-region defadvice hacks
(defadvice clipboard-kill-ring-save (before slickcopy activate compile)
"When called interactively with no active region, copy
a single line instead."
(interactive
(if mark-active (list (region-beginning) (region-end))
(list (line-beginning-position)
(line-beginning-position 2)))))
(defadvice clipboard-kill-region (before slickcut activate compile)
"When called interactively with no active region, kill
a single line instead."
(interactive
(if mark-active (list (region-beginning) (region-end))
(list (line-beginning-position)
(line-beginning-position 2)))))
;; clipboard-kill-ring-save and clipboard-kill-region keys bindings
(global-set-key (kbd "M-w") 'clipboard-kill-ring-save)
(global-set-key (kbd "C-w") 'clipboard-kill-region)
;; kmacro counter
(global-set-key (kbd "<f5>") 'kmacro-set-counter)
(global-set-key (kbd "<f6>") 'kmacro-insert-counter)
;; register files
(set-register ?t '(file . "~/todo.org"))
(set-register ?e '(file . "~/.emacs"))
;; compile
(global-set-key "\C-cc" 'compile)
(global-set-key "\C-cr" 'recompile)
;; shell
(global-set-key "\C-cs" 'shell)
Tags
History
Last edited on 11/25/2008 10:48 by 승원
Comments (0)