home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / LaTeXinfo.shar.2 / macsyma.sty < prev    next >
Encoding:
Text File  |  1990-07-22  |  2.6 KB  |  87 lines
  1. % Copyright 1987 Mike Clarkson.
  2. % Portions of this document may be copyright
  3. % Massachusetts Institute of Technology
  4. %
  5. % To make a TeX copy of this manual:
  6. %    make sure texinfo.tex in on TeX's path
  7. %    tex users-doc
  8. %    texindex users-doc.pg
  9. %    texindex users-doc.vr
  10. %    texindex users-doc.fn
  11. %    texindex users-doc.cp
  12. %    tex users-doc
  13.  
  14. % To make a GNU Emacs copy of this manual:
  15. %    execute the following GNU Emacs code
  16. %
  17. % (load-library "texinfmt")
  18. % (defun texinfo-format-dots ()
  19. %   (texinfo-discard-command)
  20. %   (insert "..."))
  21. % 
  22. % (defun make-manual ()
  23. %   (interactive)
  24. %   (put 'f 'texinfo-format 'texinfo-format-noop)
  25. %   (put 'v 'texinfo-format 'texinfo-format-noop)
  26. %   (put 'o 'texinfo-format 'texinfo-format-noop)
  27. %   (put 'fb 'texinfo-format 'texinfo-format-noop)
  28. %   (put 'vb 'texinfo-format 'texinfo-format-noop)
  29. %   (put 'concept  'texinfo-format 'texinfo-format-defn)
  30. %   (put 'filen 'texinfo-format 'texinfo-format-code)
  31. %   (put 'flushr 'texinfo-format 'texinfo-format-noop)
  32. %   (put 'head  'texinfo-format 'texinfo-format-head)
  33. %   (put 'DOTS 'texinfo-format 'texinfo-format-dots) ;; DUMB
  34. %   (let ((lastmessage "Formatting Info file..."))
  35. %     (message lastmessage)
  36. %     (texinfo-format-buffer-1)
  37. %     (message
  38. %      (setq lastmessage
  39. %        "Making tags table for Info file..."))
  40. %     (Info-tagify)
  41. %     (message (concat lastmessage
  42. %              (if (interactive-p)
  43. %              "done.  Now save it." "done."))))
  44. %   )
  45. %
  46. % (defun texinfo-format-head ()
  47. %   (kill-line)
  48. %   (delete-char 1)
  49. %   (insert (texinfo-parse-arg-discard))
  50. %   (goto-char texinfo-command-start))
  51. %
  52. %    Then M-x make-manual
  53.  
  54. \voffset= -30pt
  55. \textheight 580pt     % increase from 536pt
  56. \textwidth  450pt    % increase from 360pt
  57. \hoffset= -45pt        % compensate to keep centered
  58. \if@twoside 
  59.     \reversemarginpar    % I assume the binding side is the
  60.     \oddsidemargin 70pt     % bigger margin, so reverse the
  61.     \evensidemargin 38pt     % placement  of marginpars
  62.     \marginparwidth 40pt    % less of a margin to work with
  63.   \else \oddsidemargin 54pt \evensidemargin 54pt \marginparwidth 83pt 
  64.     \fi
  65.  
  66.  
  67. % Preliminary stuff before texinfo format is turned on
  68. \def\Macsyma{{\bf Macsyma}}
  69.  
  70. \def\f#1{\fnindex{#1}{\sf #1}}
  71. \def\v#1{\vrindex{#1}{\sf #1}}
  72. \def\o#1{{\sf #1}}
  73. \def\fb#1{\fnindexbold{#1}{\large\sf #1}}
  74. \def\vb#1{\vrindexbold{#1}{\large\sf #1}}
  75. \def\concept#1{\cpindex{#1}#1}
  76. \def\filen#1{\tpindex{#1}{\tt #1}}
  77.  
  78. \def\ExampleInFile#1{\*\noindent There is an example in the file: \filen{#1}.}
  79. \def\DemoInFile#1{\*\noindent There is a demo in the file: \filen{#1}.}
  80. \def\UsageInFile#1{\*\noindent There are some usage notes in the file: 
  81. \filen{#1}.}
  82.  
  83. %\def\pcp#1{\marginpar{{\scriptsize #1}}\kyindex{#1}}
  84. \def\pcp#1{}
  85.  
  86.  
  87.