![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ledit.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp|
Return to ledit.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp |
1.1 root 1: ;; Emacs side of ledit interface
2: ;; Copyright (C) 1985 Richard M. Stallman.
3:
4: ;; This file is part of GNU Emacs.
5:
6: ;; GNU Emacs is distributed in the hope that it will be useful,
7: ;; but WITHOUT ANY WARRANTY. No author or distributor
8: ;; accepts responsibility to anyone for the consequences of using it
9: ;; or for whether it serves any particular purpose or works at all,
10: ;; unless he says so in writing. Refer to the GNU Emacs General Public
11: ;; License for full details.
12:
13: ;; Everyone is granted permission to copy, modify and redistribute
14: ;; GNU Emacs, but only under the conditions described in the
15: ;; GNU Emacs General Public License. A copy of this license is
16: ;; supposed to have been given to you along with GNU Emacs so you
17: ;; can know your rights and responsibilities. It should be in a
18: ;; file named COPYING. Among other things, the copyright notice
19: ;; and this notice must be preserved on all copies.
20:
21:
22: ;;; To do:
23: ;;; o lisp -> emacs side of things (grind-definition and find-definition)
24:
25: (defvar ledit-mode-map nil)
26:
27: (defconst ledit-zap-file (concat "/tmp/" (getenv "USER") ".l1")
28: "File name for data sent to Lisp by Ledit.")
29: (defconst ledit-read-file (concat "/tmp/" (getenv "USER") ".l2")
30: "File name for data sent to Ledit by Lisp.")
31: (defconst ledit-compile-file
32: (concat "/tmp/" (getenv "USER") ".l4")
33: "File name for data sent to Lisp compiler by Ledit.")
34: (defconst ledit-buffer "*LEDIT*"
35: "Name of buffer in which Ledit accumulates data to send to Lisp.")
36: ;These are now in loaddefs.el
37: ;(defconst ledit-save-files t
38: ; "*Non-nil means Ledit should save files before transferring to Lisp.")
39: ;(defconst ledit-go-to-lisp-string "%?lisp"
40: ; "*Shell commands to execute to resume Lisp job.")
41: ;(defconst ledit-go-to-liszt-string "%?liszt"
42: ; "*Shell commands to execute to resume Lisp compiler job.")
43:
44: (defun ledit-save-defun ()
45: "Save the current defun in the ledit buffer"
46: (interactive)
47: (save-excursion
48: (end-of-defun)
49: (let ((end (point)))
50: (beginning-of-defun)
51: (append-to-buffer ledit-buffer (point) end))
52: (message "Current defun saved for Lisp")))
53:
54: (defun ledit-save-region (beg end)
55: "Save the current region in the ledit buffer"
56: (interactive "r")
57: (append-to-buffer ledit-buffer beg end)
58: (message "Region saved for Lisp"))
59:
60: (defun ledit-zap-defun-to-lisp ()
61: "Carry the current defun to lisp"
62: (interactive)
63: (ledit-save-defun)
64: (ledit-go-to-lisp))
65:
66: (defun ledit-zap-defun-to-liszt ()
67: "Carry the current defun to liszt"
68: (interactive)
69: (ledit-save-defun)
70: (ledit-go-to-liszt))
71:
72: (defun ledit-zap-region-to-lisp (beg end)
73: "Carry the current region to lisp"
74: (interactive "r")
75: (ledit-save-region beg end)
76: (ledit-go-to-lisp))
77:
78: (defun ledit-go-to-lisp ()
79: "Suspend Emacs and restart a waiting Lisp job."
80: (interactive)
81: (if ledit-save-files
82: (save-some-buffers))
83: (if (get-buffer ledit-buffer)
84: (save-excursion
85: (set-buffer ledit-buffer)
86: (goto-char (point-min))
87: (write-region (point-min) (point-max) ledit-zap-file)
88: (erase-buffer)))
89: (suspend-emacs ledit-go-to-lisp-string)
90: (load ledit-read-file t t))
91:
92: (defun ledit-go-to-liszt ()
93: "Suspend Emacs and restart a waiting Liszt job."
94: (interactive)
95: (if ledit-save-files
96: (save-some-buffers))
97: (if (get-buffer ledit-buffer)
98: (save-excursion
99: (set-buffer ledit-buffer)
100: (goto-char (point-min))
101: (insert "(declare (macros t))\n")
102: (write-region (point-min) (point-max) ledit-compile-file)
103: (erase-buffer)))
104: (suspend-emacs ledit-go-to-liszt-string)
105: (load ledit-read-file t t))
106:
107: (defun ledit-setup ()
108: "Set up key bindings for the Lisp / Emacs interface"
109: (if (not ledit-mode-map)
110: (progn (setq ledit-mode-map (make-sparse-keymap))
111: (lisp-mode-commands ledit-mode-map)))
112: (define-key ledit-mode-map "\e\^d" 'ledit-save-defun)
113: (define-key ledit-mode-map "\e\^r" 'ledit-save-region)
114: (define-key ledit-mode-map "\^xz" 'ledit-go-to-lisp)
115: (define-key ledit-mode-map "\e\^c" 'ledit-go-to-liszt))
116:
117: (ledit-setup)
118:
119: (defun ledit-mode ()
120: "Major mode for editing text and stuffing it to a Lisp job.
121: Like Lisp mode, plus these special commands:
122: M-C-d -- record defun at or after point
123: for later transmission to Lisp job.
124: M-C-r -- record region for later transmission to Lisp job.
125: C-x z -- transfer to Lisp job and transmit saved text.
126: M-C-c -- transfer to Liszt (Lisp compiler) job
127: and transmit saved text.
128: \\{ledit-mode-map}
129: To make Lisp mode automatically change to Ledit mode,
130: do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
131: (interactive)
132: (lisp-mode)
133: (ledit-from-lisp-mode))
134:
135: (defun ledit-from-lisp-mode ()
136: (use-local-map ledit-mode-map)
137: (setq mode-name "Ledit")
138: (setq major-mode 'ledit-mode)
139: (run-hooks 'ledit-mode-hook))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.