Add Haunt for Scheme as a provider

docs/pages/docs/providers/scheme.md

@@ -0,0 +1,19 @@
+ ---
+ title: Scheme
+ ---
+
+ # {% $markdoc.frontmatter.title %}
+
+ Scheme via [haunt](https://dthompson.us/projects/haunt.html) is detected is there is a `haunt.scm` file found.
+
+ ## Install
+
+ Installs the basic dependencies
+
+ ## Build
+
+Build the project based on your `haunt.scm`.
+
+## Start
+
+Uses `haunt serve` to serve the project

docs/sidebar.ts

@@ -54,6 +54,7 @@ export const sidebarItems: ISidebarSection[] = [
       { href: "/docs/providers/python", text: "Python" },
       { href: "/docs/providers/ruby", text: "Ruby" },
       { href: "/docs/providers/rust", text: "Rust" },
+      { href: "/docs/providers/scheme", text: "Scheme"},
       { href: "/docs/providers/staticfile", text: "Staticfile" },
       { href: "/docs/providers/swift", text: "Swift" },
       { href: "/docs/providers/scala", text: "Scala" },

examples/scheme/haunt.scm

@@ -0,0 +1,14 @@
+(use-modules (haunt asset)
+             (haunt builder blog)
+             (haunt builder assets)
+             (haunt reader commonmark)
+             (haunt site))
+
+(site #:title "Built with Guile"
+      #:domain "example.com"
+      #:default-metadata
+      '((author . "siarune")
+        (email  . "aidan.sharp@siarune.dev"))
+      #:readers (list commonmark-reader)
+      #:builders (list  )
+)

src/lib.rs

@@ -39,8 +39,8 @@ use providers::{
     fsharp::FSharpProvider, gleam::GleamProvider, go::GolangProvider,
     haskell::HaskellStackProvider, java::JavaProvider, lunatic::LunaticProvider,
     node::NodeProvider, php::PhpProvider, python::PythonProvider, ruby::RubyProvider,
-    rust::RustProvider, scala::ScalaProvider, staticfile::StaticfileProvider, swift::SwiftProvider,
-    zig::ZigProvider, Provider,
+    rust::RustProvider, scala::ScalaProvider, scheme::HauntProvider,
+    staticfile::StaticfileProvider, swift::SwiftProvider, zig::ZigProvider, Provider,
 };
 use std::process::Command;
 
@@ -62,6 +62,7 @@ pub fn get_providers() -> &'static [&'static (dyn Provider)] {
         &GleamProvider {},
         &GolangProvider {},
         &HaskellStackProvider {},
+        &HauntProvider {},
         &JavaProvider {},
         &LunaticProvider {},
         &ScalaProvider {},

src/providers/mod.rs

@@ -21,6 +21,7 @@ pub mod python;
 pub mod ruby;
 pub mod rust;
 pub mod scala;
+pub mod scheme;
 pub mod staticfile;
 pub mod swift;
 pub mod zig;

src/providers/scheme.rs

@@ -0,0 +1,33 @@
+use super::Provider;
+use crate::nixpacks::{
+    app::App,
+    environment::Environment,
+    nix::pkg::Pkg,
+    plan::{
+        phase::{Phase, StartPhase},
+        BuildPlan,
+    },
+};
+use anyhow::Result;
+
+pub struct HauntProvider {}
+
+impl Provider for HauntProvider {
+    fn name(&self) -> &str {
+        "scheme"
+    }
+
+    fn detect(&self, app: &App, _env: &Environment) -> Result<bool> {
+        Ok(app.includes_file("haunt.scm"))
+    }
+
+    fn get_build_plan(&self, app: &App, _env: &Environment) -> Result<Option<BuildPlan>> {
+        let setup = Phase::setup(Some(vec![Pkg::new("haunt")]));
+        let build = Phase::build(Some("haunt build".to_string()));
+        let start = StartPhase::new("haunt serve".to_string());
+
+        let plan = BuildPlan::new(&vec![setup, build], Some(start));
+
+        Ok(Some(plan))
+    }
+}

tests/docker_run_tests.rs

@@ -1480,3 +1480,10 @@ async fn test_config_toml_file() {
     let output = run_image(&name, None).await;
     assert!(output.contains("hey there"));
 }
+
+#[tokio::test]
+async fn test_scheme() {
+    let name = simple_build("./examples/scheme").await.unwrap();
+    let output = run_image(&name, None).await;
+    assert!(output.contains("serving site on port 8080"));
+}