gitoria

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