;;; ============================================================= ;;; Korean Language Environment ;;; ============================================================= ;;; Sukho Hong, hermian, Progress, and Karnes ;; General korean langauge environment ;;(set-language-environment "Korean") ;; ;; (set-default-coding-systems 'utf-8) ;; (set-keyboard-coding-system 'utf-8) ;; (setq coding-system-for-read 'utf-8) ;;(set-default-coding-systems 'euc-kr) (set-selection-coding-system (cond ((eq system-type 'windows-nt) 'euc-kr-dos) (t 'euc-kr))) ;; System input method setting (set-keyboard-coding-system 'euc-kr) ;; For use of `emacs -nw' in Korean terminal (if (null window-system) (progn (set-terminal-coding-system 'euc-kr) ;; To avoid conflict with key bindings starting with ESC. ;; Problem can still occur if your terminal input method use ;; `ESC' prefix. (define-key encoded-kbd-mode-map [27] nil))) ;; (add-hook 'input-method-activate-hook (function (lambda () (cond ((string= current-input-method "korean-hangul") (setq default-korean-keyboard "" input-method-verbose-flag nil input-method-highlight-flag nil)) ((string= current-input-method "korean-hangul3") (setq default-korean-keyboard "3" input-method-verbose-flag nil input-method-highlight-flag nil)))))) ;; Fonts setting by Reds; Hong Suk-ho in NTEmacs (if (eq window-system 'w32) (progn (create-fontset-from-fontset-spec "-*-Fixedsys-normal-r-*-*-12-*-*-*-c-*-fontset-msfixedsys12, latin-iso8859-1:-*-Fixedsys-normal-r-*-*-12-*-*-*-c-*-iso8859-1, latin-iso8859-2:-*-Courier New CE-normal-r-*-*-*-*-*-*-c-*-iso8859-2, latin-iso8859-3:-*-Courier New Tur-normal-r-*-*-*-*-*-*-c-*-iso8859-3, latin-iso8859-4:-*-Courier New Baltic-normal-r-*-*-*-*-*-*-c-*-iso8859-4, cyrillic-iso8859-5:-*-Courier New Cyr-normal-r-*-*-*-*-*-*-c-*-iso8859-5, greek-iso8859-7:-*-Courier New Greek-normal-r-*-*-*-*-*-*-c-*-iso8859-7, korean-ksc5601:-*-바탕체-normal-r-*-*-12-*-*-*-c-*-ksc5601.1987-*, japanese-jisx0208:-*-MS Gothic-normal-r-*-*-12-*-*-*-c-*-jisx0212-sjis, japanese-jisx0212:-*-MS Gothic-normal-r-*-*-12-*-*-*-c-*-jisx0212-sjis, katakana-jisx0201:-*-MS Gothic-normal-r-*-*-12-*-*-*-c-*-jisx0212-sjis, chinese-gb2312:-*-MS Hei-normal-r-*-*-*-*-*-*-c-*-gb2312-*, chinese-big5-1:-*-MingLiU-normal-r-*-*-*-*-*-*-c-*-big5-1, chinese-big5-2:-*-MingLiU-normal-r-*-*-*-*-*-*-c-*-big5-2" t) (create-fontset-from-fontset-spec "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-fontset-mscourier12, latin-iso8859-1:-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1, latin-iso8859-2:-*-Courier New CE-normal-r-*-*-*-*-*-*-c-*-iso8859-2, latin-iso8859-3:-*-Courier New Tur-normal-r-*-*-*-*-*-*-c-*-iso8859-3, latin-iso8859-4:-*-Courier New Baltic-normal-r-*-*-*-*-*-*-c-*-iso8859-4, cyrillic-iso8859-5:-*-Courier New Cyr-normal-r-*-*-*-*-*-*-c-*-iso8859-5, greek-iso8859-7:-*-Courier New Greek-normal-r-*-*-*-*-*-*-c-*-iso8859-7, ; korean-ksc5601:-*-HY신명조-normal-r-*-*-12-*-*-*-c-*-ksc5601.1987-*, japanese-jisx0208:-*-MS Gothic-normal-r-*-*-12-*-*-*-c-*-jisx0212-sjis, japanese-jisx0212:-*-MS Gothic-normal-r-*-*-12-*-*-*-c-*-jisx0212-sjis, katakana-jisx0201:-*-MS Gothic-normal-r-*-*-12-*-*-*-c-*-jisx0212-sjis, chinese-gb2312:-*-MS Hei-normal-r-*-*-*-*-*-*-c-*-gb2312-*, chinese-big5-1:-*-MingLiU-normal-r-*-*-*-*-*-*-c-*-big5-1, chinese-big5-2:-*-MingLiU-normal-r-*-*-*-*-*-*-c-*-big5-2" t) (create-fontset-from-fontset-spec "-*-Courier New-normal-r-*-*-14-*-*-*-c-*-fontset-mscourier14, latin-iso8859-1:-*-Courier New-normal-r-*-*-14-*-*-*-c-*-iso8859-1, latin-iso8859-2:-*-Courier New CE-normal-r-*-*-*-*-*-*-c-*-iso8859-2, latin-iso8859-3:-*-Courier New Tur-normal-r-*-*-*-*-*-*-c-*-iso8859-3, latin-iso8859-4:-*-Courier New Baltic-normal-r-*-*-*-*-*-*-c-*-iso8859-4, cyrillic-iso8859-5:-*-Courier New Cyr-normal-r-*-*-*-*-*-*-c-*-iso8859-5, greek-iso8859-7:-*-Courier New Greek-normal-r-*-*-*-*-*-*-c-*-iso8859-7, ; korean-ksc5601:-*-HY신명조-normal-r-*-*-14-*-*-*-c-*-ksc5601.1987-*, japanese-jisx0208:-*-MS Gothic-normal-r-*-*-14-*-*-*-c-*-jisx0212-sjis, japanese-jisx0212:-*-MS Gothic-normal-r-*-*-14-*-*-*-c-*-jisx0212-sjis, katakana-jisx0201:-*-MS Gothic-normal-r-*-*-14-*-*-*-c-*-jisx0212-sjis, chinese-gb2312:-*-MS Hei-normal-r-*-*-*-*-*-*-c-*-gb2312-*, chinese-big5-1:-*-MingLiU-normal-r-*-*-*-*-*-*-c-*-big5-1, chinese-big5-2:-*-MingLiU-normal-r-*-*-*-*-*-*-c-*-big5-2" t) (setq w32-enable-italics t) ;; for better font dialog menu for fontset (setq w32-use-w32-font-dialog nil) ;(setq w32-enable-unicode-output nil) (setq initial-frame-alist '((top . 00) (left . 00))) (setq default-frame-alist (append '( ;; Choose only one for your default font set. ;(font . "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-fontset-standard") ;(font . "-*-Fixedsys-normal-r-*-*-12-*-*-*-c-*-fontset-msfixedsys12") (font . "-*-Courier New-normal-r-*-*-14-*-*-*-c-*-fontset-mscourier14") (width . 100) (height . 40) (background-color . "gray90") (foreground-color . "Black") (cursor-color . "red") (vertical-scroll-bars . right)) default-frame-alist)))) ;;; here is the end of Progress' setting ;;=========================================================== ;; AUCTeX Setting ;;=========================================================== (setq TeX-auto-save t) (setq TeX-parse-self t) ;; If use \include or \input, for multi-file document. (setq-default TeX-master nil) (setq reftex-plug-into-AUCTeX t) (autoload 'turn-on-bib-cite "bib-cite") ;;(when (eq system-type 'windows-nt) ;; (require 'tex-mik)) (add-hook 'LaTeX-mode-hook (function (lambda () (turn-on-auto-fill) (turn-on-reftex) (turn-on-bib-cite) (outline-minor-mode) (TeX-source-specials-mode 1) (add-to-list 'TeX-expand-list '("%a" file "pdf" t)) (add-to-list 'TeX-command-list (list "TeXify" "pdfclose --file %a & kcltxmk --pv --f --silent --pdfdvi %t & pdfopen --file %a" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "PDFTeXify" "pdfclose --file %a & kcltxmk --pv --f --silent --pdf %t & pdfopen --file %a" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "ClearAux" "kcltxmk -C" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "Ghostview" "C:\\PROGRA~1\\Ghostgum\\gsview\\gsview32.exe %f" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "dviPS" "dvips %d -o %f" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "Acrobat" "C:\\PROGRA~1\\Adobe\\ACROBA~1.0\\Reader\\AcroRd32.exe %a" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "Close-Acrobat" "closepdf" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "Foxit" "C:\\PROGRA~1\\FOXITS~1\\FOXITR~1\\FOXITR~1.EXE %a" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "DVIPDFMx" "dvipdfmx %d" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "dh-Index" "makeindex-dhucs -s dhucs %s" 'TeX-run-command nil t)) ;; (add-to-list 'TeX-command-list ;; (list "DVISearch" ;; "yap.exe -1 -s %n%b %d" ;; 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "DVISearch" "C:\\TeX\\dviout\\dviout.exe -1 %d # %n %b" 'TeX-run-command nil t)) (add-to-list 'TeX-command-list (list "DviOut" "C:\\TeX\\dviout\\dviout.exe %d" 'TeX-run-command nil t)) ;;; key-binding (define-key LaTeX-mode-map [(control f1)] 'do-LaTeX) (define-key LaTeX-mode-map [(control f2)] 'do-DviOut) (define-key LaTeX-mode-map [(control f3)] 'do-DVISearch) (define-key LaTeX-mode-map [(control f5)] 'do-DVIPDFMx) (define-key LaTeX-mode-map [(control f6)] 'do-ClearAux) (define-key LaTeX-mode-map [(control f7)] 'do-TeXify) (define-key LaTeX-mode-map [(control f8)] 'do-close-Acrobat) (define-key LaTeX-mode-map [(control f9)] 'do-PDFTeXify) ))) (defun do-LaTeX () "LaTeX the curent file." (interactive) (TeX-command "LaTeX" 'TeX-master-file)) (defun do-TeXify () "call kcltxmk, make pdf via dvipdfmx" (interactive) (TeX-command "TeXify" 'TeX-master-file)) (defun do-ClearAux () "cleaning up all the .aux, .log etcs" (interactive) (TeX-command "ClearAux" 'TeX-master-file)) (defun do-PDFTeXify () "call kcltxmk, make pdf via pdfTeX" (interactive) (TeX-command "PDFTeXify" 'TeX-master-file)) (defun do-DviOut () "Read the current dvi file using DviOut." (interactive) (TeX-command "DVISearch" 'TeX-master-file)) (defun do-DVISearch () "Forward search LaTeX the current file position." (interactive) (TeX-command "DVISearch" 'TeX-master-file)) (defun do-DVIPDFMx () "Running DVIPDFMx" (interactive) (TeX-command "DVIPDFMx" 'TeX-master-file)) (defun do-Acrobat () "Read the current file using Adobe Reader." (interactive) (TeX-command "Acrobat" 'TeX-master-file)) (defun do-close-Acrobat () "Close Adobe Reader window." (interactive) (TeX-command "Close-Acrobat" 'TeX-master-file)) (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. '(transient-mark-mode t)) (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. )