--- deliantra/server/ext/help.ext 2012/11/21 11:53:01 1.22 +++ deliantra/server/ext/help.ext 2012/11/26 13:12:16 1.23 @@ -10,11 +10,16 @@ tooltip => "Online Help", }; +# these commands should be preferred by the client completer +# we put them first in their own face. +our @PREFERRED = qw(chat say shout tell); + # considerable duplication between load_doclets and load_topics sub load_doclets { %DOCLET = (); my %command_list; + my %preferred = map { $_ => undef } @PREFERRED; for ( [standard => "command_help"], @@ -60,8 +65,14 @@ cf::cede_to_tick; + @$_ = grep !exists $preferred{$_}, @$_ + for values %command_list; + + $command_list{preferred} = \@PREFERRED; + while (my ($k, $v) = each %command_list) { - cf::client::set_command_face $k, $v + cf::cede_to_tick; + cf::client::set_command_face $k, $v; } }