;;; Arrangements are values.
;;; The activity remains yours.

(defun remember-arrangement (world head name)
  (let ((draft (current-presentation world head)))
    (save-view world draft name)))

(defun return-to-code (world head)
  (let ((view (find-view world "wm-project/code")))
    (activate-view-strictly world head view)))

;; Keep the work; change the perspective.