annotate src/new_chat.red.luan @ 32:d34d709a7a8e

region
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 03 Aug 2025 18:43:17 -0600
parents 87fe70201aa8
children 3117876debca
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 local Http = require "luan:http/Http.luan"
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local User = require "site:/lib/User.luan"
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local current_user = User.current or error()
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local Chat = require "site:/lib/Chat.luan"
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
7 local Course = require "site:/lib/Course.luan"
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
8 local get_course_by_id = Course.get_by_id or error()
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
9
18
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 return function()
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 local user = current_user() or error()
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
14 local course_id = Http.request.parameters.course or error()
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
15 local course = get_course_by_id(course_id) or error()
18
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 local chat = Chat.new{
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 user_id = user.id
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
18 course_id = course.id
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
19 name = course.name
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
20 language = course.language
18
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 }
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 chat.save()
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 Http.response.send_redirect("chat.html?chat="..chat.id)
820136c5ee33 add new_chat.red
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 end