@@ -1,6 +1,7 @@

 ;;;; alimenta.asd

+(in-package :asdf-user)

-(asdf:defsystem #:alimenta

+(defsystem #:alimenta

   :description "A little library to discover, fetch, parse and generate RSS feeds"

   :author "Fiddlerwoaroof <fiddlerwoaroof@howit.is>"

   :license "MIT"

@@ -10,7 +11,7 @@

                #:drakma

                #:for

                #:fwoar.lisputils

-	       #:collection-class

+               #:collection-class

                #:lquery

                #:plump

                #:serapeum

@@ -19,10 +20,6 @@

                #:split-sequence)

   :serial t

   :components ((:file "package")

-               ;; (:file "collections")

-               ;; (:file "collections-for")

-               ;; #+sbcl (:file "collections-sbcl-iterators")

-

                (:file "alimenta")  

                (:file "data-class")

                (:file "date-handling")

@@ -31,5 +28,17 @@

                (:file "fetching")

                (:file "discovery")))

+(defsystem :alimenta+patmatch 

+  :description ""

+  :author "Ed L <edward@elangley.org>"

+  :license "MIT"

+  :depends-on (#:alexandria

+               #:uiop

+               #:serapeum

+               #:alimenta

+               #:fwoar.lisputils)

+  :serial t

+  :components ((:file "pattern-matcher")))

+

 ;; vim: set ft=lisp:

@@ -1,4 +1,4 @@

-;;;; alimenta.lisp

+;;;; alimenta.lisp -*- tab-width: 8; -*-

 ;; (declaim (optimize (speed 0) (safety 3) (debug 3)))

 (in-package #:alimenta)

new file mode 100644

@@ -0,0 +1,32 @@

+(defpackage :alimenta%pattern-matcher

+  (:use :cl :patmatch :alimenta)

+  (:export ))

+(in-package :alimenta%pattern-matcher)

+

+

+(defmethod handle-pattern append ((pattern feed-entity) form &rest args)

+  (let ((key->reader '((:title . title)

+                       (:link . link)

+                       (:doc . doc))))

+    (let* ((val-sym (gensym "VAL"))

+           (binders (loop for (key binding) on args by #'cddr

+                       for accessor = (cdr (assoc key key->reader))

+                       when accessor append

+                         `((,binding (,accessor ,val-sym))))))

+      `((,val-sym ,form)

+        ,@binders))))

+

+(defmethod handle-pattern append ((pattern feed) form &rest args)

+  (let ((key->reader '((:author . author)

+                       (:items . collection-class:items)

+                       (:description . description)

+                       (:source-type . source-type)

+                       (:feed-link . feed-link))))

+    (let* ((val-sym (gensym "VAL"))

+           (binders (loop for (key binding) on args by #'cddr

+                       for accessor = (cdr (assoc key key->reader))

+                       when accessor append

+                         `((,binding (,accessor ,val-sym))))))

+      `((,val-sym ,form)

+        ,@binders))))

+