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

preparing for site launch

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