home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / contrib / emacs-mode / emacs-mode.readme
Encoding:
Internet Message Format  |  1995-07-03  |  3.0 KB
  1. Date: Wed, 26 Jan 1994 12:25:34 +0100
  2. Return-Path: owner-gwmtalk@sophia.inria.fr
  3. From: Sven Wischnowsky <oberon@cs.tu-berlin.de>
  4. Message-Id: <199401261125.AA00332@mail.cs.tu-berlin.de>
  5. To: geroahde@w250zrz.zrz.TU-Berlin.DE
  6. Cc: gwm-talk@mirsa.inria.fr
  7. In-Reply-To: <9401241755.AA22923@w250zrz.zrz.TU-Berlin.DE> (message from Gero Guenther on Mon, 24 Jan 94 18:55:29 +0100)
  8. Subject: Re: gwm support for emacs-19.22
  9. No-Reply-To: oberon@cs.tu-berlin.de
  10. Content-Length: 6754
  11.  
  12.  
  13. Gero Guenther wrote:
  14.  
  15. > Hello folks,
  16. > 
  17. > are there patches available for emacs-19.22
  18. > to support the wool-interaction-mode and the other comunication with
  19. > gwm I know from epoch?
  20. > 
  21. > I lost the account with my addr on the mailinglist for gwm so please
  22. > respond with email or put me on the mailinglist again before
  23. > responding.
  24. > 
  25.  
  26. Well, not exactly...
  27.  
  28. My solution to this problem was to patch gwm. Below is a patch for the
  29. gwm.c file (version 1.7o) which adds two new options: 
  30.  
  31. -I: this one makes gwm read its stdin (and, of course, evaluate it)
  32. -P: together with -I makes gwm print a simple prompt showing the
  33.     number of currently open parentheses
  34.  
  35. COLAS NOTE: these patches has been added in the current version...
  36. The rest is simple, something like this (in emacs):
  37.  
  38. (defvar gwm-proc nil)
  39. (defvar gwm-buf nil)
  40.  
  41. (if (not gwm-proc)
  42.     (let ((b (generate-new-buffer "*gwm*"))
  43.       (ob (current-buffer))
  44.       (m (copy-keymap lisp-mode-map)))
  45.       (set-buffer b)
  46.       (use-local-map m)
  47.       (local-set-key "\C-j" 'gwm-send)
  48.       (set-buffer ob)
  49.       (setq gwm-buf b)
  50.       (setq gwm-proc (start-process "gwm" 
  51.                    b
  52.                    (if (string-equal system-type
  53.                              "usg-unix-v")
  54.                        "/home/pub/bin/sol2/gwm"
  55.                      "/home/pub/bin/sun4/gwm")
  56.                    "-I"))
  57.       (process-kill-without-query gwm-proc)
  58.       (set-process-filter gwm-proc 'gwm-filter)
  59.       (set-process-sentinel gwm-proc 'gwm-sentinel)))
  60.  
  61. (defun gwm-filter (p s)
  62.   (let ((ob (current-buffer)))
  63.     (unwind-protect
  64.     (let ((i 0) (l (length s)) (p (point)))
  65.       (set-buffer zg-buf)
  66.       (insert s)
  67.       (if (string-match "\012--emacs-exec:\012\\(.*\\)\012--end" s)
  68.           (eval-region (+ p (match-beginning 1))
  69.                (+ p (match-end 1))))))
  70.     (set-buffer ob)))
  71.     
  72. (defun gwm-sentinel (process message)
  73.   (setq gwm-proc (start-process "gwm" 
  74.                    gwm-buf
  75.                    (if (string-equal system-type
  76.                          "usg-unix-v")
  77.                    "/home/pub/bin/sol2/gwm"
  78.                  "/home/pub/bin/sun4/gwm")
  79.                    "-I"))
  80.   (process-kill-without-query gwm-proc)
  81.   (set-process-filter gwm-proc 'gwm-filter)
  82.   (set-process-sentinel gwm-proc 'gwm-sentinel))
  83.     
  84. (defun gwm-exec (s)
  85.   (interactive "Sgwm: ")
  86.   (send-string gwm-proc (concat s "\n")))
  87.  
  88. (defun gwm-send ()
  89.   (interactive)
  90.   (let ((op (point))
  91.     (stab (syntax-table)))
  92.     (set-syntax-table emacs-lisp-mode-syntax-table)
  93.     (forward-sexp -1)
  94.     (gwm-exec (buffer-substring (point) op))
  95.     (goto-char op)
  96.     (insert "\n")
  97.     (set-syntax-table stab)))
  98.  
  99.  
  100. The filter function allows you to execute emacs code from gwm:
  101.  
  102. (defun eval-emacs (s)
  103.   (print "\n--emacs-exec:\n" s "\n--end\n"))
  104.  
  105. Hope this helps...
  106.  
  107. Bye
  108.  Sven
  109.  
  110.