{});
2 |
3 | mkShell {
4 | buildInputs = [
5 | nodejs-16_x
6 | ];
7 |
8 | shellHook = ''
9 | export PATH="$PWD/node_modules/.bin/:$PATH";
10 | '';
11 | }
12 |
--------------------------------------------------------------------------------
/examples/src/App.res:
--------------------------------------------------------------------------------
1 | include GlobalStyles
2 |
3 | module Css = %css(
4 | let pad = 5
5 | let size = 200
6 | let ten = () => 10
7 | let ident = x => x
8 | let sum = (x, y) => x + y
9 |
10 | let flex = css`
11 | display: flex;
12 | position: relative;
13 | align-items: center;
14 | justify-content: center;
15 | `
16 |
17 | let box = css`
18 | margin: ${ten()}px;
19 | padding: ${pad}px;
20 | width: ${size->ident}px;
21 | height: ${size->ident}px;
22 | border: 6px solid ${Color.Border.bg->Polished.lighten(0.3)};
23 | background-color: ${Color.bg};
24 | border-radius: ${Size.md / 2}px;
25 |
26 | &:hover .${text} {
27 | background-color: blue;
28 | }
29 |
30 | @media ${Screen.small} {
31 | width: ${size - 20}px;
32 | height: ${size - 20}px;
33 |
34 | & .${font} {
35 | font-size: calc(16px + ${ten()}px - 50%);
36 | }
37 | }
38 | `
39 |
40 | let text = css`
41 | color: ${Color.text};
42 | `
43 |
44 | let font = css`
45 | font-size: ${10->sum(20)}px;
46 | font-weight: ${Font.bold};
47 | `
48 |
49 | let touchScreen = css`
50 | width: ${Screen.Touch.width}px;
51 | `
52 | )
53 |
54 | @react.component
55 | let make = () =>
56 |
57 | {"ReScript"->React.string}
58 |
59 |
--------------------------------------------------------------------------------
/examples/src/Color.res:
--------------------------------------------------------------------------------
1 | let text = "#fff"
2 | let bg = "red"
3 |
4 | module Border = {
5 | let bg = "orange"
6 | }
7 |
--------------------------------------------------------------------------------
/examples/src/Font.res:
--------------------------------------------------------------------------------
1 | let family = "monospace"
2 | let bold = 700
3 |
--------------------------------------------------------------------------------
/examples/src/GlobalStyles.res:
--------------------------------------------------------------------------------
1 | include %css(
2 | let margin = 20
3 |
4 | let global =
5 | css`
6 | :global() {
7 | * {
8 | box-sizing: border-box;
9 | }
10 |
11 | body {
12 | font-family: ${Font.family};
13 | }
14 |
15 | #app {
16 | display: flex;
17 | flex-flow: column nowrap;
18 | align-items: center;
19 | justify-content: center;
20 | margin: ${margin};
21 | }
22 | }
23 | `
24 | )
25 |
--------------------------------------------------------------------------------
/examples/src/Polished.res:
--------------------------------------------------------------------------------
1 | @module("polished") external invert: string => string = "invert"
2 | let invert = invert // it must be bound so compiler generates a function in this module accesible from JS
3 |
4 | @module("polished") external lighten: (float, string) => string = "lighten"
5 | let lighten = (color, amount) => lighten(amount, color) // so we can pipe color
6 |
--------------------------------------------------------------------------------
/examples/src/Screen.res:
--------------------------------------------------------------------------------
1 | let smallMaxWidth = 680
2 | let small = `only screen and (max-width: ${smallMaxWidth->Int.toString}px)`
3 |
4 | module Touch = {
5 | let width = 123
6 | }
7 |
--------------------------------------------------------------------------------
/examples/src/Size.res:
--------------------------------------------------------------------------------
1 | let sm = 10
2 | let md = 14
3 |
--------------------------------------------------------------------------------
/examples/src/index.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 | rescript-linaria example
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
--------------------------------------------------------------------------------
/examples/src/index.res:
--------------------------------------------------------------------------------
1 | switch ReactDOM.querySelector("#app") {
2 | | Some(root) => ReactDOM.render(, root)
3 | | None => failwith("Wrong DOM id of the root element")
4 | }
5 |
--------------------------------------------------------------------------------
/examples/webpack.config.js:
--------------------------------------------------------------------------------
1 | const webpack = require("webpack");
2 | const path = require("path");
3 | const HtmlWebpackPlugin = require("html-webpack-plugin");
4 |
5 | module.exports = {
6 | mode: "development",
7 | entry: {
8 | app: "./src/index.bs.js",
9 | },
10 | output: {
11 | filename: "[name].bundle.js",
12 | path: path.resolve(__dirname, "build"),
13 | publicPath: "/",
14 | },
15 | devtool: "inline-source-map",
16 | devServer: {
17 | contentBase: "./build",
18 | },
19 | plugins: [
20 | new HtmlWebpackPlugin({
21 | template: "src/index.html",
22 | }),
23 | ],
24 | module: {
25 | rules: [
26 | {
27 | test: /\.js$/,
28 | use: [
29 | { loader: 'babel-loader' },
30 | {
31 | loader: '@linaria/webpack4-loader',
32 | options: {
33 | sourceMap: process.env.NODE_ENV !== 'production',
34 | },
35 | }
36 | ],
37 | },
38 | {
39 | test: /\.css$/,
40 | use: [
41 | "style-loader",
42 | {
43 | loader: "css-loader",
44 | options: { modules: "global" },
45 | },
46 | ],
47 | },
48 | ]
49 | }
50 | };
51 |
--------------------------------------------------------------------------------
/linux.patch:
--------------------------------------------------------------------------------
1 | diff --git a/bin/dune b/bin/dune
2 | index 35f1449..55cef77 100644
3 | --- a/bin/dune
4 | +++ b/bin/dune
5 | @@ -2,4 +2,5 @@
6 | (name bin)
7 | (public_name rescript-linaria-ppx)
8 | (libraries rescript-linaria-ppx.lib)
9 | + (flags (:standard -ccopt -static))
10 | )
11 |
--------------------------------------------------------------------------------
/package.json:
--------------------------------------------------------------------------------
1 | {
2 | "name": "rescript-linaria",
3 | "version": "0.3.0",
4 | "description": "ReScript bindings to Linaria",
5 | "author": "Alex Fedoseev ",
6 | "license": "MIT",
7 | "repository": {
8 | "type": "git",
9 | "url": "https://github.com/MinimaHQ/rescript-linaria.git"
10 | },
11 | "keywords": [
12 | "rescript",
13 | "linaria",
14 | "react",
15 | "reason-react",
16 | "reason",
17 | "reasonml",
18 | "ocaml",
19 | "bucklescript"
20 | ]
21 | }
22 |
--------------------------------------------------------------------------------
/ppx/Ppx.re:
--------------------------------------------------------------------------------
1 | open Ppxlib;
2 | open Ast_helper;
3 |
4 | module ExternalModule = {
5 | type t = string;
6 | let compare = Stdlib.compare;
7 | };
8 |
9 | module ExternalModuleSet = {
10 | include Set.Make(ExternalModule);
11 |
12 | let concat = (x1: t, x2: t): t => {
13 | fold((m, acc) => acc |> add(m), x1, x2);
14 | };
15 | };
16 |
17 | module Result = {
18 | let map = (fn: 'x => 'y, x: result('x, 'e)): result('y, 'e) =>
19 | switch (x) {
20 | | Ok(x) => Ok(x |> fn)
21 | | Error(e) => Error(e)
22 | };
23 |
24 | let flatMap =
25 | (fn: 'x => result('y, 'e), x: result('x, 'e)): result('y, 'e) =>
26 | switch (x) {
27 | | Ok(x) => x |> fn
28 | | Error(e) => Error(e)
29 | };
30 | };
31 |
32 | module ParsedData = {
33 | type t = {
34 | css: string,
35 | modules: ExternalModuleSet.t,
36 | };
37 |
38 | let empty = {css: "", modules: ExternalModuleSet.empty};
39 | };
40 |
41 | module Error = {
42 | type t = {
43 | reason: [
44 | | `UnexpectedInterpolation
45 | | `UnexpectedFunction(
46 | [
47 | | `LabellledArg
48 | | `OptionalArg
49 | | `UnexpectedPipe
50 | | `PlaceholderArg
51 | ],
52 | )
53 | ],
54 | loc: location,
55 | };
56 | };
57 |
58 | // A list of JS globals that ReScript compiler escapes
59 | // Source: https://github.com/rescript-lang/rescript-compiler/blob/88645d034c663cd692e81ff6ffc15aadae0e165d/jscomp/keywords.list
60 | // Unocommented items are the ones that might be used as names for style-related ReScript modules
61 | let js_globals = [|
62 | "Object",
63 | // "Function",
64 | // "Array",
65 | // "Number",
66 | // "Infinity",
67 | // "NaN",
68 | // "Boolean",
69 | "String",
70 | "Symbol",
71 | "Date",
72 | // "Promise",
73 | // "RegExp",
74 | "Error",
75 | // "EvalError",
76 | // "RangeError",
77 | // "ReferenceError",
78 | // "SyntaxError",
79 | // "TypeError",
80 | // "URIError",
81 | // "JSON",
82 | // "Math",
83 | // "Intl",
84 | // "ArrayBuffer",
85 | // "Uint8Array",
86 | // "Int8Array",
87 | // "Uint16Array",
88 | // "Int16Array",
89 | // "Uint32Array",
90 | // "Int32Array",
91 | // "Float32Array",
92 | // "Float64Array",
93 | // "Uint8ClampedArray",
94 | // "BigUint64Array",
95 | // "BigInt64Array",
96 | "DataView",
97 | "Map",
98 | // "BigInt",
99 | // "Set",
100 | // "WeakMap",
101 | // "WeakSet",
102 | // "Proxy",
103 | // "Reflect",
104 | // "ByteLengthQueuingStrategy",
105 | // "CountQueuingStrategy",
106 | // "WritableStream",
107 | // "WebSocket",
108 | // "WebGLContextEvent",
109 | // "WaveShaperNode",
110 | // "TextEncoder",
111 | // "TextDecoder",
112 | // "SyncManager",
113 | // "SubtleCrypto",
114 | // "StorageEvent",
115 | "Storage",
116 | // "StereoPannerNode",
117 | // "SourceBufferList",
118 | // "SourceBuffer",
119 | // "ScriptProcessorNode",
120 | // "ScreenOrientation",
121 | // "RTCTrackEvent",
122 | // "RTCStatsReport",
123 | // "RTCSessionDescription",
124 | // "RTCRtpTransceiver",
125 | // "RTCRtpSender",
126 | // "RTCRtpReceiver",
127 | // "RTCRtpContributingSource",
128 | // "RTCPeerConnectionIceEvent",
129 | // "RTCPeerConnection",
130 | // "RTCIceCandidate",
131 | // "RTCDataChannelEvent",
132 | // "RTCDataChannel",
133 | // "RTCDTMFToneChangeEvent",
134 | // "RTCDTMFSender",
135 | // "RTCCertificate",
136 | // "Plugin",
137 | // "PluginArray",
138 | // "PhotoCapabilities",
139 | // "PeriodicWave",
140 | // "PannerNode",
141 | // "OverconstrainedError",
142 | // "OscillatorNode",
143 | // "OfflineAudioContext",
144 | // "OfflineAudioCompletionEvent",
145 | // "NetworkInformation",
146 | // "MimeType",
147 | // "MimeTypeArray",
148 | // "MediaStreamTrackEvent",
149 | // "MediaStreamTrack",
150 | // "MediaStreamEvent",
151 | // "MediaStream",
152 | // "MediaStreamAudioSourceNode",
153 | // "MediaStreamAudioDestinationNode",
154 | // "MediaSource",
155 | // "MediaSettingsRange",
156 | // "MediaRecorder",
157 | // "MediaEncryptedEvent",
158 | // "MediaElementAudioSourceNode",
159 | // "MediaDevices",
160 | // "MediaDeviceInfo",
161 | // "MediaCapabilities",
162 | // "MIDIPort",
163 | // "MIDIOutputMap",
164 | // "MIDIOutput",
165 | // "MIDIMessageEvent",
166 | // "MIDIInputMap",
167 | // "MIDIInput",
168 | // "MIDIConnectionEvent",
169 | // "MIDIAccess",
170 | // "InputDeviceInfo",
171 | // "ImageCapture",
172 | // "ImageBitmapRenderingContext",
173 | // "IIRFilterNode",
174 | // "IDBVersionChangeEvent",
175 | // "IDBTransaction",
176 | // "IDBRequest",
177 | // "IDBOpenDBRequest",
178 | // "IDBObjectStore",
179 | // "IDBKeyRange",
180 | // "IDBIndex",
181 | // "IDBFactory",
182 | // "IDBDatabase",
183 | // "IDBCursorWithValue",
184 | // "IDBCursor",
185 | // "GamepadEvent",
186 | // "Gamepad",
187 | // "GamepadButton",
188 | // "GainNode",
189 | // "EventSource",
190 | // "DynamicsCompressorNode",
191 | // "DeviceOrientationEvent",
192 | // "DeviceMotionEvent",
193 | // "DelayNode",
194 | // "DOMError",
195 | // "CryptoKey",
196 | // "Crypto",
197 | // "ConvolverNode",
198 | // "ConstantSourceNode",
199 | // "CloseEvent",
200 | // "ChannelSplitterNode",
201 | // "ChannelMergerNode",
202 | // "CanvasRenderingContext2D",
203 | // "CanvasCaptureMediaStreamTrack",
204 | // "BroadcastChannel",
205 | // "BlobEvent",
206 | // "BiquadFilterNode",
207 | // "BeforeInstallPromptEvent",
208 | // "BatteryManager",
209 | // "BaseAudioContext",
210 | // "AudioWorkletNode",
211 | // "AudioScheduledSourceNode",
212 | // "AudioProcessingEvent",
213 | // "AudioParamMap",
214 | // "AudioParam",
215 | // "AudioNode",
216 | // "AudioListener",
217 | // "AudioDestinationNode",
218 | // "AudioContext",
219 | // "AudioBufferSourceNode",
220 | // "AudioBuffer",
221 | // "AnalyserNode",
222 | // "XPathResult",
223 | // "XPathExpression",
224 | // "XPathEvaluator",
225 | // "XMLSerializer",
226 | // "XMLHttpRequestUpload",
227 | // "XMLHttpRequestEventTarget",
228 | // "XMLHttpRequest",
229 | // "XMLDocument",
230 | // "Worker",
231 | "Window",
232 | // "WheelEvent",
233 | // "VisualViewport",
234 | // "ValidityState",
235 | // "VTTCue",
236 | // "URLSearchParams",
237 | // "URL",
238 | // "UIEvent",
239 | // "TreeWalker",
240 | // "TransitionEvent",
241 | // "TransformStream",
242 | // "TrackEvent",
243 | // "TouchList",
244 | // "TouchEvent",
245 | "Touch",
246 | // "TimeRanges",
247 | // "TextTrackList",
248 | // "TextTrackCueList",
249 | // "TextTrackCue",
250 | // "TextTrack",
251 | // "TextMetrics",
252 | // "TextEvent",
253 | "Text",
254 | // "TaskAttributionTiming",
255 | // "StyleSheetList",
256 | "StyleSheet",
257 | // "StylePropertyMapReadOnly",
258 | // "StylePropertyMap",
259 | // "StaticRange",
260 | // "ShadowRoot",
261 | "Selection",
262 | // "SecurityPolicyViolationEvent",
263 | "Screen",
264 | // "SVGViewElement",
265 | // "SVGUseElement",
266 | // "SVGUnitTypes",
267 | // "SVGTransformList",
268 | // "SVGTransform",
269 | // "SVGTitleElement",
270 | // "SVGTextPositioningElement",
271 | // "SVGTextPathElement",
272 | // "SVGTextElement",
273 | // "SVGTextContentElement",
274 | // "SVGTSpanElement",
275 | // "SVGSymbolElement",
276 | // "SVGSwitchElement",
277 | // "SVGStyleElement",
278 | // "SVGStringList",
279 | // "SVGStopElement",
280 | // "SVGSetElement",
281 | // "SVGScriptElement",
282 | // "SVGSVGElement",
283 | // "SVGRectElement",
284 | // "SVGRect",
285 | // "SVGRadialGradientElement",
286 | // "SVGPreserveAspectRatio",
287 | // "SVGPolylineElement",
288 | // "SVGPolygonElement",
289 | // "SVGPointList",
290 | // "SVGPoint",
291 | // "SVGPatternElement",
292 | // "SVGPathElement",
293 | // "SVGNumberList",
294 | // "SVGNumber",
295 | // "SVGMetadataElement",
296 | // "SVGMatrix",
297 | // "SVGMaskElement",
298 | // "SVGMarkerElement",
299 | // "SVGMPathElement",
300 | // "SVGLinearGradientElement",
301 | // "SVGLineElement",
302 | // "SVGLengthList",
303 | // "SVGLength",
304 | // "SVGImageElement",
305 | // "SVGGraphicsElement",
306 | // "SVGGradientElement",
307 | // "SVGGeometryElement",
308 | // "SVGGElement",
309 | // "SVGForeignObjectElement",
310 | // "SVGFilterElement",
311 | // "SVGFETurbulenceElement",
312 | // "SVGFETileElement",
313 | // "SVGFESpotLightElement",
314 | // "SVGFESpecularLightingElement",
315 | // "SVGFEPointLightElement",
316 | // "SVGFEOffsetElement",
317 | // "SVGFEMorphologyElement",
318 | // "SVGFEMergeNodeElement",
319 | // "SVGFEMergeElement",
320 | // "SVGFEImageElement",
321 | // "SVGFEGaussianBlurElement",
322 | // "SVGFEFuncRElement",
323 | // "SVGFEFuncGElement",
324 | // "SVGFEFuncBElement",
325 | // "SVGFEFuncAElement",
326 | // "SVGFEFloodElement",
327 | // "SVGFEDropShadowElement",
328 | // "SVGFEDistantLightElement",
329 | // "SVGFEDisplacementMapElement",
330 | // "SVGFEDiffuseLightingElement",
331 | // "SVGFEConvolveMatrixElement",
332 | // "SVGFECompositeElement",
333 | // "SVGFEComponentTransferElement",
334 | // "SVGFEColorMatrixElement",
335 | // "SVGFEBlendElement",
336 | // "SVGEllipseElement",
337 | // "SVGElement",
338 | // "SVGDiscardElement",
339 | // "SVGDescElement",
340 | // "SVGDefsElement",
341 | // "SVGComponentTransferFunctionElement",
342 | // "SVGClipPathElement",
343 | // "SVGCircleElement",
344 | // "SVGAnimationElement",
345 | // "SVGAnimatedTransformList",
346 | // "SVGAnimatedString",
347 | // "SVGAnimatedRect",
348 | // "SVGAnimatedPreserveAspectRatio",
349 | // "SVGAnimatedNumberList",
350 | // "SVGAnimatedNumber",
351 | // "SVGAnimatedLengthList",
352 | // "SVGAnimatedLength",
353 | // "SVGAnimatedInteger",
354 | // "SVGAnimatedEnumeration",
355 | // "SVGAnimatedBoolean",
356 | // "SVGAnimatedAngle",
357 | // "SVGAnimateTransformElement",
358 | // "SVGAnimateMotionElement",
359 | // "SVGAnimateElement",
360 | // "SVGAngle",
361 | // "SVGAElement",
362 | // "Response",
363 | // "ResizeObserverEntry",
364 | // "ResizeObserver",
365 | // "Request",
366 | // "ReportingObserver",
367 | // "ReadableStream",
368 | // "Range",
369 | // "RadioNodeList",
370 | // "PromiseRejectionEvent",
371 | // "ProgressEvent",
372 | // "ProcessingInstruction",
373 | // "PopStateEvent",
374 | // "PointerEvent",
375 | // "PerformanceTiming",
376 | // "PerformanceServerTiming",
377 | // "PerformanceResourceTiming",
378 | // "PerformancePaintTiming",
379 | // "PerformanceObserverEntryList",
380 | // "PerformanceObserver",
381 | // "PerformanceNavigationTiming",
382 | // "PerformanceNavigation",
383 | // "PerformanceMeasure",
384 | // "PerformanceMark",
385 | // "PerformanceLongTaskTiming",
386 | // "PerformanceEntry",
387 | // "Performance",
388 | // "PageTransitionEvent",
389 | // "NodeList",
390 | // "NodeIterator",
391 | // "NodeFilter",
392 | "Node",
393 | "Navigator",
394 | // "NamedNodeMap",
395 | // "MutationRecord",
396 | // "MutationObserver",
397 | // "MutationEvent",
398 | // "MouseEvent",
399 | // "MessagePort",
400 | // "MessageEvent",
401 | // "MessageChannel",
402 | // "MediaQueryListEvent",
403 | // "MediaQueryList",
404 | // "MediaList",
405 | // "MediaError",
406 | "Location",
407 | // "KeyboardEvent",
408 | // "IntersectionObserverEntry",
409 | // "IntersectionObserver",
410 | // "InputEvent",
411 | // "InputDeviceCapabilities",
412 | // "ImageData",
413 | // "ImageBitmap",
414 | // "IdleDeadline",
415 | // "History",
416 | // "Headers",
417 | // "HashChangeEvent",
418 | // "HTMLVideoElement",
419 | // "HTMLUnknownElement",
420 | // "HTMLUListElement",
421 | // "HTMLTrackElement",
422 | // "HTMLTitleElement",
423 | // "HTMLTimeElement",
424 | // "HTMLTextAreaElement",
425 | // "HTMLTemplateElement",
426 | // "HTMLTableSectionElement",
427 | // "HTMLTableRowElement",
428 | // "HTMLTableElement",
429 | // "HTMLTableColElement",
430 | // "HTMLTableCellElement",
431 | // "HTMLTableCaptionElement",
432 | // "HTMLStyleElement",
433 | // "HTMLSpanElement",
434 | // "HTMLSourceElement",
435 | // "HTMLSlotElement",
436 | // "HTMLShadowElement",
437 | // "HTMLSelectElement",
438 | // "HTMLScriptElement",
439 | // "HTMLQuoteElement",
440 | // "HTMLProgressElement",
441 | // "HTMLPreElement",
442 | // "HTMLPictureElement",
443 | // "HTMLParamElement",
444 | // "HTMLParagraphElement",
445 | // "HTMLOutputElement",
446 | // "HTMLOptionsCollection",
447 | // "Option",
448 | // "HTMLOptionElement",
449 | // "HTMLOptGroupElement",
450 | // "HTMLObjectElement",
451 | // "HTMLOListElement",
452 | // "HTMLModElement",
453 | // "HTMLMeterElement",
454 | // "HTMLMetaElement",
455 | // "HTMLMenuElement",
456 | // "HTMLMediaElement",
457 | // "HTMLMarqueeElement",
458 | // "HTMLMapElement",
459 | // "HTMLLinkElement",
460 | // "HTMLLegendElement",
461 | // "HTMLLabelElement",
462 | // "HTMLLIElement",
463 | // "HTMLInputElement",
464 | "Image",
465 | // "HTMLImageElement",
466 | // "HTMLIFrameElement",
467 | // "HTMLHtmlElement",
468 | // "HTMLHeadingElement",
469 | // "HTMLHeadElement",
470 | // "HTMLHRElement",
471 | // "HTMLFrameSetElement",
472 | // "HTMLFrameElement",
473 | // "HTMLFormElement",
474 | // "HTMLFormControlsCollection",
475 | // "HTMLFontElement",
476 | // "HTMLFieldSetElement",
477 | // "HTMLEmbedElement",
478 | // "HTMLElement",
479 | // "HTMLDocument",
480 | // "HTMLDivElement",
481 | // "HTMLDirectoryElement",
482 | // "HTMLDialogElement",
483 | // "HTMLDetailsElement",
484 | // "HTMLDataListElement",
485 | // "HTMLDataElement",
486 | // "HTMLDListElement",
487 | // "HTMLContentElement",
488 | // "HTMLCollection",
489 | // "HTMLCanvasElement",
490 | // "HTMLButtonElement",
491 | // "HTMLBodyElement",
492 | // "HTMLBaseElement",
493 | // "HTMLBRElement",
494 | // "Audio",
495 | // "HTMLAudioElement",
496 | // "HTMLAreaElement",
497 | // "HTMLAnchorElement",
498 | // "HTMLAllCollection",
499 | // "FormData",
500 | // "FontFaceSetLoadEvent",
501 | // "FocusEvent",
502 | // "FileReader",
503 | // "FileList",
504 | // "File",
505 | // "EventTarget",
506 | // "Event",
507 | // "ErrorEvent",
508 | "Element",
509 | // "DragEvent",
510 | // "DocumentType",
511 | // "DocumentFragment",
512 | "Document",
513 | // "DataTransferItemList",
514 | // "DataTransferItem",
515 | // "DataTransfer",
516 | // "DOMTokenList",
517 | // "DOMStringMap",
518 | // "DOMStringList",
519 | // "DOMRectReadOnly",
520 | // "DOMRectList",
521 | // "DOMRect",
522 | // "DOMQuad",
523 | // "DOMPointReadOnly",
524 | // "DOMPoint",
525 | // "DOMParser",
526 | // "DOMMatrixReadOnly",
527 | // "DOMMatrix",
528 | // "DOMImplementation",
529 | // "DOMException",
530 | // "CustomEvent",
531 | // "CustomElementRegistry",
532 | // "CompositionEvent",
533 | // "Comment",
534 | // "ClipboardEvent",
535 | // "CharacterData",
536 | // "CSSVariableReferenceValue",
537 | // "CSSUnparsedValue",
538 | // "CSSUnitValue",
539 | // "CSSTranslate",
540 | // "CSSTransformValue",
541 | // "CSSTransformComponent",
542 | // "CSSSupportsRule",
543 | // "CSSStyleValue",
544 | // "CSSStyleSheet",
545 | // "CSSStyleRule",
546 | // "CSSStyleDeclaration",
547 | // "CSSSkewY",
548 | // "CSSSkewX",
549 | // "CSSSkew",
550 | // "CSSScale",
551 | // "CSSRuleList",
552 | // "CSSRule",
553 | // "CSSRotate",
554 | // "CSSPositionValue",
555 | // "CSSPerspective",
556 | // "CSSPageRule",
557 | // "CSSNumericValue",
558 | // "CSSNumericArray",
559 | // "CSSNamespaceRule",
560 | // "CSSMediaRule",
561 | // "CSSMatrixComponent",
562 | // "CSSMathValue",
563 | // "CSSMathSum",
564 | // "CSSMathProduct",
565 | // "CSSMathNegate",
566 | // "CSSMathMin",
567 | // "CSSMathMax",
568 | // "CSSMathInvert",
569 | // "CSSKeywordValue",
570 | // "CSSKeyframesRule",
571 | // "CSSKeyframeRule",
572 | // "CSSImportRule",
573 | // "CSSImageValue",
574 | // "CSSGroupingRule",
575 | // "CSSFontFaceRule",
576 | // "CSS",
577 | // "CSSConditionRule",
578 | // "CDATASection",
579 | // "Blob",
580 | // "BeforeUnloadEvent",
581 | // "BarProp",
582 | // "Attr",
583 | // "AnimationEvent",
584 | // "AbortSignal",
585 | // "AbortController",
586 | // "WebKitCSSMatrix",
587 | // "WebKitMutationObserver",
588 | // "SharedArrayBuffer",
589 | // "Atomics",
590 | // "WebAssembly",
591 | // "MediaCapabilitiesInfo",
592 | // "OffscreenCanvas",
593 | // "SharedWorker",
594 | // "FontFace",
595 | // "UserActivation",
596 | // "XSLTProcessor",
597 | // "TextDecoderStream",
598 | // "TextEncoderStream",
599 | // "GamepadHapticActuator",
600 | "Notification",
601 | // "OffscreenCanvasRenderingContext2D",
602 | // "PaymentInstruments",
603 | // "PaymentManager",
604 | // "PaymentRequestUpdateEvent",
605 | // "Permissions",
606 | // "PermissionStatus",
607 | // "EnterPictureInPictureEvent",
608 | // "PictureInPictureWindow",
609 | // "PushManager",
610 | // "PushSubscription",
611 | // "PushSubscriptionOptions",
612 | // "RemotePlayback",
613 | // "SpeechSynthesisErrorEvent",
614 | // "SpeechSynthesisEvent",
615 | // "SpeechSynthesisUtterance",
616 | // "CanvasGradient",
617 | // "CanvasPattern",
618 | // "Path2D",
619 | // "WebGL2RenderingContext",
620 | // "WebGLActiveInfo",
621 | // "WebGLBuffer",
622 | // "WebGLFramebuffer",
623 | // "WebGLProgram",
624 | // "WebGLQuery",
625 | // "WebGLRenderbuffer",
626 | // "WebGLRenderingContext",
627 | // "WebGLSampler",
628 | // "WebGLShader",
629 | // "WebGLShaderPrecisionFormat",
630 | // "WebGLSync",
631 | // "WebGLTexture",
632 | // "WebGLTransformFeedback",
633 | // "WebGLUniformLocation",
634 | // "WebGLVertexArrayObject",
635 | // "BluetoothUUID",
636 | |];
637 |
638 | let js_interpolation = (x: string) => "${" ++ x ++ "}";
639 |
640 | let js_infix = (~l: string, ~op: string, ~r: string) =>
641 | l ++ " " ++ op ++ " " ++ r;
642 |
643 | let join_loc = (loc1, loc2) => {
644 | let cmp = Location.compare(loc1, loc2);
645 | let (l_loc, r_loc) =
646 | if (cmp >= 0) {
647 | (loc1, loc2);
648 | } else {
649 | (loc2, loc1);
650 | };
651 | {
652 | loc_start: l_loc.loc_start,
653 | loc_end: r_loc.loc_end,
654 | loc_ghost: l_loc.loc_ghost,
655 | };
656 | };
657 |
658 | let parse_module_name = name => {
659 | js_globals |> Array.exists(x => x == name) ? "$$" ++ name : name;
660 | };
661 |
662 | let parse_lid = (~submodule, lid: longident) => {
663 | let parts = lid |> Longident.flatten_exn;
664 | switch (parts) {
665 | | [] => ParsedData.empty
666 | | [x] => {
667 | ParsedData.css:
668 | switch (submodule) {
669 | | None => x
670 | | Some(submodule) => (submodule |> parse_module_name) ++ "." ++ x
671 | },
672 | modules: ExternalModuleSet.empty,
673 | }
674 | | [hd, ...tl] => {
675 | ParsedData.css:
676 | tl
677 | |> List.fold_left(
678 | (acc, x) => acc ++ "." ++ (x |> parse_module_name),
679 | hd |> parse_module_name,
680 | ),
681 | modules: hd |> ExternalModuleSet.singleton,
682 | }
683 | };
684 | };
685 |
686 | let rec parse_function =
687 | (~args: list((arg_label, expression)), ~submodule, ~loc, lid) => {
688 | switch (lid.txt) {
689 | | Lident("|.") => parse_pipe_function(~args, ~data=`first, ~submodule, ~loc)
690 | | Lident("|>") => parse_pipe_function(~args, ~data=`last, ~submodule, ~loc)
691 | | _ as lid =>
692 | lid |> parse_lid(~submodule) |> parse_general_function(~args, ~submodule)
693 | };
694 | }
695 | and parse_pipe_function =
696 | (
697 | ~args: list((arg_label, expression)),
698 | ~data: [ | `first | `last],
699 | ~submodule: option(string),
700 | ~loc: location,
701 | ) => {
702 | switch (args) {
703 | | [
704 | (Nolabel, _) as l_arg,
705 | (Nolabel, {pexp_desc: Pexp_ident({txt: r_lid})}),
706 | ] =>
707 | r_lid
708 | |> parse_lid(~submodule)
709 | |> parse_general_function(~args=[l_arg], ~submodule)
710 |
711 | | [
712 | (Nolabel, _) as l_arg,
713 | (
714 | Nolabel,
715 | {
716 | pexp_desc:
717 | Pexp_apply({pexp_desc: Pexp_ident({txt: r_lid})}, r_args),
718 | },
719 | ),
720 | ] =>
721 | r_lid
722 | |> parse_lid(~submodule)
723 | |> parse_general_function(
724 | ~args=
725 | switch (data) {
726 | | `first => [l_arg, ...r_args]
727 | | `last => List.append(r_args, [l_arg])
728 | },
729 | ~submodule,
730 | )
731 |
732 | | [
733 | _,
734 | (
735 | Nolabel,
736 | {pexp_desc: Pexp_fun(_, _, {ppat_desc: Ppat_var(_), ppat_loc}, _)},
737 | ),
738 | ] =>
739 | Error({
740 | Error.reason: `UnexpectedFunction(`PlaceholderArg),
741 | loc: ppat_loc,
742 | })
743 |
744 | | _ => Error({Error.reason: `UnexpectedFunction(`UnexpectedPipe), loc})
745 | };
746 | }
747 | and parse_general_function =
748 | (
749 | ~args: list((arg_label, expression)),
750 | ~submodule: option(string),
751 | lid: ParsedData.t,
752 | ) => {
753 | switch (args) {
754 | | [(Nolabel, {pexp_desc: Pexp_construct({txt: Lident("()")}, _)})] =>
755 | Ok({ParsedData.css: lid.css ++ "()", modules: lid.modules})
756 | | _ as args =>
757 | args
758 | |> List.fold_left(
759 | (res, arg) =>
760 | res
761 | |> Result.flatMap((data: ParsedData.t) =>
762 | switch (arg) {
763 | | (Nolabel, expr) =>
764 | expr
765 | |> js_arg_from_expr(~submodule)
766 | |> Result.map((arg: ParsedData.t) =>
767 | {
768 | ParsedData.css:
769 | switch (data.css) {
770 | | "" => arg.css
771 | | _ as css => css ++ ", " ++ arg.css
772 | },
773 | modules:
774 | data.modules
775 | |> ExternalModuleSet.concat(arg.modules),
776 | }
777 | )
778 | | (Labelled(_), {pexp_loc}) =>
779 | Error({
780 | Error.reason: `UnexpectedFunction(`LabellledArg),
781 | loc: pexp_loc,
782 | })
783 | | (Optional(_), {pexp_loc}) =>
784 | Error({
785 | Error.reason: `UnexpectedFunction(`OptionalArg),
786 | loc: pexp_loc,
787 | })
788 | }
789 | ),
790 | Ok(ParsedData.empty),
791 | )
792 | |> Result.map((args: ParsedData.t) =>
793 | {
794 | ParsedData.css: lid.css ++ "(" ++ args.css ++ ")",
795 | modules: lid.modules |> ExternalModuleSet.concat(args.modules),
796 | }
797 | )
798 | };
799 | }
800 | and js_arg_from_expr = (~submodule: option(string), expr: expression) =>
801 | switch (expr) {
802 | | {pexp_desc: Pexp_ident({txt: lid})} => Ok(lid |> parse_lid(~submodule))
803 | | {pexp_desc: Pexp_constant(Pconst_integer(x, _) | Pconst_float(x, _))} =>
804 | Ok({ParsedData.css: x, modules: ExternalModuleSet.empty})
805 | | {pexp_desc: Pexp_constant(Pconst_string(x, _, _))} =>
806 | Ok({ParsedData.css: "\"" ++ x ++ "\"", modules: ExternalModuleSet.empty})
807 | | {pexp_desc: Pexp_apply({pexp_desc: Pexp_ident(lid)}, args), pexp_loc} =>
808 | lid |> parse_function(~args, ~submodule, ~loc=pexp_loc)
809 | | {pexp_loc} =>
810 | Error({Error.reason: `UnexpectedInterpolation, loc: pexp_loc})
811 | };
812 |
813 | let rec concat_js_expression =
814 | (
815 | ~op: string,
816 | ~loc: location,
817 | ~res: result(ParsedData.t, Error.t),
818 | ~submodule: option(string),
819 | operands: list((arg_label, expression)),
820 | )
821 | : result(ParsedData.t, Error.t) => {
822 | res
823 | |> Result.flatMap((data: ParsedData.t) =>
824 | switch (operands) {
825 | | [
826 | (
827 | Nolabel,
828 | {
829 | pexp_desc:
830 | Pexp_apply(
831 | {
832 | pexp_desc:
833 | Pexp_ident({
834 | txt:
835 | Lident(
836 | "+" as l_op | "-" as l_op | "*" as l_op |
837 | "/" as l_op,
838 | ),
839 | }),
840 | },
841 | l_operands,
842 | ),
843 | pexp_loc: l_apply_loc,
844 | },
845 | ),
846 | (
847 | Nolabel,
848 | {
849 | pexp_desc:
850 | Pexp_apply(
851 | {
852 | pexp_desc:
853 | Pexp_ident({
854 | txt:
855 | Lident(
856 | "+" as r_op | "-" as r_op | "*" as r_op |
857 | "/" as r_op,
858 | ),
859 | }),
860 | },
861 | r_operands,
862 | ),
863 | pexp_loc: r_apply_loc,
864 | },
865 | ),
866 | ] =>
867 | switch (
868 | l_operands
869 | |> concat_js_expression(
870 | ~op=l_op,
871 | ~loc=l_apply_loc,
872 | ~res=Ok(ParsedData.empty),
873 | ~submodule,
874 | ),
875 | r_operands
876 | |> concat_js_expression(
877 | ~op=r_op,
878 | ~loc=r_apply_loc,
879 | ~res=Ok(ParsedData.empty),
880 | ~submodule,
881 | ),
882 | ) {
883 | | (Ok(l), Ok(r)) =>
884 | Ok({
885 | ParsedData.css: js_infix(~l=l.css, ~op, ~r=r.css) ++ data.css,
886 | modules:
887 | data.modules
888 | |> ExternalModuleSet.concat(l.modules)
889 | |> ExternalModuleSet.concat(r.modules),
890 | })
891 | | (Error(error), _)
892 | | (_, Error(error)) => Error(error)
893 | }
894 | | [
895 | (
896 | Nolabel,
897 | {
898 | pexp_desc:
899 | Pexp_apply(
900 | {
901 | pexp_desc:
902 | Pexp_ident({
903 | txt:
904 | Lident(
905 | "+" as l_op | "-" as l_op | "*" as l_op |
906 | "/" as l_op,
907 | ),
908 | }),
909 | },
910 | l_operands,
911 | ),
912 | pexp_loc: l_apply_loc,
913 | },
914 | ),
915 | (Nolabel, r_expr),
916 | ] =>
917 | r_expr
918 | |> js_arg_from_expr(~submodule)
919 | |> Result.flatMap((r: ParsedData.t) =>
920 | l_operands
921 | |> concat_js_expression(
922 | ~op=l_op,
923 | ~loc=l_apply_loc,
924 | ~res=Ok(ParsedData.empty),
925 | ~submodule,
926 | )
927 | |> Result.flatMap((l: ParsedData.t) =>
928 | Ok({
929 | ParsedData.css:
930 | js_infix(~l=l.css, ~op, ~r=r.css) ++ data.css,
931 | modules:
932 | data.modules
933 | |> ExternalModuleSet.concat(l.modules)
934 | |> ExternalModuleSet.concat(r.modules),
935 | })
936 | )
937 | )
938 | | [
939 | (Nolabel, l_expr),
940 | (
941 | Nolabel,
942 | {
943 | pexp_desc:
944 | Pexp_apply(
945 | {
946 | pexp_desc:
947 | Pexp_ident({
948 | txt:
949 | Lident(
950 | "+" as r_op | "-" as r_op | "*" as r_op |
951 | "/" as r_op,
952 | ),
953 | }),
954 | },
955 | r_operands,
956 | ),
957 | pexp_loc: r_apply_loc,
958 | },
959 | ),
960 | ] =>
961 | l_expr
962 | |> js_arg_from_expr(~submodule)
963 | |> Result.flatMap((l: ParsedData.t) =>
964 | r_operands
965 | |> concat_js_expression(
966 | ~op=r_op,
967 | ~loc=r_apply_loc,
968 | ~res=Ok(ParsedData.empty),
969 | ~submodule,
970 | )
971 | |> Result.flatMap((r: ParsedData.t) =>
972 | Ok({
973 | ParsedData.css:
974 | js_infix(~l=l.css, ~op, ~r=r.css) ++ data.css,
975 | modules:
976 | data.modules
977 | |> ExternalModuleSet.concat(l.modules)
978 | |> ExternalModuleSet.concat(r.modules),
979 | })
980 | )
981 | )
982 | | [(Nolabel, l_expr), (Nolabel, r_expr)] =>
983 | switch (
984 | l_expr |> js_arg_from_expr(~submodule),
985 | r_expr |> js_arg_from_expr(~submodule),
986 | ) {
987 | | (Ok(l), Ok(r)) =>
988 | Ok({
989 | ParsedData.css: js_infix(~l=l.css, ~op, ~r=r.css) ++ data.css,
990 | modules:
991 | data.modules
992 | |> ExternalModuleSet.concat(l.modules)
993 | |> ExternalModuleSet.concat(r.modules),
994 | })
995 | | (Error(error), _)
996 | | (_, Error(error)) => Error(error)
997 | }
998 | | _ as operands =>
999 | let hd = List.nth_opt(operands, 0);
1000 | let tl = List.nth_opt(operands |> List.rev, 0);
1001 | let loc =
1002 | switch (hd, tl) {
1003 | | (Some((_, {pexp_loc: loc1})), Some((_, {pexp_loc: loc2}))) =>
1004 | join_loc(loc1, loc2)
1005 | | (Some((_, {pexp_loc: loc})), None)
1006 | | (None, Some((_, {pexp_loc: loc}))) => loc
1007 | | (None, None) => loc
1008 | };
1009 | Error({Error.reason: `UnexpectedInterpolation, loc});
1010 | }
1011 | );
1012 | };
1013 |
1014 | let rec concat_css_block =
1015 | (
1016 | ~loc: location,
1017 | ~res: result(ParsedData.t, Error.t),
1018 | ~submodule: option(string),
1019 | operands: list((arg_label, expression)),
1020 | ) => {
1021 | res
1022 | |> Result.flatMap((data: ParsedData.t) =>
1023 | switch (operands) {
1024 | | [
1025 | (
1026 | Nolabel,
1027 | {
1028 | pexp_desc:
1029 | Pexp_apply(
1030 | {pexp_desc: Pexp_ident({txt: Lident("^")})},
1031 | l_operands,
1032 | ),
1033 | pexp_loc: l_apply_loc,
1034 | },
1035 | ),
1036 | (
1037 | Nolabel,
1038 | {
1039 | pexp_desc:
1040 | Pexp_constant(Pconst_string(r_css, _r_loc, Some("css"))),
1041 | },
1042 | ),
1043 | ] =>
1044 | l_operands
1045 | |> concat_css_block(
1046 | ~submodule,
1047 | ~loc=l_apply_loc,
1048 | ~res=
1049 | Ok({
1050 | ParsedData.css: r_css ++ data.css,
1051 | modules: data.modules,
1052 | }),
1053 | )
1054 |
1055 | | [
1056 | (
1057 | Nolabel,
1058 | {
1059 | pexp_desc:
1060 | Pexp_apply(
1061 | {pexp_desc: Pexp_ident({txt: Lident("^")})},
1062 | l_operands,
1063 | ),
1064 | pexp_loc: l_apply_loc,
1065 | },
1066 | ),
1067 | (Nolabel, {pexp_desc: Pexp_ident({txt: r_lid})}),
1068 | ] =>
1069 | let r_lid = r_lid |> parse_lid(~submodule);
1070 | l_operands
1071 | |> concat_css_block(
1072 | ~submodule,
1073 | ~loc=l_apply_loc,
1074 | ~res=
1075 | Ok({
1076 | ParsedData.css: js_interpolation(r_lid.css) ++ data.css,
1077 | modules:
1078 | data.modules |> ExternalModuleSet.concat(r_lid.modules),
1079 | }),
1080 | );
1081 |
1082 | | [
1083 | (
1084 | Nolabel,
1085 | {
1086 | pexp_desc:
1087 | Pexp_apply(
1088 | {pexp_desc: Pexp_ident({txt: Lident("^")})},
1089 | l_operands,
1090 | ),
1091 | pexp_loc: l_apply_loc,
1092 | },
1093 | ),
1094 | (
1095 | Nolabel,
1096 | {
1097 | pexp_desc:
1098 | Pexp_constant(
1099 | Pconst_integer(r_css, _) | Pconst_float(r_css, _),
1100 | ),
1101 | },
1102 | ),
1103 | ] =>
1104 | l_operands
1105 | |> concat_css_block(
1106 | ~submodule,
1107 | ~loc=l_apply_loc,
1108 | ~res=
1109 | Ok({
1110 | ParsedData.css: js_interpolation(r_css) ++ data.css,
1111 | modules: data.modules,
1112 | }),
1113 | )
1114 |
1115 | | [
1116 | (
1117 | Nolabel,
1118 | {
1119 | pexp_desc:
1120 | Pexp_constant(Pconst_string(l_css, _l_loc, Some("css"))),
1121 | },
1122 | ),
1123 | (Nolabel, {pexp_desc: Pexp_ident({txt: r_lid})}),
1124 | ] =>
1125 | let r_lid = r_lid |> parse_lid(~submodule);
1126 | Ok({
1127 | ParsedData.css: l_css ++ js_interpolation(r_lid.css) ++ data.css,
1128 | modules: data.modules |> ExternalModuleSet.concat(r_lid.modules),
1129 | });
1130 |
1131 | | [
1132 | (
1133 | Nolabel,
1134 | {
1135 | pexp_desc:
1136 | Pexp_constant(Pconst_string(l_css, _l_loc, Some("css"))),
1137 | },
1138 | ),
1139 | (
1140 | Nolabel,
1141 | {
1142 | pexp_desc:
1143 | Pexp_constant(
1144 | Pconst_integer(r_css, _) | Pconst_float(r_css, _),
1145 | ),
1146 | },
1147 | ),
1148 | ] =>
1149 | Ok({
1150 | ParsedData.css: l_css ++ js_interpolation(r_css) ++ data.css,
1151 | modules: data.modules,
1152 | })
1153 |
1154 | | [
1155 | (
1156 | Nolabel,
1157 | {
1158 | pexp_desc:
1159 | Pexp_constant(Pconst_string(l_css, _l_loc, Some("css"))),
1160 | },
1161 | ),
1162 | (
1163 | Nolabel,
1164 | {
1165 | pexp_desc:
1166 | Pexp_constant(Pconst_string(r_css, _r_loc, Some("css"))),
1167 | },
1168 | ),
1169 | ] =>
1170 | Ok({
1171 | ParsedData.css: l_css ++ r_css ++ data.css,
1172 | modules: data.modules,
1173 | })
1174 |
1175 | | [
1176 | (
1177 | Nolabel,
1178 | {
1179 | pexp_desc:
1180 | Pexp_apply(
1181 | {pexp_desc: Pexp_ident({txt: Lident("^")})},
1182 | l_operands,
1183 | ),
1184 | pexp_loc: l_apply_loc,
1185 | },
1186 | ),
1187 | (
1188 | Nolabel,
1189 | {
1190 | pexp_desc:
1191 | Pexp_apply(
1192 | {
1193 | pexp_desc:
1194 | Pexp_ident({
1195 | txt:
1196 | Lident(
1197 | "+" as r_op | "-" as r_op | "*" as r_op |
1198 | "/" as r_op,
1199 | ),
1200 | }),
1201 | pexp_loc: r_exp_loc,
1202 | },
1203 | r_operands,
1204 | ),
1205 | },
1206 | ),
1207 | ] =>
1208 | r_operands
1209 | |> concat_js_expression(
1210 | ~op=r_op,
1211 | ~loc=r_exp_loc,
1212 | ~res=Ok(ParsedData.empty),
1213 | ~submodule,
1214 | )
1215 | |> Result.flatMap((r: ParsedData.t) =>
1216 | l_operands
1217 | |> concat_css_block(
1218 | ~submodule,
1219 | ~loc=l_apply_loc,
1220 | ~res=Ok(ParsedData.empty),
1221 | )
1222 | |> Result.flatMap((l: ParsedData.t) =>
1223 | Ok({
1224 | ParsedData.css:
1225 | l.css ++ js_interpolation(r.css) ++ data.css,
1226 | modules:
1227 | data.modules
1228 | |> ExternalModuleSet.concat(l.modules)
1229 | |> ExternalModuleSet.concat(r.modules),
1230 | })
1231 | )
1232 | )
1233 |
1234 | | [
1235 | (
1236 | Nolabel,
1237 | {
1238 | pexp_desc:
1239 | Pexp_constant(Pconst_string(l_css, _l_loc, Some("css"))),
1240 | },
1241 | ),
1242 | (
1243 | Nolabel,
1244 | {
1245 | pexp_desc:
1246 | Pexp_apply(
1247 | {
1248 | pexp_desc:
1249 | Pexp_ident({
1250 | txt:
1251 | Lident(
1252 | "+" as r_op | "-" as r_op | "*" as r_op |
1253 | "/" as r_op,
1254 | ),
1255 | }),
1256 | pexp_loc: r_exp_loc,
1257 | },
1258 | r_operands,
1259 | ),
1260 | },
1261 | ),
1262 | ] =>
1263 | r_operands
1264 | |> concat_js_expression(
1265 | ~op=r_op,
1266 | ~loc=r_exp_loc,
1267 | ~res=Ok(ParsedData.empty),
1268 | ~submodule,
1269 | )
1270 | |> Result.flatMap((r: ParsedData.t) =>
1271 | Ok({
1272 | ParsedData.css: l_css ++ js_interpolation(r.css) ++ data.css,
1273 | modules: data.modules |> ExternalModuleSet.concat(r.modules),
1274 | })
1275 | )
1276 |
1277 | | [
1278 | (
1279 | Nolabel,
1280 | {
1281 | pexp_desc:
1282 | Pexp_constant(Pconst_string(l_css, _l_loc, Some("css"))),
1283 | },
1284 | ),
1285 | (
1286 | Nolabel,
1287 | {
1288 | pexp_desc:
1289 | Pexp_apply({pexp_desc: Pexp_ident(r_lid)}, r_operands),
1290 | pexp_loc: r_exp_loc,
1291 | },
1292 | ),
1293 | ] =>
1294 | r_lid
1295 | |> parse_function(~args=r_operands, ~loc=r_exp_loc, ~submodule)
1296 | |> Result.flatMap((r: ParsedData.t) =>
1297 | Ok({
1298 | ParsedData.css: l_css ++ js_interpolation(r.css) ++ data.css,
1299 | modules: data.modules |> ExternalModuleSet.concat(r.modules),
1300 | })
1301 | )
1302 |
1303 | | [
1304 | (
1305 | Nolabel,
1306 | {
1307 | pexp_desc:
1308 | Pexp_apply(
1309 | {pexp_desc: Pexp_ident({txt: Lident("^")})},
1310 | l_operands,
1311 | ),
1312 | pexp_loc: l_apply_loc,
1313 | },
1314 | ),
1315 | (
1316 | Nolabel,
1317 | {
1318 | pexp_desc:
1319 | Pexp_apply({pexp_desc: Pexp_ident(r_lid)}, r_operands),
1320 | pexp_loc: r_exp_loc,
1321 | },
1322 | ),
1323 | ] =>
1324 | r_lid
1325 | |> parse_function(~args=r_operands, ~loc=r_exp_loc, ~submodule)
1326 | |> Result.flatMap((r: ParsedData.t) =>
1327 | l_operands
1328 | |> concat_css_block(
1329 | ~submodule,
1330 | ~loc=l_apply_loc,
1331 | ~res=Ok(ParsedData.empty),
1332 | )
1333 | |> Result.flatMap((l: ParsedData.t) =>
1334 | Ok({
1335 | ParsedData.css:
1336 | l.css ++ js_interpolation(r.css) ++ data.css,
1337 | modules:
1338 | data.modules
1339 | |> ExternalModuleSet.concat(l.modules)
1340 | |> ExternalModuleSet.concat(r.modules),
1341 | })
1342 | )
1343 | )
1344 |
1345 | | _ as operands =>
1346 | let hd = List.nth_opt(operands, 0);
1347 | let tl = List.nth_opt(operands |> List.rev, 0);
1348 | let loc =
1349 | switch (hd, tl) {
1350 | | (Some((_, {pexp_loc: loc1})), Some((_, {pexp_loc: loc2}))) =>
1351 | join_loc(loc1, loc2)
1352 | | (Some((_, {pexp_loc: loc})), None)
1353 | | (None, Some((_, {pexp_loc: loc}))) => loc
1354 | | (None, None) => loc
1355 | };
1356 | Error({Error.reason: `UnexpectedInterpolation, loc});
1357 | }
1358 | );
1359 | };
1360 |
1361 | let generate_module = (~loc, ~submodule, str) => {
1362 | // This is required import so babel plugin could pickup this module
1363 | let import = [%stri
1364 | %raw
1365 | {|import { css } from "@linaria/core"|}
1366 | ];
1367 |
1368 | let (str, modules) =
1369 | str
1370 | |> List.rev
1371 | |> List.fold_left(
1372 | ((str, modules), item) =>
1373 | switch (item) {
1374 | | {
1375 | pstr_desc:
1376 | Pstr_value(
1377 | Nonrecursive,
1378 | [
1379 | {
1380 | pvb_pat: {
1381 | ppat_desc: Ppat_var(var),
1382 | ppat_loc,
1383 | ppat_loc_stack,
1384 | ppat_attributes,
1385 | },
1386 | pvb_expr: {
1387 | pexp_desc:
1388 | Pexp_constant(
1389 | Pconst_string(css, _loc, Some("css")),
1390 | ),
1391 | pexp_loc,
1392 | pexp_loc_stack: _,
1393 | pexp_attributes: _,
1394 | },
1395 | pvb_attributes,
1396 | pvb_loc,
1397 | },
1398 | ],
1399 | ),
1400 | pstr_loc,
1401 | } => (
1402 | [
1403 | {
1404 | pstr_desc:
1405 | Pstr_value(
1406 | Nonrecursive,
1407 | [
1408 | {
1409 | pvb_pat: {
1410 | ppat_desc: Ppat_var(var),
1411 | ppat_loc,
1412 | ppat_loc_stack,
1413 | ppat_attributes,
1414 | },
1415 | pvb_expr: {
1416 | let loc = pexp_loc;
1417 | let typ = [%type: string];
1418 | let exp = [%expr
1419 | [%raw
1420 | [%e
1421 | Exp.constant(
1422 | Const.string("css`" ++ css ++ "`"),
1423 | )
1424 | ]
1425 | ]
1426 | ];
1427 | Ast_helper.Exp.constraint_(~loc, exp, typ);
1428 | },
1429 | pvb_attributes,
1430 | pvb_loc,
1431 | },
1432 | ],
1433 | ),
1434 | pstr_loc,
1435 | },
1436 | ...str,
1437 | ],
1438 | modules,
1439 | )
1440 | | {
1441 | pstr_desc:
1442 | Pstr_value(
1443 | Nonrecursive,
1444 | [
1445 | {
1446 | pvb_pat: {
1447 | ppat_desc: Ppat_var(var),
1448 | ppat_loc,
1449 | ppat_loc_stack,
1450 | ppat_attributes,
1451 | },
1452 | pvb_expr: {
1453 | pexp_desc:
1454 | Pexp_apply(
1455 | {pexp_desc: Pexp_ident({txt: Lident("^")})},
1456 | [
1457 | (Nolabel, _),
1458 | (
1459 | Nolabel,
1460 | {
1461 | pexp_desc:
1462 | Pexp_constant(
1463 | Pconst_string(_, _, Some("css")),
1464 | ),
1465 | },
1466 | ),
1467 | ] as css,
1468 | ),
1469 | pexp_loc,
1470 | pexp_loc_stack: _,
1471 | pexp_attributes: _,
1472 | },
1473 | pvb_attributes,
1474 | pvb_loc,
1475 | },
1476 | ],
1477 | ),
1478 | pstr_loc,
1479 | } =>
1480 | switch (
1481 | css
1482 | |> concat_css_block(
1483 | ~submodule,
1484 | ~loc=pexp_loc,
1485 | ~res=Ok(ParsedData.empty),
1486 | )
1487 | ) {
1488 | | Ok(data) => (
1489 | [
1490 | {
1491 | pstr_desc:
1492 | Pstr_value(
1493 | Nonrecursive,
1494 | [
1495 | {
1496 | pvb_pat: {
1497 | ppat_desc: Ppat_var(var),
1498 | ppat_loc,
1499 | ppat_loc_stack,
1500 | ppat_attributes,
1501 | },
1502 | pvb_expr: {
1503 | let loc = pexp_loc;
1504 | let typ = [%type: string];
1505 | let exp = [%expr
1506 | [%raw
1507 | [%e
1508 | Exp.constant(
1509 | Const.string(
1510 | "css`" ++ data.css ++ "`",
1511 | ),
1512 | )
1513 | ]
1514 | ]
1515 | ];
1516 | Ast_helper.Exp.constraint_(~loc, exp, typ);
1517 | },
1518 | pvb_attributes,
1519 | pvb_loc,
1520 | },
1521 | ],
1522 | ),
1523 | pstr_loc,
1524 | },
1525 | ...str,
1526 | ],
1527 | modules |> ExternalModuleSet.concat(data.modules),
1528 | )
1529 | | Error({reason, loc}) =>
1530 | switch (reason) {
1531 | | `UnexpectedInterpolation =>
1532 | Location.raise_errorf(~loc, "Unexpected interpolation")
1533 | | `UnexpectedFunction(`LabellledArg) =>
1534 | Location.raise_errorf(
1535 | ~loc,
1536 | "Functions with labelled arguments are not supported",
1537 | )
1538 | | `UnexpectedFunction(`OptionalArg) =>
1539 | Location.raise_errorf(
1540 | ~loc,
1541 | "Functions with optional arguments are not supported",
1542 | )
1543 | | `UnexpectedFunction(`PlaceholderArg) =>
1544 | Location.raise_errorf(
1545 | ~loc,
1546 | "Pipe placeholders are not supported",
1547 | )
1548 | | `UnexpectedFunction(`UnexpectedPipe) =>
1549 | Location.raise_errorf(
1550 | ~loc,
1551 | "Function application with pipe is supported, but I can't parse this combination. Please, file an issue with your use-case.",
1552 | )
1553 | }
1554 | }
1555 | | _ as item => ([item, ...str], modules)
1556 | },
1557 | ([], ExternalModuleSet.empty),
1558 | );
1559 |
1560 | let includes =
1561 | modules
1562 | |> ExternalModuleSet.elements
1563 | |> List.map(m => {
1564 | Ast_helper.Str.include_(
1565 | ~loc,
1566 | Incl.mk(Mod.ident(~loc, {txt: Lident(m), loc})),
1567 | )
1568 | });
1569 |
1570 | Mod.mk(Pmod_structure(str |> List.append([import, ...includes])));
1571 | };
1572 |
1573 | let submodule_from_code_path = path => {
1574 | switch (path |> Code_path.submodule_path) {
1575 | | [] => None
1576 | | _ as s_path => Some(s_path |> List.rev |> List.hd)
1577 | };
1578 | };
1579 |
1580 | let ext =
1581 | Extension.V3.declare(
1582 | "css",
1583 | Extension.Context.module_expr,
1584 | Ast_pattern.__,
1585 | (~ctxt, payload) => {
1586 | let loc = ctxt |> Expansion_context.Extension.extension_point_loc;
1587 | let submodule =
1588 | ctxt
1589 | |> Expansion_context.Extension.code_path
1590 | |> submodule_from_code_path;
1591 |
1592 | switch (payload) {
1593 | | PStr(str) => str |> generate_module(~loc, ~submodule)
1594 | | _ => Location.raise_errorf(~loc, "Must be a module")
1595 | };
1596 | },
1597 | );
1598 |
1599 | "rescript-linaria"
1600 | |> Ppxlib.Driver.register_transformation(
1601 | ~rules=[Context_free.Rule.extension(ext)],
1602 | );
1603 |
--------------------------------------------------------------------------------
/ppx/dune:
--------------------------------------------------------------------------------
1 | (library
2 | (name Ppx)
3 | (public_name rescript-linaria-ppx.lib)
4 | (kind ppx_rewriter)
5 | (libraries ppxlib)
6 | (flags (:standard -w -30-9))
7 | (preprocess (pps ppxlib.metaquot))
8 | )
9 |
--------------------------------------------------------------------------------
/release.sh:
--------------------------------------------------------------------------------
1 | set -e
2 | set -o pipefail
3 |
4 | ARCH=$(uname -m)
5 | PLATFORM=$(uname -s | tr '[:upper:]' '[:lower:]')
6 |
7 | OPAM_FILE=$(basename -- $(find *.opam))
8 | LIB="${OPAM_FILE%.*}"
9 |
10 | SOURCE_BIN="_build/default/bin/bin.exe"
11 | RELEASE_DIR="_release"
12 | RELEASE_ZIP="$RELEASE_DIR/release.zip"
13 | RELEASE_BIN_DIR="$RELEASE_DIR/bin"
14 | RELEASE_BIN="$RELEASE_BIN_DIR/$LIB-$PLATFORM-$ARCH.exe"
15 |
16 | if [ ! -f "$RELEASE_ZIP" ]; then
17 | echo "$RELEASE_ZIP does not exist. Download it from Github and put in $RELEASE_DIR/ dir."
18 | exit 1
19 | fi
20 |
21 | echo "=== Releasing $LIB"
22 | echo "=== Unzipping release archive"
23 | unzip -d $RELEASE_DIR $RELEASE_ZIP
24 | rm $RELEASE_ZIP
25 | tree -a -L 2 $RELEASE_DIR
26 |
27 | echo ""
28 | echo "=== Preparing $PLATFORM $ARCH binary"
29 |
30 | CHMOD=$(stat -c %a "$RELEASE_BIN_DIR/$(ls $RELEASE_BIN_DIR | head -n 1)")
31 |
32 | dune build
33 | cp $SOURCE_BIN $RELEASE_BIN
34 | chmod $CHMOD $RELEASE_BIN
35 | tree -a -L 2 $RELEASE_DIR
36 |
37 | echo ""
38 | echo "=== Publishing to npm"
39 | cd $RELEASE_DIR
40 | rm .DS_Store >/dev/null 2>&1 || true
41 |
42 | echo "package.json:"
43 | cat package.json
44 | echo ""
45 |
46 | npm publish
47 | cd ..
48 |
49 | echo ""
50 | echo "=== Cleaning up"
51 | rm -rf $RELEASE_DIR/*
52 | tree -a -L 2 $RELEASE_DIR
53 |
--------------------------------------------------------------------------------
/rescript-linaria-ppx.opam:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/MinimaHQ/rescript-linaria/f249c3f7b3cf3e760fcf027019c89ca1a661dbca/rescript-linaria-ppx.opam
--------------------------------------------------------------------------------
/shell.nix:
--------------------------------------------------------------------------------
1 | with import {};
2 | with pkgs.ocaml-ng.ocamlPackages_4_12;
3 |
4 | mkShell {
5 | buildInputs = [
6 | ocaml
7 | dune_2
8 | findlib
9 | ppxlib
10 | reason
11 | merlin
12 | ];
13 | }
14 |
--------------------------------------------------------------------------------