Ajout de la structure nécessaire pour lilypond + mon arrangement de Ma'oz Tzur.

diff --git a/docs/Ma'oz Tzur.ly b/docs/Ma'oz Tzur.ly
new file mode 100644 (file)
index 0000000..d5ac0fb
--- /dev/null
+++ b/docs/Ma'oz Tzur.ly
@@ -0,0 +1,56 @@
+---
+title: Ma'oz Tzur
+tags: musique, partition, Judaïsme
+date: 2024-06-16
+description: Une partition pour accordéon de mon arrangement de Ma'oz Tzur.
+---
+\version "2.24.1"
+\header {
+  title = "Ma'oz Tzur"
+  arranger = "Amélia Coutard - https://www.ameliathe1st.gay"
+  instrument = "Accordéon"
+  copyright = "Domaine Public"
+}
+
+\markup \vspace #4
+
+<<
+       \new ChordNames { \chordmode {
+               c2. f4 c4 g4 c4. c4. d2.:m g2 c2
+               c2. f4 c4 g4 c4. c4. d2.:m g2 c2
+
+               c2 f1 c2 c2 f2 a2:maj7 d2:m
+               c1 d1:m c2 f2 g2 c2
+               c1 d1:m c2 f2 g2 c2
+       } }
+       \new Staff { \relative {
+               \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #100
+               \clef treble
+               \time 4/4
+               c''4 g c f e d c4. g'8 g4 a d, e8 f e4 d c2 \break
+               c4 g c f e d c4. g'8 g4 a d, e8 f e4 d c2 \break
+
+               g4. g8 a4 b4 c2 g2 c4 b4 a4 g4 g8 f8 e8 f8 d2 \break
+               e4. f8 g4 g4 d4. e8 f2 e4 c4 a'4 g8 f8 e4 f4 g2 \break
+               e4. f8 g4 g4 d4. e8 f2 e4 c4 a'4 g8 f8 e4 d4 c2 \break
+       } }
+       \addlyrics {
+               Ma' -- oz Tzur Ye -- shu' -- a -- ti, le -- kha na' -- eh le -- sha -- be' -- _ ah.
+               Ti -- kon beit te -- fi -- la -- ti, ve -- sham to -- da ne -- za -- be' -- _ ah.
+
+               Le'et ta -- khin mat -- be' -- ah mi -- tzar ha -- mna -- be' -- _ _ _ ah.
+               Az eg -- mor be -- shir mi -- zmor ha -- nu -- kat ha -- mi -- zbe' -- _ ah.
+               Az eg -- mor be -- shir mi -- zmor ha -- nu -- kat ha -- mi -- zbe' -- _ ah.
+       }
+>>
+
+\paper {
+       system-system-spacing =
+               #'((basic-distance . 16)
+                  (minimum-distance . 8)
+                  (padding . 1)
+                  (stretchability . 60))
+}
+\layout {
+       indent = 0.0
+}

diff --git a/lilypond-unix.sh b/lilypond-unix.sh
new file mode 100755 (executable)
index 0000000..2a2c609
--- /dev/null
+++ b/lilypond-unix.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+F=$(mktemp 'tmp.XXXXXXXXXX')
+lilypond -o "$F" -
+cat "$F".pdf
+rm "$F" "$F".pdf

diff --git a/main.hs b/main.hs
index 9334772147a88d91d220122a70399b7f7efc8a66..9d7bc8ebc3d9cfdebb758cdff5c27a648f38f3cb 100644 (file)
--- a/main.hs
+++ b/main.hs
@@ -12,10 +12,10 @@
 -- not, see <https://www.gnu.org/licenses/>.
 
 {-# LANGUAGE OverloadedStrings #-}
+import Data.ByteString.Lazy.UTF8 (ByteString, fromString)
 import Data.Monoid ((<>))
 import Data.Time.Format (formatTime, defaultTimeLocale)
 import Hakyll
-import Hakyll.Process
 
 main :: IO ()
 main = hakyll $ do
@@ -26,9 +26,13 @@ main = hakyll $ do
                route $ gsubRoute "html/" (const "")
                compile copyFileCompiler
 
-       match ("docs/*" .&&. complement "**.metadata") $ do
+       match ( "docs/*.pdf" .||. "docs/*.sfd" .||. "docs/*.otf" ) $ do
                route idRoute
-               compile copyFileCompiler
+               compile getResourceLBS
+
+       match "docs/*.ly" $ do
+               route $ setExtension "pdf"
+               compile $ getResourceBody >>= withItemBody (unixFilterLBS "./lilypond-unix.sh" [] . fromString)
 
        match "html/atom.xml" $ do
                route $ gsubRoute "html/" (const "")
@@ -49,5 +53,5 @@ main = hakyll $ do
                                >>= applyAsTemplate docsContext
                                >>= relativizeUrls
 
-docContext :: Context CopyFile
+docContext :: Context ByteString
 docContext = urlField "url" <> dateField "datetime" "%FT%TZ" <> metadataField