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

(in-package :hu.dwim.presentation)

;;;;;;
;;; t/toc/inspector

;; TODO rename t/toc/inspector to what?
(def (component e) t/toc/inspector (t/detail/inspector contents/widget)
  ())

(def refresh-component t/toc/inspector
  (bind (((:slots contents component-value) -self-))
    (setf contents (mapcar [make-value-inspector !1
                                                 :initial-alternative-type 't/toc/inspector
                                                 :edited (edited-component? -self-)
                                                 :editable (editable-component? -self-)]
                           (collect-if (of-type 'chapter) (contents-of component-value))))))

(def method render-command-bar-for-alternative? ((component t/toc/inspector))
  #f)

;;;;;;
;;; book/toc/inspector

(def (component e) book/toc/inspector (t/toc/inspector)
  ())

(def refresh-component book/toc/inspector
  )

(def render-xhtml book/toc/inspector
  (with-render-style/component (-self-)
    <div (:class "toc") ,#"Toc.title">
    (render-context-menu-for -self-)
    (render-contents-for -self-)))

(def function toc-numbering (component)
  (bind ((component-value (component-value-of component)))
    ;; TODO: toc/mixin?
    (awhen (find-descendant-component component-value
                                      (toc-of (find-ancestor-component-of-type 'book/text/inspector component))
                                      :key 'component-value-of :otherwise #f)
      (numbering-of (content-of it)))))

;;;;;;
;;; chapter/toc/inspector

(def (component e) chapter/toc/inspector (t/toc/inspector)
  ((numbering :type string)
   (reference :type component)))

(def refresh-component chapter/toc/inspector
  (bind (((:slots numbering reference component-value) -self-))
    (setf numbering (awhen (find-ancestor-component-of-type 't/toc/inspector (parent-component-of -self-))
                      (bind ((numbering (integer-to-string (1+ (position -self- (contents-of it) :key 'content-of)))))
                        (if (typep it 'chapter/toc/inspector)
                            (string+ (numbering-of it) "." numbering)
                            numbering)))
          reference (make-instance 't/reference/inspector :component-value component-value
                                   :js (lambda (href)
                                         (declare (ignore href))
                                         ;; TODO: er, not self but the component which actually shows the referred chapter
                                         `js(.scrollIntoView (document.getElementById ,(id-of -self-)) true))))))

(def render-xhtml chapter/toc/inspector
  (with-render-style/component (-self-)
    (bind (((:read-only-slots reference) -self-))
      (render-component reference)
      (render-context-menu-for -self-)
      (render-contents-for -self-))))