[Emacs]配置

记下我丑陋的配置文件

(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.
 '(cua-mode t nil (cua-base))
 '(debug-on-error 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.
 )
(setq default-frame-alist
             '((vertical-scroll-bars)
               (top . 0)
               (left . 650)
               (width . 80)
               (height . 40)
               (background-color . "black")
               (foreground-color . "white")
               (cursor-color . "gold1")
               (mouse-color . "gold1")
               (tool-bar-lines . 0)
               (menu-bar-lines . 1)
               (right-fringe)
               (left-fringe)))

(set-face-foreground 'highlight "white")
(set-face-background 'highlight "blue")
(set-face-foreground 'region "green")
(set-face-background 'region "black")
(set-face-foreground 'secondary-selection "skyblue")
(set-face-background 'secondary-selection "darkblue")

(setq frame-title-format "Hello World!")
(display-time-mode 1)
(setq dispaly-time-24hr-format t)

(setq make-backup-files nil)

(setq inhibit-splash-screen t)

(electric-pair-mode t)
(show-paren-mode t)

(column-number-mode t)  
(global-linum-mode t)  

(defun my-compile()  
    (interactive)  
    (save-some-buffers t)  
    (let((file(file-name-nondirectory buffer-file-name)))  
        (compile (format "g++ %s -g -o %s" file (file-name-sans-extension file))))  
    (switch-to-buffer-other-window"*compilation*")  
)
(global-set-key[f9]'my-compile)
(global-set-key[f6]'gdb)
(put 'scroll-left 'disabled nil)