Profil du membre : natir

(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.
 '(find-file-wildcards t)
 '(inhibit-startup-screen t)
 '(pc-selection-mode t nil (pc-select)))
(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.
 )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                     Modification Interface                               ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;Modification de la fenetre au lancement
;; (split-window-horizontally)
;; (other-window 1)
;; (split-window-vertically)

;;Affiche le numéro de ligne et de colone
(global-linum-mode t)
(setq column-number-mode t)

;;Nom du buffer en cours dans la barre de titre               
(setq frame-title-format "%b - Emacs")                        
(setq icon-title-format "%b - Emacs")                         

;;----------
;; Couleur
;;---------

;; Definition des couleurs generales
(set-background-color "#333333")
(set-foreground-color "White")
(set-cursor-color "Yellow")

;; Mettre en gras les mots-cles
(set-face-bold-p 'font-lock-keyword-face t)
(set-face-bold-p 'font-lock-type-face t)
(set-face-bold-p 'font-lock-constant-face t)
(set-face-bold-p 'font-lock-function-name-face t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                        Petit Modification                                ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;Reponse au question toujours une letre
(fset 'yes-or-no-p 'y-or-n-p)

;;Autorise la séléction à l'aide de la touche SHIFT
(custom-set-variables '(pc-selection-mode t nil (pc-select)))

;;Effacement de la selection lorsque qu'un touche et fraper
(custom-set-variables '(pending-delete-mode t t))

;;Pas de message au lancement d'emacs
(setq inhibit-startup-message t)

;; Mise à jour automatique des fichiers qui changent sur disque...
(global-auto-revert-mode 1)

;; Fichiers de sauvegarde centralisés dans un répertoire
(let ((rep-fichiers-secours (expand-file-name "~/.emacs.d/backups")))
  (cond ((featurep 'xemacs)
         (custom-set-variables `(bkup-backup-directory-info
                                 (list (list "." ,rep-fichiers-secours
                                             'full-path))))
         (require-faible 'backup-dir))
        (t ;; Non-xemacs
         (custom-set-variables `(backup-directory-alist
                                 (list (cons "." ,rep-fichiers-secours)))))))

					;Copier coller avec autres applications
(setq x-select-enable-clipboard t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                         Fonction Interne                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; convertit un fichier dos vers unix
(defun dos-unix ()
  "Convertit un fichier dos vers unix"
  (interactive)
  (goto-char (point-min))
  (while (search-forward "\r" nil t)
    (replace-match "")))

;; convertit un fichier unix vers dos
(defun unix-dos ()
  "Convertit un fichier unix vers dos"
  (interactive)
  (goto-char (point-min))
  (while (search-forward "\n" nil t)
    (replace-match "\r\n")))

;; affiche doxyfile lance doxygen et ouvre firefox sur l'index
(defun gendoc ()
  "Affiche doxyfile lance doxygen et ouvre firefox sur l'index"
  (interactive)
  (shell-command "emacsclient -nw -c ../doc/doxyfile")
  (shell-command "make doc")
  (shell-command "firefox ../doc/html/index.html")
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                            Programation                                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;-----------
;; Mode C++
;;----------

;; Lancement des mode pour des extension particuliere
(setq auto-mode-alist
      (cons '("\\.tpp$" . c++-mode) auto-mode-alist))

;;------------
;; Mode C
;;-----------
;;Colorisation de la syntaxe
(global-font-lock-mode t)    
;;Maximum de couleurs        
(setq font-lock-maximum-decoration t)
(windmove-default-keybindings 'meta) 

;;Modification de l'indentation
(setq c-default-style "k&r"
      c-block-comment-prefix ""
      c-basic-offset 4)

;;------------
;; Mode Java
;;-----------

(setq java-default-style "k&r"
      java-block-comment-prefix ""
      java-basic-offset 4)

;;-----------------
;; Mode HTML Delux
;;-----------------

;;chargement du repertoire personnel
(add-to-list 'load-path "/home/pierre/Programation/Lisp/")
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/")

(require 'php-mode)

;; configure css-mode
(autoload 'css-mode "css-mode")
(add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode))
(setq cssm-indent-function #'cssm-c-style-indenter)
(setq cssm-indent-level '2)

(add-hook 'php-mode-user-hook 'turn-on-font-lock)

(require 'mmm-mode)
(setq mmm-global-mode 'maybe)

;; set up an mmm group for fancy html editing
(mmm-add-group
 'fancy-html
 '(
   (html-php-tagged
    :submode php-mode
    :face mmm-code-submode-face
    :front "<[?]php"
    :back "[?]>")
   (html-css-attribute
    :submode css-mode
    :face mmm-declaration-submode-face
    :front "styleREMOVEME=\""
    :back "\"")))

;; What files to invoke the new html-mode for?
(add-to-list 'auto-mode-alist '("\\.inc\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.phtml\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.php[34]?\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.[sj]?html?\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.jsp\\'" . html-mode))

;; What features should be turned on in this html-mode?
(add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil html-js))
(add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil embedded-css))
(add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil fancy-html))

;; Modification de la coloration syntaxique
(set-face-background 'mmm-default-submode-face nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                Chargement et Parametrage des Modules                     ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;autopair
(require 'autopair)
(autopair-global-mode)
(add-hook 'term-mode-hook
	  #'(lambda () (setq autopair-dont-activate t)))

;;Ido
(ido-mode t)
(ido-everywhere t)
(setq ido-enable-flex-matching t)
(global-set-key
 "\M-x"
 (lambda ()
   (interactive)
   (call-interactively
    (intern
     (ido-completing-read
      "M-x "
      (all-completions "" obarray 'commandp))))))

;;--------------
;; Auto-insert
;;-------------
(require 'auto-insert-tkld)

(setq mail-self-address "Pierre Marijon <pierre@marijon.fr>")
(setq auto-insert-path (cons "~/.emacs.d/insert" auto-insert-path))
(setq auto-insert-automatically t)
(setq auto-insert-alist
      '(
	("main.c$" . "MAIN")            ; main
	("main.cpp$" . "MAIN")          ; main
	("goodies_fct.c" . "GOODIES_C")   ; 
	("goodies_fct.h" . "GOODIES_H")   ; 
	("\\.c$" . "C")			; C
	("\\.h$" . "Cinclude")		; C include
	("[Mm]akefile$" . "Makefile")	; Makefile	 
	("\\.cpp$" . "CPP")             ; Cpp
	("\\.hpp$" . "HPP")             ; Hpp
	)
      )
(setq auto-insert-type-alist
      '(("C" . "insert.c")
	("Cinclude" . "insert.h")
	("Makefile" . "insert.mk")
	("CPP" . "insert.cpp")
	("HPP" . "insert.hpp")
	("MAIN" . "insert.main")
	("GOODIES_C" . "insert.goodies_c") 
	("GOODIES_H" . "insert.goodies_h")
	)
      )

;;------
;; CEDET
;;------
(load-file "/home/pierre/Programation/Lisp/cedet-1.0/common/cedet.el")
(global-ede-mode 1)                      ; Enable the Project management system
(semantic-load-enable-code-helpers)      ; Enable prototype help and smart completion 
(global-srecode-minor-mode 1)            ; Enable template insertion menu

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                             Raccourcie                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key [(control c)(c)]'compile)
(global-set-key [(control b)] 'electric-buffer-list)
(global-set-key [(control t)] 'term)
(global-set-key [(control tab)] `other-window)
(global-set-key [(meta up)] 'beginning-of-buffer)
(global-set-key [(meta down)] 'end-of-buffer)
(global-set-key [(meta left)] 'beginning-of-line)
(global-set-key [(meta right)] 'end-of-line)
(global-set-key [(meta c)] 'comment-region)
(global-set-key [(meta u)] 'uncomment-region)
(global-set-key [(control .)] 'semantic-ia-complete-symbol-menu)
(global-set-key [(control c) (meta c)] 'srecode-document-insert-comment)
(global-set-key [(control c) (meta g)] 'srecode-insert-getset)