# Begin ~/.fvwm/fvwm2rc.screen
# 
# Frank Gruellich <frank@der-frank.org>

# Fvwm goes screen: only one key is bound, others will be loaded on the escape
# key below.

# some functions
# 
# this executes removes all keybindings and executes one command
DestroyFunc ExecCommand
AddToFunc   ExecCommand
#+ I Echo "Unbinding keys"
+ I KillModule FvwmPager PagerMiniview
#+ I SendToModule FvwmProxy ShowToggle
+ I PipeRead 'awk \'/^[^#$]/{printf "%s %s %s %s -\\n", $$$1, $$$2, $$$3, $$$4;}\' $HOME/.fvwm/fvwm2rc.keys2nd'
+ I PipeRead 'awk \'/^[^#$]/{printf "%s %s %s %s -\\n", $$$1, $$$2, $$$3, $$$4;}\' $HOME/.fvwm/fvwm2rc.keys2nd'
+ I Key question	A A -
+ I Key question	A A -
+ I Key Escape	A A -
+ I Key Escape	A A -
+ I Key m	A C ReadyCommands
+ I $*

# this sources keybindings from .fv
DestroyFunc ReadyCommands
AddToFunc   ReadyCommands
#+ I Echo "Binding keys"
# We should unbind C-m from calling endless ReadyCommands for the case the user
# does not overwrite it with an own function.
+ I Key M A C -
+ I PipeRead 'awk \'/^[^#$]/{printf "%s %s %s %s ExecCommand", $$$1, $$$2, $$$3, $$$4; for(i=5; i<=NF; i++) printf " %s", $$i; printf "\\n"}\' $HOME/.fvwm/fvwm2rc.keys2nd'
+ I Key Escape	A A ExecCommand Nop
+ I Key question	A A ExecCommand exec \
  $[HOME]/.fvwm/fvwm2rc.keys2nd.help.pl $[HOME]/.fvwm/fvwm2rc.keys2nd \
  |lynx -stdin -dump \
  |Xdialog --no-cancel --screen-center --title "Fvwm Key Help" --backtitle "Fvwm Key Help" --textbox - 25 80
#+ I SendToModule FvwmProxy ShowToggle
+ I Module FvwmPager PagerMiniview *

# escape character C-m
Key M A C ReadyCommands

# vim:ft=fvwm:tw=80
# End ~/.fvwm/fvwm2rc.screen