forked from eeue56/elm-static-html
-
Notifications
You must be signed in to change notification settings - Fork 1
/
templates.js
92 lines (73 loc) · 2.51 KB
/
templates.js
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
// literally the only reason why this has to be an npm package
var generateNativeModuleString = function(projectName){
var fixedProjectName = projectName.replace(/-/g, '_');
var nativeString = `
var _${fixedProjectName}$Native_Jsonify = {
stringify: function(thing) { return JSON.stringify(thing); }
};`;
return nativeString;
};
var importLines = function(moduleNames){
return moduleNames.map(function(moduleConfig){
return `import ${moduleConfig.moduleName}`;
});
};
var viewFunctions = function(moduleNames){
var pairs = moduleNames.map(function(moduleConfig){
return moduleConfig.outputsAndFuncs.map(function(outputConfig){
return `("${outputConfig.output}", ${moduleConfig.moduleName}.${outputConfig.viewFunction})`;
});
});
return [].concat.apply([], pairs);
};
// this is our render's file contents
// basically just boilerplate
var generateRendererFile = function(moduleNames) {
var imports = importLines(moduleNames).join("\n");
var views = viewFunctions(moduleNames).join(", ");
var rendererFileContents = `
port module PrivateMain exposing (..)
import Platform
import Html exposing (Html)
import ElmHtml.InternalTypes exposing (decodeElmHtml)
import ElmHtml.ToString exposing (nodeToStringWithOptions, defaultFormatOptions)
import Json.Decode as Json
${imports}
asJsonString : Html msg -> String
asJsonString x = "REPLACE_ME_WITH_JSON_STRINGIFY"
options = { defaultFormatOptions | newLines = True, indent = 4 }
decode : (String, Html msg) -> ( String, String )
decode (output, view) =
case Json.decodeString (decodeElmHtml (\\_ \_ -> Json.succeed ())) (asJsonString view) of
Err err -> (output, Json.errorToString err)
Ok str -> (output, nodeToStringWithOptions options str)
main = Platform.worker
{ init =
(\\ () ->
( ()
, htmlOut ( List.map (decode ) [ ${views} ] )
)
)
, update = (\\_ b -> (b, Cmd.none))
, subscriptions = (\\_ -> Sub.none)
}
port htmlOut : List (String, String) -> Cmd msg
`;
return rendererFileContents;
};
var generateConfig = function() {
var config = {
files: {
"Main.elm": {
output: "index.html",
viewFunction: "view"
}
}
};
return JSON.stringify(config, undefined, 4);
};
module.exports = {
generateRendererFile: generateRendererFile,
generateNativeModuleString: generateNativeModuleString,
generateConfig: generateConfig
};