mmh re-produit (defaut?)

Ca me go????, j'ai déjà des améliorations:

(defun create-new-eeec (title numero name1 name2 measure length tempo key use)
"Create new EEEC buffer and file"
(interactive "sTitle of the song: sNumero: sFirst name: sSecond name: sMeasure: (default C) sLength: (default 1/8) sTempo: (ex: 1/4–) sKey: (default C) sUse: ")
(global-set-key "\C-cr" 'create-new-eeec)
(set-buffer (get-buffer-create title))

;; Mise en place de l'entête du buffer
(if (not (string-equal use ""))
(progn
(insert "")
(insert-char ?* 80)
(insert "Usage: " use)
(insert "Jour: Lieu: ")
(insert-char ?* 80)
(insert "")))

(insert "X:1T:" title)
(if (not (string-equal numero ""))
(insert "T:" (replace-regexp-in-string "\\([A-Z]+\\)\\([0-9]+\\)" "\\1 \\2" numero)))
(if (not (string-equal name1 ""))
(insert "C:" name1))
(if (not (string-equal name2 ""))
(insert "C:" name2))
(insert "M:" (if (string-equal measure "") "C" measure))
(insert "L:" (if (string-equal length "") "1/8" length))
(if (not (string-equal tempo ""))
(insert "Q:" tempo))
(insert "K:" (if (string-equal key "") "C" key))
(insert "%%staves (1 2)V:1")

;; Joindre, s'il y a, le numéro du chant
(if (not (string-equal numero ""))
(setq title (concat title "_" numero)))

;; Eliminer, dans le titre, tout ce qui ne va pas pour un nom de fichier
(setq title (replace-regexp-in-string "[-!?.,;: ]" "_" title))
(setq title (replace-regexp-in-string "_+" "_" title))
(setq title (replace-regexp-in-string "_$" "" title))

(setq title (replace-regexp-in-string "ç" "c" title))
(setq title (replace-regexp-in-string "[âäà]" "a" title))
(setq title (replace-regexp-in-string "[êëéè]" "e" title))
(setq title (replace-regexp-in-string "[ôö]" "o" title))
(setq title (replace-regexp-in-string "[îï]" "i" title))
(setq title (replace-regexp-in-string "[ûüù]" "u" title))

;; Sauvergarder
(write-file (concat title ".eeec") t)

(goto-char (point-min))

(switch-to-buffer (buffer-name)))