From mboxrd@z Thu Jan 1 00:00:00 1970 Path: quimby.gnus.org!not-for-mail From: Christian Egli Newsgroups: gmane.emacs.devel Subject: Re: mgp.el Date: 28 Feb 2002 15:27:15 +0100 Message-ID: References: NNTP-Posting-Host: quimby2.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: quimby2.netfonds.no 1014906902 29524 195.204.10.66 (28 Feb 2002 14:35:02 GMT) X-Complaints-To: usenet@quimby2.netfonds.no NNTP-Posting-Date: 28 Feb 2002 14:35:02 GMT Cc: emacs-devel@gnu.org Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby2.netfonds.no with esmtp (Exim 3.12 #1 (Debian)) id 16gReA-0007fz-00 for ; Thu, 28 Feb 2002 15:35:02 +0100 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16gRZe-0006KH-00; Thu, 28 Feb 2002 09:30:22 -0500 Original-Received: from [195.65.218.116] (helo=uxmailstest.stest.ch) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16gRWt-00067j-00 for ; Thu, 28 Feb 2002 09:27:31 -0500 Original-Received: from zeus.alcatel.ch (zeus [141.169.78.33]) by uxmailstest.stest.ch (8.9.3/8.9.0) with ESMTP id PAA16325; Thu, 28 Feb 2002 15:22:58 +0100 (MET) Original-Received: from stsws008.alcatel.ch (stsws008 [141.169.79.154]) by zeus.alcatel.ch (8.8.8+Sun/8.8.8) with ESMTP id PAA01430; Thu, 28 Feb 2002 15:27:19 +0100 (MET) Original-Received: (from egli@localhost) by stsws008.alcatel.ch (8.9.3+Sun/8.8.8) id PAA06563; Thu, 28 Feb 2002 15:27:16 +0100 (MET) X-Authentication-Warning: stsws008.alcatel.ch: egli set sender to christian.egli@stest.ch using -f Original-To: Pavel@janik.cz In-Reply-To: Pavel@janik.cz's message of "Wed, 27 Feb 2002 21:38:44 +0100" Original-Lines: 27 User-Agent: Gnus/5.0802 (Gnus v5.8.2) Emacs/20.5 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.5 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: quimby.gnus.org gmane.emacs.devel:1633 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:1633 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-MIME-Autoconverted: from 8bit to quoted-printable by uxmailstest.stest.ch id PAA16325 Pavel@janik.cz (Pavel Jan=EDk) writes: > > > I have just read about mgp.el and I'd like to thank for that wor= k. Can you > > > please fix the following issues and send it to emacs-devel@gnu.o= rg for > > > inclusion? This could be really useful. > >=20 > > Here's a version that hopefully fixes all the issues you mention a= nd > > some more. >=20 > I vote for including that stuff into generic-x.el. If you agree on > that with me, I will take care of it. That would be fine with me. > P.S. Christian, please add "%charset" in the KEYWORD-LIST argument of > define-generic-mode. Yup, done. See the attached new version of mgp.el --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=mgp.el Content-Description: mgp.el ;;; mgp.el --- Generic mode for magicpoint files ;; Copyright (C) 2002 Free Software Foundation, Inc. ;; Author: Christian Egli ;; Created: 2001-3-12 ;; Keywords: generic, comment, font-lock, magicpoint ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This package is a generic mode for editing Magic Point source code. ;; Magic Point is an X11 based presentation tool. It is designed to ;; make simple presentations easy while to make complicated ;; presentations possible. Its presentation file (whose suffix is ;; typically .mgp) is just text so that you can create presentation ;; files quickly with your favorite editor (i.e. Emacs). ;;; Code: (require 'generic) (require 'font-lock) (defgroup magicpoint nil "Magic Point mode." :group 'wp :prefix "magicpoint-") (defcustom magicpoint-command "mgp" "*Command used by magicpoint-mode to display a `.mgp' file." :type 'file :group 'magicpoint) (defcustom magicpoint-command-switches "-o" "*List of additional options for `magicpoint-command'." :type 'string :group 'magicpoint) (defvar magicpoint-mode-keymap (copy-keymap text-mode-map) "Keymap for `magicpoint-mode'.") ;;; mgp (define-generic-mode 'magicpoint-mode '(?# ?\n) '("%again" "%anim" "%area" "%back" "%bar" "%bgrad" "%bimage" "%center" "%charset" "%cont" "%default" "%deffont" "%embed" "%endembed" "%endfilter" "%filter" "%font" "%fore" "%hgap" "%icon" "%image" "%include" "%lcutin" "%left" "%leftfill" "%mark" "%newimage" "%nodefault" "%noop" "%page" "%pause" "%pcache" "%prefix" "%rcutin" "%right" "%shrink" "%size" "%system" "%tab" "%tfdir" "%tfont" "%tfont0" "%tmfont" "%vfcap" "%vfont" "%vgap" "%xfont") nil (list "\\.mgp\\'") (list (function (lambda () (make-local-variable 'compile-command) (make-local-variable 'compilation-read-command) (setq compilation-read-command nil) (setq compile-command (concat magicpoint-command " " magicpoint-command-switches " " buffer-file-name)) (define-key magicpoint-mode-keymap "\C-c\C-c" 'compile) (use-local-map magicpoint-mode-keymap)))) "Generic mode for Magic Point files.") ;;; mgp.el ends here --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-MIME-Autoconverted: from 8bit to quoted-printable by uxmailstest.stest.ch id PAA16325 --=20 Christian Egli Acterna Z=FCrich AG, Foerrlibuckstrasse 62, P.O. Box 74, CH-8037 Zuerich http://www.acterna.com --=-=-=-- _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://mail.gnu.org/mailman/listinfo/emacs-devel