"Return a workgroup from OBJ.

If OBJ is a workgroup, return it.

If OBJ is a string, return the workgroup named OBJ, or error unless NOERROR.

If OBJ is nil, return the current workgroup, or error unless NOERROR."

  (cond ((wg-workgroup-p obj) obj)

        ((stringp obj) (wg-find-workgroup-by :name obj noerror))

        ((null obj) (wg-current-workgroup noerror))

        (t (error "Can't get workgroup from type:: %S" (type-of obj)))))

;;; workgroup parameters

(defun wg-workgroup-parameter (workgroup parameter &optional default)

  "Return WORKGROUP's value for PARAMETER.

If PARAMETER is not found, return DEFAULT which defaults to nil.

WORKGROUP should be accepted by `wg-get-workgroup'."

  (wg-aget (wg-workgroup-parameters (wg-get-workgroup workgroup))

           parameter default))

(defun wg-set-workgroup-parameter (workgroup parameter value)

  "Set WORKGROUP's value of PARAMETER to VALUE.

WORKGROUP should be a value accepted by `wg-get-workgroup'.

Return VALUE."

  (let ((workgroup (wg-get-workgroup workgroup)))

;;

;; Copyright (C) Sergey Pashinin

;; Author: Sergey Pashinin <sergey@pashinin.com>

;;

;; `wg-defstruct'

;;

;; It creates some functions named like "wg-buf-...", "wg-session-..."

;;

;; To get a value you can use:

;; (wg-session-... (wg-current-session))

;; Like:

;; (wg-session-file-name (wg-current-session))

;;

;; To set a value (in `wg-write-session-file'):

;;

;; (setf (wg-session-file-name (wg-current-session)) filename)

;;

;;; Code:

(require 'workgroups-utils-basic)

(wg-defstruct wg buf

  (uid (wg-generate-uid))

  (name)