home *** CD-ROM | disk | FTP | other *** search
- # The following macros are designed to be used from within DME when
- # creating documents for HT. Their purpose is to make life a little
- # easier and faster. Just source this file when you want to work on
- # HT documents (and also make sure that REXX will be able to find the
- # dme macros).
- #
- # I used "alt" based keymappings because I figured they wouldn't
- # conflict with keymaps you already have.
- # Feel free to change the keymappings as you see fit. I thought they
- # made sense, maybe you don't.
- #
- # D.B.G. July 1990
-
- # The "test macro". It will save the current filename, then call an
- # Arexx macro to load this file directly into HT
- #
- map a-t (saveold rx1 test \$filename)
- # for ease of typing, we'll add this too.
- map c-t (a-t)
-
- # These (tiny) macros are setup to insert the necessary text to turn
- # on (and off) the specified attributes.
- # Oh, BTW - all the backslashes *are* necessary ;-(
- map a-b ( `\\\\BOLD ' )
- map a-i ( `\\\\ITALIC ' )
- map a-u ( `\\\\UNDERLINE ' )
-
- # And the two biggie macros.... these handle creating a link in your
- # document. Since DME doesn't do char based highlighting/blocking we
- # have to do a Start link (a-s) to know exactly where to start the link
- # and then the actual LINK macro which will call an Arexx macro to
- # pop up a window which you use to specify your link. The Arexx macro
- # then inserts the appropriate text into your document at the right spots.
-
- #
- # The first macro is used to define where to START the link,
- # I have used text markers 8 and 9 pretty arbitrarily. Change them
- # here and in link.dme if they conflict with what you use them for
- map a-s (ping 8)
-
- # and the second macro actually makes the call...
- map a-l (ping 9 rx do_link)
-
- # Here we add some menus to the window so that we can have some
- # user-friendliness... (ackk, cough, gasp ! user-friendly, what a horrible
- # word ;-)
- #
- # If you don't want this stuff, just comment it out - it doesn't do or
- # add anything extra.
-
- menuoff
- menuadd HyperText `Bold on/off' (a-b)
- menuadd HyperText `Italics on/off' (a-i)
- menuadd HyperText `Underline on/off' (a-u)
- menuadd HyperText () (null)
- menuadd HyperText `Start Link' (a-s)
- menuadd HyperText `Define Link' (a-l)
- menuadd HyperText () (null)
- menuadd HyperText `Test current Document' (a-t)
- menuon
-
-