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

-;;;; bigpulpit-puller.asd

+;;;; linkblog-to-rss-puller.asd

-(asdf:defsystem #:bigpulpit-puller

-  :description "Describe bigpulpit-puller here"

+(asdf:defsystem #:linkblog-to-rss-puller

+  :description "Describe linkblog-to-rss-puller here"

   :author "Your Name <your.name@example.com>"

   :license "Specify license here"

   :depends-on (#:alimenta

@@ -12,5 +12,5 @@

                #:fwoar.lisputils)

   :serial t

   :components ((:file "package")

-               (:file "bigpulpit-puller")))

+               (:file "linkblog-to-rss-puller")))

@@ -1,11 +1,11 @@

-;;;; bigpulpit-puller.lisp

+;;;; linkblog-to-rss-puller.lisp

-(in-package #:bigpulpit-puller)

+(in-package #:linkblog-to-rss-puller)

-;;; "bigpulpit-puller" goes here. Hacks and glory await!

+;;; "linkblog-to-rss-puller" goes here. Hacks and glory await!

-(defconstant +feed-url+ "http://bigpulpit.com/feed/atom")

+(defconstant +feed-url+ "http://linkblog-to-rss.com/feed/atom")

 (defparameter *feed-data* (alimenta.pull-feed:pull-feed +feed-url+ :type :atom))

@@ -24,7 +24,7 @@

                            (string-equal url "#" :end1 1)

                            (string-equal url "/" :end1 1)

                            (string-equal text "")

-                           (string-equal url  #1="http://bigpulpit.com" :end1 (length #1#)))))

+                           (string-equal url  #1="http://linkblog-to-rss.com" :end1 (length #1#)))))

                      (lquery:$ (initialize content) "a" (combine (attr "href") (text))

                                                                  (map-apply 

                                                                    (lambda (url text)

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

 ;;;; package.lisp

-(defpackage #:bigpulpit-puller

+(defpackage #:linkblog-to-rss-puller

   (:use #:cl))