Skip to content

Commit 977f3d3

Browse files
lpillpil
authored
Add the Gleam programming language (#5688)
* Gleam entry * Gleam grammar * Gleam samples
1 parent 9df3aa1 commit 977f3d3

File tree

8 files changed

+351
-0
lines changed

8 files changed

+351
-0
lines changed

‎.gitmodules

+3
Original file line numberDiff line numberDiff line change
@@ -1083,6 +1083,9 @@
10831083
[submodule "vendor/grammars/vscode-gedcom"]
10841084
path = vendor/grammars/vscode-gedcom
10851085
url = https://github.com/fguitton/vscode-gedcom
1086+
[submodule "vendor/grammars/vscode-gleam"]
1087+
path = vendor/grammars/vscode-gleam
1088+
url = https://github.com/gleam-lang/vscode-gleam.git
10861089
[submodule "vendor/grammars/vscode-go"]
10871090
path = vendor/grammars/vscode-go
10881091
url = https://github.com/golang/vscode-go

‎grammars.yml

+2
Original file line numberDiff line numberDiff line change
@@ -946,6 +946,8 @@ vendor/grammars/vscode-gcode-syntax:
946946
- source.gcode
947947
vendor/grammars/vscode-gedcom:
948948
- source.gedcom
949+
vendor/grammars/vscode-gleam:
950+
- source.gleam
949951
vendor/grammars/vscode-go:
950952
- go.mod
951953
- go.sum

‎lib/linguist/languages.yml

+8
Original file line numberDiff line numberDiff line change
@@ -2080,6 +2080,14 @@ Git Config:
20802080
codemirror_mime_type: text/x-properties
20812081
tm_scope: source.gitconfig
20822082
language_id: 807968997
2083+
Gleam:
2084+
type: programming
2085+
color: "#ffaff3"
2086+
ace_mode: text
2087+
extensions:
2088+
- ".gleam"
2089+
tm_scope: source.gleam
2090+
language_id: 1054258749
20832091
Glyph:
20842092
type: programming
20852093
color: "#c1ac7f"

‎samples/Gleam/contributor.gleam

+57
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,57 @@
1+
import gleam/result
2+
import gleam/option.{Option}
3+
import gleam/dynamic.{DecodeError, Dynamic}
4+
import gleam_contributors/json
5+
6+
pub type Contributor {
7+
Contributor(name: String, github: Option(String))
8+
}
9+
10+
// Could include avatarURl and websiteUrl if required
11+
pub type Contributorspage {
12+
Contributorspage(
13+
nextpage_cursor: Result(String, Nil),
14+
contributor_list: List(Contributor),
15+
)
16+
}
17+
18+
// This is still parsing the response json into Gleam types, see
19+
// parse_contributors, but it is the contributor section only. To make the parse
20+
// function more readable
21+
pub fn decode(json_obj: Dynamic) -> Result(Contributor, DecodeError) {
22+
try author = dynamic.field(json_obj, "author")
23+
24+
try dynamic_name = dynamic.field(author, "name")
25+
try name = dynamic.string(dynamic_name)
26+
let github = {
27+
try user = dynamic.field(author, "user")
28+
try dynamic_github = dynamic.field(user, "url")
29+
dynamic.string(dynamic_github)
30+
}
31+
Ok(Contributor(name: name, github: option.from_result(github)))
32+
}
33+
34+
/// Converts response json into Gleam type. Represents one page of contributors
35+
pub fn decode_page(
36+
response_json: String,
37+
) -> Result(Contributorspage, DecodeError) {
38+
let res = json.decode(response_json)
39+
40+
try data = dynamic.field(res, "data")
41+
try repo = dynamic.field(data, "repository")
42+
try object = dynamic.field(repo, "object")
43+
try history = dynamic.field(object, "history")
44+
try pageinfo = dynamic.field(history, "pageInfo")
45+
try dynamic_nextpage = dynamic.field(pageinfo, "hasNextPage")
46+
try nextpage = dynamic.bool(dynamic_nextpage)
47+
let cursor = case nextpage {
48+
False -> Error(Nil)
49+
True ->
50+
dynamic.field(pageinfo, "endCursor")
51+
|> result.then(dynamic.string)
52+
|> result.map_error(fn(_) { Nil })
53+
}
54+
try nodes = dynamic.field(history, "nodes")
55+
try contributors = dynamic.typed_list(nodes, of: decode)
56+
Ok(Contributorspage(nextpage_cursor: cursor, contributor_list: contributors))
57+
}

‎samples/Gleam/websocket.gleam

+58
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,58 @@
1+
import gleam/uri.{Uri}
2+
import gleam/http.{Header}
3+
import gleam/dynamic.{Dynamic}
4+
import gleam/result
5+
import nerf/gun.{ConnectionPid, StreamReference}
6+
7+
pub opaque type Connection {
8+
Connection(ref: StreamReference, pid: ConnectionPid)
9+
}
10+
11+
pub type Frame {
12+
Close
13+
Text(String)
14+
Binary(BitString)
15+
}
16+
17+
pub fn connect(
18+
hostname: String,
19+
path: String,
20+
on port: Int,
21+
with headers: List(Header),
22+
) -> Result(Connection, ConnectError) {
23+
try pid =
24+
gun.open(hostname, port)
25+
|> result.map_error(ConnectionFailed)
26+
try _ =
27+
gun.await_up(pid)
28+
|> result.map_error(ConnectionFailed)
29+
30+
// Upgrade to websockets
31+
let ref = gun.ws_upgrade(pid, path, headers)
32+
let conn = Connection(pid: pid, ref: ref)
33+
try _ =
34+
await_upgrade(conn, 1000)
35+
|> result.map_error(ConnectionFailed)
36+
37+
Ok(conn)
38+
}
39+
40+
pub fn send(to conn: Connection, this message: String) -> Nil {
41+
gun.ws_send(conn.pid, gun.Text(message))
42+
}
43+
44+
pub external fn receive(from: Connection, within: Int) -> Result(Frame, Nil) =
45+
"nerf_ffi" "ws_receive"
46+
47+
external fn await_upgrade(from: Connection, within: Int) -> Result(Nil, Dynamic) =
48+
"nerf_ffi" "ws_await_upgrade"
49+
50+
pub fn close(conn: Connection) -> Nil {
51+
gun.ws_send(conn.pid, gun.Close)
52+
}
53+
54+
/// The URI of the websocket server to connect to
55+
pub type ConnectError {
56+
ConnectionRefused(status: Int, headers: List(Header))
57+
ConnectionFailed(reason: Dynamic)
58+
}

‎vendor/README.md

+1
Original file line numberDiff line numberDiff line change
@@ -173,6 +173,7 @@ This is a list of grammars that Linguist selects to provide syntax highlighting
173173
- **Gherkin:** [cucumber/cucumber-tmbundle](https://github.com/cucumber/cucumber-tmbundle)
174174
- **Git Attributes:** [Alhadis/language-etc](https://github.com/Alhadis/language-etc)
175175
- **Git Config:** [Alhadis/language-etc](https://github.com/Alhadis/language-etc)
176+
- **Gleam:** [gleam-lang/vscode-gleam](https://github.com/gleam-lang/vscode-gleam)
176177
- **Glyph:** [textmate/tcl.tmbundle](https://github.com/textmate/tcl.tmbundle)
177178
- **Glyph Bitmap Distribution Format:** [Alhadis/language-fontforge](https://github.com/Alhadis/language-fontforge)
178179
- **Gnuplot:** [mattfoster/gnuplot-tmbundle](https://github.com/mattfoster/gnuplot-tmbundle)

‎vendor/grammars/vscode-gleam

Submodule vscode-gleam added at 04efa8d

‎vendor/licenses/git_submodule/vscode-gleam.dep.yml

+221
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,221 @@
1+
---
2+
name: vscode-gleam
3+
version: 04efa8d3a0f63fb0e7a577ae0a5afcfea88c97a9
4+
type: git_submodule
5+
homepage: https://github.com/gleam-lang/vscode-gleam.git
6+
license: apache-2.0
7+
licenses:
8+
- sources: LICENSE.txt
9+
text: |2
10+
Apache License
11+
Version 2.0, January 2004
12+
http://www.apache.org/licenses/
13+
14+
TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
15+
16+
1. Definitions.
17+
18+
"License" shall mean the terms and conditions for use, reproduction,
19+
and distribution as defined by Sections 1 through 9 of this document.
20+
21+
"Licensor" shall mean the copyright owner or entity authorized by
22+
the copyright owner that is granting the License.
23+
24+
"Legal Entity" shall mean the union of the acting entity and all
25+
other entities that control, are controlled by, or are under common
26+
control with that entity. For the purposes of this definition,
27+
"control" means (i) the power, direct or indirect, to cause the
28+
direction or management of such entity, whether by contract or
29+
otherwise, or (ii) ownership of fifty percent (50%) or more of the
30+
outstanding shares, or (iii) beneficial ownership of such entity.
31+
32+
"You" (or "Your") shall mean an individual or Legal Entity
33+
exercising permissions granted by this License.
34+
35+
"Source" form shall mean the preferred form for making modifications,
36+
including but not limited to software source code, documentation
37+
source, and configuration files.
38+
39+
"Object" form shall mean any form resulting from mechanical
40+
transformation or translation of a Source form, including but
41+
not limited to compiled object code, generated documentation,
42+
and conversions to other media types.
43+
44+
"Work" shall mean the work of authorship, whether in Source or
45+
Object form, made available under the License, as indicated by a
46+
copyright notice that is included in or attached to the work
47+
(an example is provided in the Appendix below).
48+
49+
"Derivative Works" shall mean any work, whether in Source or Object
50+
form, that is based on (or derived from) the Work and for which the
51+
editorial revisions, annotations, elaborations, or other modifications
52+
represent, as a whole, an original work of authorship. For the purposes
53+
of this License, Derivative Works shall not include works that remain
54+
separable from, or merely link (or bind by name) to the interfaces of,
55+
the Work and Derivative Works thereof.
56+
57+
"Contribution" shall mean any work of authorship, including
58+
the original version of the Work and any modifications or additions
59+
to that Work or Derivative Works thereof, that is intentionally
60+
submitted to Licensor for inclusion in the Work by the copyright owner
61+
or by an individual or Legal Entity authorized to submit on behalf of
62+
the copyright owner. For the purposes of this definition, "submitted"
63+
means any form of electronic, verbal, or written communication sent
64+
to the Licensor or its representatives, including but not limited to
65+
communication on electronic mailing lists, source code control systems,
66+
and issue tracking systems that are managed by, or on behalf of, the
67+
Licensor for the purpose of discussing and improving the Work, but
68+
excluding communication that is conspicuously marked or otherwise
69+
designated in writing by the copyright owner as "Not a Contribution."
70+
71+
"Contributor" shall mean Licensor and any individual or Legal Entity
72+
on behalf of whom a Contribution has been received by Licensor and
73+
subsequently incorporated within the Work.
74+
75+
2. Grant of Copyright License. Subject to the terms and conditions of
76+
this License, each Contributor hereby grants to You a perpetual,
77+
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
78+
copyright license to reproduce, prepare Derivative Works of,
79+
publicly display, publicly perform, sublicense, and distribute the
80+
Work and such Derivative Works in Source or Object form.
81+
82+
3. Grant of Patent License. Subject to the terms and conditions of
83+
this License, each Contributor hereby grants to You a perpetual,
84+
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
85+
(except as stated in this section) patent license to make, have made,
86+
use, offer to sell, sell, import, and otherwise transfer the Work,
87+
where such license applies only to those patent claims licensable
88+
by such Contributor that are necessarily infringed by their
89+
Contribution(s) alone or by combination of their Contribution(s)
90+
with the Work to which such Contribution(s) was submitted. If You
91+
institute patent litigation against any entity (including a
92+
cross-claim or counterclaim in a lawsuit) alleging that the Work
93+
or a Contribution incorporated within the Work constitutes direct
94+
or contributory patent infringement, then any patent licenses
95+
granted to You under this License for that Work shall terminate
96+
as of the date such litigation is filed.
97+
98+
4. Redistribution. You may reproduce and distribute copies of the
99+
Work or Derivative Works thereof in any medium, with or without
100+
modifications, and in Source or Object form, provided that You
101+
meet the following conditions:
102+
103+
(a) You must give any other recipients of the Work or
104+
Derivative Works a copy of this License; and
105+
106+
(b) You must cause any modified files to carry prominent notices
107+
stating that You changed the files; and
108+
109+
(c) You must retain, in the Source form of any Derivative Works
110+
that You distribute, all copyright, patent, trademark, and
111+
attribution notices from the Source form of the Work,
112+
excluding those notices that do not pertain to any part of
113+
the Derivative Works; and
114+
115+
(d) If the Work includes a "NOTICE" text file as part of its
116+
distribution, then any Derivative Works that You distribute must
117+
include a readable copy of the attribution notices contained
118+
within such NOTICE file, excluding those notices that do not
119+
pertain to any part of the Derivative Works, in at least one
120+
of the following places: within a NOTICE text file distributed
121+
as part of the Derivative Works; within the Source form or
122+
documentation, if provided along with the Derivative Works; or,
123+
within a display generated by the Derivative Works, if and
124+
wherever such third-party notices normally appear. The contents
125+
of the NOTICE file are for informational purposes only and
126+
do not modify the License. You may add Your own attribution
127+
notices within Derivative Works that You distribute, alongside
128+
or as an addendum to the NOTICE text from the Work, provided
129+
that such additional attribution notices cannot be construed
130+
as modifying the License.
131+
132+
You may add Your own copyright statement to Your modifications and
133+
may provide additional or different license terms and conditions
134+
for use, reproduction, or distribution of Your modifications, or
135+
for any such Derivative Works as a whole, provided Your use,
136+
reproduction, and distribution of the Work otherwise complies with
137+
the conditions stated in this License.
138+
139+
5. Submission of Contributions. Unless You explicitly state otherwise,
140+
any Contribution intentionally submitted for inclusion in the Work
141+
by You to the Licensor shall be under the terms and conditions of
142+
this License, without any additional terms or conditions.
143+
Notwithstanding the above, nothing herein shall supersede or modify
144+
the terms of any separate license agreement you may have executed
145+
with Licensor regarding such Contributions.
146+
147+
6. Trademarks. This License does not grant permission to use the trade
148+
names, trademarks, service marks, or product names of the Licensor,
149+
except as required for reasonable and customary use in describing the
150+
origin of the Work and reproducing the content of the NOTICE file.
151+
152+
7. Disclaimer of Warranty. Unless required by applicable law or
153+
agreed to in writing, Licensor provides the Work (and each
154+
Contributor provides its Contributions) on an "AS IS" BASIS,
155+
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
156+
implied, including, without limitation, any warranties or conditions
157+
of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
158+
PARTICULAR PURPOSE. You are solely responsible for determining the
159+
appropriateness of using or redistributing the Work and assume any
160+
risks associated with Your exercise of permissions under this License.
161+
162+
8. Limitation of Liability. In no event and under no legal theory,
163+
whether in tort (including negligence), contract, or otherwise,
164+
unless required by applicable law (such as deliberate and grossly
165+
negligent acts) or agreed to in writing, shall any Contributor be
166+
liable to You for damages, including any direct, indirect, special,
167+
incidental, or consequential damages of any character arising as a
168+
result of this License or out of the use or inability to use the
169+
Work (including but not limited to damages for loss of goodwill,
170+
work stoppage, computer failure or malfunction, or any and all
171+
other commercial damages or losses), even if such Contributor
172+
has been advised of the possibility of such damages.
173+
174+
9. Accepting Warranty or Additional Liability. While redistributing
175+
the Work or Derivative Works thereof, You may choose to offer,
176+
and charge a fee for, acceptance of support, warranty, indemnity,
177+
or other liability obligations and/or rights consistent with this
178+
License. However, in accepting such obligations, You may act only
179+
on Your own behalf and on Your sole responsibility, not on behalf
180+
of any other Contributor, and only if You agree to indemnify,
181+
defend, and hold each Contributor harmless for any liability
182+
incurred by, or claims asserted against, such Contributor by reason
183+
of your accepting any such warranty or additional liability.
184+
185+
END OF TERMS AND CONDITIONS
186+
187+
APPENDIX: How to apply the Apache License to your work.
188+
189+
To apply the Apache License to your work, attach the following
190+
boilerplate notice, with the fields enclosed by brackets "[]"
191+
replaced with your own identifying information. (Don't include
192+
the brackets!) The text should be enclosed in the appropriate
193+
comment syntax for the file format. We also recommend that a
194+
file or class name and description of purpose be included on the
195+
same "printed page" as the copyright notice for easier
196+
identification within third-party archives.
197+
198+
Copyright 2016 - present Louis Pilfold
199+
200+
Licensed under the Apache License, Version 2.0 (the "License");
201+
you may not use this file except in compliance with the License.
202+
You may obtain a copy of the License at
203+
204+
http://www.apache.org/licenses/LICENSE-2.0
205+
206+
Unless required by applicable law or agreed to in writing, software
207+
distributed under the License is distributed on an "AS IS" BASIS,
208+
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
209+
See the License for the specific language governing permissions and
210+
limitations under the License.
211+
212+
213+
214+
## Runtime Library Exception to the Apache 2.0 License: ##
215+
216+
217+
As an exception, if you use this Software to compile your source code and
218+
portions of this Software are embedded into the binary product as a result,
219+
you may redistribute such product without providing attribution as would
220+
otherwise be required by Sections 4(a), 4(b) and 4(d) of the License.
221+
notices: []

0 commit comments

Comments
 (0)