From ee882108503c9ee5692d837828ac653fc50b0926 Mon Sep 17 00:00:00 2001
From: Russ Tyndall <russ@acceleration.net>
Date: Thu, 15 Jan 2009 12:09:09 -0500
Subject: [PATCH] added a get-page-info proxy

---
 src/packages.lisp |  2 +-
 src/query.lisp    | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/packages.lisp b/src/packages.lisp
index f988206..02aced9 100644
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -18,4 +18,4 @@
    #:add-new-page-section
    #:create-page
    #:regex-replace-all
-   ))
\ No newline at end of file
+   #:get-page-info))
\ No newline at end of file
diff --git a/src/query.lisp b/src/query.lisp
index b5c21d2..7216f42 100644
--- a/src/query.lisp
+++ b/src/query.lisp
@@ -144,6 +144,24 @@ Parameters:
  Returns: a token bag (or list of them if you asked for multiple pages) 
 ")
 
+(define-proxy get-page-info
+    :core ((action query)
+	   (prop info))
+  :req (titles)
+  :processor
+  (lambda (sxml)
+    (convert-sxml-attribs-to-alist
+     (second (first (find-nodes-by-name "page" sxml))
+    )))
+  :doc
+    "Gets the info for a given page as an alist
+
+Parameters:
+  titles - the title of the page we wish to retrieve the info of
+
+ Returns: an alist of attributes about the page
+")
+
 
 
 
-- 
2.11.4.GIT