Dolor sit amet...
;; This code is in newLisp
;;
;; Use the lipsum generator to generate Lorem Ipsum dummy paragraphs / words / bytes.
;;
;; Lorem Ipsum courtesy of www.lipsum.com by James Wilson
;;
;; @param what in "paras","words","bytes"]
;; @param amount of paras/words/bytes (for words minimum is 5, for bytes it is 27)
;; @param start always start with 'Lorem Ipsum' "true"/"false"
(define (lipsum what amount start)
(setq lipsum-buffer (get-url (format "http://www.lipsum.com/feed/xml?what=%s&amount=%d&start=%s" what amount start)))
(setq lipsum-list (xml-parse lipsum-buffer 7))
(nth 1 (first (nth 2 (first (nth 2 (first lipsum-list)))))))
(lipsum "paras" 2 "true")
Sweet!
Just for fun, Your definition rewritten ... :)
((xml-parse (get-url (format "http://www.lipsum.com/feed/xml?what=%s&amount=%d&start=%s" what amount start)) 7)
0 2 0 2 0 1))
(lipsum2)