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 7 insertions and 8 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.
 But only if Emacs is not started as daemon.  You don't want any
 promts while Emacs is being started as daemon."
   :type 'boolean
   :group 'workgroups)
 (defvaralias 'wg-use-default-session-file 'wg-session-load-on-start)
@@ @@ -377,35 +379,32 @@ happen.") @@
 (defcustom wg-associate-blacklist (list "*helm mini*" "*Messages*" "*scratch*"
                                         "*helm action*")
   "Do not autoassociate these buffers."
   :type 'list
   :group 'workgroups)
 (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))
     (--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 b) wg-buf-uids)))
         (delq b res)))))
                    (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)
 ;; locate-dominating-file
 (defcustom wg-mess-with-buffer-list nil
   "Redefine `buffer-list' to show buffers for each workgroup.
 Crazy stuff that allows to reduce amount of code, gives new
 features but is fucking unstable, so disabled by default"

0 comments (0 inline, 0 general)