(defpackage :fwoar.capi-utils
   (:use :cl))
 (in-package :fwoar.capi-utils)
 
 (defun history-pane (navigate)
   (make-instance 'capi:list-panel
                  :items '()
                  :selection-callback navigate
                  :callback-type :data
                  :external-max-width '(:character 30)))
 
 (defun open-url (url)
   (let* ((history (history-pane (lambda (it) (format *xxx* "~&>> ~s" it))))
          (browser  (make-instance 'capi:browser-pane
                                   :url url
                                   :document-complete-callback (lambda (pane url title)
                                                                 (declare (ignore pane))
                                                                 (let ((new-item (make-instance 'capi:item
                                                                                                :collection history
                                                                                                :text title
                                                                                                :data url)))
                                                                   (capi:apply-in-pane-process-if-alive history
                                                                                                        'capi:append-items
                                                                                                        history (list new-item))
                                                                   (capi:apply-in-pane-process-if-alive history
                                                                                                        #'(setf capi:choice-selected-item)
                                                                                                        new-item history))
                                                                 
                                                                 (values)))))
     (capi:contain (make-instance 'capi:row-layout
                                  :description (list history
                                                     browser))
                   :title "Management Console"
                   :best-width 1280
                   :best-height 800)))