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

(in-package :hu.dwim.projectional-editor)

;;;;;;
;;; Data structure

(def class* list/base ()
  ())

(def class* list/list (list/base)
  ((elements :type sequence)))

(def class* list/element (list/base)
  ((content :type t)))

;;;;;;
;;; Construction

(def (function e) make-list/list (elements)
  (make-instance 'list/list :elements elements))

(def (function e) make-list/element (content)
  (make-instance 'list/element :content content))

;;;;;;
;;; Construction

(def (macro e) list/list (() &body elements)
  `(make-list/list (list ,@elements)))

(def (macro e) list/element (() &body content)
  `(make-list/element ,(first content)))

;;;;;;
;;; API

(def (function e) list/width (list)
  (bind ((elements (elements-of list)))
    (iter (for element :in-sequence elements)
          (for content = (content-of element))
          (maximizing (etypecase content
                        (string (length content)))))))

;;;;;;
;;; Provider

(def (function e) list-color-provider (iomap reference)
  (map-backward iomap reference
                (lambda (iomap reference)
                  (declare (ignore iomap))
                  (pattern-case reference
                    ((the character (elt (the string (border-of ?a)) ?b))
                     (return-from list-color-provider
                       (sdl:color :r 196 :g 196 :b 196)))))))