[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problem with elscreen
From: |
Lam |
Subject: |
Problem with elscreen |
Date: |
Wed, 11 Aug 2004 16:22:25 +0200 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) |
hi
i have create en .el files to add some features to elscreen :
> (provide 'elscreen-buffers)
> (require 'alist)
> (require 'elscreen)
> (defconst elscreen-buffers-version "0.1")
> (defvar elscreen-buffer-alist nil
> "*Alist that contains buffer list for each screen")
> (defun elscreen-attach-buffer ()
> "Attach current buffer to current screen."
> (interactive)
> (let* ((screen (elscreen-get-current-screen))
> (buffer (current-buffer))
> (screen-buffers (get-alist screen elscreen-buffer-alist)))
> (set-alist 'elscreen-buffer-alist
> screen
> (cons buffer screen-buffers))))
> (defun elscreen-detach-buffer ()
> "Detach current buffer to current screen."
> (interactive)
> (let ((screen (elscreen-get-current-screen))
> (buffer (current-buffer))
> (screen-buffers (get-alist screen elscreen-buffer-alist)))
> (set-alist 'elscreen-buffer-alist
> screen
> (delete buffer screen-buffers))))
> (defun elscreen-screen-buffers ()
> "List buffers of current screen"
> (interactive)
> (if (require 'iswitchb nil t)
> (let* ((screen (elscreen-get-current-screen))
> (buffers (get-alist screen elscreen-buffer-alist))
> (iswitchb-buffer-ignore (mapcar '(lambda (elt)
> (buffer-name elt))
> (buffer-list))))
> (mapc '(lambda (elt)
> (setq iswitchb-buffer-ignore
> (delete (buffer-name elt) iswitchb-buffer-ignore)))
> buffers)
> (iswitchb-buffer))
> (message "iswitchb buffer could not be found")))
> (add-hook 'find-file-hooks 'elscreen-attach-buffer)
> (add-hook 'kill-buffer-hooks 'elscreen-detach-buffer)
if i open files foo1, foo2, foo3 on screen 1, and files bar1,
bar2 on screen2, with this code when i do elscreen-screen-buffers i
see only buffers of my current screen
it's ok
but i have a problem with files which have the same name:
if i open on screen2 another file foo1 when i do
elscreen-screen-buffers on screen i don't have foo1 on my list :(
does anybody know where is my pb ?
--
Lam
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Problem with elscreen,
Lam <=