Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
122 lines (104 sloc) 3.71 KB
;; netj's ~/.emacs
;; Author: Jaeho Shin <>
;; Created: 2006-01-03
;; for detecting operating system
(defun system-type-is-mac ()
"Return true if system is darwin-based (Mac OS X)"
(string-equal system-type "darwin"))
(defun system-type-is-gnu ()
"Return true if system is GNU/Linux-based"
(string-equal system-type "gnu/linux"))
;; behavior
(set-language-environment "UTF-8")
(set-language-environment-input-method "Korean")
(setq shell-command-switch "-ic")
;; respect local config
(load "~/.emacs_local" t)
(push "~/.emacs.d/elisp" load-path)
(setq inhibit-startup-message t)
(defalias 'yes-or-no-p 'y-or-n-p)
(setq case-fold-search t)
(setq kill-whole-line t)
(setq make-backup-files nil)
(auto-compression-mode t)
(setq-default auto-fill-function 'do-auto-fill)
(setq fill-column 78)
(global-set-key "\C-x\C-j" 'goto-line)
(defun other-window-reverse () "previous-window" (interactive) (other-window -1))
(global-set-key "\C-x\C-o" 'other-window-reverse)
;; looks
(defun frame-attr (attr) (add-to-list 'default-frame-alist attr))
;(frame-attr '(cursor-color . "blue violet"))
;(frame-attr '(background-color . "thistle"))
(when (system-type-is-mac)
hangul:-apple-HCR Dotum LVT-*-*-*-*-*-*-*-*-p-*-iso10646-1")
;; ;(frame-attr '(font . "*-Palatino-medium-r-*-160-*-iso10646-1"))
(frame-attr '(font . "-*-16-*-fontset-j"))
;; color-theme
(load "color-theme.el")
;; ;; greenish
;; (color-theme-subtle-hacker)
;; (color-theme-gnome2)
;; (color-theme-pok-wog)
;; (color-theme-bharadwaj-slate)
;; (color-theme-jonadabian-slate)
;; ;; blueish
;; (color-theme-deep-blue)
;; (color-theme-sitaramv-solaris)
(tool-bar-mode 0)
(menu-bar-mode 1)
(column-number-mode t)
(transient-mark-mode t)
(global-font-lock-mode t)
(show-paren-mode t)
(setq font-lock-maximum-decoration t)
(setq font-lock-maximum-size nil)
(setq display-time-24hr-format t)
(load "auctex.el" nil t t)
(load "preview-latex.el" nil t t)
(setq TeX-shell shell-file-name)
(setq TeX-shell-command-option shell-command-switch)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq TeX-PDF-mode t)
;; See-Also:
(add-hook 'LaTeX-mode-hook 'TeX-source-correlate-mode)
(setq TeX-source-correlate-method 'synctex)
(when (system-type-is-mac)
;; for Mac, add the "open" command for viewing pdf
(setq TeX-view-program-list '(("Open" "open %o")))
(setq TeX-view-program-selection '((output-pdf "Open")))
;;; See-Also:
(add-hook 'LaTeX-mode-hook
(add-to-list 'TeX-expand-list
'("%q" skim-make-url))))
(defun skim-make-url () (concat
" "
(expand-file-name (funcall file (TeX-output-extension) t)
(file-name-directory (TeX-master-file)))
" "
(setq TeX-view-program-list
'(("Skim" "/Applications/ %q")))
(setq TeX-view-program-selection '((output-pdf "Skim")))
;; Markdown mode
(autoload 'markdown-mode "markdown-mode.el"
"Major mode for editing Markdown files" t)
(push '("\\.geul" . markdown-mode) auto-mode-alist)
(push '("\\.markdown" . markdown-mode) auto-mode-alist)
(push '("\\.mkd" . markdown-mode) auto-mode-alist)
;; END OF .emacs
Jump to Line
Something went wrong with that request. Please try again.