Support username change

applications/user.moon

@@ -13,6 +13,7 @@ import
 
 import assert_valid from require "lapis.validate"
 import trim_filter from require "lapis.util"
+import trim from require "lapis.util"
 
 import
   ApiKeys
@@ -293,6 +294,19 @@ class MoonRocksUser extends lapis.Application
 
       assert_valid @params, {
         {"profile", type: "table"}
+        { "username", exists: true, min_length: 2, max_length: 25 }
+      }
+
+      username = trim @params.username
+      assert_error @user\update_username(username)
+
+      import UserActivityLogs from require "models"
+
+      UserActivityLogs\create_from_request @, {
+        user_id: @user.id
+        source: "web"
+        action: "account.update_username"
+        data: {@user\get_username!, @username}
       }
 
       profile = trim_filter @params.profile,

models/user_activity_logs.moon

@@ -51,6 +51,9 @@ class UserActivityLogs extends Model
 
   summarize: =>
     switch @action
+      when "account.update_username"
+        "updated username from #{@data[1]} to #{@data[2]}"
+
       when "account.update_profile"
         parts = {}
         for k, v in pairs @data

models/user_sessions.moon

@@ -13,6 +13,7 @@ class UserSessions extends Model
     admin: 4
     login_github: 5
     register_github: 6
+    update_username: 7
   }
 
   @create_from_request: (req, user, more_params) =>

models/users.moon

@@ -110,6 +110,20 @@ class Users extends Model
       order by similarity(username, ?) desc
     ]], query, query, per_page: 50
 
+  get_username: =>
+    @username
+
+  update_username: (name, r) =>
+    dupuser = Users\find [db.raw "lower(username)"]: name\lower!
+    return nil, "duplicate username" unless dupuser == nil
+
+    @update username: name, slug: name, display_name: name
+    if r
+      if r.current_user_session
+        r.current_user_session\revoke!
+      @write_session r, type: "update_username"
+    return true
+
   update_password: (pass, r) =>
     @update encrypted_password: bcrypt.digest pass, bcrypt.salt 5
     if r

views/user_settings/profile.moon

@@ -5,6 +5,17 @@ class UserSettingsProfile extends require "widgets.user_settings_page"
       @csrf_input!
       data = @user\get_data!
 
+      div class: "row", ->
+        label ->
+          div class: "label", "Your username"
+
+        input {
+          type: "text"
+          class: "medium_input"
+          name: "username"
+          value: @user.username
+        }
+
       div class: "row", ->
         label ->
           div class: "label", "Your website"