conf_slk120/emacs/.emacs

   1 (custom-set-variables
   2   ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
   3   ;; Your init file should contain only one such instance.
   4  '(auto-compression-mode t nil (jka-compr))
   5  '(case-fold-search t)
   6  '(current-language-environment "UTF-8")
   7  '(default-input-method "rfc1345")
   8  '(global-font-lock-mode t nil (font-lock))
   9  '(speedbar-frame-parameters (quote ((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (set-background-color "black"))))
  10  '(transient-mark-mode t))
  11  (add-to-list 'load-path "~/.emacs.d/emacs-lisp")
  12  (server-start)
  13  (set-terminal-coding-system 'euc-cn)
  14  (set-keyboard-coding-system 'euc-cn)
  15  (prefer-coding-system 'euc-cn)
  16  (set-buffer-file-coding-system 'euc-cn)
  17  (set-selection-coding-system 'euc-cn)
  18  (modify-coding-system-alist 'process "*" 'euc-cn)
  19  (setq default-process-coding-system '(euc-cn . euc-cn))
  20  (setq-default pathname-coding-system 'euc-cn)
  21  (add-hook 'find-file-hooks 'auto-insert)
  22  (setq time-stamp-format "%:u %02m/%02d/%04y %02H:%02M:%02S")
  23  (fset 'yes-or-no-p 'y-or-n-p)
  24  (setq display-time-24hr-format t)
  25  (display-time)
  26  (column-number-mode t)
  27  (tool-bar-mode -1)
  28  (require 'session)
  29  (setq difault-major-mode 'emacs-lisp-mode)
  30  (menu-bar-mode 1)
  31  (add-hook 'write-file-hooks 'time-stamp)
  32  (setq inhibit-startup-message t)
  33  (setq version-control t)
  34  (setq kept-new-versions 5)
  35  (setq delete-old-versions t)
  36  (setq dired-kept-versions 1)
  37  (blink-cursor-mode -1)
  38  (setq diary-file "~/.emacs.d/.diary")
  39  (mwheel-install)
  40  (setq kill-ring-max 200)
  41  (setq todo-file-do "~/.emacs.d/todo-do")
  42  (setq todo-file-done "~/.emacs.d/todo-done")
  43  (setq todo-file-top "~/.emacs.d/todo-top")
  44  (setq c-default-style
  45        '((c-mode . "BSD") (java-mode . "java") (other . "BSD")))
  46  (setq c-tab-always-indent 8)
  47  (setq default-tab-width 8)
  48  (global-set-key "\M-g" 'goto-line)
  49  (xterm-mouse-mode t)
  50  (if window-system (set-face-background 'default "white"))
  51  (global-cwarn-mode 1)
  52  (setq scroll-margin 1 scroll-conservatively 10000)
  53  (setq user-mail-address "arrow_zhang@sdc.sercomm.com")
  54  (require 'tabbar)
  55  (tabbar-mode)
  56  (global-set-key [(C-S-iso-lefttab)]    'tabbar-backward)
  57  (global-set-key [(S-iso-lefttab)]      'tabbar-backward)
  58  (global-set-key [(control tab)]        'tabbar-forward)
  59
  60 (setq tabbar-buffer-groups-function 'tabbar-buffer-ignore-groups)
  61
  62 (defun tabbar-buffer-ignore-groups (buffer)
  63           "Return the list of group names BUFFER belongs to.Return only one group for each buffer."
  64           (with-current-buffer (get-buffer buffer)
  65             (cond
  66              ((or (get-buffer-process (current-buffer))
  67                   (memq major-mode
  68                         '(comint-mode compilation-mode)))
  69               '("Process")
  70               )
  71              ((member (buffer-name)
  72                       '("*scratch*" "*Messages*"))
  73               '("Common")
  74               )
  75              ((eq major-mode 'dired-mode)
  76               '("Dired")
  77               )
  78              ((memq major-mode
  79                     '(help-mode apropos-mode Info-mode Man-mode))
  80               '("Help")
  81               )
  82              ((memq major-mode
  83                     '(rmail-mode
  84                       rmail-edit-mode vm-summary-mode vm-mode mail-mode
  85                       mh-letter-mode mh-show-mode mh-folder-mode
  86                       gnus-summary-mode message-mode gnus-group-mode
  87                       gnus-article-mode score-mode gnus-browse-killed-mode))
  88               '("Mail")
  89               )
  90              (t
  91               (list
  92                "default"  ;; no-grouping
  93                (if (and (stringp mode-name) (string-match "[^ ]" mode-name))
  94                    mode-name
  95                  (symbol-name major-mode)))
  96               )
  97
  98              )))
  99 ;;--------
 100  (global-set-key "%" 'match-paren)
 101  (defun match-paren (arg)
 102            "Go to the matching paren if on a paren; otherwise insert %."
 103            (interactive "p")
 104            (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
 105            ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
 106            (t (self-insert-command (or arg 1)))))
 107  (require 'ctypes)
 108  (ctypes-auto-parse-mode 1)
 109  (load "desktop")
 110  (desktop-load-default)
 111  (desktop-read)
 112  (mouse-avoidance-mode 'animate)
 113  (setq initial-frame-alist '((top . 0)(left . 0)(width . 87)(height . 35)))
 114  (require 'ido)
 115  (ido-mode t)
 116  (setq vc-follow-symlinks t)
 117  (setq cvs-dired-use-hook 'always)
 118  (setq mouse-yank-at-point t)
 119  (setq frame-title-format "%b - %f   #sercomm")
 120  (require 'planner)
 121  (global-set-key [(control f8)] 'calendar)
 122  (auto-compression-mode 1)
 123  (global-set-key (kbd "<f12> p") 'planner-create-task-from-buffer)
 124  (global-set-key [(control f12)] 'planner-create-task-from-buffer)
 125  (setq planner-publishing-directory "~/.emacs_arrow/files/planner")
 126  (setq planner-calendar-show-planner-files t)
 127  (add-hook 'c-mode-hook' c-toggle-auto-state)
 128  (require 'htmlize)
 129  (require 'ede)
 130  (menu-bar-mode t)
 131 ; (color-theme-gnome2)
 132 (custom-set-faces
 133   ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
 134   ;; Your init file should contain only one such instance.
 135  )