Macs configuration file backup

Source: Internet
Author: User

Macs configuration file backup

(Custom-set-Variables

; Custom-set-variables was added by custom.

; If you edit it by hand, you coshould mess it up, so be careful.

; Your init file shoshould contain only one such instance.

; If there is more than one, they won't work right.

'(Current-language-Environment "UTF-8 "))

(Custom-set-Faces

; Custom-set-faces was added by custom.

; If you edit it by hand, you coshould mess it up, so be careful.

; Your init file shoshould contain only one such instance.

; If there is more than one, they won't work right.

)

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

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


; -------------------- UI -------------------------

; Plugins directory

(Add-to-list 'Load-path "~ /. Emacs. d/lisp ")


; Title bar, displaying "buffer name @ Emacs"

(Setq frame-title-format "% B @ Emacs ")


; Disable startup information

(Setq inhibit-startup-message T)


; Displays the cursor position

(Setq column-number-mode t)

(Setq line-number-mode t)


; Set kill-ring-Max to 200

(Setq kill-ring-max 200)


; Set the tab to the width of four spaces, instead of the original 2

(Setq C-Basic-offset 4)

(Setq default-tab-width 4)

(Setq-default indent-Tabs-mode nil)


; Set the cursor to the matching brackets of a bracket

(Show-Paren-mode t)

(Setq show-Paren-style 'parentheses)


; Disable Terminal ringing

(Setq visible-bell T)


; Highlight the selected area

(Setq transient-mark-mode t)


; Display Date and Time

(Setq display-time-day-and-date t)

(Setq display-time-24hr-format T)

(Setq display-time-day-and-date t)

(Setq display-time-interval 10)

(Display-Time)


; No backup files, temporary files

(Setq make-backup-files nil)

(Setq-default make-backup-files nil)


; Prevent Page scrolling

(Setq scroll-margin 3

Scroll-Conservatively 10000)


; Save the last operation record to session: http://emacs-session.sourceforge.net/

(Require 'session)

(Add-hook 'after-init-hook' session-Initialize)


; Show row number to each line: http://stud4.tuwien.ac.at /~ E0225855/linum/linum.html

(Require 'linum)

(Global-linum-mode t)


; Color theme: http://download.gna.org/color-theme/

(Require 'color-theme)

(Color-theme-Initialize)

(Color-theme-midnight)


; 'Y' for 'yes', 'n' for 'no'

(Fset 'Yes-or-no-p' y-or-n-P)


; Code folding:

; Http://www.gnuvola.org/software/j/hideshow/

(Load-library "hideshow ")

(Add-hook 'C-mode-hook' HS-minor-mode)

(Add-hook 'C ++-mode-hook' HS-minor-mode)

(Add-hook 'emacs-lisp-mode-hook' HS-minor-mode)


; Code indent Style

(Defconst my-C-style

'("BSD"; based on the existing code style.

(C-offsets-alist. (case-label .*)

(Statement-case-intro .*))))

"My programming style ")

; Add the custom code style to the list

(C-add-style "mybsd" My-C-style)

(Setq C-default-style '(C ++-mode. "mybsd ")

(C-mode. "mybsd ")

(Java-mode. "Java ")

(Awk-mode. "awk ")

(Other. "GNU ")))


;: Http://code.google.com/p/yasnippet/

(Require 'yasnippet-bundle)


; Add the tab feature to Emacs: http://emhacks.sourceforge.net/

(Require 'tabbar)

(Tabbar-mode 1)

(Setq tabbar-buffer-groups-Function

(Lambda (buffer)

(List "All buffers ")))

(Global-set-Key (KBD "M-[") 'tabbar-backward-group)

(Global-set-Key (KBD "M-]") 'tabbar-forward-group)

(Global-set-Key (KBD "M-P") 'tabbar-backward-Tab)

(Global-set-Key (KBD "M-n") 'tabbar-forward-Tab)

(Global-set-Key [(control tab)] 'tabbar-forward-Tab)


; Hide the scroll bar

(Scroll-bar-mode-1)


; Enable the image display function

(Auto-image-file-mode t)


; Supports Emacs and external program pasting.

(Setq X-select-enable-clipboard T)


; ----------------- Programming ------------------------

; Cedet: http://cedet.sourceforge.net/

(Load-file "~ /. Emacs. d/lisp/cedet/common/cedet. El ")

(Semantic-load-enable-excessive-code-helpers)

; (Semantic-load-enable-semantic-debugging-helpers)


(Setq semanticdb-default-save-directory "~ /. Emacs. d /")

(Setq Senator-minor-mode-name "Sn ")

(Setq semantic-imenu-auto-rebuild-directory-indexes nil)

(Global-srecode-minor-mode 1)

(Global-semantic-MRU-bookmark-mode 1)


; If you want to enable support for GNU global

(Require 'semanticdb-Global)

; (Global-semantic-folding-mode 1)

(Semanticdb-enable-GNU-global-databases 'C-mode)

(Semanticdb-enable-GNU-global-databases 'C ++-mode)


; Enable ctags for some ages:

; Unix shell, Perl, Pascal, TCL, Fortran, ASM

; (Semantic-load-enable-primary-exuberent-ctags-Support)



(Require 'semantic-decorate-include)


; GCC setup

(Require 'semantic-GCC)


; Smart complitions

(Require 'semantic-Ia)


(Setq-mode-Local C-mode semanticdb-find-default-Throttle

'(Project unloaded system recursive ))

(Setq-mode-Local C ++-mode semanticdb-find-default-Throttle

'(Project unloaded system recursive ))

(Setq-mode-local Erlang-mode semanticdb-find-default-Throttle

'(Project unloaded system recursive ))


(Require 'eassist)


; Customisation of Modes

(Defun my-cedet-hook ()

(Local-set-Key [(control return)] 'semantic-Ia-complete-symbol-menu)

(Local-set-key "\ c-c? "'Semantic-Ia-complete-symbol)


(Local-set-key "\ c-c>" 'semantic-complete-analyze-inline)

(Local-set-key "\ c-c =" 'semantic-Decoration-include-visit)


(Local-set-key "\ c-CJ" 'semantic-Ia-fast-jump)

(Local-set-key "\ c-CQ" 'semantic-Ia-show-Doc)

(Local-set-key "\ c-CS" 'semantic-Ia-show-summary)

(Local-set-key "\ c-CP" 'semantic-analyze-proto-impl-Toggle)

)

; (Add-hook 'semantic-init-hooks 'My-cedet-hook)

(Add-hook 'C-mode-common-hook 'My-cedet-hook)

(Add-hook 'lisp-mode-hook 'My-cedet-hook)

(Add-hook 'emacs-lisp-mode-hook 'My-cedet-hook)

; (Add-hook 'erlang-mode-hook 'My-cedet-hook)


(Defun my-C-mode-cedet-hook ()

(Local-set-key "." 'semantic-complete-Self-insert)

(Local-set-key ">" 'semantic-complete-Self-insert)

(Local-set-key "\ c-CT" 'eassist-switch-H-CPP)

(Local-set-key "\ c-XT" 'eassist-switch-H-CPP)

(Local-set-key "\ c-ce" 'eassist-list-methods)

(Local-set-key "\ c-c \ c-r" 'semantic-symref)

)

(Add-hook 'C-mode-common-hook 'My-C-mode-cedet-hook)


; Hooks, specific for semantic

(Defun my-semantic-hook ()

; (Semantic-tag-folding-mode 1)

(Imenu-add-to-menubar "tags ")

)

(Add-hook 'semantic-init-hooks' my-semantic-hook)


(Custom-set-Variables

'(Semantic-idle-scheduler-idle-time 3)

'(Semantic-Self-insert-show-completion-function (lambda nil (semantic-Ia-complete-symbol-menu (point ))))

'(Global-semantic-tag-folding-mode t nil (semantic-util-modes )))


; EDE Customization

(Require 'semantic-Lex-spp)

(Global-Ede-mode t)

; My functions for Ede

(Defun my-Ede-get-local-VAR (fname var)

"Fetch given variable VAR from: local-variables of project of file fname"

(Let * (current-Dir (file-name-directory fname ))

(Prj (EDE-current-Project current-DIR )))

(When prj

(Let * (OV (oref prj local-variables ))

(LST (assoc var OV )))

(When lst

(CDR lst ))))))


; Setup compile package

; Todo: Allow to specify function as compile-command

(Require 'compile)

(Setq compilation-Disable-input nil)

(Setq compilation-scroll-output T)

(Setq mode-compile-always-save-buffer-p t)

(Defun my-compile ()

"Saves all unsaved buffers, and runs 'compute '."

(Interactive)

(Save-some-Buffers T)

(Compile (or (my-Ede-get-local-VAR (buffer-file-Name (current-buffer) 'compile-command)

Compile-command )))


; Emacs-rc-cedet.el ends here


; Cedet's configuration for work with qt4

(Setq qt4-base-dir "/usr/include/qt4 ")

(Semantic-add-system-include qt4-base-dir 'C ++-mode)

(Add-to-list 'auto-mode-alist (cons qt4-base-dir 'C ++-mode ))

(Add-to-list 'semantic-Lex-C-Preprocessor-symbol-file (Concat qt4-base-dir "/QT/qconfig. H "))

(Add-to-list 'semantic-Lex-C-Preprocessor-symbol-file (Concat qt4-base-dir "/QT/qconfig-dist.h "))

(Add-to-list 'semantic-Lex-C-Preprocessor-symbol-file (Concat qt4-base-dir "/QT/qglobal. H "))


; ----------------------- ECB config --------------------

(Add-to-list 'Load-path "~ /. Emacs. d/lisp/ECB /")

(Require 'ecb-autoloads)


; --------------------- Cs1_config ------------------

(Require 'xcscope)


; ---------------- Personal info .----------------------

(Setq user-full-name "peng530 ")

(Setq user-mail-address "peng530@gmail.com ")


; -------------- Global hot key ----------------------


; F1: Maximize the Current Buffer:

(Global-set-Key [(F1)] 'delete-other-Windows)


; F2: Switch to Dired Mode

(Global-set-Key [(F2)] 'd D)


; F3: Switch to shell mode

(Global-set-Key [(F3)] 'ansi-term)


; F4: Disable Buffer

(Global-set-Key [(F4)] 'Kill-buffer-and-window)


; F5: Open speedbar

(Global-set-Key [(F5)] 'speedbar)


; Jump to another window

(Global-set-Key [(F6)] 'other-window)


; F7: Compile

(Global-set-Key [(F7)] 'my-compile)


; F9: GDB

(Global-set-Key [(F9)] 'gdb)


; F10: GDB: Next

(Global-set-Key [(F10)] 'gud-Next)


; F11: GDB: Step

(Global-set-Key [(F11)] 'gud-step)

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.