5월 16일자 Dot Emacs 파일 입니다.

Linux

;; theme 설정
(require 'etheme)
(etheme-apply-theme "cinsk")

;; ruby 모드 설정
(require 'ruby-mode)
(require 'inf-ruby)
(require 'ruby-electric)
(setq auto-mode-alist (cons '("\.rb$" . ruby-mode) auto-mode-alist))

;; ecb 설정
(add-to-list 'load-path
         "/usr/share/emacs-snapshot/site-lisp/ecb/")
(require 'ecb)

;; text mode 할때마다 auto fill 모드로 전환
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; emacs-rails 설정
(setq load-path (cons "~/.emacs.d/emacs-rails" load-path))
(defun try-complete-abbrev (old)
(if (expand-abbrev) t nil))

(setq hippie-expand-try-functions-list
'(try-complete-abbrev
try-complete-file-name
try-expand-dabbrev))

(require 'rails)
)
;; 3 벌식 키보드 설정
(defun set-my-keyboard()
 "my keyboard setup"
(set-input-method "korean-hangul3")
(global-set-key [?\S- ] 'toggle-input-method)
)
(when enable-multibyte-characters
(set-my-emacs-coding-system)
(set-my-keyboard)
)
;; ecb 외관 설정
(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.
 '(ecb-layout-name "left14")
 '(ecb-options-version "2.32")
 '(transient-mark-mode (quote identity)))
(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.
 )


Window

(require 'cl)
(defun set-my-emacs-coding-system()
"my coding system"
 
;; 폰트 설정
(create-fontset-from-fontset-spec "-*-Monaco-*-*-*-*-13-*-*-*-*-*-fontset-term16,
ascii:-*-Monaco-normal-r-normal-*-13-*-*-*-*-*-*-*,
korean-ksc5601:-*-굴림체-normal-r-normal-normal-13-*-96-96-c-*-KSC5601.1987-*")(set-face-font 'default "fontset-term16")

;; lisp 프로그램 설정
(set-variable 'inferior-lisp-program
  "C:/Progra~1/GCL-2.6.1/bin/gcl1.bat")
(autoload 'fi:common-lisp "fi-site-init" "" t)

(set-language-environment "korean")
;; theme 설정
(setq load-path (cons (expand-file-name "~/.emacs.d/") load-path))
  (require 'etheme)
(etheme-apply-theme "cinsk")

;; ecb 를 설치하기 위한 기본적으로 필요한 패키지들
(add-to-list 'load-path "c:/Program Files (x86)/Emacs/site-lisp/speedbar-0.14beta4")
(add-to-list 'load-path "c:/Program Files (x86)/Emacs/site-lisp/eieio-0.17")
(add-to-list 'load-path "c:/Program Files (x86)/Emacs/site-lisp/semantic-1.4.4")
(setq semantic-load-turn-everything-on t)
(require 'semantic-load)
;; ecb 설정
(add-to-list 'load-path "c:/Program Files (x86)/Emacs/site-lisp/ecb-2.32")
;; *ecb-2.32
(require 'ecb))
;; 3벌식 설정
(defun set-my-keyboard()
"my keyboard setup"
(set-input-method "korean-hangul3")
(global-set-key [?\S- ] 'toggle-input-method)
)
(defun set-my-win32-coding()
"my windows environment"
(set-w32-system-coding-system 'euc-kr)
(set-clipboard-coding-system 'euc-kr)
)
(when enable-multibyte-characters
(set-my-emacs-coding-system)
(set-my-keyboard)
(set-my-win32-coding)
)

;; nxml support
  (load "~/.emacs.d/nxml-mode-20041004/rng-auto.el")
  (setq auto-mode-alist
        (cons '("\\.\\(xml\\|xsl\\|rng\\|xhtml\\)\\'" . nxml-mode)
       auto-mode-alist))
  (unify-8859-on-decoding-mode)

;; Ruby support
    (when (eql system-type 'windows-nt) ; Windows
      (when (eq (shell-command "ruby") 0)
        ; !WARNING! ugly hack because of 1.8.4-20
        (setq config-rubyelispdir
       "doc/ruby/ruby-1.8.4/misc" )
        ; get the installation directory
        (setq config-rubydir
       (substring
        (shell-command-to-string
         "ruby -rrbconfig -e 'puts Config::CONFIG[ \"exec_prefix\"]'") 0 -1))
        ; add the emacs lisp directory so emacs acan find it
        (setq load-path (append
           (list (expand-file-name
          config-rubyelispdir config-rubydir))
           load-path))
        ;; define autoloads
        ;; from inf-ruby.el
        (autoload 'ruby-mode "ruby-mode"
          "Mode for editing ruby source files" t)
        (setq auto-mode-alist
       (append '(("\\.rb$" . ruby-mode)
          ("[Rr]akefile" . ruby-mode))
        auto-mode-alist))
        (setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
          interpreter-mode-alist))
        (autoload 'run-ruby "inf-ruby"
          "Run an inferior Ruby process")
        (autoload 'inf-ruby-keys "inf-ruby"
          "Set local key defs for inf-ruby in ruby-mode")
        (add-hook 'ruby-mode-hook
           '(lambda ()
       (inf-ruby-keys)))))
(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.
 '(ecb-layout-name "left14")
 '(ecb-options-version "2.32"))
(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.
 )
;; emacs-rails 설정
(setq load-path (cons "~/.emacs.d/rails" load-path))

(defun try-complete-abbrev (old)
(if (expand-abbrev) t nil))

(setq hippie-expand-try-functions-list
'(try-complete-abbrev
try-complete-file-name
try-expand-dabbrev))

(require 'rails)