home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / utility / sml-mode-3.3b / sml-site.el < prev   
Encoding:
Text File  |  1997-08-18  |  4.7 KB  |  133 lines  |  [TEXT/R*ch]
  1. ;;; sml-site.el. Site initialisation for sml-mode
  2.  
  3. ;; Copyright (C) 1997, Matthew J. Morley
  4. ;; Thanks to Ken Larsen <kla@it.dtu.dk> for his suggestions.
  5.  
  6. ;; This file is not part of GNU Emacs, but it is distributed under the
  7. ;; same conditions.
  8.  
  9. ;; ====================================================================
  10.  
  11. ;; This program is free software; you can redistribute it and/or
  12. ;; modify it under the terms of the GNU General Public License as
  13. ;; published by the Free Software Foundation; either version 2, or (at
  14. ;; your option) any later version.
  15.  
  16. ;; This program is distributed in the hope that it will be useful, but
  17. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  19. ;; General Public License for more details.
  20.  
  21. ;; You should have received a copy of the GNU General Public License
  22. ;; along with GNU Emacs; see the file COPYING. If not, write to the
  23. ;; Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  24.  
  25. ;; ====================================================================
  26.  
  27. ;;; DESCRIPTION
  28.  
  29. ;; This file is provided for site administrators to install and
  30. ;; configure sml-mode for the convenience of all their users. Even if
  31. ;; you only install sml-mode for your private use, this is still a
  32. ;; good place to do the necessary configuration.
  33.  
  34. ;; Follow the comments below to set the (few) necessary defaults; add
  35. ;; any other configurations to the end of the file. Users just need to
  36. ;; put
  37.  
  38. ;;    (require 'sml-site)
  39.  
  40. ;; in their .emacs files (along with any personal customisations).
  41. ;; Make sure this file is on the user's *default* load-path!
  42.  
  43. ;;; CODE
  44.  
  45. ;; *******************
  46. ;; sml-lisp-directory:
  47. ;; *******************
  48.  
  49. ;; This is where the sml-mode lisp (.el and/or .elc) files are to be
  50. ;; kept. It is used for no purpose other than resetting the load-path
  51. ;; variable. Site administrators might consider setqing this in their
  52. ;; site-init.el file instead.
  53.  
  54. ;; A subdirectory of site-lisp directory seems a reasonable place...
  55.  
  56. (defvar sml-lisp-directory "/usr/local/share/emacs/site-lisp/sml-mode"
  57.   "*The directory where sml-mode lisp files are located.
  58. Used in sml-site.el in resetting the Emacs lisp `load-path' (qv).")
  59.  
  60. (if (member sml-lisp-directory load-path)
  61.     ()                                  ;take no prisoners
  62.   (setq load-path (cons sml-lisp-directory load-path)))
  63.  
  64. ;; ****************
  65. ;; auto-mode-alist:
  66. ;; ****************
  67.  
  68. ;; Buffers for files that end with these extensions will be placed in
  69. ;; sml-mode automatically.
  70.  
  71. (if (rassoc 'sml-mode auto-mode-alist)
  72.     ()                                  ;assume user has her own ideas
  73.   (setq auto-mode-alist
  74.         (append '(("\\.sml$" . sml-mode) 
  75.                   ("\\.ML$"  . sml-mode)
  76.                   ("\\.sig$" . sml-mode)) auto-mode-alist)))
  77.  
  78. ;; **************
  79. ;; sml-mode-info:
  80. ;; **************
  81.  
  82. ;; This is where sml-mode will look for it's online documentation. 
  83.  
  84. ;; The default value in sml-mode.el is "sml-mode" which is correct if
  85. ;; sml-mode.info is placed somewhere on Emacs' default info directory
  86. ;; path. If you move sml-mode.info to the root of the site's info
  87. ;; hierarchy don't forget to add a `dir' file menu entry like
  88.  
  89. ;;    * SML: (sml-mode).    Editing & Running Standard ML from Emacs 
  90.  
  91. ;; If you can't (or won't) move the .info file onto the default info
  92. ;; directory path, uncomment this defvar and set the full name here.
  93.  
  94. ;;(defvar sml-mode-info "/usr/???/sml-mode" "*Where to find sml-mode Info.")
  95.  
  96. ;; *****************
  97. ;; sml-program-name:
  98. ;; *****************
  99.  
  100. ;; sml-mode (sml-proc.el) defaults all its complier settings to SML/NJ
  101. ;; (0.93, in this release of sml-mode). If the New Jersey compiler is
  102. ;; called anything other than "sml" at your site, uncomment this
  103. ;; defvar and set the correct name here.
  104.  
  105. ;;(defvar sml-program-name "sml" "*Program to run as ML.")
  106.  
  107. ;; The info file (Configuration) explains how to set up sml-mode for
  108. ;; use with other ML compilers. Point users in that direction.
  109.  
  110. ;;; AUTOLOADS
  111.  
  112. (autoload 'sml-mode "sml-mode" "Major mode for editing Standard ML." t)
  113. (autoload 'sml "sml-proc" "Run an inferior ML process." t)
  114.  
  115. ;; By all means set up Moscow ML and/or Poly/ML to autoload, but first
  116. ;; check that "mosml" and/or "poly" appear on the user's default PATH.
  117.  
  118. (autoload 'sml-mosml "sml-mosml" "Set up and run Moscow ML." t)
  119. (autoload 'sml-poly-ml "sml-poly-ml" "Set up and run Poly/ML." t)
  120.  
  121. ;; If they don't, users will winge until they discover how to change
  122. ;; their PATH, or redefine sml-program-name, for themselves.
  123.  
  124. ;; Then
  125.  
  126. (provide 'sml-site)
  127.  
  128. ;; and tell users to (require 'sml-site) in their .emacs files for the
  129. ;; above to take effect. Byte compile this file or not, as you wish.
  130.  
  131. ;;; sml-site.el endeth.
  132.  
  133.