feature/workspace: fix frames incorrectly initialized via emacsclient

A new workspace is now correctly created for files opened via
emacsclient. This fixes #119. Again.
This commit is contained in:
Henrik Lissner 2018-01-31 01:13:56 -05:00
parent 9d82318d27
commit 81bba9c0bc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 7 additions and 7 deletions

View file

@ -445,11 +445,13 @@ the next."
;;
;;;###autoload
(defun +workspaces|delete-associated-workspace (frame)
(defun +workspaces|delete-associated-workspace (&optional frame)
"Delete workspace associated with current frame.
A workspace gets associated with a frame when a new frame is interactively
created."
(when persp-mode
(unless frame
(setq frame (selected-frame)))
(let ((frame-persp (frame-parameter frame 'workspace)))
(when (string= frame-persp (+workspace-current-name))
(+workspace/delete frame-persp)))))
@ -470,9 +472,9 @@ created."
(with-selected-frame frame
(if (not (persp-frame-list-without-daemon))
(+workspace-switch +workspaces-main t)
(+workspace/new)
(+workspace-switch (format "#%s" (+workspace--generate-id)) t)
(set-frame-parameter frame 'workspace (+workspace-current-name)))
(+workspace/display))))
(run-at-time 0.1 nil #'+workspace/display))))
(defvar +workspaces--project-dir nil)
;;;###autoload