;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.wiki.documentation)

(def project :hu.dwim.wiki)

(def method make-project-tab-pages ((component project/detail/inspector) (project (eql (find-project :hu.dwim.wiki))))
  (append (list (tab-page/widget (:selector (icon/widget switch-to-tab-page :label "Install Guide"))
                  (make-value-inspector (find-book 'install-guide)))
                (tab-page/widget (:selector (icon/widget switch-to-tab-page :label "Requirement Specification"))
                  (make-value-inspector (find-book 'requirement-specification)))
                (tab-page/widget (:selector (icon/widget switch-to-tab-page :label "Technical Specification"))
                  (make-value-inspector (find-book 'technical-specification)))
                (tab-page/widget (:selector (icon/widget switch-to-tab-page :label "User Guide"))
                  (make-value-inspector (find-book 'user-guide)))
                (tab-page/widget (:selector (icon/widget switch-to-tab-page :label "Administration Guide"))
                  (make-value-inspector (find-book 'administration-guide)))
                (tab-page/widget (:selector (icon/widget switch-to-tab-page :label "Developer Guide"))
                  (make-value-inspector (find-book 'developer-guide))))
          (call-next-method)))

(def function hu.dwim.wiki::make-documentation-menu ()
  (when (authorize-operation *application* '(make-documentation-menu))
    (menu-item/widget ()
        "Documentation"
      (make-book-menu-item 'install-guide)
      (make-book-menu-item 'requirement-specification)
      (make-book-menu-item 'technical-specification)
      (make-book-menu-item 'user-guide)
      (make-book-menu-item 'administration-guide)
      (make-book-menu-item 'developer-guide))))