branch: elpa/workroom
commit a87110f435c3b0f58ed46d175322d5ba754bc2a8
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@disroot.org>
Clone views correctly
---
workroom.el | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/workroom.el b/workroom.el
index 734d3545da..3bcd1a6803 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1097,8 +1097,16 @@ ROOM is should be workroom object, or a name of a
workroom object."
(let ((clone
(workroom--make-room
:name name
- :view-list (mapcar #'workroom--copy-view
- (workroom-view-list room))
+ :view-list (mapcar
+ (lambda (view)
+ (workroom--make-view
+ :name (workroom--view-name view)
+ :window-config
+ (workroom-view-window-configuration view)
+ :window-config-writable
+ (workroom--view-window-config-writable
+ view)))
+ (workroom-view-list room))
:buffer-manager (workroom--room-buffer-manager room))))
(funcall (workroom--room-buffer-manager room) clone :clone room)
(push clone workroom--rooms)
@@ -1140,7 +1148,9 @@ ROOM is should be workroom object, or a name of a
workroom object."
(let ((clone
(workroom--make-view
:name name
- :window-config (workroom-view-window-configuration view))))
+ :window-config (workroom-view-window-configuration view)
+ :window-config-writable
+ (workroom--view-window-config-writable view))))
(setf (workroom--room-view-list room)
(nconc (workroom--room-view-list room) `(,clone)))
clone))
