From: Amélia P. H. Coutard Date: Sun, 16 Jun 2024 00:41:00 +0000 (+0200) Subject: Simplification de l'usage de lilypond, via hakyll-process X-Git-Url: https://git.ameliathe1st.gay/?a=commitdiff_plain;p=site-web.git Simplification de l'usage de lilypond, via hakyll-process --- diff --git a/docs/Ma'oz Tzur.ly b/docs/Ma'oz Tzur.ly index d5ac0fb..b7f69be 100644 --- a/docs/Ma'oz Tzur.ly +++ b/docs/Ma'oz Tzur.ly @@ -1,9 +1,3 @@ ---- -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" diff --git a/docs/Ma'oz Tzur.ly.metadata b/docs/Ma'oz Tzur.ly.metadata new file mode 100644 index 0000000..a028037 --- /dev/null +++ b/docs/Ma'oz Tzur.ly.metadata @@ -0,0 +1,4 @@ +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. diff --git a/lilypond-unix.sh b/lilypond-unix.sh deleted file mode 100755 index 2a2c609..0000000 --- a/lilypond-unix.sh +++ /dev/null @@ -1,5 +0,0 @@ -#!/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 9d7bc8e..db04329 100644 --- a/main.hs +++ b/main.hs @@ -16,6 +16,16 @@ import Data.ByteString.Lazy.UTF8 (ByteString, fromString) import Data.Monoid ((<>)) import Data.Time.Format (formatTime, defaultTimeLocale) import Hakyll +import Hakyll.Process + +mapHead :: (a -> a) -> [a] -> [a] +mapHead _ [] = [] +mapHead f (h:t) = f h:t + +split :: Eq a => a -> [a] -> [[a]] +split _ [] = [[]] +split v (h:t) | v == h = []:split v t +split v (h:t) = mapHead (h:) (split v t) main :: IO () main = hakyll $ do @@ -32,7 +42,7 @@ main = hakyll $ do match "docs/*.ly" $ do route $ setExtension "pdf" - compile $ getResourceBody >>= withItemBody (unixFilterLBS "./lilypond-unix.sh" [] . fromString) + compile $ execCompilerWith (execName "lilypond") [HakFilePath] (COutFile (RelativePath (newExtension "pdf" . last . split '/'))) match "html/atom.xml" $ do route $ gsubRoute "html/" (const "")