home *** CD-ROM | disk | FTP | other *** search
- /*
- ** html.ced
- **
- ** $VER: html.ced 1.6 (01.07.1999)
- **
- ** Arexx script to load HTML v3.2 set of macro definitions
- **
- ** This script works with CygnusEd Professional v4.2
- **
- ** Copyright ⌐ Eric BELLE
- */
-
- /*
- **------------------------------------------------------------------------------
- ** Initialisation
- **------------------------------------------------------------------------------
- */
-
- OPTIONS RESULTS /* Tell CygnusEd to return results. */
- NL = '0A'X /* Alias for new line. */
- KRETURN = RAWKEY 68 /* Shortcut to the return key. */
- KTAB = RAWKEY 66 /* Shortcut to the tab key. */
- STATUS TABSARESPACES /* Return TAB mode ("tab" or "space"). */
- IF RESULT = 1 /* Test the TAB mode. */
- THEN "TABS = SPACES" /* Switch TAB mode from "space" to "tab". */
- ELSE NOP /* No operation. */
- TAB SIZE 1 /* Set TAB size proportional to 2 spaces. */
-
- /*
- **------------------------------------------------------------------------------
- ** Load HTML CygnusED shortcuts
- **------------------------------------------------------------------------------
- */
-
- LOAD DEFINITIONS "CED_HTML:cedmacros.html"
- IF (RESULT=0)
- THEN OKAY1 "The file CED_HTML:cedmacros.html does not exist"
- ELSE OKAY1 ,
- "CygnusED HTML Shortcuts v1.6: " || NL ||,
- "~~~~~~~~~~~~~~~~~~~~~~~~~~~~ " || NL ||,
- "[ctrl]+[shift]+m main structure | [ctrl]+[alt]+t table structure " || NL ||,
- "[ctrl]+[shift]+t title | [ctrl]+[alt]+c ╗ caption " || NL ||,
- "[ctrl]+[shift]+f font options | [ctrl]+[alt]+h ╗ header cell " || NL ||,
- "[ctrl]+[shift]+a text aspect | [ctrl]+[alt]+d ╗ default cell " || NL ||,
- "[ctrl]+[shift]+p paragraph | [ctrl]+[alt]+a anchor " || NL ||,
- "[ctrl]+[shift]+s sub paragraph | [ctrl]+[alt]+m map " || NL ||,
- "[ctrl]+[shift]+l list structure | [ctrl]+[alt]+s ╗ sensible area " || NL ||,
- "[ctrl]+[shift]+g glossary | [ctrl]+[alt]+l link " || NL ||,
- "[ctrl]+[shift]+[return] new line | [ctrl]+[alt]+i image " || NL ||,
- "[ctrl]+[shift]+n no new line | [ctrl]+[alt]+f formular " || NL ||,
- "[ctrl]+[shift]+b horizontal bar | [ctrl]+[alt]+1 ╗ single line " || NL ||,
- "[ctrl]+[shift]+c comments | [ctrl]+[alt]+2 ╗ several line " || NL ||,
- "[ctrl]+[shift]+i iso latin 1 | [ctrl]+[alt]+3 ╗ list " || NL ||,
- "[ctrl]+[shift]+1 center | [ctrl]+[alt]+4 ╗ button "
-
- /*
- **------------------------------------------------------------------------------
- ** End of cedmacros.ced Arexx script
- **------------------------------------------------------------------------------
- */
-
- EXIT 0
-