added content-with-class

2 files changed, 5 insertions, 0 deletions

diff --git a/flexo.lisp b/flexo.lisp
index b9c820f..480ba05 100644
--- a/flexo.lisp
+++ b/flexo.lisp
@@ -244,6 +244,10 @@ artifact tables have changed."
           :when (funcall pred instance)
             :collect instance)))
 
+(defun content-with-class (class)
+  "Return all content that has been classified with CLASS."
+  (find-content (lambda (ob) (typep ob class))))
+
 (defun lookup-content (key)
   "Looks up KEY in *CONTENT*.  key cna be a PATHNAME or a KEYWORD"
   (when *content*
diff --git a/package.lisp b/package.lisp
index d16ffca..b400939 100644
--- a/package.lisp
+++ b/package.lisp
@@ -14,6 +14,7 @@
    #:build-and-publish
    #:content
    #:content-keywords
+   #:content-with-class
    #:content-with-filepath-like
    #:content-with-tags
    #:define-lass-sheet