1// SPDX-License-Identifier: AGPL-3.0-or-later
2
3package web
4
5import (
6 "context"
7 "net/http"
8 "path"
9
10 "github.com/a-h/templ"
11
12 "bnema.dev/ermite/internal/domain"
13)
14
15// Entry kinds of a TreeRow; the stylesheet draws the node of a row by its kind.
16const (
17 kindDir = "dir"
18 kindFile = "file"
19 kindLink = "link"
20 kindModule = "module"
21)
22
23// TreeRow is one entry of a directory.
24type TreeRow struct {
25 Kind string // kindDir, kindFile, kindLink or kindModule
26 Name string
27 Href string // "" for a submodule
28 // Expand is the URL of the rows of a directory (Href?rows); "" for any
29 // other entry.
30 Expand string
31 // Hint says what a directory, a link or a submodule is, in words, for the
32 // screen reader (the node drawn for it is aria-hidden) and the tooltip; ""
33 // for a file.
34 Hint string
35 Size string
36 Subject string
37 CHref string
38 Author string
39 When string
40 WhenAt string
41 Cursor bool
42 // Pos and Set are the aria-posinset and aria-setsize of the row among the
43 // entries of its directory; Set is -1 when the listing is cut, as the
44 // directory has more entries than are listed.
45 Pos, Set int
46}
47
48// TreePage is a directory.
49type TreePage struct {
50 Rows []TreeRow
51 // Path is the directory, "/" for the root.
52 Path string
53 // Up is the page of the parent directory, "" at the root: the h key of the
54 // tree goes there from a top-level entry.
55 Up string
56 // Notes say what the listing leaves out.
57 Notes []string
58 // More, for the rows of a directory expanded in place, is the page of the
59 // directory when it has more entries than are listed; "" otherwise.
60 More string
61 // MorePos is the position of the row that says there are more.
62 MorePos int
63}
64
65// Unit is the noun of the entry count in the head of the tree.
66func (p TreePage) Unit() string {
67 if len(p.Rows) == 1 {
68 return "entry"
69 }
70 return "entries"
71}
72
73// tree lists a directory of a ref, with the last commit of each entry. With
74// ?rows it answers the entries alone, for a directory opened in place.
75func (s *Server) tree(ctx context.Context, r *http.Request) (templ.Component, int, error) {
76 d, err := s.loadRepo(ctx, r.PathValue("repo"))
77 if err != nil {
78 return nil, 0, err
79 }
80 t, ok := d.locate(r.PathValue("rest"))
81 if !ok {
82 return nil, 0, errNotFound
83 }
84 res, err := s.getTree(ctx, d.repo.Name, t.rev, t.path, true)
85 if err != nil {
86 return nil, 0, err
87 }
88 entries := res.Entries
89 now := s.cfg.Now()
90
91 rowsOnly := r.URL.Query().Has("rows")
92 p := TreePage{Path: "/"}
93 if t.path != "" {
94 p.Path = visibleText(t.path) + "/"
95 }
96 for i, e := range entries {
97 row := TreeRow{Kind: kindFile, Name: visibleText(e.Name), Size: humanSize(e.Size), Cursor: i == 0 && !rowsOnly}
98 switch e.Kind {
99 case domain.EntryDirectory:
100 row.Kind, row.Hint, row.Name, row.Size = kindDir, "directory", row.Name+"/", ""
101 row.Href = repoHref(d.name(), "tree", t.name, e.Path)
102 row.Expand = row.Href + "?rows"
103 case domain.EntrySymlink:
104 row.Kind, row.Hint = kindLink, "symbolic link"
105 row.Href = repoHref(d.name(), "blob", t.name, e.Path)
106 case domain.EntrySubmodule:
107 row.Kind, row.Hint, row.Size = kindModule, "submodule", ""
108 default:
109 row.Href = repoHref(d.name(), "blob", t.name, e.Path)
110 }
111 if c := e.LastCommit; c != nil {
112 last := commitRow(d.name(), *c, now)
113 row.Subject, row.Author, row.CHref, row.When, row.WhenAt = last.Subject, last.Author, last.CHref, last.When, last.WhenAt
114 }
115 p.Rows = append(p.Rows, row)
116 }
117 for i := range p.Rows {
118 p.Rows[i].Pos, p.Rows[i].Set = i+1, len(p.Rows)
119 if res.Truncated {
120 p.Rows[i].Set = -1
121 }
122 }
123 if rowsOnly {
124 // The rows alone, for a directory opened in place (files.js).
125 if res.Truncated {
126 p.More, p.MorePos = repoHref(d.name(), "tree", t.name, t.path), len(p.Rows)+1
127 }
128 return TreeRows(p), http.StatusOK, nil
129 }
130 if res.Truncated {
131 p.Notes = append(p.Notes, "this directory has more entries than are listed here: the first "+itoa(len(entries))+" are shown.")
132 }
133 if res.LastCommitsOmitted {
134 p.Notes = append(p.Notes, "the last commit is shown for the first entries only.")
135 }
136 if t.path != "" {
137 up := path.Dir(t.path)
138 if up == "." {
139 up = ""
140 }
141 p.Up = repoHref(d.name(), "tree", t.name, up)
142 }
143
144 l := s.repoLayout(ctx, d, "tree")
145 // The finder searches the commit this page lists, whichever way the URL
146 // spelled it (an abbreviated id included): the listing knows it.
147 t.commit = res.CommitID.String()
148 pinRef(&l, t)
149 l.Crumbs = pathCrumbs(d.name(), "tree", t)
150 if t.path == "" {
151 l.Title = "tree · " + d.name() + " · " + s.instance
152 } else {
153 l.Title = visibleText(t.path) + " · " + d.name() + " · " + s.instance
154 }
155 return Tree(l, p), http.StatusOK, nil
156}