aeon.lisp

(in-package #:aeon)
(named-readtables:in-readtable :qtools)


(define-widget aeon (QWidget) ())

(define-subwidget (aeon start-button) (q+:make-qpushbutton)
  (q+:set-text start-button "Start"))

(define-subwidget (aeon filter-text) (q+:make-qlineedit)
  (q+:set-placeholder-text filter-text "Filter request uris..."))

(define-subwidget (aeon headers-list) (q+:make-qtablewidget 2 2)
  (q+:hide (q+:horizontal-header headers-list))
  (q+:hide (q+:vertical-header headers-list))
  (let ((item (q+:make-qtablewidgetitem "foo" 0)))
    (q+:set-item headers-list 0 0 item)))

(define-subwidget (aeon layout) (q+:make-qvboxlayout aeon)
  (setf (q+:window-title aeon) "Aeon")
  (let ((top-bar (q+:make-qhboxlayout)))
    (q+:add-widget top-bar start-button)
    (q+:add-widget top-bar filter-text)
    (q+:add-layout layout top-bar))
  (q+:add-widget layout headers-list))

(defun main ()
  (with-main-window (window (make-instance 'aeon))))