.emacs - 讨论/灌水 - 电子工程师俱乐部

2dmin

;set color-----------------------------
(set-background-color "gray")
;;gray

; set cedet-----------------------------
(load-file "~/emacs_conf/cedet-1.0pre7/common/cedet.el")
;; Load CEDET.
;; See cedet/common/cedet.info for configuration details.
;;(load-file "~/cedet-VERSION/common/cedet.el")


;; Enable EDE (Project Management) features
(global-ede-mode 1)

;; Enable EDE for a pre-existing C++ project
;; (ede-cpp-root-project "NAME" :file "~/myproject/Makefile")


;; Enabling Semantic (code-parsing, smart completion) features
;; Select one of the following:

;; * This enables the database and idle reparse engines
(semantic-load-enable-minimum-features)

;; * This enables some tools useful for coding, such as summary mode
;; imenu support, and the semantic navigator
(semantic-load-enable-code-helpers)

;; * This enables even more coding tools such as intellisense mode
;; decoration mode, and stickyfunc mode (plus regular code helpers)
;; (semantic-load-enable-gaudy-code-helpers)

;; * This enables the use of Exuberent ctags if you have it installed.
;; If you use C++ templates or boost, you should NOT enable it.
;; (semantic-load-enable-all-exuberent-ctags-support)
;; Or, use one of these two types of support.
;; Add support for new languges only via ctags.
;; (semantic-load-enable-primary-exuberent-ctags-support)
;; Add support for using ctags as a backup parser.
;; (semantic-load-enable-secondary-exuberent-ctags-support)

;; Enable SRecode (Template management) minor-mode.
;; (global-srecode-minor-mode 1)
(global-set-key[(f5)]'speedbar-get-focus)

;;----------ecb-------------------
(add-to-list 'load-path
   "/home/mojian/emacs_conf/ecb-2.40")
;;(require 'ecb)
(require 'ecb-autoloads)
;;-------------cscope--------------
(add-to-list 'load-path
   "/home/mojian/emacs_conf/cscope-15.7a/contrib/xcscope")
(require 'xcscope)


(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.
'(ecb-options-version "2.40"))
(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.
)
;;---------星际译王-------、
;; author: pluskid
;; 调用 stardict 的命令行接口来查辞典
;; 如果选中了 region 就查询 region 的内容，
;; 否则就查询当前光标所在的词
(global-set-key (kbd "C-c d") 'kid-star-dict)
(defun kid-star-dict ()
(interactive)
(let ((begin (point-min))
  (end (point-max)))
  (if mark-active
  (setq begin (region-beginning)
    end (region-end))
  (save-excursion
  (backward-word)
  (mark-word)
  (setq begin (region-beginning)
    end (region-end))))
  ;; 有时候 stardict 会很慢，所以在回显区显示一点东西
  ;; 以免觉得 Emacs 在干什么其他奇怪的事情。
  (message "searching for %s ..." (buffer-substring begin end))
  (tooltip-show
(shell-command-to-string
  (concat "sdcv -n "
    (buffer-substring begin end))))))

;;----------display time-------
(setq display-time-day-and-date t
  display-time-24hr-format t)
(display-time)
;;------set shell mode------
;;--方法1-
;;(setq ansi-color-for-comint-mode t)
;;(customize-group 'ansi-colors)
;;--- 方法2----
;;<ansi-color-for-comint-mode-on>--这个有问题
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;;----set color theme----
;;(load-library "color-theme")
;;(require 'color-theme)
;;(color-theme-initialize)
;;(setq color-theme-is-global t)
;;(color-theme-marine) ;;这里调用你喜欢的theme

;;---set bookmark---
(setq bookmark-default-file "~/.emacs.d/.emacs.bmk")
(setq bookmark-save-flag 1)