• fglrx가 작동 안됨
  intrepid에서 사용하는 xorg버전이 7.4입니다. 내부적으로 많은 것이 바꼈는데 그로 인해 fglrx가 작동을 안합니다. 그래서 한동안 그래픽 가속 포기하고 오픈소스 드라이버를 사용하고 있었는데 CPU로드가 많아져서 발열이 장난이 아니더군요. 나중에 찾아보니 AccelMethod를 EXA로 사용하면 좋다고 해서 바꿔봤더니 정말 빠릅니다. fglrx부럽지 않은 속도가 나옵니다. compiz에서 동영상 재생시 xv로 출력하면 깜빡이는 문제도 해결되었군요. 다만 EXA는 아직 experimental이기 때문에 불안정한 면이 있습니다. device섹션에 아래 두줄을 추가하시면 됩니다. 물론 driver는 radeon으로 해야겠죠.

  Option          "AccelMethod"   "EXA"
  
  Option          "AccelDFS"      "1"

• suspend가 동작안함
  노트북을 사용하고 있기때문에 suspend가 안된다는 것이 엄청 불편하더군요. 해결 방법은 pm-utils을 다운그레이드하면 됩니다. 그놈에서 suspend는 gnome-power-cmd.sh suspend명령에 의해 실행되는데 이 프로그램이 hal-system-power-pm-is-supported의 실행결과를 참고합니다. intrepid의 pm-utils 포함된 hal-system-power-pm-is-supported가 false를 리턴하기 때문에 suspend를 지원안한다고 나옵니다. 이는 데비안/우분투의 uswsusp에 s2ram이 없기 때문인데 pm-utils을 hardy에 포함된 버전으로 다운그레이드하면 해결할 수 있습니다.
• 그 외 폰트 렌더링이 안좋아졌던 문제도 있었지만 오늘자 업데이트에서 해결된듯합니다.

1. -lavdopts fast
   이 옵션은 몇가지 체크를 스킵하고 간단한 모션 보정등을 사용하여 속도를 높인다.
2. 1번 옵션을 줘도 끊긴다면 skiploopfilter=all 옵션을 같이 줘보자. (-lavdopts fast:skiploopfilter=all)
   loop filter를 모두 스킵한다는 의미인데 화질을 보정하는 필터인 것 같다. 이 옵션을 사용하면 화질은 나빠지지만 CPU점유율을 10%정도는 낮출수 있을것이다.
3. 만약 2번까지 했는데도 끊기면 업그레이드를 고려하는 편이 좋다. 그래도 정 보고싶다면 2번에다 skipframe=nonref 옵션까지 추가로 적용하면 CPU점유율을 50%정도까지 낮출수 있다.
   반면 skip하는 프레임이 생기기 때문에 움직임이 조금씩 끊기게 된다. skipvalue에는 여러가지 있지만 nonref를 제외한 나머지는 화면이 깨지므로 사용할 일이 없을것이다.

(setq load-path (cons (expand-file-name "~/.emacs.d/") load-path))

(when window-system

  (set-face-font 'default "jin3")

  (set-fontset-font "fontset-default" 'hangul '("jin3" . "unicode-bmp"))

  (set-fontset-font "fontset-default" 'kana '("Haansoft Dotum" . "unicode-bmp"))

  (set-fontset-font "fontset-default" 'han '("Haansoft Dotum" . "unicode-bmp"))

  (set-fontset-font "fontset-default" 'cjk-misc '("Haansoft Dotum" . "unicode-bmp"))

  (set-frame-size (selected-frame) 140 50))

;; syntax highlighting

(global-font-lock-mode t)



;; highlight line

(global-hl-line-mode t)



;; highlight marked region

(transient-mark-mode t)



;; match parenthesis

(show-paren-mode t)



;; no new line at end

(setq next-line-add-newlines nil)



;; no backup file

(setq make-backup-files nil)



;; uncompress files

(auto-compression-mode t)



;; del키 또는 backspace키를 눌렀을때 선택한 영역을 삭제

(delete-selection-mode nil)



;; 창 제목을 바꿈

(setq frame-title-format (list "GNU Emacs " emacs-version "@" system-name " - " '(buffer-file-name "%f" "%b")))

(setq icon-title-format frame-title-format)



(which-function-mode t)



;; column number

(column-number-mode t)



;; 툴바숨김

(tool-bar-mode nil)



;; tab설정

(setq default-tab-width 4)

(setq-default c-basic-offset 4

              indent-tabs-mode nil)

(global-set-key [(ctrl f4)] 'kill-this-buffer)

(global-set-key [(meta g)] 'goto-line)

(global-set-key [f1]  (lambda () (interactive) (manual-entry (current-word))))

(global-set-key [f5] 'replace-string)

(global-set-key [(ctrl f5)] 'query-replace)

(global-set-key [f6] 'replace-regexp)

(global-set-key [(ctrl f6)] 'query-replace-regexp)

(global-set-key [f7] 'compile)

(global-set-key [(ctrl f7)] 'kill-compilation)

(global-set-key [f8] 'next-error)

(global-set-key [(ctrl f8)] 'previous-error)

(global-set-key [(f11)] 'shell)

(ido-mode 'buffer)

(global-set-key [(ctrl tab)] 'ido-switch-buffer)

(global-set-key [(ctrl shift tab)] 'ido-switch-buffer)

(add-hook

 'ido-setup-hook

 (lambda ()

   (define-key ido-buffer-completion-map [(ctrl tab)] 'ido-next-match)

   (define-key ido-buffer-completion-map [(ctrl shift tab)] 'ido-prev-match)))

;; SLIME 설정

(setq common-lisp-hyperspec-symbol-table nil)

(require 'slime)

(setq inferior-lisp-program "/usr/bin/sbcl"

      lisp-indent-function 'common-lisp-indent-function

      slime-complete-symbol-function 'slime-fuzzy-complete-symbol

      slime-startup-animation nil)

;; UTF-8 인코딩을 기본으로 사용

(setq slime-net-coding-system 'utf-8-unix)

(setq common-lisp-hyperspec-root

      "/usr/share/doc/hyperspec/")

(add-hook

 'inferior-lisp-mode-hook

 (lambda ()

   (inferior-slime-mode t)))

(slime-setup)



(add-hook

 'lisp-mode-hook

 (lambda ()

   (define-key lisp-mode-map [f1] 'info-lookup-symbol)))



(eval-after-load "slime"

  '(progn

    (add-to-list 'load-path "/usr/share/emacs/site-lisp/slime/contrib")

    (slime-setup '(slime-fancy slime-asdf slime-banner))

    (setq slime-complete-symbol*-fancy t)

    (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)))



(require 'info-look)

(info-lookup-add-help

 :mode 'lisp-mode

 :regexp "[^][()'\" \t\n]+"

 :ignore-case t

 :doc-spec '(("(ansicl)Symbol Index" nil nil nil)))



;; scheme 설정

(setq scheme-program-name "mzscheme")

(add-hook

 'scheme-mode-hook

 (lambda ()

   (define-key scheme-mode-map [f1] 'info-lookup-symbol)))



(add-hook

 'inferior-scheme-mode-hook

 (lambda ()

   (define-key inferior-scheme-mode-map [f1] 'info-lookup-symbol)))

;; LaTeX 환경설정

(setq TeX-command-list

      (list (list "TeX" "tex \\nonstopmode\\input %t" 'TeX-run-TeX nil t)

            (list "LaTeX" "%l --interaction=nonstopmode %t" 'TeX-run-LaTeX nil t)

            (list "LaTeX PDF" "pdflatex --interaction=nonstopmode %t" 'TeX-run-LaTeX nil t)

            (list "LaTeX DVIPDFMx" "dvipdfmx %d" 'TeX-run-command t nil)

            (list "View" "%v" 'TeX-run-discard t nil)

            (list "View PS" "gsview32 %f" 'TeX-run-command t nil)

            (list "View PDF" "evince %s.pdf" 'TeX-run-command t nil)

            (list "DVIPS" "dvips %d -o %f" 'TeX-run-command t nil)

            (list "Print" "dvips %d -o %f " 'TeX-run-command t nil)

            (list "File" "dvips %d -o %f " 'TeX-run-command t nil)

            (list "BibTeX" "bibtex %s" 'TeX-run-BibTeX nil nil)

            (list "Index" "makeindex %s" 'TeX-run-command nil t)

            (list "Check" "lacheck %s" 'TeX-run-compile nil t)

            (list "Other" "" 'TeX-run-command t t)))

(setq TeX-auto-save t

      TeX-parse-self t)

;; LaTeX 컴파일 단축키

(add-hook

 'LaTeX-mode-hook

  (lambda ()

    (define-key LaTeX-mode-map [f7] 'do-PDFLaTeX)))

(setq LaTeX-verbatim-environments '("verbatim" "verbatim*" "Verbatim"))

(defun do-PDFLaTeX ()

  "PDFLaTeX the curent file."

  (interactive)

  (TeX-command "LaTeX PDF" 'TeX-master-file))

(add-hook

 'c-mode-common-hook

 (lambda ()

   (unless (file-exists-p "Makefile")

     (set (make-local-variable 'compile-command)

          (let ((file (file-name-nondirectory buffer-file-name)))

            (format "%s -o %s %s %s %s"

                    (or (getenv "CC") "gcc")

                    (file-name-sans-extension file)

                    (or (getenv "CPPFLAGS") "")

                    (or (getenv "CFLAGS") "-Wall -g")

                    file))))))



(add-hook

 'c++-mode-hook

 (lambda ()

   (unless (file-exists-p "Makefile")

     (set (make-local-variable 'compile-command)

          (let ((file (file-name-nondirectory buffer-file-name)))

            (format "%s -o %s %s %s %s"

                    (or (getenv "CC") "g++")

                    (file-name-sans-extension file)

                    (or (getenv "CPPFLAGS") "")

                    (or (getenv "CFLAGS") "-Wall -g")

                    file))))))



(add-hook

 'java-mode-hook

 (lambda ()

   (unless (file-exists-p "Makefile")

     (set (make-local-variable 'compile-command)

          (let ((file (file-name-nondirectory buffer-file-name)))

            (format "%s %s %s"

                    (or (getenv "JAVAC") "javac")

                    (or (getenv "JAVACFLAGS") "")

                    file))))))

(add-hook 'haskell-mode-hook 'turn-on-haskell-ghci)

(autoload 'run-ghci "haskell-ghci"

  "Go to the *ghci* buffer" t nil)

(set-variable 'haskell-program-name "ghci")

(add-hook

 'haskell-mode-hook

 (lambda ()

   (unless (file-exists-p "Makefile")

     (set (make-local-variable 'compile-command)

          (let ((file (file-name-nondirectory buffer-file-name)))

            (format "%s -o %s %s %s"

                    (or (getenv "GHC") "ghc")

                    (file-name-sans-extension file)

                    (or (getenv "GHCFLAGS") "")

                    file))))))

(when (locate-library "erc")

  (eval-after-load "erc"

    '(progn

       (setq erc-default-coding-system '(cp949 . undecided))

       (setq erc-server "irc.hanirc.org:6667"))))

(load "~/.emacs.d/nxml/autostart.el")

(add-to-list 'auto-mode-alist '("\\.ctp\\'" . nxhtml-mumamo))

(setq ecb-tip-of-the-day nil)

(setq ecb-layout-name "left11")

(setq ecb-windows-width 0.25)

(custom-set-variables

 '(ecb-fix-window-size (quote width))

 '(ecb-layout-window-sizes nil)

 '(ecb-options-version "2.32"))

(when (require 'tabbar nil t)

  (setq tabbar-buffer-groups-function

        (lambda (b) (list "All Buffers")))

  (setq tabbar-buffer-list-function

        (lambda ()

          (remove-if

           (lambda(buffer)

             (find (aref (buffer-name buffer) 0) " *")) (buffer-list))))

  (tabbar-mode))



(set-face-attribute

 'tabbar-default-face nil

 :background "gray60")

(set-face-attribute

 'tabbar-unselected-face nil

 :background "gray85"

 :foreground "gray30"

 :box nil)

(set-face-attribute

 'tabbar-selected-face nil

 :background "#f2f2f6"

 :foreground "black"

 :box nil)

(set-face-attribute

 'tabbar-button-face nil

 :box '(:line-width 1 :color "gray72" :style released-button))

(set-face-attribute

 'tabbar-separator-face nil

 :height 0.7)



(global-set-key [(ctrl shift tab)] 'tabbar-backward)

(global-set-key [(ctrl tab)] 'tabbar-forward)