window-purpose: changed helm source

syl20bnr · Sep 18, 2015 · dc58e4f · dc58e4f
1 parent 7354852
commit dc58e4f
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/layers/+window-management/window-purpose/packages.el b/layers/+window-management/window-purpose/packages.el
@@ -80,16 +80,16 @@ PURPOSE defaults to the purpose of the current buffer."
     (progn
       (require 'helm-buffers)
       (defvar window-purpose--current-purpose 'edit)
-
-      (defclass helm-source-purpose-buffers (helm-source-buffers)
-        ((buffer-list :initform
-                      (lambda ()
-                        (mapcar #'buffer-name
-                                (delq (current-buffer)
-                                      (purpose-buffers-with-purpose window-purpose--current-purpose)))))))
-
       (defvar helm-source-purpose-buffers-list
-        (helm-make-source "Purpose buffers" 'helm-source-purpose-buffers)))))
+        (helm-make-source "Purpose buffers" 'helm-source-buffers
+          :buffer-list
+          (lambda ()
+            ;; return names of buffers with the same purpose as current buffer,
+            ;; excluding current buffer
+            (mapcar #'buffer-name
+                    (delq (current-buffer)
+                          (purpose-buffers-with-purpose
+                           window-purpose--current-purpose)))))))))
 
 (defun window-purpose/post-init-popwin ()
   ;; when popwin creates a popup window, it removes the `purpose-dedicated'