Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add es6 module #46

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Add es6 module #46

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
206 changes: 116 additions & 90 deletions src/MomentRe.re
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,26 +1,26 @@
/* duration */
module Duration = {
type t;
[@bs.send] external humanize: t => string = "";
[@bs.send] external milliseconds: t => int = "";
[@bs.send] external asMilliseconds: t => float = "";
[@bs.send] external seconds: t => int = "";
[@bs.send] external asSeconds: t => float = "";
[@bs.send] external minutes: t => int = "";
[@bs.send] external asMinutes: t => float = "";
[@bs.send] external hours: t => int = "";
[@bs.send] external asHours: t => float = "";
[@bs.send] external days: t => int = "";
[@bs.send] external asDays: t => float = "";
[@bs.send] external weeks: t => int = "";
[@bs.send] external asWeeks: t => float = "";
[@bs.send] external months: t => int = "";
[@bs.send] external asMonths: t => float = "";
[@bs.send] external years: t => int = "";
[@bs.send] external asYears: t => float = "";
[@bs.send] external toJSON: t => string = "";
[@bs.send] external humanize : t => string = "";
[@bs.send] external milliseconds : t => int = "";
[@bs.send] external asMilliseconds : t => float = "";
[@bs.send] external seconds : t => int = "";
[@bs.send] external asSeconds : t => float = "";
[@bs.send] external minutes : t => int = "";
[@bs.send] external asMinutes : t => float = "";
[@bs.send] external hours : t => int = "";
[@bs.send] external asHours : t => float = "";
[@bs.send] external days : t => int = "";
[@bs.send] external asDays : t => float = "";
[@bs.send] external weeks : t => int = "";
[@bs.send] external asWeeks : t => float = "";
[@bs.send] external months : t => int = "";
[@bs.send] external asMonths : t => float = "";
[@bs.send] external years : t => int = "";
[@bs.send] external asYears : t => float = "";
[@bs.send] external toJSON : t => string = "";
[@bs.send.pipe: t]
external asUnitOfTime:
external asUnitOfTime :
(
[@bs.string]
[
Expand All @@ -40,7 +40,7 @@ module Duration = {
};

[@bs.module "moment"]
external duration:
external duration :
(
float,
[@bs.string] [
Expand All @@ -58,29 +58,28 @@ external duration:
Duration.t =
"";

[@bs.module "moment"] external durationMillis: int => Duration.t = "duration";
[@bs.module "moment"] external durationMillis : int => Duration.t = "duration";

[@bs.module "moment"]
external durationFormat: string => Duration.t = "duration";
external durationFormat : string => Duration.t = "duration";

module Moment = {
type t;

[@bs.send.pipe: t] external clone: t = "";
[@bs.send] external mutableAdd: (t, Duration.t) => unit = "add";
[@bs.send.pipe: t] external clone : t = "";
[@bs.send] external mutableAdd : (t, Duration.t) => unit = "add";
let add = (~duration, moment) => {
let clone = clone(moment);
mutableAdd(clone, duration);
clone;
};
[@bs.send] external mutableSubtract: (t, Duration.t) => unit = "subtract";
[@bs.send] external mutableSubtract : (t, Duration.t) => unit = "subtract";
let subtract = (~duration, moment) => {
let clone = clone(moment);
mutableSubtract(clone, duration);
clone;
};
[@bs.send]
external mutableStartOf:
external mutableStartOf :
(
t,
[@bs.string] [
Expand All @@ -104,7 +103,7 @@ module Moment = {
clone;
};
[@bs.send]
external mutableEndOf:
external mutableEndOf :
(
t,
[@bs.string] [
Expand All @@ -127,104 +126,104 @@ module Moment = {
mutableEndOf(clone, timeUnit);
clone;
};
[@bs.send] external mutableSetMillisecond: (t, int) => unit = "millisecond";
[@bs.send] external mutableSetMillisecond : (t, int) => unit = "millisecond";
let setMillisecond = (millisecond, moment) => {
let clone = clone(moment);
mutableSetMillisecond(clone, millisecond);
clone;
};
[@bs.send] external mutableSetSecond: (t, int) => unit = "second";
[@bs.send] external mutableSetSecond : (t, int) => unit = "second";
let setSecond = (second, moment) => {
let clone = clone(moment);
mutableSetSecond(clone, second);
clone;
};
[@bs.send] external mutableSetMinute: (t, int) => unit = "minute";
[@bs.send] external mutableSetMinute : (t, int) => unit = "minute";
let setMinute = (minute, moment) => {
let clone = clone(moment);
mutableSetMinute(clone, minute);
clone;
};
[@bs.send] external mutableSetHour: (t, int) => unit = "hour";
[@bs.send] external mutableSetHour : (t, int) => unit = "hour";
let setHour = (hour, moment) => {
let clone = clone(moment);
mutableSetHour(clone, hour);
clone;
};
[@bs.send] external mutableSetDate: (t, int) => unit = "date";
[@bs.send] external mutableSetDate : (t, int) => unit = "date";
let setDate = (date, moment) => {
let clone = clone(moment);
mutableSetDate(clone, date);
clone;
};
[@bs.send] external mutableSetDay: (t, int) => unit = "day";
[@bs.send] external mutableSetDay : (t, int) => unit = "day";
let setDay = (day, moment) => {
let clone = clone(moment);
mutableSetDay(clone, day);
clone;
};
[@bs.send] external mutableSetWeekday: (t, int) => unit = "weekday";
[@bs.send] external mutableSetWeekday : (t, int) => unit = "weekday";
let setWeekday = (weekday, moment) => {
let clone = clone(moment);
mutableSetWeekday(clone, weekday);
clone;
};
[@bs.send] external mutableSetIsoWeekday: (t, int) => unit = "isoWeekday";
[@bs.send] external mutableSetIsoWeekday : (t, int) => unit = "isoWeekday";
let setIsoWeekday = (isoWeekday, moment) => {
let clone = clone(moment);
mutableSetIsoWeekday(clone, isoWeekday);
clone;
};
[@bs.send] external mutableSetDayOfYear: (t, int) => unit = "dayOfYear";
[@bs.send] external mutableSetDayOfYear : (t, int) => unit = "dayOfYear";
let setDayOfYear = (dayOfYear, moment) => {
let clone = clone(moment);
mutableSetDayOfYear(clone, dayOfYear);
clone;
};
[@bs.send] external mutableSetWeek: (t, int) => unit = "week";
[@bs.send] external mutableSetWeek : (t, int) => unit = "week";
let setWeek = (week, moment) => {
let clone = clone(moment);
mutableSetWeek(clone, week);
clone;
};
[@bs.send] external mutableSetIsoWeek: (t, int) => unit = "isoWeek";
[@bs.send] external mutableSetIsoWeek : (t, int) => unit = "isoWeek";
let setIsoWeek = (isoWeek, moment) => {
let clone = clone(moment);
mutableSetIsoWeek(clone, isoWeek);
clone;
};
[@bs.send] external mutableSetQuarter: (t, int) => unit = "quarter";
[@bs.send] external mutableSetQuarter : (t, int) => unit = "quarter";
let setQuarter = (quarter, moment) => {
let clone = clone(moment);
mutableSetQuarter(clone, quarter);
clone;
};
[@bs.send] external mutableSetWeekYear: (t, int) => unit = "weekYear";
[@bs.send] external mutableSetWeekYear : (t, int) => unit = "weekYear";
let setWeekYear = (weekYear, moment) => {
let clone = clone(moment);
mutableSetWeekYear(clone, weekYear);
clone;
};
[@bs.send] external mutableSetIsoWeekYear: (t, int) => unit = "isoWeekYear";
[@bs.send] external mutableSetIsoWeekYear : (t, int) => unit = "isoWeekYear";
let setIsoWeekYear = (isoWeekYear, moment) => {
let clone = clone(moment);
mutableSetWeekYear(clone, isoWeekYear);
clone;
};
[@bs.send] external mutableSetMonth: (t, int) => unit = "month";
[@bs.send] external mutableSetMonth : (t, int) => unit = "month";
let setMonth = (month, moment) => {
let clone = clone(moment);
mutableSetMonth(clone, month);
clone;
};
[@bs.send] external mutableSetYear: (t, int) => unit = "year";
[@bs.send] external mutableSetYear : (t, int) => unit = "year";
let setYear = (year, moment) => {
let clone = clone(moment);
mutableSetYear(clone, year);
clone;
};
[@bs.send.pipe: t]
external get:
external get :
(
[@bs.string]
[
Expand All @@ -242,78 +241,105 @@ module Moment = {
) =>
int =
"";
[@bs.send.pipe: t] external millisecond: int = "";
[@bs.send.pipe: t] external second: int = "";
[@bs.send.pipe: t] external minute: int = "";
[@bs.send.pipe: t] external hour: int = "";
[@bs.send.pipe: t] external day: int = "";
[@bs.send.pipe: t] external date: int = "";
[@bs.send.pipe: t] external week: int = "";
[@bs.send.pipe: t] external month: int = "";
[@bs.send.pipe: t] external year: int = "";
[@bs.send.pipe: t] external weekday: int = "";
[@bs.send] external isValid: t => bool = "";
[@bs.send] external isBefore: (t, t) => bool = "";
[@bs.send] external isAfter: (t, t) => bool = "";
[@bs.send] external isSame: (t, t) => bool = "";
[@bs.send.pipe: t] external millisecond : int = "";
[@bs.send.pipe: t] external second : int = "";
[@bs.send.pipe: t] external minute : int = "";
[@bs.send.pipe: t] external hour : int = "";
[@bs.send.pipe: t] external day : int = "";
[@bs.send.pipe: t] external date : int = "";
[@bs.send.pipe: t] external week : int = "";
[@bs.send.pipe: t] external month : int = "";
[@bs.send.pipe: t] external year : int = "";
[@bs.send.pipe: t] external weekday : int = "";
[@bs.send] external isValid : t => bool = "";
[@bs.send] external isBefore : (t, t) => bool = "";
[@bs.send] external isAfter : (t, t) => bool = "";
[@bs.send] external isSame : (t, t) => bool = "";
[@bs.send]
external isSameWithGranularity:
external isSameWithGranularity :
(t, t, [@bs.string] [ | `year | `month | `day]) => bool =
"isSame";
[@bs.send] external isSameOrBefore: (t, t) => bool = "";
[@bs.send] external isSameOrAfter: (t, t) => bool = "";
[@bs.send] external isBetween: (t, t, t) => bool = "";
[@bs.send] external isDST: t => bool = "";
[@bs.send] external isLeapYear: t => bool = "";
[@bs.send] external isSameOrBefore : (t, t) => bool = "";
[@bs.send] external isSameOrAfter : (t, t) => bool = "";
[@bs.send] external isBetween : (t, t, t) => bool = "";
[@bs.send] external isDST : t => bool = "";
[@bs.send] external isLeapYear : t => bool = "";
/* display */
[@bs.send.pipe: t] external format: string => string = "";
[@bs.send.pipe: t] external defaultFormat: string = "format";
[@bs.send.pipe: t] external utc: string => t = "";
[@bs.send.pipe: t] external defaultUtc: t = "utc";
[@bs.send.pipe: t] external locale: string => t = "";
[@bs.send.pipe: t] external format : string => string = "";
[@bs.send.pipe: t] external defaultFormat : string = "format";
[@bs.send.pipe: t] external utc : string => t = "";
[@bs.send.pipe: t] external defaultUtc : t = "utc";
[@bs.send.pipe: t] external locale : string => t = "";
[@bs.send]
external fromNow: (t, ~withoutSuffix: option(bool)) => string = "";
external fromNow : (t, ~withoutSuffix: option(bool)) => string = "";
[@bs.send]
external fromMoment: (t, ~other: t, ~format: option(string)) => string =
external fromMoment : (t, ~other: t, ~format: option(string)) => string =
"from";
[@bs.send] external toNow: (t, ~withoutSuffix: option(bool)) => string = "";
[@bs.send]
external toMoment: (t, ~other: t, ~format: string) => string = "to";
[@bs.send] external valueOf: t => float = "";
[@bs.send] external daysInMonth: t => int = "";
[@bs.send] external toJSON: t => string = "";
[@bs.send] external toDate: t => Js.Date.t = "";
[@bs.send] external toUnix: t => int = "unix";
external toNow : (t, ~withoutSuffix: option(bool)) => string = "";
[@bs.send]
external toMoment : (t, ~other: t, ~format: string) => string = "to";
[@bs.send] external valueOf : t => float = "";
[@bs.send] external daysInMonth : t => int = "";
[@bs.send] external toJSON : t => string = "";
[@bs.send] external toDate : t => Js.Date.t = "";
[@bs.send] external toUnix : t => int = "unix";
};

/* parse */
[@bs.module] external momentNow: unit => Moment.t = "moment";
[@bs.module] external momentNow : unit => Moment.t = "moment";

[@bs.module] external momentDefaultFormat: string => Moment.t = "moment";
[@bs.module] external momentDefaultFormat : string => Moment.t = "moment";

[@bs.module]
external momentWithFormat: (string, string) => Moment.t = "moment";
external momentWithFormat : (string, string) => Moment.t = "moment";

[@bs.module] external momentWithDate: Js.Date.t => Moment.t = "moment";
[@bs.module] external momentWithDate : Js.Date.t => Moment.t = "moment";

[@bs.module]
external momentWithFormats: (string, array(string)) => Moment.t = "moment";
external momentWithFormats : (string, array(string)) => Moment.t = "moment";

[@bs.module] external momentWithTimestampMS: float => Moment.t = "moment";
[@bs.module] external momentWithTimestampMS : float => Moment.t = "moment";

[@bs.module] external momentWithComponents: list(int) => Moment.t = "moment";
[@bs.module] external momentWithComponents : list(int) => Moment.t = "moment";

[@bs.module "moment"]
external momentUtcWithFormats: (string, array(string)) => Moment.t = "utc";
external momentUtcWithFormats : (string, array(string)) => Moment.t = "utc";

[@bs.module "moment"]
external momentUtcDefaultFormat: string => Moment.t = "utc";
external momentUtcDefaultFormat : string => Moment.t = "utc";

module ES6 = {
/**
* To support package-spec: module: "es6"
* Described here: https://bucklescript.github.io/docs/en/build-configuration#package-specs
*/
[@bs.module "moment"]
external momentNow : unit => Moment.t = "default";
[@bs.module "moment"]
external momentDefaultFormat : string => Moment.t = "default";
[@bs.module "moment"]
external momentWithFormat : (string, string) => Moment.t = "default";
[@bs.module "moment"]
external momentWithDate : Js.Date.t => Moment.t = "default";
[@bs.module "moment"]
external momentWithFormats : (string, array(string)) => Moment.t =
"default";
[@bs.module "moment"]
external momentWithTimestampMS : float => Moment.t = "default";
[@bs.module "moment"]
external momentWithComponents : list(int) => Moment.t = "default";
[@bs.module "moment"]
external momentUtcWithFormats : (string, array(string)) => Moment.t = "utc";
[@bs.module "moment"]
external momentUtcDefaultFormat : string => Moment.t = "utc";
};

let momentWithUnix = (timestamp: int) =>
momentWithTimestampMS(float_of_int(timestamp) *. 1000.0);

[@bs.send]
external diff:
external diff :
(
Moment.t,
Moment.t,
Expand Down Expand Up @@ -342,4 +368,4 @@ let moment = (~format=?, value) =>
switch (format) {
| Some(f) => momentWithFormats(value, f)
| None => momentDefaultFormat(value)
};
};