(:DARKMATTER
 ((:ID . "1499699102316") (:NEXT . "1499699077360") (:PREV . "") (:COUNT . 0)
  (:LANG . "lisp")
  (:LISP . "(eval-when (:compile-toplevel :load-toplevel :execute)
  (let ((*standard-output* (make-broadcast-stream)))
    (push (truename \"~/git_repos/fwoar.lisputils\") asdf:*central-registry*)
    (ql:quickload '(:alexandria :serapeum :lquery :cells :fwoar.lisputils :drakma :puri))))
(defpackage :cells-html-scraper
  (:use :cl :alexandria :serapeum :fw.lu :cells))
(in-package :cells-html-scraper)")
  (:MD . "")
  (:OUTPUT
   . "<div id=\"result\">#&lt;PACKAGE \"CELLS-HTML-SCRAPER\"&gt;</div>"))
 ((:ID . "1499699077360") (:NEXT . "1499699569637") (:PREV . "1499699102316")
  (:COUNT . 0) (:LANG . "lisp")
  (:LISP . "(lquery:define-lquery-macro progn (nodes &rest args)
  `(lquery:$
     (inline ,nodes)
     ,@args))

(lquery:define-lquery-function hn-score (item)
  (lquery:$1 (inline item)
             (next)
             \".score\"
             (text)))

(lquery:define-lquery-function hn-age (item)
  (lquery:$1 (inline item)
             (next)
             \".age\"
             (text)))

(lquery:define-lquery-function hn-comments (item)
  (lquery:$1 (inline item)
             (next)
             \".age\"
             (lquery-funcs:next)
             (next)
             (next)
             (text)))")
  (:MD . "") (:OUTPUT . "<div id=\"result\">HN-COMMENTS</div>"))
 ((:ID . "1499699569637") (:NEXT . "1499699613496") (:PREV . "1499699077360")
  (:COUNT . 0) (:LANG . "lisp")
  (:LISP . "(defclass hn-item ()
  ((%url :initarg :url :reader url)
   (%title :initarg :title :reader title)
   (%score :initarg :score :reader score)
   (%age :initarg :age :reader age)
   (%comments :initarg :comments :reader comments)))

(defun make-hn-item (url title score age comments)
  (make-instance 'hn-item
                 :url (puri:parse-uri url)
                 :title title
                 :score (when score (parse-integer score :junk-allowed t))
                 :age age
                 :comments (when comments (parse-integer comments :junk-allowed t))))")
  (:MD . "") (:OUTPUT . "<div id=\"result\">MAKE-HN-ITEM</div>"))
 ((:ID . "1499699613496") (:NEXT . "1499699601303") (:PREV . "1499699569637")
  (:COUNT . 0) (:LANG . "lisp")
  (:LISP . "(defmodel url-getter ()
  ((%url :initarg :url
         :accessor url
         :initform (c-in nil))
   (%text :initform (c? (if (^url)
                            (^url)
                            \"\"))
          :reader text)))")
  (:MD . "") (:OUTPUT . "<div id=\"result\">NIL</div>"))
 ((:ID . "1499699601303") (:NEXT . "1499699627294") (:PREV . "1499699613496")
  (:COUNT . 0) (:LANG . "lisp")
  (:LISP . "(defmodel hn-scraper ()
  ((%html :initarg :html
          :accessor html
          :initform (c-in \"\"))
   (%doc :reader %doc :initform (c? (plump:parse (^html))))
   (%hnmain :reader %hnmain
            :initform (c? (lquery:$1
                            (inline (^%doc))
                            \"#hnmain\")))
   (%body :reader %body
          :initform (c? (lquery:$
                          (inline (^%hnmain))
                          \".itemlist tr.athing\")))
   (%titles :reader titles
            :initform (c? (lquery:$
                            (inline (^%body))
                            (combine (progn \".title .storylink\" (attr \"href\")
                                            (node))
                                     (progn \".title .storylink\" (text)
                                            (node))
                                     (hn-score)
                                     (hn-age)
                                     (hn-comments)))))
   (%items :reader items :initform (c? (map 'vector
                                            (op (apply 'make-hn-item _*))
                                            (^titles))))))")
  (:MD . "") (:OUTPUT . "<div id=\"result\">NIL</div>"))
 ((:ID . "1499699627294") (:NEXT . "") (:PREV . "1499699601303") (:COUNT . 0)
  (:LANG . "lisp")
  (:LISP . "(defparameter *url-getter* (make-instance 'url-getter))
(defparameter *parser* (make-instance 'hn-scraper :html (^text *url-getter*)))")
  (:MD . "") (:OUTPUT . "")))