注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

My Unix World

不要迷恋Unix,Unix只是计算世界很小的一部分!

 
 
 

日志

 
 

【Copy】Emacs配置文件整理版  

2009-01-02 17:50:39|  分类: L-Emacs |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(menu-bar-mode -1)
(tool-bar-mode -1)
(global-font-lock-mode t)
;(transient-mark-mode nil)
(global-set-key "\C-z" nil)
(global-set-key "\C-z" (lambda()(interactive)  (set 'truncate-partial-width-windows (not truncate-partial-width-windows))))

(setq bookmark-save-flag 1)
(setq truncate-partial-width-windows t)
( auto-revert-mode t)
;;让 Emacs 可以直接打开和显示图片。
(auto-image-file-mode)

;;backup setting
(setq
   backup-by-copying t      ; don't clobber symlinks
   backup-directory-alist
    '(("." . "~/.saves"))    ; don't litter my fs tree
   delete-old-versions t
   kept-new-versions 6
   kept-old-versions 2
   version-control t)       ; use versioned backups

;;display number
(require 'setnu)
(global-set-key [f11] 'setnu-mode)
;;goto-last-change
(require 'goto-last-change)
(autoload 'goto-last-change "goto-last-change"
  "Set point to the position of the last change." t)
(global-set-key "\C-x\C-\\" 'goto-last-change)

;;;;;;;;;;GUI
;; (set-cursor-color "steelblue")
;; (set-mouse-color "steelblue")
(defun w32-maximize-frame (&optional arg)
    "Maximize the current frame"
     (interactive)
     (w32-send-sys-command 61488 arg))
(global-set-key [(control f12)] 'w32-maximize-frame)


;;;;;;;;;;ange.
(setq ange-ftp-ftp-program-name "e:/emacs/bin/release/ftp.exe")
(setq ange-ftp-ftp-program-name "e:/cygwin/bin/ftp.exe")


;;;;;;;;;; cygwin
;;  ;; This assumes that Cygwin is installed in C:\cygwin (the
;;  ;; default) and that C:\cygwin\bin is not already in your
;;  ;; Windows Path (it generally should not be).
;;  ;;
  (setq exec-path (cons "C:/cygwin/bin" exec-path))
  (setenv "PATH" (concat "C:\\cygwin\\bin;" (getenv "PATH")))
;;  ;;
;;  ;; NT-emacs assumes a Windows command shell, which you change
;;  ;; here.
;;  ;;
  (setq process-coding-system-alist '(("bash" . undecided-unix)))
  (setq shell-file-name "bash")
  (setenv "SHEdLL" shell-file-name)
  (setq explicit-shell-file-name shell-file-name)
;;  ;;
;;  ;; This removes unsightly ^M characters that would otherwise
;;  ;; appear in the output of java applications.
;;  ;;
  (add-hook 'comint-output-filter-functions
            'comint-strip-ctrl-m)

(setq tramp-default-method "ftp")


;;;;;;;;;; Shot cut
(global-set-key "\C-c9" (lambda() (interactive)( find-file "~/.emacs")))
(global-set-key "\C-c5" (lambda() (interactive)( dired "e:/emacs/site-lisp")))
(global-set-key "\C-c0" 'eshell)

;; 这个可以让emacs每次退出都保存当前的状态
(require 'session)
(add-hook 'after-init-hook 'session-initialize)
(setq visible-bell t)
(setq column-number-mode t)
(setq default-directory  "d:/icitmain/icit/sw/icit_app/")
(setq sentence-end "\\([。!?]——\\|[.?!][]\"\')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(setq adaptive-fill-regexp "[ \t]+\\|[ \t]*\\([0-9]+[\\.、]\\|\\*+\\)[ \t]*\\|[ \t]*\>")
(setq adaptive-fill-first-line-regexp "^\\* *$\\|[ \t]*")


(fset 'yes-or-no-p 'y-or-n-p)

(show-paren-mode t)
(setq show-paren-style 'parentheses)

(setq frame-title-format "emacs@%b")
(auto-image-file-mode t)
(global-font-lock-mode t)

(setq version-control t)
(setq kept-new-versions 3)
(setq delete-old-versions t)
(setq kept-old-versions 2)
(setq dired-kept-versions 1)

(line-number-mode t)
(column-number-mode t)
;;;;screen line
;;screen-lines. not work well.
;;    (autoload 'screen-lines-mode "screen-lines"
;;              "Toggle Screen Lines minor mode for the current buffer." t)
;;    (autoload 'turn-on-screen-lines-mode "screen-lines"
;;              "Turn on Screen Lines minor mode for the current buffer." t)
;;    (autoload 'turn-off-screen-lines-mode "screen-lines"
;;              "Turn off Screen Lines minor mode for the current buffer." t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Key Binding.
(global-set-key [(control &)] (function (lambda() (interactive) (scroll-down 1))))
(global-set-key [(control *)] (function (lambda() (interactive) (scroll-up 1))))
(global-set-key "\C-c\C-c"        'comment-region)
(global-set-key "\M-o" 'other-window)
(global-set-key "\C-c\C-g" 'goto-line)
(global-set-key "\C-ci" 'overwrite-mode)
(global-set-key "\C-x\C-b" 'bs-show)    ;; or another key
(global-set-key "\M-p"  'bs-cycle-previous)
(global-set-key "\M-n"  'bs-cycle-next)


;;;;;;;;;;;;;;;;;;;;move
;(global-set-key   [C-M-up]        'my-move-region-up)
(global-set-key   [C-S-up]        'my-move-line-up)
(global-set-key   [C-S-down]      'my-move-line-down)
(global-set-key   [C-M-down]      'my-dup-line-down)
(global-set-key   [S-down]        'ue-select-line-down-continued)

(global-set-key [C-M-left] (function (lambda()(interactive)
           (enlarge-window 10))))
(global-set-key [C-M-right] (function (lambda()(interactive)
           (enlarge-window-horizontally 10))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GBK
(require 'mule-gbk)
(setq w32-charset-info-alist
    (cons '("gbk" w32-charset-gb2312 . 936) w32-charset-info-alist))
(load-file "e:/emacs/site-lisp/mule-gbk/chinese-gbk.el")
(load-file "e:/emacs/site-lisp/mule-gbk/fontset-gbk.el")


(set-w32-system-coding-system 'chinese-gbk)
(set-selection-coding-system 'chinese-gbk)
(set-keyboard-coding-system 'chinese-gbk)
(set-language-environment 'chinese-gbk)
(setq locale-coding-system 'chinese-gbk)
(setq current-language-environment "chinese-gbk")
;(setq x-select-enable-clipboard t)
(load-file "e:/emacs/site-lisp/mule-gbk/characters-gbk.el")

;;;;for change default font size.

(create-fontset-from-fontset-spec
  "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-fontset-most,
chinese-gbk:-*-宋体-normal-r-*-*-14-*-*-*-*-*-gbk*-*,
chinese-gb2312:-*-宋体-normal-r-*-*-14-*-*-*-*-*-gb2312*-*,
chinese-cns11643-5:-*-宋体-medium-r-*-*-14-*-*-*-*-*-gbk*-*,
chinese-cns11643-6:-*-宋体-medium-r-*-*-14-*-*-*-*-*-gbk*-*,
chinese-cns11643-7:-*-宋体-medium-r-*-*-14-*-*-*-*-*-gbk*-*,
korean-ksc5601:-*-Batang-normal-r-*-*-14-*-*-*-c-*-ksc5601.1987*-*,
chinese-big5-1:-*-宋体-normal-r-*-*-14-*-*-*-*-*-big5*-*,
chinese-big5-2:-*-宋体-normal-r-*-*-14-*-*-*-*-*-big5*-*,
japanese-jisx0208:-*-MS UI Gothic-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*" t)

(setq default-frame-alist
        (append
        '((font . "fontset-most"))
        default-frame-alist))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Program;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;CSharp

(require 'csharp-mode)
(setq auto-mode-alist (cons '( "\\.cs\\'" . csharp-mode ) auto-mode-alist ))
(add-hook 'csharp-mode-hook  'hs-minor-mode)
(add-hook 'csharp-mode-hook  (function (lambda()
         (define-key csharp-mode-map "\C-x\C-a"     'dd-open-aspx-cs-current-window)
              (c-set-style "bsd")
          (setq c-basic-offset 4)
               )))

(define-key csharp-mode-map "\C-x\C-a" 'dd-open-aspx-cs-current-window)
(global-set-key  "\C-x\C-a" 'dd-open-aspx-cs-current-window)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;C/++ Mode

(setq compilation-scroll-output t)
(setq-default compile-command "nmake /f itmcit.mak /S /C")


(global-set-key [f3] 'previous-error)
(global-set-key [f4] 'next-error)
(global-set-key [f7]  'compile)
(global-set-key [(control f7)] (lambda () (interactive) (dd-open-h-cpp 0)))
(global-set-key [(control f6)] (lambda () (interactive) (dd-open-h-cpp 1)))

(add-hook 'c-mode-hook    'imenu-add-menubar-index)
(add-hook 'c++-mode-hook  'imenu-add-menubar-index)

(add-hook 'c-mode-hook         'hs-minor-mode)
(add-hook 'c-mode-hook         (function (lambda()(interactive)
          (c-set-style "bsd")
          (setq c-basic-offset 4)
          (setq tab-width 4)
          (define-key c-mode-map "=" (lambda()(interactive)(insert " = ")))
          (define-key c-mode-map [(control =)] (lambda()(interactive)(insert " == ")))
          )))

(add-hook 'c++-mode-hook         'hs-minor-mode)
(add-hook 'c++-mode-hook         (function (lambda()(interactive)
          (c-set-style "bsd")
          (setq c-basic-offset 4)
          (setq tab-width 4)
          (define-key c++-mode-map "=" (lambda()(interactive)(insert " = ")))
          (define-key c++-mode-map [(control =)] (lambda()(interactive)(insert " == ")))
          )))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Other enhancement

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;ECB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;speedbar
(add-to-list 'load-path "e:/emacs/site-lisp/cedet-1.0beta3b/speedbar")
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)

(global-set-key [(f5)] 'speedbar-get-focus)

;menu
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])

;;;;;;eieio
;(add-to-list 'load-path "e:/emacs/site-lisp/cedet-1.0beta3b/eieio:")
;(add-to-list 'load-path "e:/emacs/site-lisp/eieio-0.17")

;;;;;;;;;;;;;;;;;;;;;;;;semantic
;; (add-to-list 'load-path "e:/emacs/site-lisp/semantic-1.4.4")
;; ;(add-to-list 'load-path "e:/emacs/site-lisp/cedet-1.0beta3b/semantic")
;; (setq semanticdb-default-save-directory "~/.semantic")
;; (setq semantic-idle-scheduler-idle-time 1)
;; ;(semantic-load-enable-code-helpers)
;; ;; Enabling SEMANTIC minor modes.  See semantic/INSTALL for more ideas.
;; (setq semantic-load-turn-everything-on t)
;(require 'semantic-load)

;;;;;;;;;;;;;;CEDET
;(load-file "e:/emacs/site-lisp/cedet-1.0beta3b/common/cedet.el")

;;;ECB
;;(add-to-list 'load-path "e:/emacs/site-lisp/ecb-2.31")
;;(require 'ecb)

;; M-x ecb-activate 激活ECB
;; M-x ecb-show-help 查看帮助

;;;;;;;;;;;;;;ECB END;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;XREF
;; (setq load-path (cons "e:/emacs/site-lisp/xref/emacs" load-path))
;; (setq exec-path (cons "e:/emacs/site-lisp/xref" exec-path))
;; (load "xrefactory")

;;;;;;;;;;Speed Bar
;; his-speedbar-no-separate-frame
(defconst his-speedbar-buffer-name "SPEEDBAR")
(defun his-speedbar-no-separate-frame ()
  (intERACTIVE)
  (when (not (buffer-live-p speedbar-buffer))
    (setq speedbar-buffer (get-buffer-create his-speedbar-buffer-name)
          speedbar-frame (selected-frame)
          dframe-attached-frame (selected-frame)
          speedbar-select-frame-method 'attached
          speedbar-verbosity-level 0
          speedbar-last-selected-file nil)
    (set-buffer speedbar-buffer)
    (speedbar-mode)
    (speedbar-reconfigure-keymaps)
    (speedbar-update-contents)
    (speedbar-set-timer 1)
    (make-local-hook 'kill-buffer-hook)
    (add-hook 'kill-buffer-hook
              (lambda () (when (eq (current-buffer) speedbar-buffer)
                           (setq speedbar-frame nil
                                 dframe-attached-frame nil
                                 speedbar-buffer nil)
                           (speedbar-set-timer nil)))))
  (set-window-buffer (selected-window)
                     (get-buffer his-speedbar-buffer-name)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;HTML

;;html/xml mode
(require 'sgml-mode)
(setq auto-mode-alist (cons '( "\\.asp.\\'" . html-mode ) auto-mode-alist ))
(setq auto-mode-alist (cons '( "\\.ascx\\'" . html-mode ) auto-mode-alist ))
(setq auto-mode-alist (cons '( "\\.resx\\'" . xml-mode ) auto-mode-alist ))
(define-key html-mode-map [(control f7)] (lambda () (interactive) (dd-open-aspx-cs 0)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Edit ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(put 'narrow-to-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)

(global-set-key [C-tab] (lambda()(interactive)(insert "\t")))
(global-set-key [(control f10)] 'revert-buffer) 
(setq ispell-program-name  "aspell")
;;goto-last-change
(require 'goto-last-change)
(autoload 'goto-last-change "goto-last-change"
  "set point to the position of the last change." t)
(global-set-key "\C-x\C-\\" 'goto-last-change)

;;;;;;;;;;;;;;aspell
;; (setq-default ispell-dictionary  "c:/program files/aspell")
;;  (setq-default ispell-dictionary  "american")
;;  (setq ispell-dictionary  "en-only.rws")
;;  (setq ispell-library-directory "c:/cygwin/lib/aspell")
;;  (setq-default ispell-local-dictionary "american")
;;  (setq ispell-local-dictionary "american")


;;;;;;;;;;;;;;;;;;;;folding-mode


(load-library  "folding")
(declare (special fold-fold-on-startup
    fold-keys-already-setup
    ))
   
(setq fold-fold-on-startup t)
(folding-mode-add-find-file-hook)

(setq fold-keys-already-setup nil)
(add-hook 'folding-mode-hook
   (function (lambda()
        (unless fold-keys-already-setup
   (setq fold-keys-already-setup t)
   (define-prefix-command 'ctl-f-folding-mode-prefix)
   (define-key 'ctl-f-folding-mode-prefix "f" 'fold-fold-region)
   (define-key  'ctl-f-folding-mode-prefix "e" 'fold-enter)
   (define-key 'ctl-f-folding-mode-prefix "x" 'fold-exit)
   (define-key  'ctl-f-folding-mode-prefix "b" 'fold-whole-buffer)
   (define-key 'ctl-f-folding-mode-prefix "o" 'fold-open-buffer)
   (define-key 'ctl-f-folding-mode-prefix "h" 'fold-hide)
   (define-key 'ctl-f-folding-mode-prefix "s" 'fold-show)
   (define-key 'ctl-f-folding-mode-prefix "t" 'fold-top-level)
   (define-key 'ctl-f-folding-mode-prefix "f" 'fold-fold-region)
   )
        (local-set-key "\C-f" 'ctl-f-folding-mode-prefix))))

(fold-add-to-marks-list 'sgml-mode
   "<!-- {"
    "<!-- } -->" " --> ")
(fold-add-to-marks-list 'c-mode "/* <" "/* > */" "*/")
(fold-add-to-marks-list 'c++-mode
   "//<" "//>" "")
(fold-add-to-marks-list 'LaTeX-mode "%%% {{{" "%%% }}}" " ")
(fold-add-to-marks-list 'latex2e-mode "%%% {{{" "%%% }}}" " ")
(fold-add-to-marks-list 'latex-mode "%%%% {{{" "%%%% }}}" " ")
(fold-add-to-marks-list 'BibTeX-mode "%%% {{{" "%%% }}}" " ")
(fold-add-to-marks-list 'lisp-mode ";;; {" ";;; }" "")
(fold-add-to-marks-list 'lex-mode" /* {{{ " " /* }}} */ " "*/")
(fold-add-to-marks-list 'html-mode "<!-- { " "<!-- } -->" "-->")
(fold-add-to-marks-list 'shell-script-mode "# {{{" "# }}}" nil)
(fold-add-to-marks-list 'sh-mode "# {{{ " "# }}}" nil)


(autoload 'folding-mode "folding"
 "Minor mode that simulates a folding editor" t)

 (defun folding-mode-find-file-hook ()
   "One of the hooks called whenever a `find-file' is successful."
   (and (assq 'folded-file (buffer-local-variables))
        folded-file
        (folding-mode 1)
        (kill-local-variable 'folded-file)))
(require 'folding)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Dired;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;thumbs
(autoload 'thumbs "thumbs" "Preview images in a directory." t)
(put 'dired-find-alternate-file 'disabled nil)


  (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 "E" 'chunyu-dired-open-explorer)
     (define-key dired-mode-map "P" 'dired-execute-file)
     (define-key dired-mode-map "\M-[" 'dired-omit-mode)
     (define-key dired-mode-map "\M-o" nil)
     (define-key dired-mode-map "b" 'wdired-change-to-wdired-mode)

;;   (define-key dired;;   (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)

(put 'dired-find-alternate-file 'disabled nil)
  (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))))

;  同时打开所有做标记的文件:
  (defun dired-execute-file (&optional arg)
    (interactive "P")
    (mapcar #'(lambda (file) (w32-shell-execute "open" file))
            (dired-get-marked-files nil arg)))

  (setq dired-listing-switches "-avl" ;; ls 文件列表参数
        dired-recursive-copies 'top   ;; 复制目录时,递归复制所有字目录
        dired-recursive-deletes 'top  ;; 删除目录时,递归删除所有字目录
        cvs-dired-use-hook 'always)
   ;; 浏览 CVS 时,自动打开 pcl-cvs 界面
     (add-hook 'dired-load-hook
               (lambda ()
                 (load "dired-x")
                 ;; Set dired-x global variables here.  For example:
                 ;; (setq dired-guess-shell-gnutar "gtar")
                 ;; (setq dired-x-hands-off-my-keys nil)
                 ))
     (add-hook 'dired-mode-hook
               (lambda ()
                 ;; Set dired-x buffer-local variables here.  For example:
                 ;; (dired-omit-mode 1)
                 ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Daily;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key [(control f9)] 'calculator)
(global-set-key [(control f11)] 'todo-show)
(global-set-key [(control f4)] 'ffap)

;;diary
(setq chinese-calendar-celestial-stem
        ["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
        ["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])
(setq diary-file "~/diary")
(setq mark-diary-entries-in-calendar t)
(setq diary-mail-addr "you@your.email.address")
(add-hook 'diary-hook 'appt-make-list)
(global-set-key [(control f8)] 'calendar)t 
;;appointment
(setq appt-issue-message t)
(setq calendar-location-name "东方明珠")
(add-to-list 'load-path "path/where/to/chinese-calendar.el")
(require 'chinese-calendar)

(global-set-key [f9] (lambda() (interactive)( find-file "~/WiKi/LifeNotes")))
(global-set-key [f8] (lambda() (interactive)( find-file "~/WiKi/EmacsNotes")))
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)

;;todoo
(autoload 'todoo "todoo" "TODO Mode" t)
(add-to-list 'auto-mode-alist '("TODO$" . todoo-mode))

;;todo
(setq todo-file-do "~/todo/do")
(setq todo-file-done "~/todo/done")
(setq todo-file-top "~/todo/top")

;;planner
(require 'planner-calendar)
(require 'planner)
(planner-option-customized 'planner-directory "~/Plans")
(planner-option-customized 'planner-publishing-directory
      "~/Plans/public_html")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Gnus;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq gnus-group-name-charset-group-alist '((".*" . gb2312)))
(global-set-key [f3] 'gnus-unplugged);;这里定义后,可以通过按f3键来启动gnus
;; (add-to-list 'load-path "c:/emacs/site-lisp/gnus-5.10.6/lisp")
;; (setq gnus-group-name-charset-group-alist '((".*" . gb2312)))
;; (require 'info)
;; (setq Info-default-directory-list
;;       (cons "c:/emacs/site-lisp/gnus-5.10.6/texi" Info-default-directory-list))

;; ;; (require 'gnus-load)
;; ;; (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.
;; ;;  '(canlock-password "f596c5b174e1700a189a83b4299fceb848a98c00"))
;; ;; (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.
;; ;;  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Wiki ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load "emacs-wiki")

(require 'emacs-wiki)

(add-hook 'emacs-wiki-mode-hook
      (lambda ()
        (define-key emacs-wiki-mode-map (kbd "C-c C-h") 'emacs-wiki-preview-html)
        (define-key emacs-wiki-mode-map (kbd "C-c C-c") 'emacs-wiki-preview-source)
        (define-key emacs-wiki-mode-map (kbd "C-c C-v") 'emacs-wiki-change-project)
 

))

;; (setq emacs-wiki-grep-command "glimpse -nyi "%W"")

(setq emacs-wiki-publishing-directory "publish")
(setq emacs-wiki-charset-default "gb2312")
(setq emacs-wiki-directories '("~/WiKi"))
(setq emacs-wiki-meta-charset "gb2312")
(setq emacs-wiki-style-sheet      "")
(setq emacs-wiki-publishing-header "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n<html>\n  <head>\n    <title><lisp>(emacs-wiki-page-title)</lisp></title>\n    <meta name=\"generator\" content=\"emacs-wiki.el\">\n    <meta http-equiv=\"<lisp>emacs-wiki-meta-http-equiv</lisp>\"\n   content=\"<lisp>emacs-wiki-meta-content</lisp>\">\n    <link rev=\"made\" href=\"<lisp>emacs-wiki-maintainer</lisp>\">\n    <link rel=\"home\" href=\"<lisp>(emacs-wiki-published-name\n         emacs-wiki-home-page)</lisp>\">\n    <link rel=\"index\" href=\"<lisp>(emacs-wiki-published-name\n          emacs-wiki-index-page)</lisp>\">\n    <lisp>emacs-wiki-style-sheet</lisp>\n  </head>\n  <body>\n   \n    <!-- Page published by Emacs Wiki begins here -->\n")
(setq emacs-wiki-inline-relative-to 'emacs-wiki-publishing-directory)
(setq emacs-wiki-table-attributes "border=\"1\" cellpadding=\"0\"")

(defun emacs-wiki-preview-source ()
  (interactive)
  (emacs-wiki-publish-this-page)
  (find-file (emacs-wiki-published-file)))

(defun emacs-wiki-preview-html ()
  (interactive)
  (emacs-wiki-publish-this-page)
  (browse-url (emacs-wiki-published-file)))

(setq emacs-wiki-projects
      `(("default" . ((emacs-wiki-directories . ("~/WiKi"))))
        ("work" . ((fill-column . 65)
                (emacs-wiki-directories . ("~/workwiki/"))))))

;; (setq emacs-wiki-projects
;;       `(("default" . ((emacs-wiki-directories . ("~/WiKi"))))
;;         ("work" . ((fill-column . 65)
;;                 (emacs-wiki-directories . ("~/workwiki/"))))))


 (add-hook 'emacs-wiki-mode-hook
            (lambda ()
              (add-hook 'emacs-wiki-after-file-publish-hook
                        'planner-calendar-create-today-link nil t)))

;; (setq emacs-wiki-style-sheet
;;       "<link rel=""stylesheet"" type=""text/css""
;href=""core.css"">")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Blog;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq w3-configuration-directory "e:/emacs/site-listp/w3-4.0pre.47")
(setq load-path (cons "e:/emacs/site-listp/w3-4.0pre.47/lisp" load-path))
(require 'w3)


(require 'xml)
(require 'mt)
(global-set-key "\C-cwc" 'weblog-create-post)
(global-set-key "\C-cwr" 'weblog-retrieve-recent-posts)
(global-set-key "\C-cwg" 'weblog-retrieve-post)
(setq weblog-id "2")
(setq weblog-username "name")
(setq weblog-password "password")
(setq weblog-url "http://blog.blogchina.com/xmlrpc.php")
(setq weblog-post-count 5)
(setq weblog-publish-on-save t)
(setq weblog-wrap-paras nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Play;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'typing-of-emacs "The Typing Of Emacs, a game." t)
(require 'typing-of-emacs)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'dddefine)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;debug
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq source-directory "F:/CVSEmacs/emacs/src")
(setq find-function-C-source-directory  "F:/CVSEmacs/emacs/src")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

下面是自己和别人定义的东西。dddefine.el

=================================================================

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DD Define

(defun change-case-char(beginpos)
  "change char's case "
  (goto-char (+ 1 beginpos))
  (setq nAsc (preceding-char))
  (if (and (> nAsc 64) (< nAsc 91))
      (downcase-region beginpos (+ 1 beginpos))
    (upcase-region beginpos (+ 1  beginpos))
    )
  )

(defun change-case-region()
  "chagne region's case"
  (interactive)
  (setq num (- (mark) (point)))
  (if (> (mark) (point))
      ((lambda ()
  (setq beginpos (point))
  (setq endpos (mark)))
       )
    ((lambda ()
       (setq beginpos (mark))
       (setq endpos (point))))
  
    )
  (goto-char beginpos)
  (while (< beginpos endpos)
    (change-case-char beginpos)
    (setq beginpos (+ 1 beginpos))
    )
  )

(global-set-key [f12] 'change-case-region)


;;open related head/cpp file

(defun dd-open-h-cpp (p)
"open related header file or cpp file"
(interactive "p")  
    (setq wholename (buffer-file-name))
      (setq nameext (file-name-extension wholename))
      (if (string= nameext "h")
   (
    (lambda()
      (setq namenew (concat (file-name-sans-extension wholename) ".cpp"))
        ( if(= p 0)
     (find-file namenew)
   (find-file-other-window namenew)
   )
       
      )
    )
      
 )
      (if (string= nameext "cpp")
   (
    (lambda()
      (setq namenew (concat (file-name-sans-extension wholename) ".h"))
        ( if(= p 0)
     (find-file namenew)
   (find-file-other-window namenew)
   )

        )
     
    )
      
 )
)


;;c sharp mode
(defun dd-open-aspx-cs (p)
"open related header file or cpp file"
(interactive "p")  
    (setq wholename (buffer-file-name))
      (setq nameext (file-name-extension wholename))
      (if (string= nameext "cs")
   (
    (lambda()
      (setq namenew  (file-name-sans-extension wholename) )
        ( if(= p 0)
     (find-file namenew)
   (find-file-other-window namenew)
   )
       
      )
    )
      
 )
      (if (or (string= nameext "aspx") (string= nameext "ascx"))
   (
    (lambda()
      (setq namenew (concat wholename ".cs"))
        ( if(= p 0)
     (find-file namenew)
   (find-file-other-window namenew)
   )

        )
     
    )
      
 )
)

(defun dd-open-aspx-cs-current-window ()
  "dd-open-aspx-cs-current-window"
  (interactive)
  (dd-open-aspx-cs 0)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;move line

;; copy line
(defun kill-ring-save-current-line ()
  "copy the current non-empty line to the kill-ring"
  (interactive)
  (unless (equal (line-beginning-position) (line-end-position))
    (kill-ring-save (line-beginning-position) (line-end-position))))

;; bind it
(global-set-key [(control \;)] 'kill-ring-save-current-line)

(defun my-move-region-up (p)                  ;;向上移动本行
  "move current region up"
  (interactive "p")
  (let ((c (current-column)))
    (beginning-of-line)
    (kill-region )
;    (previous-line p)
 ;   (beginning-of-line)
;    (yank)
;    (previous-line 1)
;    (move-to-column c))

))

(defun my-move-line-up (p)                  ;;向上移动本行
  "move current line up"
  (interactive "p")
  (let ((c (current-column)))
    (beginning-of-line)
    (kill-line 1)
    (previous-line p)
    (beginning-of-line)
    (yank)
    (previous-line 1)
    (move-to-column c)))

(defun my-move-line-down (p)                ;;向下移动本行
  "move current line down"
  (interactive "p")
  (let ((c (current-column)))
    (beginning-of-line)
    (kill-line 1)
    (next-line p)
    (beginning-of-line)
    (yank)
    (previous-line 1)
    (move-to-column c)))
(defun my-dup-line-down ()                  ;;复制本行到下一行
  "duplicate this line at next line"
  (interactive)
  (let ((c (current-column)))
    (beginning-of-line)
    (ue-select-line-down)
    (beginning-of-line)
    (yank)
    (previous-line 1)
    (move-to-column c)))

(defvar ue-selection-last-point nil
  "Indicates whether to kill-append or kill-new")
(defvar ue-selection-total-lines 0
  "Total number of lines appended so far to the last item in kill-ring")

(defun ue-selection-update-cont ()
  "Update `ue-selection-last-point' variable"
  (if (and this-command
           (string= (format "%s" this-command)
                    "ue-select-line-down-continued"))
      (setq ue-selection-last-point (point))
    (setq ue-selection-total-lines 0)
    (setq ue-selection-last-point  nil)))

(add-hook 'post-command-hook 'ue-selection-update-cont)

(defun ue-select-line-down-continued ()     ;;连续复制多行
  "like Shift+down in UltraEdit, but do no selection.
;; Just put these continuous lines all toghether as a new item in kill-ring.
;; Messages will appear in minibuffer telling you how many lines were copied.
;; Continuous commands with no interruption append new lines to the item.
;; Any non-ue-select-line-down-continued command will stop gathering new lines
;; and make a new item in kill-ring.

;; post-command-hook is used in detecting the continuity of this command.
;; check `ue-selection-update-cont' and `post-command-hook'."
  (interactive)
  (let ((s (point)))
    (setq next-line-add-newlines t)
    (next-line 1)
    (setq next-line-add-newlines nil)
    (if (and ue-selection-last-point
             (= (save-excursion
                  (when (> (count-lines (point-min) (point)) 1)
                    (previous-line 1))
                  (point))
                ue-selection-last-point))
        (progn
          (kill-append (buffer-substring s (point)) nil)
          (setq ue-selection-total-lines (1+ ue-selection-total-lines))
          (message (format "%s lines copied" ue-selection-total-lines)))
      (kill-new (buffer-substring s (point)))
      (message "1 line copied")
      ;; some errors will cause post-command-hook deletion
      ;; so add-hook every time after we add the first line
      (add-hook 'post-command-hook 'ue-selection-update-cont)
      (setq ue-selection-total-lines 1))))

(defun ue-select-line-down ()
  "like Shift+down in UltraEdit."
  (interactive)
  (let ((s (point)))
  (setq next-line-add-newlines t)
  (next-line 1)
  (setq next-line-add-newlines nil)
  (kill-new (buffer-substring s (point)))))

;;;;;;;;;;rotate window
(defun my-retate-windows ()
  (interactive)
  (if (= (count-windows) 2)
      (let* ((wl    (window-list))
             (w1    (frame-first-window))
             (w2    (if (equal w1 (car wl)) (cadr wl) (car wl)))
             (b1    (window-buffer w1))
             (b2    (window-buffer w2))
             (first (if (equal (current-buffer) b1) t nil)))
        (if (= (window-width) (frame-width))
            (split-window-horizontally)
          (split-window-vertically))
        (other-window 2)
        (delete-window)
        (switch-to-buffer b1)
        (other-window 1)
        (switch-to-buffer b2)
        (when first (other-window 1)))
    (message "There are not exactly 2 windows.")))
(global-set-key [(control f5)] 'my-retate-windows)


(provide 'dddefine)


  评论这张
 
阅读(330)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017