Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
1e90078c
Commit
1e90078c
authored
Jun 13, 2015
by
Dave Cooper
Browse files
preparing for site launch
parent
723c9a02
Changes
3
Show whitespace changes
Inline
Side-by-side
apps/gorg/g
lsite
.asd
→
apps/gorg/g
org
.asd
View file @
1e90078c
;;;; -*- 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: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
...
...
apps/gorg/source/publish.lisp
View file @
1e90078c
...
...
@@ -21,23 +21,33 @@
(
in-package
:glsite
)
(
let
((
static
(
namestring
(
defun
initialize
()
(
let
((
static
(
namestring
(
or
(
probe-file
(
make-pathname
:name
nil
:type
nil
:defaults
(
merge-pathnames
"../static/"
(
translate-logical-pathname
(
glisp:source-pathname
)))))))
(
publish-directory
:prefix
"/"
:destination
static
))
(
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")
;;
(
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
)))
...
...
gwl-graphics/gwl/source/base-html-graphics-sheet.lisp
View file @
1e90078c
...
...
@@ -38,6 +38,8 @@
(
use-bsplines?
nil
)
(
"GDL web-drawing object. This must be overridden in the specialized class."
view-object
nil
)
)
:computed-slots
...
...
@@ -230,7 +232,7 @@
:hidden-objects
((
view-object
:type
'web-drawing
)
(
;;
(view-object :type 'web-drawing)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment