#!/usr/bin/kaptain
#
# finger grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "finger" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed -> "finger " opt match user host ;

opt :framed "Output format" -> short | ! long ;

short "Short" -> "-s " shortdisp ;
shortdisp -> hostname | office | ! default ;
hostname "Display hostname" -> "-h " ;
office "Display office phone" -> "-o " ;
default "Default" -> " " ;

long "Long" -> "-l " longdisp ;
longdisp -> plan | ! @ ;
plan "Don't show .plan / .project" -> "-p " ;

match "Options" -> matching | ! @ ;
matching "Users' real names" -> ! domatch | dontmatch ;
domatch "Match" -> "-M " ;
dontmatch "Don't match" -> "-m " ;

user "User name" -> @string ;

host "Hostname" -> ! localhost | foreign ;
localhost "localhost" -> " " ;
foreign "Foreign" -> "@" fhostname ;
fhostname -> @string ;
 