gitoria

3.4 KB

1. // components/pulls.hl — THE PULL REQUESTS of a repo (gitoria#11, gitoria#16): `/pulls` on <slug>.<domain>, its
2. // own route. The repo head is rendered on the server from the request's host. The list comes from git (the
3. // commits whose message starts with |||PR) on the SERVER too
4. // (git.hl pullsNow — hl:proc run() waits, hybriel#80): it is in the first HTML and in every hl:web navigation.
5. parent './main.hl'
6. import { siteName } from '../project.hl'
7. import RepoHead from './repohead.hl'
8. import { repoAt, pageTitle, ownsRepo } from '../repos.hl'
9. import { pullsNow, mergePullNow, withMerge } from '../git.hl'
10. import { slugOfHost, userOfSession } from '../users.hl'
12. host = null
13. session = null
14. slug = slugOfHost(host)
15. repo = repoAt(slug)
16. hasRepo = repo != null
17. isOwner = repo != null && ownsRepo(slug, session)
18. mergeError = ''
19. got = repo != null ? pullsNow(slug, repo.branch) : null
20. pullsShown = got != null && !got.isMessage
21. pullsMessage = got != null && got.isMessage
22. pullsText = got != null && got.isMessage ? got.message : ''
23. pullsNone = got != null && !got.isMessage && got.noPulls
24. pullsList = got != null && !got.isMessage ? withMerge(got.pulls, isOwner) : []
25. pullsDefault = got != null && !got.isMessage ? got.defaultName : ''
26. __title = pageTitle(siteName, slug, 'Pull requests')
28. View {
29. repoPage {
30. RepoHead { }
31. if (hasRepo) {
32. repoPulls { id = "pulls"
33. if (pullsMessage) { p { id = "pullsmessage" class = "empty" pullsText } }
34. if (pullsShown) {
35. p { id = "pullshelp" class = "muted" "A commit whose message starts with " code { "|||PR " } " opens a pull request; " code { "|||PR|branch] " } " sets the target (now: " strong { pullsDefault } " by default)." }
36. if (pullsNone) { p { id = "nopulls" class = "empty" "No pull request yet." } }
37. p { id = "mergeerror" class = "message" mergeError }
38. ol { id = "pulllist"
39. for (pr of pullsList) {
40. li {
41. a { class = "subject" href = pr.href pr.title }
42. span { class = pr.state pr.state }
43. span { class = "branches"
44. if (pr.hasSource) { a { class = "source" href = pr.sourceHref pr.source } }
45. if (pr.noSource) { span { class = "source muted" "(branch gone)" } }
46. span { class = "muted" "→" }
47. if (pr.targetLinked) { a { class = "target" href = pr.targetHref pr.target } }
48. if (pr.targetMissing) { span { class = "target muted" pr.target " (no such branch)" } }
49. }
50. span { class = "muted" pr.author }
51. time { pr.date }
52. if (pr.canMerge) { button { class = "quiet mergepr" type = "button" value = pr.sha "Merge" on click(e) { emit mergePull(e.target.value) } } }
53. }
54. }
55. }
56. }
57. }
58. }
59. }
60. }
62. // "Merge" (the owner, only when clicked): the face merges and answers with the list read again
63. on mergePull(sha) {
64. mergeError = ''
65. let r = emit server gitoriaMergePull(slug, sha)
66. if (r == null || r.error != null) {
67. mergeError = r != null ? r.error : 'could not merge'
68. return null
69. }
70. got = r.result
71. pullsList = withMerge(got.pulls, isOwner)
72. pullsNone = got.noPulls
73. }
75. on server gitoriaMergePull(slugOf, sha, session) {
76. if (session == null || repoAt(slugOf) == null) { return { error = 'could not merge' } }
77. let u = userOfSession(session)
78. if (u == null || !ownsRepo(slugOf, session)) { return { error = 'only the owner can merge a pull request' } }
79. let r = mergePullNow(slugOf, repoAt(slugOf).branch, sha, u.name)
80. if (r.error != null) { return { error = r.error } }
81. return { result = pullsNow(slugOf, repoAt(slugOf).branch) }
82. }