(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.
 '(column-number-mode t)
 '(cua-mode nil nil (cua-base))
 '(current-language-environment "Chinese-GB")
 '(display-battery-mode nil)
 '(display-time-mode t)
 '(global-font-lock-mode t)
 '(show-paren-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.
 )

;;加载路径
(add-to-list 'load-path "~/neoemacs/lisp")

;;设置字体 
(set-default-font "-*-Courier New-Regular-r-*-*-14-*-*-*-c-*-fontset-chinese") 

;;禁用启动信息 
(setq inhibit-startup-message t) 

;;关闭烦人的出错时的提示声 
(setq visible-bell t) 


;;把title设置为“文件名@LC's Emacs"
(setq frame-title-format
        '("  GNU Emacs   -   [ " (buffer-file-name "%f \]"
                (dired-directory dired-directory "%b \]"))))

;;光标靠近鼠标的时候，让鼠标自动让开，别挡住视线
(mouse-avoidance-mode 'animate)

;;下面的这个设置可以让光标指到某个括号的时候显示与它匹配的括号 
(show-paren-mode t) 
(setq show-paren-style 'parentheses) 

;;设置缺省模式是text，而不是基本模式 
(setq default-major-mode 'text-mode) 
(add-hook 'text-mode-hook 'turn-on-auto-fill) 

;;设置tab为4个空格的宽度，而不是原来的2 
(setq default-tab-width 4) 

;;防止页面滚动时跳动 
(setq scroll-margin 3
      scroll-conservatively 10000)

;; 所有的备份文件转移到~/neoemacs/backups目录下 
(setq make-backup-files t)
(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("" . "~/neoemacs/backups")))
(setq delete-auto-save-files t)
;; Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉
;; (并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放在一
;; 个固定的地方("~/neoemacs/backups")。对于每个备份文件，保留最原始的两个版本和最新的
;; 五个版本。并且备份的时候，备份文件是复本，而不是原件。

;;不产生备份文件 
;(setq make-backup-files nil) 

;;设置kill-ring-max(我不知道怎么翻译这个词：)为200，以防不测：） 
(setq kill-ring-max 200)

;;显示日期 
(setq display-time-day-and-date t) 
(display-time) 

;;显示时间
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-use-mail-icon t)
(setq display-time-interval 10)

;; 设置时间戳，标识出最后一次保存文件的时间。
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S K.T")

;; 默认的日记文件
(setq diary-file "~/neoemacs/diary")

;; 设置所在地的经纬度和地名，calendar 可以根据这些信息告知你每天的日出和日落
;; 的时间。
(setq calendar-latitude +36.60)
(setq calendar-longitude +117)
(setq calendar-location-name "JiNan")

;;保存上次的操作记录到SESSION 
(add-to-list 'load-path "~/neoemacs/backups") 
(require 'session) 
(add-hook 'after-init-hook 'session-initialize) 

(load "desktop") 
(desktop-load-default) 
(desktop-read) 

;;设置默认工作目录 
(setq default-directory "D:/Neosun/Work") 

;;显示列号
(setq column-number-mode t)

;设置默认的列数是123
(setq default-fill-column 12300)

;;设置行号,开启命令:M-x setnu-mode 
(require 'setnu) 

;;'y' for 'yes', 'n' for 'no' 
(fset 'yes-or-no-p 'y-or-n-p) 

;;自动补全
(global-set-key [(meta ?/)] 'hippie-expand)
(setq hippie-expand-try-functions-list 
      '(try-expand-dabbrev
 try-expand-dabbrev-visible
 try-expand-dabbrev-all-buffers
 try-expand-dabbrev-from-kill
 try-complete-file-name-partially
 try-complete-file-name
 try-expand-all-abbrevs
 try-expand-list
 try-expand-line
 try-complete-lisp-symbol-partially
 try-complete-lisp-symbol)
)


(defun hold-line-scroll-up()
  "Scroll the page with the cursor in the same line"
  (interactive)
  (let ((next-screen-context-lines
        (count-lines
         (window-start) (window-end)
         )
        ))
    (scroll-up)
    ))

(defun hold-line-scroll-down()
  "Scroll the page with the cursor in the same line"
  (interactive)
  (let ((next-screen-context-lines
        (count-lines
         (window-start) (window-end)
         )
        ))
    (scroll-down)
    ))

(global-set-key (kbd "M-n") 'hold-line-scroll-up)
(global-set-key (kbd "M-p") 'hold-line-scroll-down)

;;开启tabbar 
(require 'tabbar) 
(tabbar-mode)
(setq tabbar-buffer-groups-function 'tabbar-buffer-ignore-groups)

(defun tabbar-buffer-ignore-groups (buffer)
  "Return the list of group names BUFFER belongs to.
Return only one group for each buffer."
  (with-current-buffer (get-buffer buffer)
    (cond
     ((or (get-buffer-process (current-buffer))
          (memq major-mode
                '(comint-mode compilation-mode)))
      '("Process")
      )
     ((member (buffer-name)
              '("*scratch*" "*Messages*"))
      '("Common")
      )
     ((eq major-mode 'dired-mode)
      '("Dired")
      )
     ((memq major-mode
            '(help-mode apropos-mode Info-mode Man-mode))
      '("Help")
      )
     ((memq major-mode
            '(rmail-mode
              rmail-edit-mode vm-summary-mode vm-mode mail-mode
              mh-letter-mode mh-show-mode mh-folder-mode
              gnus-summary-mode message-mode gnus-group-mode
              gnus-article-mode score-mode gnus-browse-killed-mode))
      '("Mail")
      )
  ((memq major-mode
            '(php-mode html-mode c-mode java-mode text-mode conf-mode lisp-mode))
      '("Mywork")
      )
  ((member (buffer-name)
              '("*w3m*"))
      '("Mywork")
      )
  ((member (buffer-name)
              '("*chat.freenode.net*" "*irc.freenode.net*" "*irc.263.net*" "*bj.irc.263.net*"))
      '("rcirc")
      )
     (t
      (list 
       "default"  ;; no-grouping
       (if (and (stringp mode-name) (string-match "[^ ]" mode-name))
           mode-name
         (symbol-name major-mode)))
      )
     
     )))


;(global-set-key (kbd "") 'tabbar-backward-group) 
;(global-set-key (kbd "") 'tabbar-forward-group) 
;(global-set-key (kbd "") 'tabbar-backward) 
;(global-set-key (kbd "") 'tabbar-forward) 

;; 代码折叠 
(load-library "hideshow") 
(add-hook 'java-mode-hook 'hs-minor-mode) 
(add-hook 'perl-mode-hook 'hs-minor-mode) 
(add-hook 'php-mode-hook 'hs-minor-mode) 
(add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)

;;开启图片浏览 
(require 'thumbs) 
(auto-image-file-mode t) 

;; 如果设置为 t，光标在 TAB 字符上会显示为一个大方块 :)。
;;(setq x-stretch-cursor nil)

; 开启语法高亮。
(global-font-lock-mode 1) 

;打开压缩文件时自动解压缩。
(auto-compression-mode 1)                             

; 光标不要闪烁。
;(blink-cursor-mode -1)

; 高亮显示匹配的括号。
(show-paren-mode 1)

; 给出用 M-x foo-bar-COMMAND 输入命令的提示。
;(icomplete-mode 1)

; 打开文件和转换 buffer 的方便模式。
;(ido-mode 1)

;;DIRED CONFIG
(require 'dired)
(require 'dired-x)
;; C-x C-j                 跳转到当前文件所在目录的 dired 缓冲[x]
(global-set-key "\C-x\C-j" 'dired-jump)
(define-key dired-mode-map "b" 'dired-mark-extension)
(define-key dired-mode-map "c" 'dired-up-directory)
(define-key dired-mode-map "e" 'dired-mark-files-containing-regexp)
(define-key dired-mode-map "o" 'chunyu-dired-open-explorer)
(define-key dired-mode-map "r" 'dired-mark-files-regexp)
(define-key dired-mode-map "/" 'dired-mark-directories)
(define-key dired-mode-map "K" 'dired-kill-subdir)
(define-key dired-mode-map [(control ?/)] 'dired-undo)

(defun chunyu-dired-open-explorer ()
 (interactive)
 (let ((file-name (dired-get-file-for-visit)))
 (if (file-exists-p file-name)
 (w32-shell-execute "open" file-name nil 1))))

(setq dired-listing-switches "-avl" ;; ls 文件列表参数
 dired-recursive-copies 'top   ;; 复制目录时，递归复制所有字目录
 dired-recursive-deletes 'top  ;; 删除目录时，递归删除所有字目录
 cvs-dired-use-hook 'always)   ;; 浏览 CVS 时，自动打开 pcl-cvs 界面

;;让emacs在windows上启动时最大化
(defun w32-restore-frame () 
"Restore a minimized frame" 
(interactive) 
(w32-send-sys-command 61728)) 
(defun w32-maximize-frame () 
"Maximize the current frame" 
(interactive) 
(w32-send-sys-command 61488)) 
(w32-maximize-frame)


;;中文设置

;;中文设置
(set-language-environment 'Chinese-GB)
(set-keyboard-coding-system 'chinese-iso-8bit)
(set-selection-coding-system 'chinese-iso-8bit)
(set-terminal-coding-system 'chinese-iso-8bit)
(setq locale-coding-system 'chinese-iso-8bit)
(set-clipboard-coding-system 'chinese-iso-8bit)
(setq current-language-environment "Chinese-GB")
(setq file-coding-system-alist 
    (list file-coding-system-alist 
        `(".*" chinese-iso-8bit))) 


;;SET KEY 
(global-set-key "\C-xk" 'kill-this-buffer) 
(global-set-key "\C-xr" 'replace-string) 
(global-set-key [(f7)] '(lambda ()
    (interactive)
    (insert (format-time-string "%Y年%m月%d日\n1.\n2.\n3."))
    ))
(global-set-key [(f6)] '(lambda ()
    (interactive)
    (insert (format-time-string "%Y-%m-%d %H:%S"))
    ));把插入当前时间绑定到 C-x t
(global-set-key [(f5)] '(lambda ()
    (interactive)
    (insert (format-time-string "%Y年%m月%d日"))
    ))


;;EMACS配色方案,菜单Tools->Color Theme 选择你需要的配色 
(require 'color-theme)
(color-theme-dark-blue2)



;;导出成html高亮显示
(require 'htmlize)

;find next 字母C-c a xxxxx 
(defun wy-go-to-char (n char)
  "Move forward to Nth occurence of CHAR.
Typing `wy-go-to-char-key' again will move forwad to the next Nth
occurence of CHAR."
  (interactive "p\ncGo to char: ")
  (search-forward (string char) nil nil n)
  (while (char-equal (read-char)
       char)
    (search-forward (string char) nil nil n))
  (setq unread-command-events (list last-input-event)))

(define-key global-map (kbd "C-c a") 'wy-go-to-char)
(require 'setnu)


;;php mode
(load-file "~/neoemacs/lisp/php-mode.el")
(autoload 'php-mode "php-mode""PHP Editing Mode" t)
(add-to-list 'auto-mode-alist'("\.php?\'".php-mode))
(add-hook 'php-mode-user-hook
          'turn-on-font-lock
          '(lambda () (define-abbrev php-mode-abbrev-table "ex" "extends"))
          )
;; passwd protect
(add-hook 'comint-output-filter-functions
          'comint-watch-for-password-prompt)

;;鼠标拷贝
(defun mouse-select-and-paste (start-event)
  "Select and paste the word at mouse point."
  (interactive "e")
  (let* ((start-point (posn-point (event-start start-event)))
         beg word)
    (save-excursion
      (goto-char start-point)
      (forward-char 1)
      (skip-chars-backward "a-zA-Z0-9-_")
      (setq beg (point))
      (skip-chars-forward "a-zA-Z0-9-_")
      (setq word (buffer-substring-no-properties beg (point))))
    (kill-new word)
    (insert word)))

(global-set-key   [M-down-mouse-1] 'mouse-select-and-paste)