//
// HTM-Z.VDM
//
// May 1999 originally (HTM.VDM) by Fritz Heberlein (sla019@ku-eichstaett.de)
// 30.06.1999 completely new coded by Christian Ziemski
// 01.07.1999 fixed a little bug (shortcut TH)
// 02.07.1999 a little more foolproof against download problems
//
// Calls a menu of the html shortcuts used in html.vtm (additions marked with an *)
// and prompts for one.
//
// Assign it to a function key in your startup.vdm, section
// "File-type specific configuration" by adding something like:
// Key_Add("F12","[VISUAL EXIT] CALLF(100,'HTM-Z.VDM')",NOCONFIRM)
//
// Shortcuts "00" and "TM" call TXT2HTML.VDM and HTMLTABL.VDM (written by Scott Lambert).
//
// If a block is marked before executing this macro:
// - The cursor position is forced to the block begin !
// - The block is inserted into the tag (if approp.)
//
//
// Now easy to modify or expand. See the table below.
//
// The color code "FC" uses a menu (like Fritz' one) for the colors.
// But if you know the correct code you can call it directly by FCb, FCm etc.
//
// -------------------------------------------------------------------------------------
//
// Resources:
//
// 80 = table of shortcuts and commands
// 81 = user input
// 82 = command
// 83 = temp. for marked block
//
// #80 = buffer number
// #81 = number of cursor movements
// #82 = flag
// #83 = input
//
// Buffer 35
//
// ---------------------------------------------
if(#82 != 13579){
#82=13579 // flag (for faster execution)
//
// Table of shortcuts. Here you can modify/expand this macro.
//
// The '$'-sign is used as delimiter for RS()==> '$' must not occur in the text!!!!
//
//
// Shortcut code : command/text
//
// code: 0 = only insert the text
// -n = insert text and place the cursor n characters back
// and insert the previously marked block there (if one)
// [+]n = insert text and place the cursor n characters behind
// @ = execute the command after the ":"
//
Reg_Set(80,$
Q @ : Visual_Macro(NOMSG) Return
TM @ : Chain_File(100,'HTMLTABL.VDM')
00 @ : Chain_File(100,'TXT2HTML.VDM')
AD -10 :