TimeClock: include wfh days in 'hours' output

This required a small amount of finagling, because by default the pref
describer function does not have access to the user it's describing.
Possibly it should, but for now we'll just work around it.

Author: mmcclimon

lib/Synergy/Reactor/TimeClock.pm

@@ -11,7 +11,7 @@ use experimental qw(signatures lexical_subs);
 use namespace::clean;
 
 use Synergy::Logger '$Logger';
-use Synergy::Util qw(bool_from_text);
+use Synergy::Util qw(bool_from_text describe_business_hours);
 
 use IO::Async::Timer::Periodic;
 use List::Util qw(max);
@@ -35,7 +35,7 @@ sub listener_specs {
       exclusive => 1,
       predicate => sub ($self, $e) {
         return unless $e->was_targeted;
-        return $e->text =~ /\Ahours(\s+for)?\s+/;
+        return $e->text =~ /\Ahours(\s+for)?\s+/i;
       }
     },
     {
@@ -185,11 +185,12 @@ sub handle_hours_for ($self, $event) {
   my $tz = $target->time_zone;
   my $tz_nick = $self->hub->env->time_zone_names->{ $tz } // $tz;
 
+
   return $event->reply(
-    sprintf "%s's usual hours: %s, %s",
+    sprintf "%s's usual hours (%s): %s",
       $target->username,
-      $self->hub->user_directory->describe_user_preference($target, 'business-hours'),
       $tz_nick,
+      describe_business_hours($target->business_hours, $target),
   );
 }
 

lib/Synergy/Util.pm

@@ -518,14 +518,20 @@ sub validate_business_hours ($value) {
   return \%week_struct;
 }
 
-sub describe_business_hours ($value) {
+sub describe_business_hours ($value, $user = undef) {
   my @wdays = qw(mon tue wed thu fri);
   my @wends = qw(sat sun);
 
   my %desc = map {; keys($value->{$_}->%*)
                     ? ($_ => "$value->{$_}{start}-$value->{$_}{end}")
                     : ($_ => '') } (@wdays, @wends);
 
+  if ($user) {
+    for my $dow (keys %desc) {
+      $desc{$dow} .= $user->is_wfh_on($dow) ? " \N{HOUSE WITH GARDEN}" : '';
+    }
+  }
+
   return "None" unless any { length $_ } values %desc;
 
   if ($desc{mon} && 7 == grep {; $desc{$_} eq $desc{mon} } (@wdays, @wends)) {