Commit f3ed1b5b authored by Dave Cooper's avatar Dave Cooper

updated gorg templates.

parent 8c037122
......@@ -44,5 +44,3 @@
(defparameter *suppress-$$-messages?* t "Boolean. Set to nil if you want to see messages starting with $$ in tasty inspector. Defaults to t.")
(defun one-line (string)
(glisp:replace-regexp (glisp:replace-regexp string (format nil "~%") " ") "'" "\\'" ))
......@@ -19,4 +19,4 @@
;; <http://www.gnu.org/licenses/>.
;;
(gwl:define-package :glsite (:export #:landing #:clear-static))
(gwl:define-package :glsite (:export #:landing #:clear-static #:initialize))
......@@ -21,8 +21,13 @@
(in-package :glsite)
(defparameter *gorg-hosts*
(list "localhost" "trusty"
(defparameter *gorg-hosts*
(list "gendl.org" "www.gendl.org"
"gendl.com" "www.gendl.com")
#+nil
(list "localhost" "xenie"
"gendlformacosx.com" "www.gendlformacosx.com"
"gendlformacos.com" "www.gendlformacos.com"
"gendlformacosx.org" "www.gendlformacosx.org"
......@@ -37,6 +42,7 @@
(defun initialize ()
(let ((static (or
(when (glisp:source-pathname)
(probe-file
......@@ -62,8 +68,13 @@
;;(publish-gwl-app "/" "glsite:landing")
;;
(publish-shared :host "gendl.org" :path "/" :object-type 'landing)
#+nil
(dolist (host *gorg-hosts*)
(publish-shared :host host :path "/" :object-type 'landing)))
(publish-shared :host host :path "/" :object-type 'landing)))
;;
;; FLAG -- arrange to call this on production startup.
......
......@@ -2,15 +2,15 @@
<html>
<head>
<title>Gendl</title>
<link href='http://fonts.googleapis.com/css?family=Iceberg' rel='stylesheet' type='text/css'>
<link href='http://fonts.googleapis.com/css?family=Open+Sans' rel='stylesheet' type='text/css'>
<link href="https://fonts.googleapis.com/css?family=Iceberg" rel="stylesheet" type="text/css">
<link href="https://fonts.googleapis.com/css?family=Open+Sans" rel="stylesheet" type="text/css">
<link href="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css" rel="stylesheet">
<link href="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css" rel="stylesheet">
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<link rel="stylesheet" href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/themes/smoothness/jquery-ui.css" />
<script src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/jquery-ui.min.js"></script>
<script src="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<link rel="stylesheet" href="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/themes/smoothness/jquery-ui.css" />
<script src="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/jquery-ui.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
<link href="/gorgstat/css/styles.css" rel="stylesheet" media="screen">
......
<html>
<head>
<title>Gendl</title>
<link href='http://fonts.googleapis.com/css?family=Lato:100,300,400,700' rel='stylesheet' type='text/css'>
<link href='http://fonts.googleapis.com/css?family=Open+Sans' rel='stylesheet' type='text/css'>
<link href="https://fonts.googleapis.com/css?family=Lato:100,300,400,700" rel='stylesheet' type='text/css'>
<link href="https://fonts.googleapis.com/css?family=Open+Sans" rel='stylesheet' type='text/css'>
<link href="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css" rel="stylesheet">
<link href="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css" rel="stylesheet">
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<link rel="stylesheet" href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/themes/smoothness/jquery-ui.css" />
<script src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/jquery-ui.min.js"></script>
<script src="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<link rel="stylesheet" href="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/themes/smoothness/jquery-ui.css" />
<script src="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/jquery-ui.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
<link href="/gorgstat/css/styles.css" rel="stylesheet" media="screen">
<script src="/gorgstat/js/scripts.js"></script>
......
<html>
<head>
<title>Gendl</title>
<link href='http://fonts.googleapis.com/css?family=Iceberg' rel='stylesheet' type='text/css'>
<link href='http://fonts.googleapis.com/css?family=Open+Sans' rel='stylesheet' type='text/css'>
<link href='https://fonts.googleapis.com/css?family=Iceberg' rel='stylesheet' type='text/css'>
<link href='https://fonts.googleapis.com/css?family=Open+Sans' rel='stylesheet' type='text/css'>
<link href="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css" rel="stylesheet">
<link href="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css" rel="stylesheet">
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<link rel="stylesheet" href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/themes/smoothness/jquery-ui.css" />
<script src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/jquery-ui.min.js"></script>
<script src="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<link rel="stylesheet" href="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/themes/smoothness/jquery-ui.css" />
<script src="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.1/jquery-ui.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
<link href="/gorgstat/css/styles.css" rel="stylesheet" media="screen">
......
......@@ -23,7 +23,7 @@
(defparameter *gendl-version* "1593")
(defparameter *gendl-version* "1594")
(defparameter *gendl-patch-level* nil)
......
":gendl-asdf"
\ No newline at end of file
......@@ -456,7 +456,13 @@ to call the :write-embedded-x3d-world function."))
(with-format (x3d *stream*)
(let ((*onclick-function* (the onclick-function)))
(write-the view-object cad-output))))))))))))
(write-the view-object cad-output))))))
;;
;; FLAG -- conditionalize this in for tasty compatibility.
;;
;;((:script) "x3dom.reload();")
))))))
(raster-graphics
......
......@@ -387,7 +387,7 @@ package-qualified object name\")
(defun publish-shared (&key path object-type host (server *wserver*)
(key (make-keyword-sensitive path)))
(key (make-keyword-sensitive (format nil "~a_~a" host path))))
"Void. Used to publish a site which is to have a shared toplevel instance tree,
and no URI rewriting (i.e. no \"/sessions/XXX/\" at the beginning of the path). So,
this site will appear to be a normal non-dynamic site even though the pages are
......
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