Re: elscreen problem

[Matthew Kennedy]

Lam <lam-no-spamm-thanks@nospam.org> writes:

> i use elscreen 
> il  would like  to know  if it  is possible  to list  only  buffers of
> current screen ? 
> for exemple : 
>
> if i have this configuration :
>
> ( [Screen number] -> buffer list )
>
> [0] -> foo1 foo3 foo5
> [1] -> foo2 foo4
> [3] -> foo6
>
> if i'm on screen1, it is possible to list only buffer foo2 and foo4 ? 
> (in fact a function like burry-buffer but for elscreen :))

Lam, I remember you asked in IRC about this.  I think the problem
comes down to your naming of screens (via. C-z A).  If you give a
screen a name, then C-z w, which normally shows you exactly what
buffers belong to each screen, then you will get the screen name you
set and not the buffers list.

Here's a patch I concocted to achieve that gives you the option of a
C-z w with screen names or C-u C-z w with buffer names instead.

Here's the example output for the original case and the prefixed case
(you normally see this echoed momentarily to the mini-buffer):

* C-z w

  0+ Gnus

* C-u C-z w

  0+ .bash_profile:*followup to Lam on gnu.emacs.help*

Matt

,----[ elscreen-prefix.patch ]
| --- /usr/share/emacs/site-lisp/elscreen/elscreen.el   2003-06-26 
20:55:59.000000000 -0500
| +++ elscreen.el       2003-07-01 10:52:22.000000000 -0500
| @@ -448,9 +448,9 @@
|    (elscreen-mode-line-update)
|    (switch-to-buffer (current-buffer)))
|  
| -(defun elscreen-show-list ()
| +(defun elscreen-show-list (&optional prefix)
|    "Show list of screens."
| -  (interactive)
| +  (interactive "P")
|    (let ((elscreen-tmp-this-screen (elscreen-get-current-screen))
|       (elscreen-tmp-previous-screen (elscreen-get-previous-screen))
|       (elscreen-list-message nil)
| @@ -511,7 +511,8 @@
|                                   (and (eq i (elscreen-get-previous-screen))
|                                        "-")
|                                   "")
| -                             (or (get-alist i elscreen-name-alist)
| +                             ;; show non-screen names if we were prefixed
| +                             (or (and (null prefix) (get-alist i 
elscreen-name-alist))
|                                   (get-alist i elscreen-tmp-name-alist)))
|                       "  ")))
|        (setq i (+ i 1)))
`----

-- 
Matthew Kennedy