  ;; 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.
+ '(abbrev-mode t t)
+ '(auto-insert-directory "~/.emacs.d/insert/")
  '(auto-insert-mode t)
+ '(auto-save-default t)
+ '(auto-save-file-name-transforms (\` ((".*" (\, temporary-file-directory) t))))
+ '(background-color "black")
+ '(backup-by-copying t)
  '(backup-directory-alist (quote (("." . "~/.emacs.d/backups"))))
- '(c-default-style (quote ((c-mode . "") (c++-mode . "") (objc-mode . "") (java-mode . "java") (awk-mode . "awk") (other . "gnu"))))
+ '(before-save-hook (quote (copyright-update time-stamp)))
  '(c-echo-syntactic-information-p t)
  '(calendar-chinese-all-holidays-flag t)
+ '(color-theme-is-global t)
  '(column-number-mode t)
  '(compile-command "make")
+ '(copyright-names-regexp "")
+ '(cursor-color "purple")
  '(custom-enabled-themes (quote (light-blue)))
+ '(default-buffer-file-coding-system (quote utf-8) t)
+ '(default-major-mode (quote text-mode) t)
+ '(delete-by-moving-to-trash t)
  '(delete-old-versions t)
+ '(dired-kept-versions 1)
  '(echo-keystrokes 0.5)
  '(electric-indent-mode t)
- '(global-ede-mode t)
- '(global-highlight-changes-mode t)
+ '(file-name-coding-system (quote utf-8) t)
+ '(font-lock-maximum-decoration t)
+ '(foreground-color "white")
  '(history-delete-duplicates t)
+ '(hs-minor-mode t)
  '(indent-tabs-mode t)
  '(inhibit-default-init t)
+ '(inhibit-startup-screen t)
+ '(keyboard-coding-system (quote utf-8))
+ '(language-environment (quote utf-8))
+ '(make-backup-file-name t)
+ '(mouse-color "white")
  '(perl-tab-always-indent t)
  '(perl-tab-to-comment t)
+ '(query-replace-highlight t)
+ '(require-final-newline t)
+ '(safe-local-variable-values (quote ((auto-recompile . t) (folding-mode . t) (outline-minor-mode . t) (sh-indent-comment . t) auto-recompile outline-minor-mode sh-indent-comment)))
+ '(search-highlight t)
+ '(sh-indent-comment t)
+ '(sh-indent-for-after-do (quote +))
+ '(sh-indent-for-case-alt (quote +))
+ '(sh-indent-for-case-label (quote *))
+ '(sh-indent-for-do 0)
+ '(sh-indent-for-then 0)
+ '(show-paren-delay 0)
+ '(show-paren-mode t)
+ '(show-paren-style (quote parentheses))
  '(tab-always-indent (quote complete))
  '(tab-width 4)
- '(version-control t))
-;}
-;color{
-;(set-cursor-color "purple")
-;(set-mouse-color "white")
-;(set-background-color "black")
-;(set-background-color "darkblue")
-;(set-foreground-color "white")
-;(set-face-foreground 'region "cyan")
-;(set-face-background 'region "blue")
-;(set-face-foreground 'secondary-selection "skyblue")
-;(set-face-background 'secondary-selection "darkblue")
-;}
+ '(tempo-insert-region t)
+ '(tempo-interactive t)
+ '(terminal-coding-system (quote utf-8))
+ '(todo-file-do "~/.emacs.d/todo/do")
+ '(todo-file-done "~/.emacs.d/todo/done")
+ '(todo-file-top "~/.emacs.d/todo/top")
+ '(track-eol t)
+ '(transient-mark-mode t)
+ '(trash-directory "~/.Trash")
+ '(truncate-partial-width-windows nil)
+ '(uniquify-buffer-name-style (quote forward))
+ '(user-full-name "Oxnz")
+ '(user-mail-address "yunxinyi@gmail.com")
+ '(version-control t)
+ '(whitespace-line-column 80)
+ '(whitespace-style (quote (trailing lines space-before-tab indentation space-after-tab)))
+ '(x-select-enable-clipboard t))
+
+(setq
+   initial-scratch-message
+   (concat
+    ";                  /)\n"
+    ";                 //\n"
+    ";   .------------| |---------------------------------------------.__\n"
+    ";   |   OXNZ     | |>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>:>\n"
+    ";   `------------| |----------------------------------------------'^^\n"
+    ";                 \\\\\n"
+    ";                  \\)\n"
+    )
+   )
+
+;; (setq auto-insert-copyright (user-full-name))
+(eval-after-load 'autoinsert
+  '(define-auto-insert '(perl-mode . "Perl skeleton")
+     '("Description: "
+       "#!/usr/bin/env perl" \n
+       \n
+       "use strict;" \n
+       "use warnings;" \n
+       _ \n \n
+       "__END__" "\n\n"
+       "=head1 NAME" "\n\n"
+       "=head1 SYNOPSIS" "\n\n"
+       (file-name-nondirectory buffer-file-name) " [-h] [-v]" "\n\n"
+       "=head1 OPTION" "\n\n"
+       "=over 1" "\n\n"
+       "=item B<-h|--help>" "\n"
+       \n "Print this help message and exit successfully." "\n\n"
+       "=item B<-v|--version>" "\n"
+       \n "Print version information and exit successfully." "\n\n"
+       "=back" "\n\n"
+       "=head1 DESCRIPTION" "\n\n\n"
+       "=head1 COPYRIGHT" "\n\n"
+       "Copyright (c) " (substring (current-time-string) -4) " "
+       (getenv "ORGANIZATION") | (progn user-full-name) "\n\n"
+       "This library is free software; you can redistribute it and/or" "\n"
+       "modify it under the same terms as Perl itself." "\n\n"
+       "=cut" "\n")))
+(setq time-stamp-active t
+	  time-stamp-start "Last-updated: "
+	  time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S %Z"
+      time-stamp-end "$"
+	  )
+
 ;Shell 使用 ansi color{
 ;(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
 ;(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
 ;}
 ;---------------------------------------------------------------------
 
+
 ;------------------------------behavior---------------------------------
-;支持emacs和外部程序的粘贴
-(setq x-select-enable-clipboard t;copy-paste should work ...
-      interprogram-paste-function; ...with...
-      'x-cut-buffer-or-selection-value); ...other X clients
-;自动的在文件末增加一新行
-(setq require-final-newline t)
-;当光标在行尾上下移动的时候，始终保持在行尾。
-(setq track-eol t)
-;show matching brackets{
-(setq show-paren-delay 0)
-(setq show-paren-style 'parentheses)
-(show-paren-mode t)
-;}
-;highlight current line{
-;(global-hl-line-mode t)
-;}
 ;;把这些缺省禁用的功能打开
 (put 'set-goal-column 'disabled nil)
 (put 'narrow-to-region 'disabled nil)

;(setq viper-expert-level '3)
;-----------------set default---------------
(require 'saveplace)
(setq-default save-place t)
(setq save-place-file (concat user-emacs-directory "places"))
(setq version-control t)
(setq kept-new-versions 3)
(setq delete-old-versions t)
(setq kept-old-versions 2)
(setq dired-kept-versions 1)
(setq backup-directory-alist `(("." . ,
                                (concat user-emacs-directory "backups"))))
(setq-default
  default-frame-alist
  '(
    (save-interprogram-paste-before-kill t)
    (apropos-do-all t)
    (recentf-mode 1)
    (show-paren-mode 1)
    (language-environment 'UTF-8)
    (find-file-existing-other-name t) ;avoid problem with symbolic links
;    (curosr-color . "white")
;    (mouse-color . "white")


(add-hook 'text-mode-hook 'turn-on-auto-fill)

;------------------------programming related----------------------
;打开代码折叠功能
;(add-hook 'c-mode-hook' 'hs-minor-mode)
