Commit 1e90078c authored by Dave Cooper's avatar Dave Cooper
Browse files

preparing for site launch

parent 723c9a02
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:glsite :description (asdf:defsystem #:gorg :description
"The Gendl™ glsite Subsystem" :author "Xinyue (Cherie) Yang" "The Gendl™ gorg Subsystem" :author "Xinyue (Cherie) Yang" :license
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20140918" :depends-on :version "20150613" :depends-on (:gwl-graphics :html-template)
(:gwl-graphics :html-template) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #+asdf-encodings :encoding #+asdf-encodings :utf-8
#+asdf-encodings :encoding #+asdf-encodings :utf-8 :components
:components ((:file "source/package") (:file "source/base-framework")
((:file "source/package") (:file "source/base-framework") (:file "source/publish")))
(:file "source/publish")))
;; ;;
;; Copyright 2002-2011, 2012 Genworks International ;; Copyright 2002-2011, 2012 Genworks International
;; ;;
;; This source file is part of the General-purpose Declarative ;; This source file is part of the General-purpose Declarative
;; Language project (GDL). ;; Language project (GDL).
;; ;;
;; This source file contains free software: you can redistribute it ;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public ;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either ;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version. ;; version 3 of the License, or (at your option) any later version.
;; ;;
;; This source file is distributed in the hope that it will be useful, ;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details. ;; Affero General Public License for more details.
;; ;;
;; You should have received a copy of the GNU Affero General Public ;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see ;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>. ;; <http://www.gnu.org/licenses/>.
;; ;;
(in-package :glsite) (in-package :glsite)
(let ((static (namestring
(make-pathname (defun initialize ()
:name nil
:type nil (let ((static (namestring
:defaults (merge-pathnames "../static/" (or
(translate-logical-pathname (probe-file
(glisp:source-pathname))))))) (make-pathname
(publish-directory :prefix "/" :destination static)) :name nil
:type nil
;; :defaults (merge-pathnames "../static/"
;; FLAG Put this back in when we get cookies working and lose the ugly (translate-logical-pathname
;; "/sessions/..." url (glisp:source-pathname)))))
;; (probe-file (merge-pathnames "gorg-static/" glisp:*gdl-program-home*))))))
;;(publish-gwl-app "/" "glsite:landing") (dolist (host (list "gendl.org" "gendl.com"))
;; (publish-directory :prefix "/" :destination static :host host)))
(publish-shared :path "/" :object-type 'landing)
;;
;; FLAG Put this back in when we get cookies working and lose the ugly
;; "/sessions/..." url
;;
;;(publish-gwl-app "/" "glsite:landing")
;;
(dolist (host (list "gendl.org" "gendl.com"))
(publish-shared :host host :path "/" :object-type 'landing)))
...@@ -37,6 +37,8 @@ ...@@ -37,6 +37,8 @@
(onclick-function nil) (onclick-function nil)
(use-bsplines? nil) (use-bsplines? nil)
("GDL web-drawing object. This must be overridden in the specialized class." view-object nil)
) )
...@@ -230,7 +232,7 @@ ...@@ -230,7 +232,7 @@
:hidden-objects :hidden-objects
((view-object :type 'web-drawing) (;;(view-object :type 'web-drawing)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment