init.el

;; Copyright (c) 2011, Philippe Ivaldi <www.piprime.fr>
;; Version: $Id: init.el,v 1.0 2011/06/29 Exp $
;; $Last Modified on 2012/10/21 23:26:14

;; This program is free software ; you can redistribute it and/or modify
;; it under the terms of the GNU Lesser General Public License as published by
;; the Free Software Foundation ; either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY ; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public License
;; along with this program ; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

;; COMMENTARY:

;; THANKS:

;; BUGS:

;; CODE:

;; Set the debug option to enable a backtrace when a
;; problem occurs.
;; (setq debug-on-error t)

(eval-when-compile
  (require 'cl))

(defvar user-init-dir (file-name-directory user-init-file)
  "* Le répertoire racine de tous mes fichiers concernant Emacs.")

(defun cuid (FILENAME)
  "* Tous les paquets lisp sont définis relativement
au répertoire d'installation `user-init-dir'.
Utiliser cette fonction pour définir un répertoire/fichier relatif.
Attention `user-init-dir' se termine par un /"
  (concat user-init-dir FILENAME))

(load (cuid "user-pre-init"))

(when (< emacs-major-version 22)
  (setq inhibit-startup-message t)
  (error "Configuration not supported on Emacs < 22."))

;; *=======================================================*
;; *................Gestion des répertoires................*
;; *=======================================================*
(setq load-path (append load-path (list (cuid "etc")
                                        (cuid "site-lisp")
                                        )))

(load "pi-custom-defition")

(dolist (adp user-path)
  (setenv "PATH" (concat (getenv "PATH") path-separator
                         (expand-file-name adp)))
  (push (expand-file-name adp) exec-path))

;; *=======================================================*
;; *.............chargement des configurations.............*
;; *=======================================================*

;; ------------------------------------------------
;; * Je ne veux pas que Emacs modifie mon .emacs! *
(setq custom-file (cuid "etc/pi-customize.el"))
(load custom-file)

;; --------------------------
;; * Configuration de bases *

(load "pi-font")
(load "pi-configuration")

;; --------------------------------------
;; * stores redo / undo across sessions *
;; (load "pi-undohistory")

;; ------------------------------
;; * on-the-fly syntax checking *
(load "pi-flymake")

;; ----------------------------------------------------
;; * Major mode for editing Lisp code to run in Emacs *
(load "pi-elisp")

;; --------------------------------------------
;; * Pieces of code that interressent only me *
(when (locate-library "pi-only")
  (load "pi-only"))

;; ------------------
;; * Special config *
;; Things that are not usually necessary but;
;; that I like (eg total absence of bars)
;; Shortcuts defined:
;; C-f1 to toggle the visibility of the menu bar
(when (string= user-real-login-name "pi")
  (load "pi-unwanted"))

;; -----------------------
;; * Dates et calendrier *
(load "pi-time")

;; ------------------------------------
;; * Facilités pour parcourir les url *
;; Raccourcis définis:
;; * C-b pour visiter le lien sous le curseur dans firefox
;; * C-S-b pour passer en paramètre la région sélectionnée à une url définie par un mot clef
;; les mots clefs sont:
;; gw pour Google Web
;; gl pour Google Linux
;; gg pour Google Groups
;; gt pour Google Translate Text
;; dic pour le Trésor de la Langue Française informatisé
;; conj pour la Conjugaison avec le bescherelle.
;; Exemple sélectionner le mot "myriade" puis C-S-b dic <RET> et aller voir votre navigateur...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Fonctions utiles définies (accessible par M-x)
;; smallurl-replace-at-point : remplace l'url sous le curseur par une plus petit (utilise le service tinyurl)
;; smallurl                  : imprime et met dans le kill-ring une version tinyurl de l'url demandée.
(load "pi-browse-url")

;; ----------------
;; * For SQL mode *
(load "pi-sql.el")

;; -----------------------------------
;; * Configuration de base pour Gnus *
(when (string= (user-real-login-name) "pi")
  (load "pi-gnus")) ;; n'est chargé que chez moi :-)

;; -----------
;; * Twitter *
;; (load "pi-twit") ;; does not work

;; --------------------------
;; * Fonctions personnelles *
;; Functions définies (utilisables par M-x function <ret>) :
;; xpdf : voir le .pdf associé au buffer avec xpdf.
;; acro : voir le .pdf associé au buffer avec acrobatreader.
;; gv   : voir le .pdf associé au buffer avec gv.
;; separe : insère une une ligne de séparation 8<------8<---etc...
;; moy-insert-set-key : insère le code pour définir un raccourci global.
;; pi-last-modified: ajoute la date courante (bindé sur f11)
;; pi-increment-number-line : copie n lignes et incrémente les nombres trouvés
;;                            usage C-u n M-x pi-increment-number-line
;; pi-increment-number-decimal : incrémente le nombre sous le curseur de n (1 par défaut, sans C-u)
;;  C-c + ou C-c - ou C-u n C-c + etc…
(require 'pi-functions)

;; ----------------------------------
;; * I want PI's keyboard shortcuts *
;; Redéfini C-k pour que le résultat soit parfait en fin de ligne (voir C-h k C-k)
;; C-z        : bascule plein écran
;; F8         : affiche le nom du fichier courant
;; C-u F8     : insère le nom du fichier courant dans le buffer
;; S-f8       : affiche le nom du fichier courant et le place dans le kill ring
;; C-next et C-prior : pour remplacer C-x o et C-u C-x o trop long pour moi ;-)
;;;pour ceux qui ne connaisent pas ça permet de parcourir les frames dans le sens désiré:
;;;essayer C-x 3 C-x 2 puis c-next 3 fois c-prior 3 fois. Terminer par C-x 1
;; S-TAB      : complète un nom de fichier directement depuis le buffer courant, très utile !
;;;essayer ~/ema et S-TAB juste après le 'a'
;; C-x b      : visite le lien sous le curseur avec votre navigateur préféré.
;; F12        : ferme le fichier courant ET la fenêtre (10 fois plus pratique rapide que C-x k C-x 0)
;; C-S-TAB    : indente proprement TOUT le buffer sans changer la place du curseur et en respectant
;;;les balises <pre></pre> du html !
;; M-up ou M-down : transpose la ligne avec la précédente/suivante.
;; C-x c-r    : permet d'ouvrir un fichier en tant que root.
;; redéfini la touche 'home' pour qu'elle fonctionne comme tout le monde voudrait qu'elle le fasse ;-)
;; M-q        : Use fill line or region as auto-fill-mode does
;; C-%        : commente ou décommente la ligne courante ou la région et indente le code
;; C-;        : idem mais n'indente pas, utile en mode fondamental
;; C-* et C-µ : pour insérer les commentaires spéciaux section (en jaune) et sous-section (en blanc)
;;;dans du code Elisp
;; F9         : cherche récursivement un makefile dans les répertoires supérieurs
;;;en partant du répertoire courant
;; Scroll_Lock ou Num-Défil : bascule en défilement de la page et mode normal.
;; C-$ |  C-" | C-{  | C-( : dans certain mode $, {, (, [ exécutent `skeleton-pair-insert-maybe'
;;;précédé de 'Control', cette fonctionnalité est ignorée.
;; C-:        : redo (undo c'est C-/ par défaut)
;; Redéfini les guillemets « et » pour ajouter les espaces insécables.
;; f10        : bascule inverse-video la colonne courante
;; C-<        : pour revenir à la position précédente
;; C->        : pour revenir à la position suivante
;; C-x up | C-x down | C-x right | C-x left pour redimensionner les fenêtres
;;;essayer C-x 3 C-x 2 puis C-x une_flèche. S'amuser alors avec les flèches seules ; space pour finir
;; C-' insère l'apostrophe en utf8 : ’
;; F11        : met à jour l'information de dernière modification si elle existe
;;;précédé de C-u, insère la date de dernière modification au tout début du fichier
;; S-F4       : démarre l'enregistrement d'une macro
;; F4         : termine l'enregistrement d'une macro s'il y en a une en cours d'enregistrement,
;;;sinon exécute la dernier macro enregistrée
;;;Exemple : ouvrir un fichier contenant du texte, se placer au début, presser S-F4,
;;;descendre de 3 lignes, presser la touche « entrée », presser F4. La macro est enregistrée,
;;;represser F4 pour exécuter cette macro.
(load "pi-keys")

;; --------------
;; * Organiseur *
(load "pi-org")

(when (locate-library "auctex")
  ;; ---------
  ;; * LaTeX *
  ;; Raccourcis (re)définis:
  (load "pi-tex")

  ;; ------------
  ;; * Metapost *
  (load "pi-meta")
  )

;; ---------------------------------------------
;; * Abbreviations et complétion avec tempo.el *
;; La complétion avec tempo est utile mais sera, à plus ou moins
;; long terme, remplacée par yasnippet (voir ci-après)
;; Raccourcis définis:
;; S-f4   : Démarre la définition d'une macro
;; f4     : Termine la définition de marco en cours sinon execute la dernière macro.
;; C-f4   : Édite la dernière macro
;; f7     : Bascule du mode abbrev-mode

;; f3      : complète le symbole tempo avant le curseur
;; M-left  : revient à la marque précédente
;; M-right : va à la marque suivante
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Voir dans le fichier pi-abbrev&tempo.el comment enregistrer une macro.
;; Voir dans le fichier pi-abbrev&tempo.el comment définir et enregistrer des abréviations.
(load "pi-abbrev&tempo")

;; ----------------------
;; * Complétion avancée *
;; Deux modes de completion automatique : auto-complete et company
;; Raccourcis définis:
;; F1   : bascule auto-complete : http://www.emacswiki.org/emacs/AutoComplete
;; S-F1 : bascule company-mode  : http://nschum.de/src/emacs/company-mode/
(load "pi-complete")

;; ---------
;; * gtags *
;; Pour les programmeurs qui connaissent etag (sinon désactiver)
;; Voir la documentation ici: http://www.gnu.org/software/global/globaldoc.html
;; Raccourcis définis:
;; M-.   : finds tag
;; C-M-. : find all references of tag
;; C-M-, : find all usages of symbol.
;; M-;   : cycles to next result, after doing M-. C-M-. or C-M-,
;; C-;   : insert a semicolon at the end of the line if it does not exist
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dans une fenêtre de sélection de tag:
;; RET      : sélectionne le tag et ferme la fenêtre de sélection
;; C-return : sélectionne le tag et garde la fenêtre de sélection
(load "pi-gtags")

;; -------
;; * php *
;; For the PHP programmers
;; C-S-f8 : insert the php namespace clause based on first upper
;;          case letter naming convention
(load "pi-php")

;; --------
;; * html *
;; For editing html files
(load "pi-html")

;; -----------
;; * mmm-mode *
;; - Configure multimode for emacs
;;   here doc syntax toggle to XXX-mode with this syntax (php-mode here) :
;;   $MY_VAR = <<<SQL
;;    [SQL CODE]
;;   SQL;
;; - In HTML-MODE, the <?php ?> flag toggle to php-mode
(load "pi-mmm-mode")

;; -------
;; * c++ *
(load "pi-cpp")
;; Major mode for editing CTemplate files.
(load "pi-ctpl")
;; Config for edit C++ with Qt
(load "pi-qt")

;; ----------
;; * python *
;; For the Python programmer
;; Define "C-c <down>" : py-end-of-block-or-clause
;; and "C-c <up>" : py-beginning-of-block-or-clause
(load "pi-python")

;; ---------
;; * CEDET *
;; For advanced programming
;; Must be load before ECB !
(load "pi-cedet")

;; -------
;; * ECB *
;; For navigating in programming code
(load "pi-ecb")

;; -------
;; * jde *
;; For the Java programmer
;; (load "pi-jde")

;; --------------------------------
;; * For debug programs *
(load "pi-geben") ;; See the documentation in the file pi-geben.el

;; ----------
;; * Jabber *
(load "pi-jabber")

;; --------------
;; * TypoScript *
;; (load "pi-typoscript")

;; ------------------------
;; * Programmation en LUA *
;; (load "pi-lua")

;; ----------------------------
;; * Programmation en haskell *
;; (load "pi-haskell") ;

;; -------------------------
;; * Muse for text to html *
(load "pi-muse")

;; -----------------
;; * Crypt buffers *
;; Use crypt++ For Emacs <=22 and Epa for Emacs >22
;; With Epa you must have a key http://emacs.wordpress.com/2008/07/18/keeping-your-secrets-secret/
;; The files with the extension .gpg will be crypted !!
;; Very useful to keep pass word and other confidential data
(load "pi-crypt")

;; -----------------------
;; * Editeur de tableaux *
;; M-x table-insert pour créer un tableau
;; M-x table-generate-source pour l'exporter en LaTeX, html...
;; M-x ltxtab-format pour formater un tableau en LaTeX
;; (load "pi-table")

;; -----------------------------------------------------
;; * Completion and cycling of completion candidates.  *
;; Plus d'info: http://www.emacswiki.org/cgi-bin/wiki/Icicles
;; Icicle est utile mais un peu trop envahissant pour l'activer par défaut
;; icicles doit être appelé le plus tard possible
;; comme j'utilise "desktop-save" j'ai choisi la méthode suivante:
;; (load "pi-icicle") ;; un peu trop envahissent à mon goût...

;; ---------------------------------
;; * Le Menu depuis le clavier svp *
;; <ESC> M-x. On vous demande le nom du menu à executer; commencer à taper son nom...
(load "pi-lacarte")

;; ---------------------
;; * Configuration FTP *
;; À configurer suivant vos serveur
;; ¡l y a en particulier les serveurs qui demandent un mode passif !!
(load "pi-ftp")

;; --------
;; * yaml *
;; Pour éditer des fichier yml (sinon à virer sans crainte)
(load "pi-yaml")

;; --------
;; * sass *
;; Pour éditer des fichier sass (sinon à virer sans crainte)
;; http://sass-lang.com/ et le css devient merveilleux
(load "pi-sass")

;; ------------------------
;; * dired: File Explorer *
;; A little hard to take over but no explorer
;;;file does it comes close.
;; See file for more information
(load "pi-dired")

;; -----------------------------------
;; * Formal calculations with Maxima *
;; (load "pi-maxima")

;; ----------------------------------------------
;; * Complex numerical calculations with Scilab *
;; (load "pi-scilab")

;; ------------------------------------------
;; * Complex numerical calculations Pari/gp *
;; (load "pi-pari-gp")

;; -------------------------------
;; * Synthetic image with PovRay *
;; (load "pi-povray")

;; ------------------------
;; * Bongo : Audio Player *
;; To listen music from Emacs, otherwise can be fired safely
(load "pi-bongo")

;; -----------------------
;; * Emms : Audio Player *
;; Unable to get used to it
;; (load "pi-emms")

;; ------------------------------------
;; * Visible, buffer local, bookmarks *
;; Description:
;;   bm.el provides visible, buffer local, bookmarks and the ability
;;   to jump forward and backward to the next bookmark.
;;   More informations in bm.el.
;; Defined shortcuts:
;;; f2   : Go to the next bookmark
;;; C-f2 : Add/Remove a bookmark
;;; S-f2 : Toggle if a buffer has persistent bookmarks or not.
(load "pi-bm")


;; -----------------
;; * markdown mode *
;; Documentation here http://jblevins.org/projects/markdown-mode/
(load "pi-markdown")
;;
;; ----------------------------------------
;; * Correction orthographique à la volée *
;; Flyspell http://kaolin.unice.fr/~serrano
;; Shortcuts defined :
;;; f6 switch français/américain
;;; M-$ to check the word at point
(load "pi-flyspell")

;; -------------------
;; * scroll-in-place *
;; scroll-in-place is a package that keeps the cursor on the same line
;; (and in the same column) when scrolling by a page using PgUp/PgDn.
;; Shortcuts defined :
;; C-up et C-down to scroll the text without changing the cursor position.
;; C-M-up et C-M-down to scroll the page.
(load "pi-scroll")

;; ------------------------------------------------
;; * Permutation aléatoire de lettres ds un texte *
;; Auteur: http://christophe.deleuze.free.fr/emacs.html
;; Sélectionner un texte et M-x scramble-region <RET>
;; C'est rigolo :-)
;; (load "pi-scramble")

;; -----------------------------------------
;; * Conversion d'expressions parenthésées *
;; Par exemple, sélectionner la ligne:
;; (a + b * (c + d* (e + f))) - a * (c + d (e + f))
;; M-x pi-exp-paren-region <RET> produit:
;; \Big(a + b * \big(c + d* (e + f)\big)\Big) - a * \big(c + d (e + f)\big)
;; Pour redéfinir des tags:
;; (setq pi-mm-paren-list '("" "\\big" "\\Big" "\\bigg" "\\Bigg"))
;; (load "pi-exp-paren")

;; ----------------------------
;; * Extended AutoText models *
;; Auto-insert template in new file.
;; The models are in the ~/emacs.d/site-lisp/template/ and can content embeded Lisp code
;; Whatever is between the pairs !§! is interpreted by Emacs as Emacs Lisp code.
;; The special tag !§!-!§! is the position of the cursor once the model is inserted.
;; It is possible to have several models for a given mode, the models are defined by
;;;their extensions (the .el for the lisp, the .html for the html etc)
;;;except the file makefile which is the template for a makefile
;; Also define `pi-template-licence' to insert a licence template (extension .licence)
(load "pi-template-conf")

;; ------------------------------------------
;; * Asymptote to create scientific figures *
;; ForAsymptote : http://asymptote.sourceforge.net/
;; Shortcuts defined :
;; f1 : if etags is available, create the files TAGS for Asymptote
;; C-c C-p : to force the viewing in pdf
;; C-c C-a : to make an animation with beamer of Asymptotes code
;;;(contact me for the script ...) that said, it's not very useful…
(load "pi-asy")

;; ----------------------------
;; * BBDB le carnet d'adresse *
(load "pi-bbdb")

;; ----------------------------
;; * Pour coder en Javascript *
;; C-;   : insert a semicolon at the end of the line if it does not exist
(load "pi-js")

;; ----------------------------------------------
;; * increase selected region by semantic units *
;; C-=   : Expand region increases the selected region by semantic units.
;;         Just keep pressing the key until it selects what you want.
;;         See https://github.com/magnars/expand-region.el
(load "pi-expand-region")

;; -------------------------------
;; * Les indispensables snippets *
;; http://code.google.com/p/yasnippet/
(load "pi-snippets")

;; ----------------------------------------------
;; * Manage your `kill-ring' (select and paste) *
;; Open a fancy buffer to show the kill-ring
;; Key binding defined : C-c y to show the pop-up (use right arrow to show the content)
(load "pi-browse-kill-ring")

;; (setq minibuffer-max-depth nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)


(load (cuid "user-post-init"))
;; Local variables:
;; coding: utf-8
;; End: