Help: add support for unlisted help

fastmail · Dec 5, 2019 · 0a1d463 · 0a1d463
1 parent bf504cc
commit 0a1d463
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/Synergy/Reactor/Help.pm b/lib/Synergy/Reactor/Help.pm
@@ -36,7 +36,9 @@ sub handle_help ($self, $event) {
   my @help = map {; $_->help_entries->@* } $self->hub->reactors;
 
   unless ($rest) {
-    my $help_str = join q{, }, uniq sort map {; $_->{title} } @help;
+    my $help_str = join q{, }, uniq sort map  {; $_->{title} }
+                                         grep {; ! $_->{unlisted} } @help;
+
     $event->error_reply(qq{You can say "help TOPIC" for help on a topic.  }
                 . qq{Here are topics I know about: $help_str});
     return;

diff --git a/lib/Synergy/Reactor/TimeClock.pm b/lib/Synergy/Reactor/TimeClock.pm
@@ -33,6 +33,7 @@ sub listener_specs {
       {
         title => 'clock off',
         text  => 'see *clock out*',
+        unlisted => 1,
       },
     ],
   };
-Original file line number
+Diff line change
@@ Expand Up / @@ -33,6 +33,7 @@ sub listener_specs { @@
           {
             title => 'clock off',
             text  => 'see *clock out*',
+            unlisted => 1,
           },
         ],
       };
@@ Expand Down @@