#
#	Menu items and key bindings for every ATK app
#

# "File" menu items		Use this screw-ball hack to call help from a menu
addmenu filter-sink-region-thru-command  "File,AUIS Help~15" textview filter   inherit "/usr/andrew/bin/help"

# "Misc" menu items
addmenu filter-filter-region-thru-command "Misc,Flow~20"             textview filter   inherit "flowtogether"
addmenu textview-lowercase-word           "Misc,Lower~21"            textview
addmenu textview-uppercase-word           "Misc,Upper~22"            textview
#addmenu filter-filter-region-thru-command "Misc,Sort~24"             textview filter   inherit "sort"
addmenu filter-filter-region			"Misc,Filter Prompt~25"    textview

addmenu compchar-compose  "Misc,Compose Character~40"  textview
addmenu compchar-compose2 "Misc,Compose Character 2~42" textview

addmenu deskey-describe-key         "Misc,Describe Key~60"         im
addmenu deskey-describe-bound-keys  "Misc,Describe Bound Keys~62"  im
addmenu deskey-describe-bound-procs "Misc,Describe Bound Procs~64" im
addmenu deskey-describe-proctable   "Misc,Describe Proc Table~66"  im

# "Compose Character" key mappings for strange chars like bullets, etc.
addkey compchar-compose ^Xv textview
addkey compchar-compose2 ^Xx textview

# Enable dynamic search. Just highlight area + ^S to search
addkey dynsearch-search-forward ^S textview
addkey dynsearch-search-reverse ^R textview

# [F1] Copy
addkey textview-copy-region \eS
# [F2] Paste
addkey textview-yank \eT
# [F3] Cut
addkey textview-zap-region \eU
# [F4] Cycle cut buffer
addkey textview-rotate-paste \eV
# [F5] Italicize the selected text
addkey textview-insert-environment \eW textview  textview   inherit  italic
# [F6] Bold the selected text
addkey textview-insert-environment \eP textview  textview   inherit  bold
# [F7] Plainer the selected text
addkey textview-plainer \eQ textview  
# [F8] Plainest the selected text
#addkey textview-plainest \eR textview

# Additional text editing keys
addkey metax \ex view metax
addkey metax \e_nV view metax				# Ctrl/Act (execute)

addkey textview-extend-backward \e_sM textview		# Shift-Left
addkey textview-extend-forward \e_sO textview		# Shift-Right
addkey textview-extend-backward-line \e_sN textview	# Shift-Up
addkey textview-extend-forward-line \e_sP textview	# Shift-Down
addkey textview-extend-forward-screen \e_sR textview	# Shift-Pgdn
addkey textview-extend-backward-screen \e_sQ textview	# Shift-Pgup
addkey textview-extend-beginning \e_sL textview		# Shift-Home
addkey textview-extend-end \e_sS textview		# Shift-End
addkey textview-zap-region \e_sW textview		# Shift-Delete
addkey textview-yank \e_sU textview			# Shift-Insert

addkey textview-backward-word \e_cM textview		# Ctrl-Left
addkey textview-forward-beginning-of-word \e_cO textview	# Ctrl-Right
addkey textview-backward-para \e_cN textview		# Ctrl-Up
addkey textview-forward-para \e_cP textview		# Ctrl-Down
addkey textview-next-screen-move \e_cR textview		# Ctrl-Pgdn
addkey textview-prev-screen-move \e_cQ textview		# Ctrl-Pgup
addkey textview-beginning-of-text \e_cL textview	# Ctrl-Home
addkey textview-end-of-text \e_cS textview		# Ctrl-End
addkey textview-copy-region \e_cU textview		# Ctrl-Insert

addkey textview-backward-whitespace-word \e_mM textview	# Alt-Left
addkey textview-forward-beginning-of-whitespace-word \e_mO textview # Alt-Right
addkey textview-glitch-up \e_mN textview		# Alt-Up
addkey textview-glitch-down \e_mP textview		# Alt-Down
addkey textview-cursor-to-top \e_mL textview		# Alt-Home
addkey textview-cursor-to-bottom \e_mS textview		# Alt-End

# "Describe Keys" key mappings
addkey deskey-describe-key        \e?  im
addkey deskey-describe-bound-keys ^XK  im
addkey deskey-describe-bound-procs ^XP im
addkey deskey-describe-proctable   \e- im

# Remap Delete key to delete char to right or left of cursor - you choose
addkey textview-delete-next-character \177 textview
#addkey textview-delete-previous-character \177 textview

# Add Tab as filename completion key
addkey frameview-complete \t frameview