Merge branch 'set-profile-fields'

2 files changed, 49 insertions, 3 deletions

diff --git a/TODO b/TODO
index 205c552..e1150b7 100644
--- a/TODO
+++ b/TODO
@@ -15,4 +15,6 @@ v Get presence information on the requested user
 v Get the requested user's GitHub URL and Gigster Karma fields (needs users.profile API)
 
 v3:
-- Add a command to set/change the current user's profile fields
+v Add a command to set/change the current user's profile fields
+- Profile field completion (see https://github.com/irssi/scripts.irssi.org/blob/22060fc4669627a9859c92efa2d6651e3673d494/scripts/go.pl)
+- Pad colons
diff --git a/slack_profile.pl b/slack_profile.pl
index 706da77..15ce828 100644
--- a/slack_profile.pl
+++ b/slack_profile.pl
@@ -156,6 +156,50 @@ sub fetch_user_presence {
 	return $resp->{'presence'};
 }
 
+sub underscorize {
+	my ($string) = @_;
+
+	my $result = lc $string;
+	$result =~ s/ /_/g;
+	$result =~ s/[^a-z_]//g;
+
+	return $result;
+}
+
+sub update_user_profile {
+	my ($key, $value) = @_;
+
+	my $user = find_user($server->{'nick'});
+
+	my @profile_fields = qw(first_name last_name email phone skype title);
+
+	# If $key is a custom field, find the custom field's id and use
+	# that as the key instead.
+	unless ($key ~~ @profile_fields) {
+		# Find key in custom field labels
+		for my $custom_field (keys %{$user->{'fields'}}) {
+			if (underscorize($user->{'fields'}->{$custom_field}->{'label'})
+				eq $key) {
+				$key = $custom_field;
+				last;
+			}
+		}
+	}
+
+	my $resp = slack_api('users.profile.set', {
+		user => $user->{'id'},
+		name => $key,
+		value => $value,
+	});
+}
+
+sub cmd_set {
+	my ($data) = @_;
+	my ($key, $value) = split /\s+/, $data, 2;
+
+	update_user_profile($key, $value);
+}
+
 sub find_user {
 	my ($username) = @_;
 
@@ -239,8 +283,8 @@ sub swhois {
 
 Irssi::command_bind('swhois', 'swhois');
 
-Irssi::command_bind('slack_profile', 'sync');
-Irssi::command_bind('slack_profile sync', 'sync');
+Irssi::command_bind('slack_profile_sync', 'sync');
+Irssi::command_bind('slack_profile_set', 'cmd_set');
 
 Irssi::command_bind('help', 'help');