Branch
Hash :
ff036d18
Author :
Thomas de Grivel
Date :
2023-06-19T17:18:44
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
;; cl-facts
;; Copyright 2011, 2023 Thomas de Grivel <thodg@kmx.io>
;;
;; Permission is hereby granted to use this software granted
;; the above copyright notice and this permission paragraph
;; are included in all copies and substantial portions of this
;; software.
;;
;; THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
;; PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
;; AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
;; THIS SOFTWARE.
(in-package :facts)
;; View
(defclass view ()
((refresh :initarg refresh
:reader view-refresh
:type function)
(index :initform (make-usl :compare compare)
:reader view-index
:type usl)))
(defmacro view-refresher ((view) &body body)
`(lambda (,view)
,@body))
(defun refresh-view (view)
(funcall (view-refresh view) view))
(defmacro defview (name &body body)
`(progn
(defvar ,name)
(setq ,name (make-instance 'view
:refresh (view-refresher
(,name) ,@body)))
(refresh-view ,name)
',name))