├── README ├── defmodule.lisp ├── eshop.asd ├── render.lisp ├── routes.lisp └── tpl └── templates.htm /README: -------------------------------------------------------------------------------- 1 | . 2 | -------------------------------------------------------------------------------- /defmodule.lisp: -------------------------------------------------------------------------------- 1 | (restas:define-module #:eshop 2 | (:use #:cl #:iter #:alexandria)) 3 | 4 | (in-package #:eshop) 5 | 6 | (let ((path '(:RELATIVE "repo/eshop"))) 7 | (setf asdf:*central-registry* 8 | (remove-duplicates (append asdf:*central-registry* 9 | (list (merge-pathnames 10 | (make-pathname :directory path) 11 | (user-homedir-pathname)))) 12 | :test #'equal))) 13 | 14 | (defparameter *basedir* 15 | (asdf:component-pathname (asdf:find-system '#:eshop))) 16 | 17 | ;; (defparameter *host* "") 18 | 19 | (defun path (relative) 20 | (merge-pathnames relative *basedir*)) 21 | 22 | ;; (closure-template:compile-template :common-lisp-backend (path "templates.htm")) 23 | -------------------------------------------------------------------------------- /eshop.asd: -------------------------------------------------------------------------------- 1 | (asdf:defsystem #:eshop 2 | :version "11.03.2011" 3 | :author "rigidus " 4 | :licence "GPLv3" 5 | :description "eshop" 6 | :depends-on (#:cl-ppcre 7 | #:restas-directory-publisher 8 | #:closure-template) 9 | :serial t 10 | :components ((:module "tpl" 11 | :components ((:static-file "templates.htm"))) 12 | (:file "defmodule") 13 | (:file "render") 14 | ;; (:file "routes") 15 | ;; (:file "init") 16 | ;; (:module "daemon" 17 | ;; :components ((:static-file "daemon.conf") 18 | ;; (:static-file "daemon.lisp") 19 | ;; (:static-file "daemon.sh"))) 20 | )) 21 | -------------------------------------------------------------------------------- /render.lisp: -------------------------------------------------------------------------------- 1 | ;;;; render.lisp 2 | ;;;; 3 | ;;;; This file is part of the cl-eshop project, released under GNU Affero General Public License, Version 3.0 4 | ;;;; See file COPYING for details. 5 | ;;;; 6 | ;;;; Author: Glukhov Michail aka Rigidus 7 | 8 | (in-package #:eshop) 9 | 10 | 11 | ;; (defclass eshop-render () ()) 12 | 13 | ;; (setf *default-render-method* (make-instance 'eshop-render)) 14 | 15 | ;; (defmethod restas:render-object ((designer eshop-render) (obj t)) 16 | ;; "stub") 17 | -------------------------------------------------------------------------------- /routes.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rigidus/cl-eshop/85a26f1ef3257b09e6cddee67cde90d382e14617/routes.lisp -------------------------------------------------------------------------------- /tpl/templates.htm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rigidus/cl-eshop/85a26f1ef3257b09e6cddee67cde90d382e14617/tpl/templates.htm --------------------------------------------------------------------------------