F#で自在につくる静的ブログサイト - 関数型まつり2025

関数型まつり2025 での登壇資料です。

Transcript

1. F#で自在につくる静的ブログサイト blog.pizzacat83.com @pizzacat83
2. Fornax: Scriptable Static Site Generator in F#
3. Fornax loaders/*.fsx unit -> Contents generators/*.fsx
 Contents -> {path,data}[] .html .html .html .rss sitemap .md .md .md
4. Fornax のしくみ loaders/*.fsx unit -> Contents generators/*.fsx
 Contents -> {path,data}[] .html .html .html .rss sitemap .md .md .md
5. Fornax のしくみ loaders/*.fsx fun (sc: SiteContents) ... : SiteContents = ... sc.Add(post) sc generators/*.fsx fun (sc: SiteContents) ... : {path,data}[] = let posts = sc.GetValues<Post> () posts |> Seq.map ... sc: SiteContents
6. Fornax のしくみ loaders/*.fsx generators/*.fsx fornax.exe sc: SiteContents let sc = SiteContents () sc.Add(post) sc.GetValues<Post> ()
7. F# でスクリプトを呼び出してみる let runScript (path: string) (input: string): string = // ... use fsi = FsiEvaluationSession.Create(fsiConfig, a fsi.EvalInteraction $"#load \"{path}\";;" let funcResult: FsiValue option = fsi.EvalExpressi let funcObj: obj = match funcResult with | Some funcValue -> funcValue.ReflectionValue | _ -> failwith "error" let resultObj: obj = funcObj.GetType().GetMethod(" match resultObj with | :? string as s -> s | _ -> failwith "error" 1 2 3 // script.fsx ( : ): let "hello, {s}!" s string string $ calc = (1) Init FSI (2) Load script (3) Grab the function (4) Invoke the function
8. F# でスクリプトを呼び出してみる use fsi =
 FsiEvaluationSession.Create (fsiConfig, argv, inStream, outStream, errStream) (1) Init FSI (2) Load script (3) Grab the function (4) Invoke the function
9. F# でスクリプトを呼び出してみる fsi.EvalInteraction $"#load \"{path}\";;" (1) Init FSI (3) Grab the function (4) Invoke the function (2) Load script REPL の #load “script.fsx”;; と同等
10. F# でスクリプトを呼び出してみる let funcResult: FsiValue option = fsi.EvalExpression $"{moduleName path}.calc" let funcObj: obj = match funcResult with | Some v -> v.ReflectionValue | _ -> failwith "error" (1) Init FSI (2) Load script (4) Invoke the function (3) Grab the function FSI で “Script.calc” を評価した結果を取り出す
11. F# でスクリプトを呼び出してみる let resultObj: obj = funcObj.GetType().GetMethod("Invoke") .Invoke(funcObj, [| input |]) match resultObj with | :? string as s -> s | _ -> failwith "error (1) Init FSI (2) Load script (3) Grab the function (4) Invoke the function input を引数として funcObj を呼び出す
12. おわり F# scriptをF#からロードするのは意外と簡単！ Fornax自体も1000行程度でスラスラ読める もっと詳しく: blog.pizzacat83.com