3 files changed, 53 insertions(+), 0 deletions(-)

A wikisophy.asd
A wikisophy.lisp
A wikisophy.scm

@@ 1,21 @@
+(defpackage #:wikisophy-asd
+  (:use :cl :asdf))
+
+(in-package :wikisophy-asd)
+
+(defsystem wikisophy
+  :name "WikiSophy"
+  :version "0.0.1"
+  :maintainer "Dimakakos Dimos aka bendersteed"
+  :author "Dimakakos Dimos"
+  :licence "GPL v3.0+"
+  :long-description "A web server that can responds to a query in the
+  path it takes from a related wikipedia.org article to the philosophy
+  article, after following the first link in each article."
+  :description "Web application for generating paths to the philosophy
+  article in wikipedia."
+  :serial t
+  :depends-on (:hunchentoot
+	       :drakma
+	       :cl-json)
+  :components ((:file "wikisophy")))

@@ 1,4 @@
+(defpackage :wikisophy
+  (:use #:cl))
+
+(drakma:http-request "https://wikipedia.org")

@@ 1,28 @@
+(use-modules (guix packages)
+	     (guix licenses)
+	     (guix packages)
+	     (guix utils)
+	     (guix build-system asdf)
+	     (gnu packages base)
+	     (gnu packages lisp)
+	     (gnu packages lisp-xyz)
+	     (gnu packages imagemagick))
+
+(package
+  (name "wikisophy")
+  (version "0.0.1")
+  (source #f)
+  (build-system asdf-build-system/sbcl)
+  (propagated-inputs
+   `(("sbcl" ,sbcl)
+     ("sbcl-hunchentoot" ,sbcl-hunchentoot)
+     ("sbcl-cl-json",sbcl-cl-json)
+     ("sbcl-drakma" ,sbcl-drakma)
+     ("sbcl-prove" ,sbcl-prove)))
+  (synopsis "Web application for generating paths to the philosophy
+  article in wikipedia.")
+  (description "A web server that can responds to a query in the
+  path it takes from a related wikipedia.org article to the philosophy
+  article, after following the first link in each article.")
+  (home-page "https://breadandroses.com")
+  (license gpl3+))