Ubuntu配置记录-2：关于开发环境的配置

(global-set-key [(meta left)] 'backward-sexp)
(global-set-key [(meta right)] 'forward-sexp)

(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.32")
 '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))
 '(ecb-source-path (quote ("/usr/include/gtkmm-2.4" "/media/hda10/SourceCode/gftp/GFTP_2_0_17/src" "/media/hda10/SourceCode/gftp/GFTP_2_0_17/lib" "~/programs" ("~/programs/socket/src" "tssocket") ("/home/tigersoldier/programs/tsftp" "tsftp") ("/media/hda9/课程作业" "homework"))))
 '(ecb-tip-of-the-day nil)
 '(ecb-tree-expand-symbol-before t)
  ;;设置用空格缩进而不是Tab
 '(indent-tabs-mode nil)
 '(semanticdb-project-roots (quote ("/" "~/programs/tsftp/")))
 '(transient-mark-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.
 )

;支持emacs和外部程序的粘贴
(setq x-select-enable-clipboard t)

;;;使用EDE
(require 'ede)
(global-ede-mode t)


;;;;以下是我的快捷键设置
;;;F3：切换到dired模式
(global-set-key  [(f3)]  'dired)
;;;F4：切换到shell模式
(global-set-key  [(f4)]  'ansi-term)
;;;F5：打开speedbar
(global-set-key  [(f5)]  'speedbar)
;;;F11:打开ecb
(global-set-key  [(f11)] 'ecb-activate)
;;;F12:关闭ecb
(global-set-key  [(f12)] 'ecb-deactivate)
;;;M-g 转到指定行号
(global-set-key [(meta g)] 'goto-line)
;;;设置选择起点
(global-set-key (kbd "C-x <SPC>") 'set-mark-command)
;;;高亮选择
(transient-mark-mode t)
;;;显示行号
(setq line-number-mode t)
;;;显示列号
(setq column-number-mode t)
;;打开括号匹配显示模式
(setq show-paren-mode t)
;;括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处。
(setq show-paren-style 'parenthesis)
;; "C-,"设为屏幕左移命令
(global-set-key (kbd "C-,") 'scroll-left)
;; "C-."设为屏幕右移命令
(global-set-key (kbd "C-.") 'scroll-right)

;;;;  CC-mode配置    http://cc-mode.sourceforge.net/
(require  'cc-mode)
(c-set-offset  'inline-open  0)
(c-set-offset  'friend  '-)
(c-set-offset  'substatement-open  0)
;;;;我的C/C++语言编辑策略
 
;;sematic的检索范围
(setq semanticdb-project-roots
   (list
        (expand-file-name "/")))

;;自动补齐命令
(defun my-indent-or-complete ()
   (interactive)
   (if (looking-at "\>")
    (hippie-expand nil)
    (indent-for-tab-command))
 )
(global-set-key [(control tab)] 'my-indent-or-complete)

;;hippie的自动补齐策略
(autoload 'senator-try-expand-semantic "senator")

(setq hippie-expand-try-functions-list
    '(
      senator-try-expand-semantic
      try-expand-dabbrev
      try-expand-dabbrev-visible
      try-expand-dabbrev-all-buffers
      try-expand-dabbrev-from-kill
      try-expand-list
      try-expand-list-all-buffers
      try-expand-line
      try-expand-line-all-buffers
      try-complete-file-name-partially
      try-complete-file-name
      try-expand-whole-kill
      )
)
;-------------------------------------------------------------------------------
;;doxymacs
;;添加doxymacs所在的路径
(add-to-list 'load-path
             "~/share/emacs/site-lisp/")
;;装载doxymacs
(require 'doxymacs)
;;注释高亮，针对C和C++程序
(defun my-doxymacs-font-lock-hook ()
  (if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode))
      (doxymacs-font-lock)))
(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)
;---------------------------------------------------------------------------------
(defun  my-c-mode-common-hook()
    (setq  tab-width  4  indent-tabs-mode  t)
    ;;;  hungry-delete  and  auto-newline
    ;(c-toggle-hungry-state 1)
    ;(c-toggle-auto-newline 0)
    ;(c-toggle-electric-state 0)
    ;;按键定义
    (define-key  c-mode-base-map  [(control  \`)]  'hs-toggle-hiding)
    (define-key  c-mode-base-map  [(return)]  'newline-and-indent)
    (define-key  c-mode-base-map  [(f7)]  'compile)
    ;(define-key  c-mode-base-map  [(meta  \`)]  'c-indent-command)
    (define-key  c-mode-base-map [(tab)] 'my-indent-or-complete)
    (define-key  c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
    ;;预处理设置
    (setq  c-macro-shrink-window-flag  t)
    (setq  c-macro-preprocessor  "cpp")
    (setq  c-macro-cppflags  "  ")
    (setq  c-macro-prompt-flag  t)
    (setq  hs-minor-mode  t)
    (setq  abbrev-mode  t)
    ;;doxymacs
    (doxymacs-mode)
)

(add-hook  'c-mode-common-hook  'my-c-mode-common-hook)
 
;;;;我的C++语言编辑策略
(defun  my-c++-mode-hook()
    (setq  tab-width  4  indent-tabs-mode  t)
    (c-set-style  "stroustrup")
;;    (define-key  c++-mode-map  [f3]  'replace-regexp)
)


(put 'scroll-left 'disabled nil)

;;jflex-mode
(autoload 'jflex-mode "jflex-mode" nil t)
(setq auto-mode-alist (cons '("\\(\\.flex\\|\\.jflex\\)\\'" . jflex-mode) auto-mode-alist))