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: \nsNumero: \nsFirst name: \nsSecond name: \nsMeasure: (default C) \nsLength: (default 1/8) \nsTempo: (ex: 1/4=96) \nsKey: (default C) \nsUse: ")
(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 "\n\n\n")
(insert-char ?* 80)
(insert "\nUsage: " use)
(insert "\nJour: \nLieu: \n")
(insert-char ?* 80)
(insert "\n\n")))

(insert "X:1\nT:" title)
(if (not (string-equal numero ""))
(insert "\nT:" (replace-regexp-in-string "\\([A-Z]+\\)\\([0-9]+\\)" "\\1 \\2" numero)))
(if (not (string-equal name1 ""))
(insert "\nC:" name1))
(if (not (string-equal name2 ""))
(insert "\nC:" name2))
(insert "\nM:" (if (string-equal measure "") "C" measure))
(insert "\nL:" (if (string-equal length "") "1/8" length))
(if (not (string-equal tempo ""))
(insert "\nQ:" tempo))
(insert "\nK:" (if (string-equal key "") "C" key))
(insert "\n%%staves (1 2)\nV:1\n")

;; 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)))