Permalink
Browse files

add content

  • Loading branch information...
rigidus committed Mar 11, 2012
1 parent 15452e1 commit 85a26f1ef3257b09e6cddee67cde90d382e14617
Showing with 58 additions and 0 deletions.
  1. +22 −0 defmodule.lisp
  2. +20 −0 eshop.asd
  3. +16 −0 render.lisp
View
@@ -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"))
View
@@ -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")))
+ ))
View
@@ -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")

0 comments on commit 85a26f1

Please sign in to comment.