gitoria

7.7 KB

1. // repos.hl — THE REPOS (ticket gitoria#6). A repo is a SLUG that is unique in the whole system;
2. // it lives at <slug>.<domain> (users.hl repoOrigin). One hl:mpackdb table, storage/mpackdb/repos.db:
3. // pk @id index !slug, owner { slug, description, owner (users @id), created, branch (the main branch; '' / absent = default),
4. // tktKey, tktProject, tktTitle, tktApi (the connected tickets project, gitoria#18; the key is a secret and never leaves the server) }
5. // The unique index makes the slug unique for good (a second put of a taken slug fails); the
6. // check below answers it in words first. A new repo also gets an empty bare git repository (git.hl); pushing arrives with gitoria#7.
7. import { MPackDB } from 'hl:mpackdb'
8. import { now } from 'hl:time'
9. import { storageDir, userOfSession, countOfList, firstOf, plainError, userRecord, nameOfUser, repoOrigin, publicUrl } from './users.hl'
10. import { localStamp } from './localtime.hl'
11. import { initRepo } from './git.hl'
13. static reposTable = new MPackDB(file = storageDir + '/repos.db', primaryKey = '@id', indexes = ['!slug', 'owner'])
15. // names that are addresses of the system itself, or that would read as one (never a repo)
16. // a newline (the language has no \n escape in a string: a literal line break, as in tickets mdview.hl)
17. static NL = "
18. "
20. // only technical host names; the creator's own apps (ident, tickets, hybriel, …) are repos here too (creator 2026-09-25)
21. static reserved = ['www' 'api' 'git' 'ssh' 'http' 'https' 'ftp' 'mail' 'smtp' 'imap' 'admin' 'root' 'cdn' 'static' 'assets' 'login' 'logout' 'new' 'repos']
23. static isLower = (c) => { return c >= 97 && c <= 122 }
24. static isDigit = (c) => { return c >= 48 && c <= 57 }
26. // the slug's rules → null (fine) or the complaint. A DNS label: 2–40 characters, a–z 0–9 and
27. // single hyphens, starting and ending with a letter or digit ("--" is refused: xn-- is punycode)
28. static slugError = (slug) => {
29. if (slug == null || hlTypeName(slug) != 'String') { return 'the address must be text' }
30. if (slug.length < 2 || slug.length > 40) { return 'the address must have 2–40 characters' }
31. let i = 0
32. while (i < slug.length) {
33. let c = slug.charCodeAt(i)
34. let ok = isLower(c) || isDigit(c) || (c == 45 && i > 0 && i < slug.length - 1)
35. if (!ok) { return 'the address may only have lowercase letters a–z, digits and hyphens, and starts and ends with a letter or digit' }
36. i = i + 1
37. }
38. if (slug.includes('--')) { return 'the address must not have two hyphens in a row' }
39. if (reserved.includes(slug)) { return "'" + slug + "' is reserved for the system" }
40. return null
41. }
43. static repoBySlug = (slug) => {
44. if (slug == null || hlTypeName(slug) != 'String' || slug == '') { return null }
45. return firstOf(reposTable.find('slug', slug))
46. }
48. static rowOf = (r) => {
49. return { id = r.id slug = r.slug description = r.description described = r.description != '' owner = nameOfUser(r.owner) branch = r.branch != null ? r.branch : '' ticketsOn = r.tktKey != null && r.tktKey != '' ticketsOff = r.tktKey == null || r.tktKey == '' ticketsProject = r.tktProject != null ? r.tktProject : '' ticketsTitle = r.tktTitle != null ? r.tktTitle : '' created = localStamp(r.created) createdMs = r.created address = repoOrigin(r.slug) + '/' }
50. }
52. // every repo, newest first (no sort(): hybriel #1)
53. static repoRows = () => {
54. let out = []
55. let all = reposTable.find(null, null)
56. if (countOfList(all) == 0) { return out }
57. for (r of all) { out.push(rowOf(r)) }
58. let i = 1
59. while (i < out.length) {
60. let cur = out[i]
61. let j = i - 1
62. while (j >= 0 && out[j].createdMs < cur.createdMs) {
63. out[j + 1] = out[j]
64. j = j - 1
65. }
66. out[j + 1] = cur
67. i = i + 1
68. }
69. return out
70. }
72. static repoRow = (slug) => {
73. let r = repoBySlug(slug)
74. return r == null ? null : rowOf(r)
75. }
77. // the repo a page stands on (users.hl slugOfHost): its row, or null for the main address / an unknown address
78. static repoAt = (slug) => {
79. if (slug == null || slug == '' || slugError(slug) != null) { return null }
80. return repoRow(slug)
81. }
83. // a tab title: 'Code · alpha · gitoria', 'alpha · gitoria', 'gitoria'
84. static pageTitle = (site, slug, what) => {
85. let t = slug != null && slug != '' ? slug + ' · ' + site : site
86. return what != null && what != '' ? what + ' · ' + t : t
87. }
89. // a new repo for a user: { repo } (the row) or { error, field }
90. static createRepo = (userId, slug, description) => {
91. let u = userRecord(userId)
92. if (u == null) { return { error = 'log in with ident (top right) to create a repository' field = '' } }
93. if (u.name == '') { return { error = 'choose a display name first (top of the page)' field = '' } }
94. let s = slug == null ? '' : ('' + slug).trim()
95. let bad = slugError(s)
96. if (bad != null) { return { error = bad field = 'slug' } }
97. let d = description == null ? '' : ('' + description).trim()
98. let dbad = plainError(d, 200, 'the description')
99. if (dbad != null) { return { error = dbad field = 'description' } }
100. if (repoBySlug(s) != null) { return { error = "the address '" + s + "' is taken — every repository address is unique in the whole system" field = 'slug' } }
101. let id = reposTable.put({ slug = s description = d owner = u.id created = now() })
102. if (id == null) { return { error = 'could not store the repository (is the address taken?): ' + reposTable.lastError() field = 'slug' } }
103. initRepo(s)
104. return { repo = rowOf(reposTable.fetch(id)) }
105. }
107. // does this (real) session's user own the repo?
108. static ownsRepo = (slug, session) => {
109. let u = userOfSession(session)
110. let row = repoBySlug(slug)
111. return u != null && row != null && row.owner == u.id
112. }
114. // a repo's whole record with some fields changed (update() replaces the record: every field must be given again)
115. static withChange = (r, change) => {
116. let o = { id = r.id slug = r.slug description = r.description owner = r.owner created = r.created branch = r.branch != null ? r.branch : '' tktKey = r.tktKey != null ? r.tktKey : '' tktProject = r.tktProject != null ? r.tktProject : '' tktTitle = r.tktTitle != null ? r.tktTitle : '' tktApi = r.tktApi != null ? r.tktApi : '' }
117. for (k of change.keys()) { o[k] = change[k] }
118. return o
119. }
121. // the connection to a tickets project (gitoria#18); key '' = disconnected. The caller checked the owner.
122. static setTicketsConnection = (slug, key, project, title, api) => {
123. let r = repoBySlug(slug)
124. if (r == null) { return { error = 'no such repository' } }
125. reposTable.update(r.id, withChange(r, { tktKey = key tktProject = project tktTitle = title tktApi = api }))
126. let after = reposTable.fetch(r.id)
127. if (after == null || after.tktKey != key) { return { error = 'could not store the connection: ' + reposTable.lastError() } }
128. return { repo = rowOf(after) }
129. }
131. // the owner's setting of the main branch (/code, the homepage). The caller checked the branch exists.
132. static setMainBranch = (userId, slug, name) => {
133. let r = repoBySlug(slug)
134. if (r == null) { return { error = 'no such repository' } }
135. if (userId == null || r.owner != userId) { return { error = 'only the owner can change the main branch' } }
136. reposTable.update(r.id, withChange(r, { branch = name }))
137. let after = reposTable.fetch(r.id)
138. if (after == null || after.branch != name) { return { error = 'could not store the setting: ' + reposTable.lastError() } }
139. return { repo = rowOf(after) }
140. }
142. // ---- the Markdown read view (Accept: text/markdown) — for LLM readers ---------------------------
143. static repoDocument = (row) => {
144. let out = '# ' + row.slug + NL + NL
145. if (row.described) { out = out + row.description + NL + NL }
146. out = out + '- address: ' + row.address + NL + '- owner: ' + row.owner + NL + '- created: ' + row.created + NL
147. return out
148. }
150. static listDocument = (rows) => {
151. let out = '# Repositories (' + rows.length + ')' + NL + NL
152. if (rows.length == 0) { out = out + 'No repository yet.' + NL }
153. for (r of rows) { out = out + '- [' + r.slug + '](' + r.address + ')' + (r.described ? ' — ' + r.description : '') + NL }
154. return out
155. }