diff --git a/common/GlobalData.res b/common/GlobalData.res index 05ac8b51..5399d4c4 100644 --- a/common/GlobalData.res +++ b/common/GlobalData.res @@ -29,22 +29,22 @@ type navContent = { let navContentEn = { industrySection: { header: `Industry`, - whatIsOcaml: {label: `What is OCaml`, url: `/industry/whatisocaml`}, - industrialUsers: {label: `Industrial Users`, url: `/industry/users`}, - successStories: {label: `Success Stories`, url: `/industry/successstories`}, + whatIsOcaml: {label: `What is OCaml`, url: InternalUrls.industryWhatisocaml}, + industrialUsers: {label: `Industrial Users`, url: InternalUrls.industryUsers}, + successStories: {label: `Success Stories`, url: InternalUrls.industrySuccessstories}, }, resourcesSection: { header: `Resources`, - releases: {label: `Releases`, url: `/resources/releases`}, - applications: {label: `Applications`, url: `/resources/applications`}, - language: {label: `Language`, url: `/resources/language`}, - archive: {label: `Archive`, url: `/resources/archive`}, + releases: {label: `Releases`, url: InternalUrls.resourcesReleases}, + applications: {label: `Applications`, url: InternalUrls.resourcesApplications}, + language: {label: `Language`, url: InternalUrls.resourcesLanguage}, + archive: {label: `Archive`, url: InternalUrls.resourcesArchive}, }, communitySection: { header: `Community`, - opportunities: {label: `Opportunities`, url: `/community/opportunities`}, - news: {label: `News`, url: `/community/news`}, - aroundTheWeb: {label: `Around the Web`, url: `/community/aroundweb`}, + opportunities: {label: `Opportunities`, url: InternalUrls.communityOpportunities}, + news: {label: `News`, url: InternalUrls.communityNews}, + aroundTheWeb: {label: `Around the Web`, url: InternalUrls.communityAroundweb}, }, } @@ -112,15 +112,18 @@ let footerContentEn: Footer.t = { legalSection: { header: `Legal`, entries: [ - {label: `Privacy`, url: `/legal/privacy`}, - {label: `Terms`, url: `/legal/terms`}, - {label: `Carbon Footprint`, url: `/legal/carbonfootprint`}, + {label: `Privacy`, url: InternalUrls.legalPrivacy}, + {label: `Terms`, url: InternalUrls.legalTerms}, + {label: `Carbon Footprint`, url: InternalUrls.legalCarbonfootprint}, ], }, }, sponsorContent: { thankSponsorPrefix: `Thank you to our`, - hostingProviders: {label: `Hosting Providers`, url: `/legal/carbonfootprint#hostingproviders`}, + hostingProviders: { + label: `Hosting Providers`, + url: `${InternalUrls.legalCarbonfootprint}#hostingproviders`, + }, }, } diff --git a/common/InternalUrls.res b/common/InternalUrls.res new file mode 100644 index 00000000..c1f7a624 --- /dev/null +++ b/common/InternalUrls.res @@ -0,0 +1,26 @@ +let index = "/" +let history = "/history" +let communityAroundweb = "/community/aroundweb" +let communityEvents = "/community/events" +let communityMediaarchive = "/community/mediaarchive" +let communityNews = "/community/news" +let communityNewsarchive = "/community/newsarchive" +let communityOpportunities = "/community/opportunities" +let industrySuccessstories = "/industry/successstories" +let industryUsers = "/industry/users" +let industryWhatisocaml = "/industry/whatisocaml" +let legalCarbonfootprint = "/legal/carbonfootprint" +let legalPrivacy = "/legal/privacy" +let legalTerms = "/legal/terms" +let resourcesBasics = "/resources/basics" +let resourcesInstallocaml = "/resources/installocaml" +let resourcesApplications = "/resources/applications" +let resourcesArchive = "/resources/archive" +let resourcesBestpractices = "/resources/bestpractices" +let resourcesDevelopinginocaml = "/resources/developinginocaml" +let resourcesLanguage = "/resources/language" +let resourcesPapers = "/resources/papers" +let resourcesPapersarchive = "/resources/papersarchive" +let resourcesPlatform = "/resources/platform" +let resourcesReleases = "/resources/releases" +let resourcesUsingocaml = "/resources/usingocaml" diff --git a/pages/community/news.res b/pages/community/news.res index b6c7510f..db61c339 100644 --- a/pages/community/news.res +++ b/pages/community/news.res @@ -221,7 +221,9 @@ module CategorizedNews = {
diff --git a/pages/index.res b/pages/index.res index 15be7b11..306fc371 100644 --- a/pages/index.res +++ b/pages/index.res @@ -56,13 +56,13 @@ module HeroSection = {- + // TODO: descriptive link text {s(content.seeMore ++ ` >`)} diff --git a/pages/resources/language.res b/pages/resources/language.res index c026cd71..023ff132 100644 --- a/pages/resources/language.res +++ b/pages/resources/language.res @@ -145,7 +145,7 @@ module Applications = { {s(`Looking to learn more about the ways in which OCaml is used in real-world applications? Visit our Applications page to find out about different ways of using OCaml.`)}
@@ -196,7 +196,7 @@ module Papers = {