[nongnu] elpa/workroom a87110f435 56/74: Clone views correctly

[ELPA Syncer]

branch: elpa/workroom
commit a87110f435c3b0f58ed46d175322d5ba754bc2a8
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@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))