emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor feature/workspaces

Browse source
This commit is contained in:
Henrik Lissner 2017-06-28 15:16:30 +02:00
parent a04d4a6352
commit b3a9889c53
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 47 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

28
modules/feature/workspaces/autoload/workspaces.el
View file

@ -439,3 +439,31 @@ the workspace and move to the next."
(interactive)
(message "%s" (+workspace--tabline)))
;;;###autoload
(defun +workspace-on-new-frame (frame &optional _new-frame-p)
"Spawn a perspective for each new frame."
(select-frame frame)
(+workspace/new)
(set-frame-parameter frame 'assoc-persp (+workspace-current-name)))
;;;###autoload
(defun +workspaces|create-project-workspace ()
"Create a new workspace when switching project with `projectile'."
(when persp-mode
(+workspace-switch (projectile-project-name) t)))
;;;###autoload
(defun +workspaces|delete-associated-workspace-maybe (frame)
"Delete workspace associated with current frame IF it has no real buffers."
(when persp-mode
(let ((frame-persp (frame-parameter frame 'assoc-persp)))
(when (and (equal frame-persp (+workspace-current-name))
(not (equal frame-persp +workspaces-main)))
(+workspace/delete frame-persp)))))
;;;###autoload
(defun +workspaces*autosave-real-buffers (orig-fn &rest args)
"Don't autosave if no real buffers are open."
(when (doom-real-buffer-list)
(apply orig-fn args))
t)