From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Christian Egli Newsgroups: gmane.emacs.devel Subject: Re: Can't fetch the page Date: 05 Aug 2002 20:17:47 +0200 Sender: emacs-devel-admin@gnu.org Message-ID: <87sn1tqies.fsf@wyona.com> References: <200207052207.g65M70G08683@aztec.santafe.edu> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1028571814 28744 127.0.0.1 (5 Aug 2002 18:23:34 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 5 Aug 2002 18:23:34 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17bmVw-0007TV-00 for ; Mon, 05 Aug 2002 20:23:32 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17bmqf-0006kl-00 for ; Mon, 05 Aug 2002 20:44:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17bmWV-0002ST-00; Mon, 05 Aug 2002 14:24:07 -0400 Original-Received: from [195.226.6.69] (helo=lithium.wyona.com) by fencepost.gnu.org with smtp (Exim 3.35 #1 (Debian)) id 17bmVz-0002Km-00; Mon, 05 Aug 2002 14:23:35 -0400 Original-Received: from [194.191.122.219] (helo=nitrogen) by lithium.wyona.com with esmtp (Exim 3.12 #1 (Debian)) id 17bmVx-0005a5-00; Mon, 05 Aug 2002 20:23:33 +0200 Original-Received: from egli by nitrogen with local (Exim 3.35 #1 (Debian)) id 17bmQN-0007lf-00; Mon, 05 Aug 2002 20:17:47 +0200 Original-To: rms@gnu.org In-Reply-To: <200207052207.g65M70G08683@aztec.santafe.edu> Original-Lines: 21 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:6301 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6301 --=-=-= Richard Stallman writes: > I tried to fetch http://www.umverkehr.ch/egli/mgp.el > with wget but it does not work. Would you please email me the file? Sorry to be so slow in responding. I've been very busy lately and will continue to be so for another three weeks. After that however I want to add some more features to mpg.el (see ;;; Todo: in mgp.el). Attached are the current version of mpg.el and the ChangeLog file. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=mgp.el Content-Description: current version of mpg.el ;;; mgp.el --- Generic mode for magicpoint files ;; Copyright (C) 2002 Free Software Foundation, Inc. ;; Author: Christian Egli ;; Created: 2001-3-12 ;; Version: 1.1 ;; 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 MagicPoint source code. ;; MagicPoint 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). ;; There is also a mgp-mode.el in existence that is shipped with the ;; MagicPoint sources. It is however a little outdated and hopefully ;; all features are eventually going to end up in this mode. The ;; MagicPoint sources also contain a file named mgp.el. It does not ;; provide a emacs mode but seems to be geared toward Postscript ;; generation. ;;; Todo: ;; Make sure all the features of the original magicpoint-mode are ;; included. In particular we are talking about the following features: ;; ;; * View the current page directly by calculating on which page the ;; cursor is on and invoking mgp using the -p option. ;; * Keyword completion. ;;; Credits: ;; This code was helped by all those who contributed suggestions, ;; fixes, and additions. ;; Hirotsugu Kakugawa, who wrote the original mgp-mode.el ;; Stefan Monnier, who suggested to use the code from `textmodes/page'. ;;; History: ;; ;;; Code: (require 'generic) (require 'font-lock) (defgroup magicpoint nil "MagicPoint 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 (let ((map (make-sparse-keymap "MagicPoint"))) (define-key map "\C-c\C-c" 'compile) (define-key map "\e\t" 'ispell-complete-word) map) "Keymap for `magicpoint-mode'.") (defvar magicpoint-keywords '("%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") "Keywords for `magicpoint-mode'.") (defvar magicpoint-page-delimiter "%page" "Regexp describing line-beginnings that separate pages for `magicpoint-mode'.") ;;; imenu support (defun magicpoint-beginning-of-page () "Move backward to the beginning of a MagicPoint page." (re-search-backward magicpoint-page-delimiter nil t)) (defun magicpoint-extract-page-title () "Extract the title of a MagicPoint page, given a position." (save-match-data (beginning-of-line) (while (looking-at "^%\\|^[ \t]*$") (forward-line)) (buffer-substring-no-properties (line-beginning-position) (line-end-position)))) ;;; outline support (defun magicpoint-outline-level () "Return the level of the current heading with respect to outline." ;; This is so that `current-column` DTRT in otherwise-hidden text (let (buffer-invisibility-spec) (save-excursion (back-to-indentation) (current-column)))) ;;; mgp (define-generic-mode 'magicpoint-mode '(?# ?\n) magicpoint-keywords 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)) (use-local-map magicpoint-mode-keymap) ;; support for imenu (setq imenu-prev-index-position-function 'magicpoint-beginning-of-page) (setq imenu-extract-index-name-function 'magicpoint-extract-page-title) ;; support for outline minor mode (make-local-variable 'outline-regexp) (make-local-variable 'outline-level) (setq outline-regexp (concat magicpoint-page-delimiter "\\|[\t]+")) (setq outline-level 'magicpoint-outline-level) ;; support for page related commands (make-local-variable 'page-delimiter) (setq page-delimiter magicpoint-page-delimiter)))) "Generic mode for editing MagicPoint files. This mode provides support for editing MagicPoint files. It includes support for navigating your slides with `imenu', moving forward and backward through pages using the standard commands `forward-page' and `backward-page' and folding and outlining slides and bullet points with `outline-minor-mode'. To view your presentation use the command `compile' which is bound to \\[compile]. This also allows you to find syntactical errors in your presentation with the command \\[next-error] in case there are any. \\{magicpoint-mode-keymap} ") ;;; mgp.el ends here --=-=-= Content-Disposition: attachment; filename=ChangeLog Content-Description: Changelog of mgp.el 2002-07-17 Christian Egli * mgp.el: Fixed some minor doc string typos that checkdoc made me aware of. 2002-07-08 Christian Egli * mgp.el: Added a credit to Stefan Monnier who made me aware of `textmodes/page'. * mgp.el: Use the standard page moving commands (forward-page and backward-page) by setting page-delimiter properly as opposed to have our home-grown page moving code. * mgp.el: * Added a version string * Added some credits * fixed the magicpoint-page-delimiter 2002-07-08 Christian Egli * mgp.el: Added a credit to Stefan Monnier who made me aware of `textmodes/page'. * mgp.el: Use the standard page moving commands (forward-page and backward-page) by setting page-delimiter properly as opposed to have our home-grown page moving code. * mgp.el: Added a version string. Added some credits. Fixed the magicpoint-page-delimiter 2002-07-01 Christian Egli * mgp.el: Added support for outline-minor-mode. You can now do things such as folding of pages and/or bullet points. Quite cute. Quite exotic. Also added some more comments to magicpoint-mode. 2002-06-24 Christian Egli * mgp.el: More docstring fixes. MagicPoint seems to be picky about capitalization. At least the mgp man page is. * mgp.el: Fixed a doc string typo. * mgp.el: Added magicpoint-forward-page and magicpoint-backward-page. There is also now a var magicpoint-page-delimiter that defines the page boundaries. This is used for above two functions but also for magicpoint-beginning-of-page. * mgp.el: Extracted the keywords into a separate variable. This might be usefull for abbrevs. * mgp.el: Added imenu support. 2002-04-13 Christian Egli * mgp.el: Fixed a doc string and added another Todo item. * mgp.el: According to the man page MagicPoint calls itself "MagicPoint" as opposed to "Magic Point" 2002-04-12 Christian Egli * mgp.el: Added some more comments about other magicpoint modes and a Todo list. The keymap is no longer derived from text-mode-map. This fixes the problem with \t not inserting a tab. Print the keymap in the docstring. 2002-02-28 Christian Egli * mgp.el: Added mgp keywords %anim %area and %charset 2002-02-26 Christian Egli * mgp.el: Fixed according to the patches from Pavel Janik. Sent to emacs-dev@gnu.org. 2002-02-21 Christian Egli * mgp.el: New file. --=-=-= -- Christian Egli wyona: research & development http://www.wyona.com --=-=-=--