🚀 go-pugleaf

My last post had a stray line inserted in the emacs, so I cancelled
the article and am resending it as this:

Howdy-

I just got (finally) a copy of superman.el, and I realized that there
is one thing missing -- you can't tell it to use a new window.

So I've altered the variable sm-notify to accept the choice 'epoch
(now its default) which will create a new screen for the man page.

I now have the following in my .emacs file:

(if (boundp 'epoch::version)
    (require 'esuperman)
  (require 'superman))

There is also a new variable called sm-epoch-alist which is the list
of attributes passed to create-screen for the manpage screen.

This package requires superman.el in order to work.  If you don't have
it, you can get it from your favorite emacs archive.

Don't forget to cut off my .signature at the end.

-------------------------------- CUT HERE --------------------------------
;; -*- Mode: Emacs-Lisp -*-
;; File:		esuperman.el
;; Description: 	Epoch extension to superman.el
;; Author:		Colin Rafferty (craffert@lehman.com)
;; Last Modified:	23-Jul-1993
;; Version:		1.01
;;

;; ========== Standard Disclaimer ==========
;; This file is not part of the GNU Emacs distribution (yet).

;; This file is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY.  No author or distributor accepts
;; responsibility to anyone for the consequences of using it or for
;; whether it serves any particular purpose or works at all, unless he
;; says so in writing.  Refer to the GNU Emacs General Public License
;; for full details. You should consider this code to be covered under
;; the terms of the GPL.

;; Everyone is granted permission to copy, modify and redistribute
;; this file, but only under the conditions described in the GNU Emacs
;; General Public License.  A copy of this license is supposed to have
;; been given to you along with GNU Emacs so you can know your rights
;; and responsibilities.  It should be in a file named COPYING.  Among
;; other things, the copyright notice and this notice must be
;; preserved on all copies.

(defvar sm-epoch-alist nil
  "*Attribute list passed to create-screen when creating a new screen
for superman manpage.")

(defvar sm-notify 'epoch
  "*Selects the behavior when manpage is ready.
This variable may have one of the following values:

'epoch      -- put the manpage in its own screen (see variable sm-epoch-alist)
'bully      -- make the manpage the current buffer and only window
'aggressive -- make the manpage the current buffer in the other window
'friendly   -- display manpage in other window but don't make current
'polite     -- don't display manpage, but prints message when ready (beeps)
'quiet      -- like 'polite, but don't beep
'meek       -- make no indication that manpage is ready

Any other value of sm-notify is equivalent to 'meek.")

(require 'superman)

(defun sm-notify-when-ready (man-buffer)
  "Notify the user when MAN-BUFFER is ready.
See the variable sm-notify for the different notification behaviors."
  (cond
   ((eq sm-notify 'epoch)
    (create-screen man-buffer sm-epoch-alist))
   ((eq sm-notify 'bully)
    (pop-to-buffer man-buffer)
    (delete-other-windows-quietly))
   ((eq sm-notify 'aggressive)
    (pop-to-buffer man-buffer))
   ((eq sm-notify 'friendly)
    (display-buffer man-buffer 'not-this-window))
   ((eq sm-notify 'polite)
    (beep)
    (message "Manual buffer %s is ready." (buffer-name man-buffer)))
   ((eq sm-notify 'quiet)
    (message "Manual buffer %s is ready." (buffer-name man-buffer)))
   ((or (eq sm-notify 'meek)
	t)
    (message ""))
   ))


(provide 'esuperman)
--
                                                                ///
                                                                o o 
 -----------------------------------------------------------oOO-(_)-OOo--------
       Colin Owen Rafferty           |    e-mail:  craffert@lehman.com 
       Lehman Brothers               |     phone:       (212) 640-6263
                                     |
 pgp public key by email or finger; print = 91FED077 BD5588B6 30B372D2 F9172162
		   Don't know what pgp is?  Ask me!
 ------------------------------------------------------------------------------