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

    (wg-workgroup-save-wconfig wconfig workgroup)

    (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))))

(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: ")

  (prog1

      (or (wg-restore-existing-buffer buf switch)

          (wg-restore-special-buffer buf switch)  ;; non existent dired problem

          (wg-restore-file-buffer buf switch)

          (progn (wg-restore-default-buffer switch) nil))

    (if wg-mess-with-buffer-list

        (fset 'buffer-list wg-buffer-list-function)))))

;;; buffer object utils

(defun wg-buffer-uid (buffer-or-name)

  "Return BUFFER-OR-NAME's buffer-local value of `wg-buffer-uid'."

  (buffer-local-value 'wg-buffer-uid (wg-get-buffer buffer-or-name)))

(defun wg-bufobj-uid (bufobj)

  "Return BUFOBJ's uid."

  (cl-etypecase bufobj

    (buffer (wg-buffer-uid bufobj))

    (wg-buf (wg-buf-uid bufobj))

    (string (wg-bufobj-uid (wg-get-buffer bufobj)))))

(defun wg-bufobj-name (bufobj)

(defun wg-cyclic-nth-from-workgroup (workgroup &optional n)

  "Return the workgroup N places from WORKGROUP in `wg-workgroup-list'."

  (wg-cyclic-nth-from-elt workgroup (wg-workgroup-list-or-error) (or n 1)))

(defun wg-workgroup-names (&optional noerror)

  "Return a list of workgroup names or scream unless NOERROR."

  (mapcar 'wg-workgroup-name (wg-workgroup-list-or-error noerror)))

(defun wg-read-workgroup-name (&optional require-match)

  "Read a workgroup name from `wg-workgroup-names'.

REQUIRE-MATCH to match."

(defun wg-new-default-workgroup-name ()

  "Return a new, unique, default workgroup name."

  (let ((names (wg-workgroup-names t)) (index -1) result)

    (while (not result)

      (let ((new-name (format "wg%s" (cl-incf index))))

        (unless (member new-name names)

          (setq result new-name))))

    result))

(defun wg-unique-workgroup-name-p (new-name)

  "Return t if NEW-NAME is unique in `wg-workgroup-list', nil otherwise."

  (cl-every (lambda (existing-name) (not (equal new-name existing-name)))

            (wg-workgroup-names t)))

(defun wg-read-saved-wconfig-name (workgroup &optional prompt require-match)

  "Read the name of a saved wconfig, completing on the names of

WORKGROUP's saved wconfigs."

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

  "Read the name of and return one of WORKGROUP's saved wconfigs."

  (wg-workgroup-get-saved-wconfig

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

;;; workgroup-list reorganization commands

(defun wg-swap-workgroups ()

  "Swap the previous and current workgroups."

  (interactive)