Add +workspace-contains-buffer-p

This commit is contained in:
Henrik Lissner 2017-07-08 21:08:42 +02:00
parent 30001ec3f4
commit 5a386446aa
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -81,6 +81,13 @@ perspectives."
"Get the name of the currently active workspace."
(safe-persp-name (get-current-persp)))
;;;###autoload
(defun +workspace-contains-buffer-p (&optional buffer workspace)
"Return non-nil if buffer is in workspace (defaults to current workspace)."
(unless workspace
(setq workspace (+workspace-current)))
(persp-contain-buffer-p buffer workspace nil))
;;;###autoload
(defun +workspace-load (name)
"Loads and inserts a single workspace (named NAME) into the current session.