workgroups2 Changeset - 8e1e3739b1b3

Changeset - 8e1e3739b1b3

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-23 16:13:12
sergey@pashinin.com

Use dash function

1 file changed with 8 insertions and 9 deletions:

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-variables.el

➞

Show inline comments

 ;;; workgroups-variables --- Workgroups vars and consts
 ;;; Commentary:
 ;;; Code:
 (require 'dash)
 (defconst wg-version "1.2.0" "Current version of Workgroups.")
 ;;; customization
 (defcustom wg-session-load-on-start (not (daemonp))
   "Load a session file on Workgroups start.
@@ @@ -383,23 +385,20 @@ happen.") @@
 (defconst wg-buffer-list-original (symbol-function 'buffer-list))
 (defun buffer-list (&optional frame)
   "Redefinition of `buffer-list'.
 Pass FRAME to it.
 Remove file and dired buffers that are not associated with workgroup."
   (let ((lst (list))
         (res (wg-buffer-list-emacs frame))
   (let ((res (wg-buffer-list-emacs frame))
         ;;(wg-buffers (wg-workgroup-associated-buffers (wg-current-workgroup)))
         (wg-buf-uids (wg-workgroup-associated-buf-uids (wg-current-workgroup))))
     (dolist (b res res)
       (when (and (or (buffer-file-name b)
                      (eq (buffer-local-value 'major-mode b) 'dired-mode))
                  ;;(not (member b wg-buffers))
                  (not (member (wg-buffer-uid-or-add b) wg-buf-uids)))
         (delq b res)))))
     (--remove (and (or (buffer-file-name it)
                        (eq (buffer-local-value 'major-mode it) 'dired-mode))
                    ;;(not (member b wg-buffers))
                    (not (member (wg-buffer-uid-or-add it) wg-buf-uids)))
               res)))
 (defconst wg-buffer-list-function (symbol-function 'buffer-list))
 (fset 'buffer-list wg-buffer-list-original)
 (fset 'wg-buffer-list-emacs wg-buffer-list-original)

0 comments (0 inline, 0 general)