🚀 go-pugleaf

This is a modified version of a small package Thierry Cambon posted a
while back; all I use it for is to pop up a menu of buffers.

Marc


;;;
;;; xmenu.el
;;; provide an interface to Richard Hess' xmenu for xemacs & epoch
;;; 
;;; part of the code is taken from the x-buffer-menu function in x-mouse.el 
;;; and from the Epoch FAQ example by Philippe Bondono
;;;
;;; Control-mouse-left will pop up a menu in the current window
;;;   with two submenus (submenus and entries can be added in the 
;;;   sp macro below)
;;;
;;; Thierry Cambon (T.Cambon@frcl.bull.fr)
;;;

(defun create-buffer-menu-entry (buffer)
  (concat buffer "=" "switch-to-buffer " buffer))

(defun create-buffer-menu-entry-list ()
  (mapcar 'create-buffer-menu-entry
	  (let ((tail (buffer-list))
		head)
	    (while tail
	      (let ((elt (car tail)))
		(if (not (string-match "^ "
				       (buffer-name elt)))
		    (setq head (cons
				(format
				 "%s"
				 (buffer-name elt))
				head))))
	      (setq tail (cdr tail)))
	    (reverse head))))

(defun interpret-output (process output)
  (let ((com (read-from-string output)))
    (if (>= (cdr com) (length output))
	(funcall (car com))
      (funcall (car com) (substring output (cdr com) -1)))))

(defmacro sp-old ()
  (` (start-process "xmenu" nil
		     "/usr/local/bin/xmenu" "-heading" "Epoch Menu"
		     "-menu" "Tools" 
		             "Undo=undo" 
			     "Dired=dired-other-screen"
	             "-unem"
		     "-menu" "Buffers"
		             (,@ (create-buffer-menu-entry-list)) 
                     "-unem")))

(defmacro sp ()
  (` (start-process "xmenu" nil
		     "/usr/local/bin/xmenu" "-heading" "Epoch Buffers"
                     (,@ (create-buffer-menu-entry-list)) )))

(defun make-menu (arg)
  (interactive)
  (set-process-filter (sp)
    'interpret-output))

(global-set-mouse mouse-left mouse-control 'make-menu)

Marc

--
Marc Andreessen
Epoch Development Team
University of Illinois at Urbana-Champaign
marca@ncsa.uiuc.edu