workgroups2 Files · src/workgroups-structs.el

Files @ 4a7bb1fd852b

Branch filter:

Location: workgroups2/src/workgroups-structs.el

4a7bb1fd852b 1.2 KiB text/x-elisp Show Annotation Show as Raw Download as Raw

Sergey Pashinin

The return of the buffer association

Redefined `buffer-list' function to display associated buffers.
This can be turned on/off with `wg-mess-with-buffer-list'

Special buffers restoring functions must return a buffer now.
Not just a bunch of actions to restore a buffer somewhere.

;;; workgroups-structs.el --- Define Elisp objects
;;; Commentary:
;;; Code:
(require 'workgroups-utils-basic)

(wg-defstruct wg session
  (uid (wg-generate-uid))
  (name)
  (modified)
  (parameters)
  (file-name)
  (version wg-version)
  (workgroup-list)
  (buf-list))

(wg-defstruct wg workgroup
  (uid (wg-generate-uid))
  (name)
  (modified)
  (parameters)
  (base-wconfig)
  (selected-frame-wconfig)
  (saved-wconfigs)
  (strong-buf-uids)
  (weak-buf-uids))

(wg-defstruct wg workgroup-state
  (undo-pointer)
  (undo-list))

(wg-defstruct wg wconfig
  (uid (wg-generate-uid))
  (name)
  (parameters)
  (left)
  (top)
  (width)
  (height)
  (vertical-scroll-bars)
  (scroll-bar-width)
  (wtree))

(wg-defstruct wg wtree
  (uid)
  (dir)
  (edges)
  (wlist))

(wg-defstruct wg win
  (uid)
  (parameters)
  (edges)
  (point)
  (start)
  (hscroll)
  (dedicated)
  (selected)
  (minibuffer-scroll)
  (buf-uid))

(wg-defstruct wg buf
  (uid (wg-generate-uid))
  (name)
  (file-name)
  (point)
  (mark)
  (local-vars)
  (special-data)
  ;; This may be used later:
  (gc))

(defmacro wg-workgroup-list ()
  "Setf'able `wg-current-session' modified slot accessor."
  `(wg-session-workgroup-list (wg-current-session)))

(provide 'workgroups-structs)
;;; workgroups-structs.el ends here