Ajout d'une option pour définir le chemin vers lilypond (#2)

Il peut s'agir d'un chemin absolu ou d'un exécutable du PATH.
jperon · May 28, 2015 · 71b916c · 71b916c
1 parent fe54c55
commit 71b916c
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/lyluatex.lua b/lyluatex.lua
@@ -10,6 +10,7 @@ local err, warn, info, log = luatexbase.provides_module({
 })
 
 
+LILYPOND = 'lilypond'
 TMP = 'tmp_ly'
 N = 0
 
@@ -43,7 +44,7 @@ end
 function compiler_ly(ly, sortie)
     mkdirs(dirname(sortie))
     local p = io.popen(
-	"lilypond "
+	LILYPOND.." "
 	.."-dno-point-and-click "
 	.."-dbackend=eps "
 	.."-djob-count=2 "

diff --git a/lyluatex.sty b/lyluatex.sty
@@ -1,11 +1,16 @@
 \ProvidesPackage{lyluatex}
 
 % Dépendances
+\RequirePackage{kvoptions}
 \RequirePackage{graphicx}
 \RequirePackage{keycommand}
 \RequirePackage{environ}
+% Options
+\DeclareStringOption[lilypond]{program}[lilypond]
+\ProcessKeyvalOptions*
 % Script lua
 \directlua{dofile(kpse.find_file("lyluatex.lua"))}
+\directlua{LILYPOND = '\lyluatex@program'}
 
 % Une tricherie un peu sale pour récupérer la largeur de ligne
 \let\bs\textbackslash

diff --git a/test.tex b/test.tex
@@ -1,7 +1,7 @@
 \documentclass[a5paper,12pt]{scrbook}
 \usepackage{fontspec}
 \usepackage{libertine}
-\usepackage{lyluatex}
+\usepackage[program=lilypond]{lyluatex}
 \usepackage{multicol}
 
 \title{}