home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / comms / html-heaven / arexx / html-memacs.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-08  |  1KB  |  38 lines
  1. /* HTML-Helper Arexx script for GNU Emacs
  2.  * Ver      : 1.1 (7th January 1996)
  3.  * Author   : Ellis Pritchard (efp90@nuke.dircon.co.uk)
  4.  * Function : Pass on the HTML commands from HTML-Helper to Emacs.
  5.  * Input    : HTMLCMD - The HTML command to be inserted.
  6. */
  7.  
  8. OPTIONS RESULTS                                 /* enable return codes    */
  9. PARSE ARG MYCMD HTMLCMD
  10.  
  11. HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-1) /* strip leading space      */
  12.  
  13. HTMLCMDNOQUOTES = ''
  14.  
  15. /* Delete internal quotes */
  16. DO i=1 TO LENGTH(HTMLCMD)
  17.  
  18.   CH = SUBSTR(HTMLCMD,i,1)
  19.   IF CH ~= '"'
  20.   THEN
  21.      HTMLCMDNOQUOTES = HTMLCMDNOQUOTES || CH
  22.  
  23. END
  24. HTMLCMD = HTMLCMDNOQUOTES                     /* saves me some rewriting */
  25.  
  26. ADDRESS 'EMACS1'                              /* Default, edit if needed */
  27.  
  28. IF POS('><',HTMLCMD) ~= 0 THEN DO             /* Is it a split command?  */
  29.                                               /* If yes, then....        */
  30.    CMD2 = right(HTMLCMD,(LENGTH(HTMLCMD)-(LASTPOS('<',HTMLCMD))+1))
  31.    CMD1 = substr(HTMLCMD,1,(LENGTH(HTMLCMD)-LENGTH(CMD2)))
  32.    '(save-excursion (kill-region (mark) (point)) (insert-string "'||CMD1||'" ) (yank) (insert-string "'||CMD2||'"))'
  33.    END
  34. ELSE
  35.    '(insert-string "'||HTMLCMDNOQUOTES||'")'  /* Insert at current pos    */
  36.  
  37. EXIT                                          /* And exit the script.     */
  38.