diff --git a/canciones/01_entrada/preparad_el_camino.tex b/canciones/01_entrada/preparad_el_camino.tex
index ff44f3e..0fa80fc 100644
--- a/canciones/01_entrada/preparad_el_camino.tex
+++ b/canciones/01_entrada/preparad_el_camino.tex
@@ -1,4 +1,4 @@
-\beginsong{Preparad el camino al Señor}[by={Prepare Ye - Godspell}]
+\beginsong{Preparad el camino al Señor}[m={Prepare Ye - Godspell}]
 \beginchorus\memorize
 \[D]Prepa\[G]rad el ca\[D]mino al Se\[A]ñor, \[D]y escu\[G]chad la pa\[D]la\[A]bra de \[D]Dios. \[A]
 \endchorus
diff --git a/canciones/01_entrada/un_nuevo_sitio_disponed.tex b/canciones/01_entrada/un_nuevo_sitio_disponed.tex
index 140b695..9653f1d 100644
--- a/canciones/01_entrada/un_nuevo_sitio_disponed.tex
+++ b/canciones/01_entrada/un_nuevo_sitio_disponed.tex
@@ -1,4 +1,4 @@
-\beginsong{Un nuevo sitio disponed}[by={Aggiungi un posto a tavola - Armando Trovajoli}]
+\beginsong{Un nuevo sitio disponed}[m={Aggiungi un posto a tavola - Armando Trovajoli}]
 \beginverse
 \[D]Un nuevo sitio \[D7]disponed para \[G]un amigo \[D]más,
 un poquitín que os \[D7]estrechéis y \[G]se podrá sen\[A]tar,
diff --git a/canciones/03_aleluya/aleluya_de_la_sirenita.tex b/canciones/03_aleluya/aleluya_de_la_sirenita.tex
index bb9c9ef..53a2f26 100644
--- a/canciones/03_aleluya/aleluya_de_la_sirenita.tex
+++ b/canciones/03_aleluya/aleluya_de_la_sirenita.tex
@@ -1,4 +1,4 @@
-\beginsong{Aleluya de la Sirenita}[by={Bajo del mar - La Sirenita}]
+\beginsong{Aleluya de la Sirenita}[m={Bajo del mar - La Sirenita}]
 \ifchorded
 {\nolyrics Intro: Do }
 \fi
diff --git a/canciones/03_aleluya/aleluya_leonard_cohen.tex b/canciones/03_aleluya/aleluya_leonard_cohen.tex
index b85d066..e2c2a58 100644
--- a/canciones/03_aleluya/aleluya_leonard_cohen.tex
+++ b/canciones/03_aleluya/aleluya_leonard_cohen.tex
@@ -1,4 +1,4 @@
-\beginsong{Aleluya (Leonard Cohen)}[by={Hallellujah - Leonard Cohen}]
+\beginsong{Aleluya (Leonard Cohen)}[m={Hallellujah - Leonard Cohen}]
 \beginverse*
 \[G]No soy más que un pre\[Em]dicador, 
 u\[G]na simple per\[Em]sona más, 
diff --git a/canciones/05_ofertorio/hoy_senor.tex b/canciones/05_ofertorio/hoy_senor.tex
index 42768b3..1cd8a54 100644
--- a/canciones/05_ofertorio/hoy_senor.tex
+++ b/canciones/05_ofertorio/hoy_senor.tex
@@ -1,4 +1,4 @@
-\beginsong{Hoy Señor te presentamos}[by={Let It Be - The Beatles}]
+\beginsong{Hoy Señor te presentamos}[m={Let It Be - The Beatles}]
 \beginverse
 Hoy, Se\[D]ñor, te presen\[A]tamos
 este \[Bm]vino y este \[G]pan,
@@ -11,4 +11,4 @@ pronto \[G]se converti\[D]rán
 en tu cuerpo y en tu \[A]sangre.
 ¡Qué ale\[G]gría \[A]nos da\[D]rá! \[(A)]
 \endverse
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/05_ofertorio/saber_que_vendras.tex b/canciones/05_ofertorio/saber_que_vendras.tex
index c0a5729..ebf9acd 100644
--- a/canciones/05_ofertorio/saber_que_vendras.tex
+++ b/canciones/05_ofertorio/saber_que_vendras.tex
@@ -1,4 +1,4 @@
-\beginsong{Saber que vendrás}[by={Blowin' in the Wind - Bob Dylan}]
+\beginsong{Saber que vendrás}[m={Blowin' in the Wind - Bob Dylan}]
 \beginverse
 \[C]En este \[F]mundo que \[C]Cris\[Em]to nos \[Am]da
 ha\[C]cemos la o\[F]frenda de\[G]l pan, \[G7]
@@ -19,4 +19,4 @@ can^sados de ^tanto lu^char, ^
 ^en la pa^tena de ^nues^tra obla^ción
 a^cepta la ^vida, Se^ñor. ^
 \endverse
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/05_ofertorio/te_dare.tex b/canciones/05_ofertorio/te_dare.tex
index 138b6c8..dab4f93 100644
--- a/canciones/05_ofertorio/te_dare.tex
+++ b/canciones/05_ofertorio/te_dare.tex
@@ -1,4 +1,4 @@
-\beginsong{Te daré}[by={Day by Day - Godspell}]
+\beginsong{Te daré}[m={Day by Day - Godspell}]
 \ifchorded
 \gtab{F/E}{X33210}
 \gtab{F/E}{XX3210}
diff --git a/canciones/06_santo/santo_beatles.tex b/canciones/06_santo/santo_beatles.tex
index e110067..b9df7b0 100644
--- a/canciones/06_santo/santo_beatles.tex
+++ b/canciones/06_santo/santo_beatles.tex
@@ -1,4 +1,4 @@
-\beginsong{Santo (Beatles)}[by={Help - The Beatles}]
+\beginsong{Santo (Beatles)}[m={Help - The Beatles}]
 \beginchorus
 \[C]Santo, Santo, Santo, Santo, 
 Santo es el Se\[Em Am]ñor,
@@ -8,4 +8,4 @@ llenos están el cielo y \[F]tierra de su a\[C]mor.
 \[G]Bendito el que viene en el \[F C]nom\[G]bre,
 el que viene en el nombre del Se\[F C G]ñor, del Se\[C]ñor. \[G]
 \endverse
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/07_padre_nuestro/padre_nuestro_simon.tex b/canciones/07_padre_nuestro/padre_nuestro_simon.tex
index 6a17121..f218868 100644
--- a/canciones/07_padre_nuestro/padre_nuestro_simon.tex
+++ b/canciones/07_padre_nuestro/padre_nuestro_simon.tex
@@ -1,4 +1,4 @@
-\beginsong{Padrenuestro (Simon \& Garfunkel)}[by={The Sound of Silence - Simon \& Garfunkel}]
+\beginsong{Padrenuestro (Simon \& Garfunkel)}[m={The Sound of Silence - Simon \& Garfunkel}]
 \ifchorded
 \gtab{A2}{X02200}
 \fi
diff --git a/canciones/08_paz/un_nuevo_mandamiento.tex b/canciones/08_paz/un_nuevo_mandamiento.tex
index 1298386..928cfa0 100644
--- a/canciones/08_paz/un_nuevo_mandamiento.tex
+++ b/canciones/08_paz/un_nuevo_mandamiento.tex
@@ -1,4 +1,4 @@
-\beginsong{Un nuevo mandamiento}[by={La Última Cena - Jesucristo Superstar}]
+\beginsong{Un nuevo mandamiento}[m={La Última Cena - Jesucristo Superstar}]
 \beginverse
 \[D]Yo os doy un \[A]nuevo \[F#m]manda\[Bm]miento, \[(D7)]
 \[G]que unos a los \[Em]otros os a\[A]méis \[(A7)]
@@ -17,4 +17,4 @@
 ^Nos os llamo ^siervos sino a^migos,
 ^porque Yo os he ^dado lo que ^mi Padre me ^dio.
 \endverse
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/09_comunion/nadie_te_ama_como_yo.tex b/canciones/09_comunion/nadie_te_ama_como_yo.tex
index 778e512..586fbca 100644
--- a/canciones/09_comunion/nadie_te_ama_como_yo.tex
+++ b/canciones/09_comunion/nadie_te_ama_como_yo.tex
@@ -23,7 +23,7 @@ Pues nadie te ^ama ^ como ^Yo,
 pues nadie te ^ama ^ como ^Yo.
 Mira la ^cruz,
 fue por ^ti, fue porque te ^amo,
-^ nadie te ^ama\[G] como \[C]Yo.
+^ nadie te ^ama{\[G]} como \[C]Yo.
 \endchorus
 \beginverse
 ^ Yo sé ^bien lo que me ^dices,
diff --git a/canciones/11_navidad_pascua/hoy_el_senor_resucito.tex b/canciones/11_navidad_pascua/hoy_el_senor_resucito.tex
index 91eaa60..cca27dc 100644
--- a/canciones/11_navidad_pascua/hoy_el_senor_resucito.tex
+++ b/canciones/11_navidad_pascua/hoy_el_senor_resucito.tex
@@ -1,4 +1,4 @@
-\beginsong{Hoy el Señor ¡Resucitó!}[by={When the Saints Go Marching In - Himno}]
+\beginsong{Hoy el Señor ¡Resucitó!}[m={When the Saints Go Marching In - Himno}]
 \beginverse
 \[C]Hoy el Señor \rep{2} ¡Resucitó! \rep{2}
 y de la muerte \[C7]nos li\[G]bró.
@@ -28,4 +28,4 @@ que de Él nos llega ^salva^ción.
 ^Todos cantad \rep{2}: ¡Aleluya! \rep{2}
 Todos gritad: ¡¡¡A\[C7]lelu\[G]ya!!!
 \endverse
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/13_despedida/san_leandro_25.tex b/canciones/13_despedida/san_leandro_25.tex
index 9887d27..8a9cee9 100644
--- a/canciones/13_despedida/san_leandro_25.tex
+++ b/canciones/13_despedida/san_leandro_25.tex
@@ -1,4 +1,4 @@
-\beginsong {San Leandro (25 Aniversario)}[by={I'm a Believer - Weezer}] % TODO: buscar grupo y generacion
+\beginsong {San Leandro (25 Aniversario)}[m={I'm a Believer - Weezer}] % TODO: buscar grupo y generacion
 \beginverse % TODO buscar sustituto al FA
 \[G]Él nació en \[D]el 5\[G]23,
 \[G]en el monas\[D]terio mucho estu\[G]dió \[G7]
@@ -17,4 +17,4 @@ y cele\[F]brando con ilu\[D]sión.
 ^ luego lo per^dona, ^ lo dejó vol^ver, 
 ^ y arzobispo ^de Sevilla ^fue.
 \endverse
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/14_otras/es_aventura.tex b/canciones/14_otras/es_aventura.tex
index 2095988..61bdc2d 100644
--- a/canciones/14_otras/es_aventura.tex
+++ b/canciones/14_otras/es_aventura.tex
@@ -1,4 +1,4 @@
-\beginsong{Es Aventura}[by={Marta, Sebas, Guille y los demás - Amaral, Aventura 2003-04}]
+\beginsong{Es Aventura}[m={Marta, Sebas, Guille y los demás - Amaral},by={Aventura 2003-04}]
 \beginverse
 \[D]Todo comenzó un \[A]viernes por la tarde,
 hace \[Bm]7 u 8 años, con un \[G]grupo de chavales,
@@ -53,4 +53,4 @@ con quien \[G]quiero es\[D]tar a todas \[A]horas,
 \[D]nos \[A]diverti\[Bm]mos, \[G]todos los \[D]viernes nos reu\[A]nimos. \rep{2}
 \[G]¡Es \[A]Aven\[D]tura!
 \endchorus
-\endsong
\ No newline at end of file
+\endsong
diff --git a/canciones/14_otras/vive_reza_ama.tex b/canciones/14_otras/vive_reza_ama.tex
index 8bfb1a2..a4720b9 100644
--- a/canciones/14_otras/vive_reza_ama.tex
+++ b/canciones/14_otras/vive_reza_ama.tex
@@ -1,4 +1,4 @@
-\beginsong{Vive, reza, ama}[by={We Will Rock You - Queen, Francisco García}]
+\beginsong{Vive, reza, ama}[m={We Will Rock You - Queen},by={Francisco García}]
 \beginchorus
 ¡Vive, reza, ama!
 ¡Vive, reza, ama!
@@ -48,4 +48,4 @@ del Padre ahora está.
 \beginchorus
 ¡Vive, reza, ama! \rep{2}
 \endchorus
-\endsong
\ No newline at end of file
+\endsong
diff --git a/estilo/estilo.sty b/estilo/estilo.sty
index 9b8ec2b..429cddc 100644
--- a/estilo/estilo.sty
+++ b/estilo/estilo.sty
@@ -35,3 +35,11 @@
 \RequirePackage{changepage}
 \strictpagecheck
 
+% Añade un nuevo campo a las canciones para mostrar en qué melodía están basadas
+\newsongkey{m}{\def\melody{}}{\def\melody{Basado en #1\par}}
+
+% Modifica el preludio (cabecera) de cada canción para incluir melody
+\renewcommand{\extendprelude}{
+	\showrefs\showauthors
+	\melody
+}
\ No newline at end of file