<src>
(set-language-environment "Korean")
(prefer-coding-system 'utf-8)
(global-set-key (kbd "<S-kana>") 'toggle-input-method)
(global-set-key (kbd "<kana>") 'toggle-input-method)
(setenv "PATH" (concat "/Library/TeX/texbin" ":"
"/usr/local/bin" ":"
(getenv "PATH")))
(set-default-font "Monaco 15")
(display-time-mode 1)
(setq default-frame-alist
'((top . 120) (left . 400)
(width . 100) (height . 40)
(cursor-color . "white")
(cursor-type . box)
(foreground-color . "black")
(background-color . "white")
;; (font . "-*-Courier-normal-r-*-*-13-*-*-*-c-*-iso8859-1")))
))
(setq initial-frame-alist '((top . 10) (left . 490)))
(add-hook 'text-mode-hook 'auto-fill-mode)
(setq-default fill-column 100)
;;(global-display-line-numbers-mode)
;;(setq-default line-spacing 1)
(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.
'(package-selected-packages
(quote
(auctex olivetti zenburn-theme writeroom-mode writegood-mode web-mode wc-goal-mode tagedit subatomic-theme spacegray-theme smex simp scss-mode sass-mode rw-language-and-country-codes rw-ispell rw-hunspell revive rainbow-delimiters php-mode perspective paper-theme org2blog org-download org-bullets neotree monokai-theme material-theme magit linum-off key-chord jsx-mode ido-ubiquitous hydandata-light-theme helm-projectile helm-ag goto-last-change f exec-path-from-shell evil-tutor evil-org evil-leader color-theme-zenburn color-theme-solarized color-theme-monokai clojure-mode-extra-font-locking cider auto-complete anything)))
'(tool-bar-mode nil))
(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.
)
(setq org-element-use-cache nil)
(defun switch-fullscreen nil
(interactive)
(let* ((modes '(nil fullboth fullwidth fullheight))
(cm (cdr (assoc 'fullscreen (frame-parameters) ) ) )
(next (cadr (member cm modes) ) ) )
(modify-frame-parameters
(selected-frame)
(list (cons 'fullscreen next)))))
(define-key global-map [f6] 'switch-fullscreen)
;; load emacs 24's package system. Add MELPA repository.
(when (>= emacs-major-version 24)
(require 'package)
(add-to-list
'package-archives
;; '("melpa" . "http://stable.melpa.org/packages/") ; many packages won't show if using stable
'("melpa" . "http://melpa.milkbox.net/packages/")
t))
(setq olivetti-body-width 105)
</src>
여기 저기서 뜯어다 붙였다. 일단 원하는 대로 동작은 한다. 나중에 정리를 하자.