add content

defmodule.lisp

@@ -0,0 +1,22 @@
+(restas:define-module #:eshop
+    (:use #:cl #:iter #:alexandria))
+
+(in-package #:eshop)
+
+(let ((path '(:RELATIVE "repo/eshop")))
+  (setf asdf:*central-registry*
+        (remove-duplicates (append asdf:*central-registry*
+                                   (list (merge-pathnames
+                                          (make-pathname :directory path)
+                                          (user-homedir-pathname))))
+                           :test #'equal)))
+
+(defparameter *basedir*
+  (asdf:component-pathname (asdf:find-system '#:eshop)))
+
+;; (defparameter *host* "")
+
+(defun path (relative)
+  (merge-pathnames relative *basedir*))
+
+;; (closure-template:compile-template :common-lisp-backend (path "templates.htm"))

eshop.asd

@@ -0,0 +1,20 @@
+(asdf:defsystem #:eshop
+  :version      "11.03.2011"
+  :author       "rigidus <i.am.rigidus@gmail.com>"
+  :licence      "GPLv3"
+  :description  "eshop"
+  :depends-on   (#:cl-ppcre
+                 #:restas-directory-publisher
+                 #:closure-template)
+  :serial       t
+  :components   ((:module "tpl"
+                          :components ((:static-file "templates.htm")))
+                 (:file "defmodule")
+                 (:file "render")
+                 ;; (:file "routes")
+                 ;; (:file "init")
+                 ;; (:module "daemon"
+                 ;;          :components ((:static-file "daemon.conf")
+                 ;;                       (:static-file "daemon.lisp")
+                 ;;                       (:static-file "daemon.sh")))
+                 ))

render.lisp

@@ -0,0 +1,16 @@
+;;;; render.lisp
+;;;;
+;;;; This file is part of the cl-eshop project, released under GNU Affero General Public License, Version 3.0
+;;;; See file COPYING for details.
+;;;;
+;;;; Author: Glukhov Michail aka Rigidus <i.am.rigidus@gmail.com>
+
+(in-package #:eshop)
+
+
+;; (defclass eshop-render () ())
+
+;; (setf *default-render-method* (make-instance 'eshop-render))
+
+;; (defmethod restas:render-object ((designer eshop-render) (obj t))
+;;   "stub")