- bknr-devel@common-lisp.net - mailman3.common-lisp.net

[bknr-devel] Problems with XML import/export, can't follow the tutorial
by Frederico Muñoz 26 May '10

26 May '10

Hi, I've recently came across bknr while searching for a persistence layer for a small toy program I'm making (which isn't even web based), and found it quite interesting and with a nicely laid-out documentation (well, for the datastore, indexing and XML bits, less so for the web component). While playing around trying to understand the several pieces (mainly the datastore) I got stuck in the XML tutorial (tutorial.lisp in xml-impex) at: (parse-xml-file "xml-impex/tutorial.xml" (list (find-class 'book))) To reach that point I had to change (asdf:oos 'asdf:load-op :bknr-impex) to (asdf:oos 'asdf:load-op :bknr.impex). I always get the following error: The value NIL is not of type CXML::DTD. [Condition of type TYPE-ERROR] I'm not entirely sure if this is a problem on my end, or if the tutorial is outdated. I'm using SBCL 1.0.35-3 in Fedora 12 FWIW, plus a recent svn tree. Any pointers are appreciated, and I'm of course more than happy to provide any further information if this is indeed something that shouldn't occur. Best regards, Frederico

2 7

[bknr-devel] Fwd: searching intervals, sorting and invalid-store-random-state signaled when opening a store
by madnificent＠gmail.com 07 May '10

07 May '10

Dear, First of all thank you for splitting off bknr-datastore. Whilst playing around with it, some questions arose. Searching Intervals: Is there some sort of index or a common idiom to search for all objects in which a specified property's value lies within a certain interval? For instance: listing/mapping over all widgets which have been created between monday and wednesday. Or all exams of a particular pupil which were scored between 35 and 56. Or should I create filters based on the index-mapvalues and index-values? Sorting: Does an index's index-reader (for instance a string-unique-index (but I'd like to know for others as well)) guarantee something with respect to the order in which the results are mapped/listed? If not: is there some idiom to receive a sorted list or should I create a custom index to limit the amount of sorting? Condition Signaled: Whenever I restart my lisp image in slime and open a previously used store, I receive an invalid-store-random-state in SBCL 1.0.37. Two meaningful restarts are given, being initialize-store-random-state and ignore-store-random-state. Is there something obvious I'm doing wrong or is this a bug of some sort? Thank you, mad

3 4

Re: [bknr-devel] Splitting off bknr.datastore
by madnificent 12 Apr '10

12 Apr '10

Hello, I'll try to split off the datastore in a github repository myself if/when I can find the time to do it. I haven't looked into the bknr source to see how much time it would take me. Cheers! On Apr 6, 2010 11:13 PM, "Hans Hübner" <hans.huebner(a)gmail.com> wrote: Hi Aad, I think splitting the datastore and the web app stuff into two separate parts would be great. I'd also like to see the stuff be moved to github. My issue is that I don't currently have the time to do it myself. I would be glad to help with the split, review changes etc., but I can't currently spare the one day that would be needed to make the split perfect. -Hans On Tue, Apr 6, 2010 at 22:13, madnificent <madnificent(a)gmail.com> wrote: > Hello, > > > I was wonde... > _______________________________________________ > bknr-devel mailing list > bknr-devel(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-devel >

2 1

[bknr-devel] Splitting off bknr.datastore
by madnificent 06 Apr '10

06 Apr '10

Hello, I was wondering if it would be possible to create a separate library from bknr.datastore. I don't use bknr, but have used the datastore in the past and I like the idea. The asdf-installable build linked on cliki.net seems to be outdated so that's probably not a good option. Kind regards, Aad Versteden

2 1

[bknr-devel] Directory Handler problem
by Thomas Karolski 09 Jun '09

09 Jun '09

Hey there, the directory handler is deleting the first char of every file which is dispatched through it (e.g. "http://localhost/example-3.lisp" accesses "/xample-3.lisp"). I have the following simple example for a directory handler: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; example-3.lisp --- (defpackage :example-3 (:use :cl :bknr.web :bknr.datastore)) (in-package :example-3) (make-instance 'website :name "My first website" :handler-definitions `(("/" directory-handler :destination #p"/home/thomas/workspace/bknr-examples/"))) (defvar *server* nil) (if *server* (progn ;; Open a store (close-store) (make-instance 'mp-store :directory "store/" :subsystems (list (make-instance 'store-object-subsystem))) ;; Create an anonymous user if none exists yet (unless (bknr.user:find-user "anonymous") (bknr.user:make-user "anonymous")) (hunchentoot:stop *server*) (setf hunchentoot:*show-lisp-errors-p* t) (setf *server* nil)) (setf *server* (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 8080 :request-dispatcher 'bknr.web:bknr-dispatch)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; example-3.lisp ends here However, whenever I try to access http://localhost:8080/example-3.lisp (which also resides in the bknr-examples directory as specified in the :directory argument), I get the following error: --------------------------------------------------------------------- Internal Server Error FILES-NOT-FOUND while processing pathnames argument xample-3.lisp, files ("xample-3.lisp") could not be found Hunchentoot 1.0.0 (SBCL 1.0.28) at localhost:8080 --------------------------------------------------------------------- For some reason "example-3.lisp" is truncated down to "xample-3.lisp". I tracked it down to 'request-relative-pathnames' in bknr/web/src/web/handlers.lisp. For some reason pathnames-argument is being let* with: (subseq (script-name*) (1+ (length (page-handler-prefix handler)))) whereas '(script-name*)' returns "/example-3.lisp", and '(page-handler-prefix handler)' returns "/". With (length (page-handler-prefix handler)) being 1 and another 1 being added through 1+ we would get: (subseq "/example-3.lisp" 2) which results in "xsample-3.lisp" instead of "example-3.lisp". In case the 1+ is supposed to be there - what am I doing wrong when initializing the directory handler? Kind regards, Thomas

2 1

[bknr-devel] handler.lisp doc svn diff
by Thomas 07 Jun '09

07 Jun '09

Index: bknr/web/src/web/handlers.lisp =================================================================== --- bknr/web/src/web/handlers.lisp (Revision 4409) +++ bknr/web/src/web/handlers.lisp (Arbeitskopie) @@ -717,7 +717,12 @@ (ensure-directories-exist spool-dir) spool-dir)) -(defmethod website-show-page ((website website) fn title) +(defmethod website-show-page ((website website) fn title) + "Method for generating the code for a normal website page. +This gets called by with-bknr-page, whereas FN is a function with zero parameters +containing the body of a with-bknr-page call. TITLE is the title as specified by a +with-bknr-page call. +Redefine to add your own behavior." (html (:html (:head @@ -733,6 +738,12 @@ (session-info))))) (defmethod website-show-error-page ((website website) error) + "Method for generating the code for an error page. +This gets called by an error handler in case something goes wrong on the server side. +ERROR is a string describing the error which happened. + +Redefine to add your own behavior." (if (and (website-template-handler website) (error-template-pathname (website-template-handler website))) (send-error-response (website-template-handler website) (princ-to-string error)) @@ -747,12 +758,22 @@ (:princ-safe error))))))) (defun show-page-with-error-handlers (fn &key (response +http-ok+) title) + "Sets up the http-response RESPONSE, content-type \"text/html; charset=UTF8\" and the xhtml stream which is used to send +html to the clients. Then calls website-show-page for the current website with the given FN and TITLE." (setf (return-code*) response) (with-http-response (:content-type "text/html; charset=UTF-8" :response response) (with-http-body () (website-show-page *website* fn title)))) (defmacro with-bknr-page ((&rest args) &body body) + "Macro which sets up everything so you can directly write your html code. +ARGS is a property list and can be any of the KEYWORD arguments which can also be given to +show-page-with-error-handlers. Noteworthy in particular are :title and :response. +The BODY will be given to website-show-page as a lambda function. + +Example: + * (with-bknr-page (:title \"Random Page\") + (:p (:princ-safe \"Randomness\"))) " `(show-page-with-error-handlers (lambda () (html ,@body)) ,@args)) #+(or) @@ -765,5 +786,6 @@ ,@body)))))) (defun unpublish () + "Unpublish a website by removing the BKNR dispatcher from the global *dispatch-table*" (setf *dispatch-table* (remove 'bknr-dispatch *dispatch-table*) *handlers* nil))

2 1

[bknr-devel] Automatic HTML Indentation
by Thomas 02 Jun '09

02 Jun '09

I noticed that with-xhtml warns about the INDENTATION parameter being deprecated. According to the cxml documentation (on their website anyway) cxml:make-character-stream-sink still takes that parameter - and actually passing it does seem to work. Is there some other method of enforcing (x)html indentation (including newlines) or do I have to go with hacking a global variable *html-indentation* into xhtmlgen.lisp in order to get it to work? On a side note: How come the HTML function is not exported from within BKNR.web? Isn't it an integral part of using the BKNR.web utility functions? Kind regards, Thomas

1 0

[bknr-devel] xhtmlgen
by Thomas 02 Jun '09

02 Jun '09

Hi, how can I get xhtmlgen to accept (:label :for "name")?

2 6

[bknr-devel] Motivation for not interning symbols when loading a store
by Vladimir Sedach 22 May '09

22 May '09

Hello, I'm genuinely perplexed why the BKNR datastore throws an error when it tries to load a store that contains symbols that are not present in a given package. Why not just intern them? Vladimir

2 4

[bknr-devel] Lisp web development book proposal for O'Reilly
by Vladimir Sedach 03 Apr '09

03 Apr '09

Hi, At ILC 2009, O'Reilly Media released a statement that they were soliciting proposals for books about Lisp. This is a reversal of their previous policy that explicitly stated that they were not interested in publishing Lisp books. I'm planning to put together a proposal for a book about web development in Lisp and am looking for contributors. Here is the description of the project: The book is going to be the "Lisp Web Development Cookbook," with many authors contributing chapters/recipes. It makes sense to break it down into several larger sections, for example one on using frameworks and Hunchentoot, one on generating and transforming JavaScript, one on CPS transformer tools, and a section on Clojure, and possibly Scheme. The focus is going to be on advice and techniques from people who have built public or commercial web systems in Lisp, and to demonstrate Lisp techniques that aren't possible using other tools. I want this book to really show how Lisp can be used to build up abstractions to program in the problem domain directly in ways that are not possible in other languages, with techniques and examples from real-world Lisp web systems. If you are interested in contributing a chapter or recipe (doesn't matter how short it is, half a page is ok if it does something cool), please let me know what you'd like to write about. If you know someone who might be interested in contributing, please pass this on. I'm going to be soliciting potential contributors for the next two weeks. Once I have a list of prospective contributors, I'll put together a list of the subjects covered and an outline of the sections of the book, and send a proposal to O'Reilly. Thank you, Vladimir Sedach

1 0