(setq params (wg-wconfig-parameters (wg-workgroup-working-wconfig (wg-first-workgroup)))))

    (setq fullscreen (if (assoc 'fullscreen params)

                         (cdr (assoc 'fullscreen params))

                       nil))

    (when (and fs

               fullscreen

               (or wg-remember-frame-for-each-wg

                   (null (wg-current-workgroup t))))

      (set-frame-parameter nil 'fullscreen fullscreen)

      ;; I had bugs restoring maximized frame:

      ;; Frame could be maximized but buffers are not scaled to fit it.

      ;;

      ;; Maybe because of `set-frame-parameter' takes some time to finish and is async.

      ;; So I tried this and it helped

      (sleep-for 0 100))

    ;; Position

    (when (and wg-restore-frame-position

               wg-remember-frame-for-each-wg

               (not (frame-parameter nil 'fullscreen)))

      (wg-wconfig-restore-frame-position wconfig))

    ))

(defun wg-restore-frames ()

  "Try to recreate opened frames, take info from session's 'frame-list parameter."

  (interactive)

  (delete-other-frames)

  (when (wg-current-session t)

    (let ((fl (wg-session-parameter (wg-current-session t) 'frame-list nil))

          (frame (selected-frame)))

      (mapc (lambda (wconfig)

              (with-selected-frame (make-frame)

                ;;(wg-frame-resize-and-position wconfig)

                ;;(wg-restore-frame-size-position wconfig)

                ;;(wg-wconfig-restore-frame-position wconfig)

                (wg-restore-wconfig wconfig)

                )) fl)

      (select-frame-set-input-focus frame))))

;; FIXME: throw a specific error if the restoration was unsuccessful

(defun wg-restore-wconfig (wconfig &optional frame)

  "Restore a workgroup configuration WCONFIG in a FRAME.

Runs each time you're switching workgroups."

  (unless frame (setq frame (selected-frame)))

  (let ((wg-record-incorrectly-restored-bufs t)

        (wg-incorrectly-restored-bufs nil)

        (params (wg-wconfig-parameters wconfig))

    (wg-barf-on-active-minibuffer)

    (when wg-restore-scroll-bars

      (wg-wconfig-restore-scroll-bars wconfig))

    ;; Restore frame position

    (when (and wg-restore-frame-position

               (not (frame-parameter nil 'fullscreen))

               (null (wg-current-workgroup t)))

      (wg-wconfig-restore-frame-position wconfig frame))

    (when wg-incorrectly-restored-bufs

      (message "Unable to restore these buffers: %S\

If you want, restore them manually and try again."

               (mapcar 'wg-buf-name wg-incorrectly-restored-bufs)))))

;;; saved wconfig commands

(defun wg-save-wconfig ()

  "Save the current wconfig to the current workgroup's saved wconfigs."

  (interactive)

  (let* ((workgroup (wg-current-workgroup))

         (name (wg-read-saved-wconfig-name workgroup))

         (wconfig (wg-current-wconfig)))

    (setf (wg-wconfig-name wconfig) name)

    (wg-workgroup-save-wconfig workgroup wconfig)

    (wg-fontified-message

      (:cmd "Saved: ")

      (:cur name))))

(defun wg-restore-saved-wconfig ()

  "Restore one of the current workgroup's saved wconfigs in `selected-frame'."

  (interactive)

  (let ((workgroup (wg-current-workgroup)))

    (wg-restore-wconfig-undoably

     (wg-workgroup-get-saved-wconfig

      workgroup

      (wg-completing-read

       "Saved wconfig: "

       (mapcar 'wg-wconfig-name (wg-workgroup-saved-wconfigs workgroup))

       nil t)))))

(defun wg-kill-saved-wconfig ()

  "Kill one of the current workgroup's saved wconfigs.

Also add it to the wconfig kill-ring."

  (interactive)

  (let* ((workgroup (wg-current-workgroup))

         (wconfig (wg-read-saved-wconfig workgroup)))

    (wg-workgroup-kill-saved-wconfig workgroup wconfig)

    (wg-add-to-wconfig-kill-ring wconfig)

    (wg-fontified-message

      (:cmd "Deleted: ")

      (:cur (wg-wconfig-name wconfig)))))

(defun wg-reverse-wconfig (wconfig &optional dir)

  "Reverse WCONFIG's wtree's wlist in direction DIR."

  (wg-asetf (wg-wconfig-wtree wconfig) (wg-reverse-wlist it dir))