src/models/tab.lisp

(defpackage murja.models.tab
  (:use :cl)
  (:export :subtab :tab :tab-route :tab-component :title :require-login :abilities))

(in-package :murja.models.tab)

(defclass tab ()
  ((route :initarg :route :initform (error "Route needed") :accessor tab-route)
   (component :initarg :component :initform (error "Component needed") :accessor tab-component)
   (title :initarg :title :initform (error "Title needed") :accessor title)
   (require-login :initarg :require-login :initform nil :accessor require-login)
   (needed-abilities :initarg :abilities :initform nil :accessor abilities)
   (subtab :initarg :subtab :initform nil :accessor subtab)))

(defmethod print-object ((tabb tab) output)
  (format output "#<TAB: ~a ~a>" (tab-route tabb) (title tabb)))