807
|
1 ;;; medit.el --- front-end to the MEDIT package for editing MDL
|
659
|
2
|
846
|
3 ;; Copyright (C) 1985 Free Software Foundation, Inc.
|
|
4
|
807
|
5 ;; Author: K. Shane Hartman
|
|
6 ;; Maintainer: FSF
|
811
|
7 ;; Keywords: languages
|
807
|
8
|
226
|
9 ;; This file is part of GNU Emacs.
|
|
10
|
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
12 ;; it under the terms of the GNU General Public License as published by
|
807
|
13 ;; the Free Software Foundation; either version 2, or (at your option)
|
226
|
14 ;; any later version.
|
|
15
|
|
16 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
19 ;; GNU 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
|
|
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
24
|
807
|
25 ;;; Commentary:
|
226
|
26
|
|
27 ;; >> This package depends on two MDL packages: MEDIT and FORKS which
|
|
28 ;; >> can be obtained from the public (network) library at mit-ajax.
|
|
29
|
807
|
30 ;;; Code:
|
|
31
|
226
|
32 (require 'mim-mode)
|
|
33
|
|
34 (defconst medit-zap-file (concat "/tmp/" (user-login-name) ".medit.mud")
|
|
35 "File name for data sent to MDL by Medit.")
|
|
36 (defconst medit-buffer "*MEDIT*"
|
|
37 "Name of buffer in which Medit accumulates data to send to MDL.")
|
|
38 (defconst medit-save-files t
|
|
39 "If non-nil, Medit offers to save files on return to MDL.")
|
|
40
|
|
41 (defun medit-save-define ()
|
|
42 "Mark the previous or surrounding toplevel object to be sent back to MDL."
|
|
43 (interactive)
|
|
44 (save-excursion
|
|
45 (beginning-of-DEFINE)
|
|
46 (let ((start (point)))
|
|
47 (forward-mim-object 1)
|
|
48 (append-to-buffer medit-buffer start (point))
|
|
49 (goto-char start)
|
14322
|
50 (message "%s" (buffer-substring start (progn (end-of-line) (point)))))))
|
226
|
51
|
|
52 (defun medit-save-region (start end)
|
|
53 "Mark the current region to be sent to back to MDL."
|
|
54 (interactive "r")
|
|
55 (append-to-buffer medit-buffer start end)
|
|
56 (message "Current region saved for MDL."))
|
|
57
|
|
58 (defun medit-save-buffer ()
|
|
59 "Mark the current buffer to be sent back to MDL."
|
|
60 (interactive)
|
|
61 (append-to-buffer medit-buffer (point-min) (point-max))
|
|
62 (message "Current buffer saved for MDL."))
|
|
63
|
|
64 (defun medit-zap-define-to-mdl ()
|
|
65 "Return to MDL with surrounding or previous toplevel MDL object."
|
923
|
66 (interactive)
|
|
67 (medit-save-define)
|
|
68 (medit-goto-mdl))
|
226
|
69
|
|
70 (defun medit-zap-region-mdl (start end)
|
|
71 "Return to MDL with current region."
|
|
72 (interactive)
|
|
73 (medit-save-region start end)
|
923
|
74 (medit-goto-mdl))
|
226
|
75
|
|
76 (defun medit-zap-buffer ()
|
|
77 "Return to MDL with current buffer."
|
|
78 (interactive)
|
|
79 (medit-save-buffer)
|
923
|
80 (medit-goto-mdl))
|
226
|
81
|
|
82 (defun medit-goto-mdl ()
|
|
83 "Return from Emacs to superior MDL, sending saved code.
|
|
84 Optionally, offers to save changed files."
|
|
85 (interactive)
|
|
86 (let ((buffer (get-buffer medit-buffer)))
|
|
87 (if buffer
|
|
88 (save-excursion
|
|
89 (set-buffer buffer)
|
|
90 (if (buffer-modified-p buffer)
|
|
91 (write-region (point-min) (point-max) medit-zap-file))
|
|
92 (set-buffer-modified-p nil)
|
|
93 (erase-buffer)))
|
|
94 (if medit-save-files (save-some-buffers))
|
|
95 ;; Note could handle parallel fork by giving argument "%xmdl". Then
|
|
96 ;; mdl would have to invoke with "%emacs".
|
|
97 (suspend-emacs)))
|
|
98
|
|
99 (defconst medit-mode-map nil)
|
|
100 (if (not medit-mode-map)
|
|
101 (progn
|
|
102 (setq medit-mode-map (copy-keymap mim-mode-map))
|
|
103 (define-key medit-mode-map "\e\z" 'medit-save-define)
|
|
104 (define-key medit-mode-map "\e\^z" 'medit-save-buffer)
|
|
105 (define-key medit-mode-map "\^xz" 'medit-goto-mdl)
|
|
106 (define-key medit-mode-map "\^xs" 'medit-zap-buffer)))
|
|
107
|
|
108 (defconst medit-mode-hook (and (boundp 'mim-mode-hook) mim-mode-hook) "")
|
|
109 (setq mim-mode-hook '(lambda () (medit-mode)))
|
|
110
|
|
111 (defun medit-mode (&optional state)
|
|
112 "Major mode for editing text and returning it to a superior MDL.
|
|
113 Like Mim mode, plus these special commands:
|
|
114 \\{medit-mode-map}"
|
|
115 (interactive)
|
|
116 (use-local-map medit-mode-map)
|
|
117 (run-hooks 'medit-mode-hook)
|
|
118 (setq major-mode 'medit-mode)
|
|
119 (setq mode-name "Medit"))
|
|
120
|
|
121 (mim-mode)
|
|
122
|
659
|
123 ;;; medit.el ends here
|