tickets
All repositories: gitoria
3.0 KB
// components/new_project.hl — `/new-project` (ticket #20): open a project. Any logged-in user with a display// name may; they become its first admin. The slug (the URL part) is proposed from the title as you type and// stays editable — once you edit it, the title no longer overwrites it. Title / slug / description can be// changed later on the project's settings page.parent './main.hl'import { createProject, slugFromTitle, uniqueSlug } from '../store.hl'import { siteName } from '../project.hl'import { canWriteSession, writerOfSession } from '../users.hl'session = nullcanWrite = canWriteSession(session)mustLogIn = !canWritetitle = ''slug = ''slugEdited = falsemessage = ''done = falsedoneHref = ''doneName = ''__title = siteName + ' | new project'View {projectForm {h1 { "New project" }if (mustLogIn) { p { id = "loginhint" class = "hint" "Log in with ident (top right) and choose a display name to open a project." } }if (canWrite) {form { id = "projectform"on submit(e) {e.preventDefault()emit create(e)}label { "Title"input { id = "projecttitle" name = "title" required = "required" maxlength = "100" autocomplete = "off" value = title on input(e) { emit setTitle(e.target.value) } }}label { "Slug (the address of the project)"input { id = "projectslug" name = "slug" maxlength = "100" autocomplete = "off" value = slug on input(e) { emit setSlug(e.target.value) } }}button { id = "projectcreate" type = "submit" "Create project" }p { id = "projectmessage" class = "message" message }}}if (done) { p { id = "created" class = "notice" "Created " strong { doneName } ". " a { id = "createdlink" href = doneHref "Open its settings" } } }}}on setTitle(v) {title = vif (!slugEdited) {let r = emit server proposeSlug(v)if (r != null && r.slug != null) { slug = r.slug }}}on setSlug(v) {slug = vslugEdited = true}on create(e) {if (title.trim() == '') { return null }let r = emit server makeProject(title, slug)if (r == null || r.error != null) {message = r != null ? r.error : 'could not create the project'return null}message = ''done = truedoneName = r.titledoneHref = r.settingsHreftitle = ''slug = ''slugEdited = false}on client signedIn(tag, info) {canWrite = info.namedmustLogIn = !info.named}on client signedOut(tag) {canWrite = falsemustLogIn = true}on server proposeSlug(text, session) {if (hlTypeName(text) != 'String' || text.trim() == '') { return { slug = '' } }return { slug = uniqueSlug(slugFromTitle(text)) }}on server makeProject(title, slug, session) {let w = writerOfSession(session)if (w.error != null) { return { error = w.error } }if (hlTypeName(title) != 'String' || hlTypeName(slug) != 'String') { return { error = 'title and slug must be text' } }let r = createProject(w.user, title, slug, '')if (r.error != null) { return { error = r.error } }return { title = r.project.title slug = r.project.slug settingsHref = r.project.settingsHref }}
Branches
- mainmain branch
Latest commits
- 2ab91ee9tickets: gate checks rows appear once (session sync); re-vendor to ff51cf46 stopped on hybriel#122, stays 837fe120mre
- e01c2b1dtickets#24: installable app (manifest, service worker, offline list), own icon; gate waits for the hello's pongmre
- 752fbb7fdeploy.sh: back up live storage/.sessions/.env before every deploy (newest 5 kept)mre
- 38bdd5e4deploy.sh: never send .git or .gitignore to Byrodinmre
- f12fa1bcState of 2026-09-27, before the move to gitoriamre