Commit 0b56dc05 authored by Dave Cooper's avatar Dave Cooper

added training slides, changed main-view to inner-html

parent 74abba6b
(:gdl-all)
\ No newline at end of file
(asdf:defsystem #:gdl-newsite
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2012032700"
:depends-on
(:gdl-all)
:components
((:file "source/index") (:file "source/package")))
\ No newline at end of file
(in-package :www.genworks.com)
(define-object services (base-site-sheet)
:computed-slots
((title "Genworks International - Services")
(link-title "Services")
(right-section-inner-html
(with-cl-who-string ()
(:H2 "Our Services") ((:DIV :ID "welcome"))
((:DIV :ID "profile")
((:DIV :ID "peop") (:H3 "Value-added application support ")
(:P
"One year Maintenance and Implementation Support (provided by KE-Works, up to 5 events), with the option to renew at any time for a 5 k€ fee.")
(:H3 "Remote consultancy ")
(:P "Service scheduled for release Q1 2012.")
(:H3 "On-site consultancy ")
(:P "Service scheduled for release Q1 2012.")))))))
\ No newline at end of file
(in-package :www.genworks.com)
(define-object assembly (base-site-sheet)
:computed-slots
((title "Genworks International - Welcome")
(right-section-inner-html (the index-html right-section-inner-html))
(link-title "Home")
(pages (the children)))
:trickle-down-slots (pages)
:hidden-objects
((news :type 'news)
(configurator :type 'configurator))
:objects
((index-html :type 'index-html)
(products :type 'products)
(services :type 'services)
(demos :type 'demos)
(people :type 'people)
(contact-us :type 'contact-us)))
\ No newline at end of file
(in-package :www.genworks.com)
(define-object configurator (base-site-sheet)
:computed-slots
((title "Genworks International - Product Configurator")
(link-title "Product Configurator")
(current-price (* (the quantity value)
(+
(ecase (the license value)
(:agpl 0)
(:proprietary 3000))
(ecase (the lisp-engine value)
(:none 0)
(:sbcl 0)
(:ccl 0)
(:acl 5000)
(:lw 3000))
(ecase (the support-level value)
(:none 0)
(:install 300)
(:comprehensive 9000))
(ecase (the geometry-kernel value)
(:basic 0)
(:smlib 9000)))))
(right-section-inner-html
(with-cl-who-string ()
(:h2 "Configure your Download") ((:div :id "configurator"))
(:p (:h1 (fmt "Price: $~$" (the current-price))))
(with-html-form (:cl-who? t)
(:fieldset
(str (the quantity html-string))
(str (the license html-string))
(str (the lisp-engine html-string))
(str (the support-level html-string))
(str (the geometry-kernel html-string)))))))
:objects
((quantity :type 'text-form-control
:size 1
:default 1
:prompt "Quantity"
:ajax-submit-on-change? t)
(license :type 'menu-form-control
:size 1
:choice-plist (list :agpl "AGPL"
:proprietary "Proprietary")
:default :agpl
:prompt "License"
:ajax-submit-on-change? t)
(lisp-engine :type 'menu-form-control
:size 1
:choice-plist (list :none "None"
:sbcl "SBCL"
:ccl "Clozure CL"
:acl "Franz® Allegro CL"
:lw "LispWorks")
:default :none
:prompt "Common Lisp Engine"
:ajax-submit-on-change? t)
(support-level :type 'menu-form-control
:size 1
:choice-plist (list :none "None"
:install "Installation"
:comprehensive "Comprehensive")
:default :none
:ajax-submit-on-change? t)
(geometry-kernel :type 'menu-form-control
:size 1
:choice-plist (list :basic "Basic"
:smlib "SMLib from Solid Modeling Solutions™")
:default :basic
:ajax-submit-on-change? t)))
(in-package :www.genworks.com)
(define-object contact-us (base-site-sheet)
:computed-slots
((title "Genworks International - Contact Us")
(link-title "Contact us")
(right-section-inner-html
(with-cl-who-string ()
(:H2 "Contact us")
((:DIV :ID "welcome")
((:IMG :SRC "/newsite-static/images/pic_4.jpg" :ALT "Pic 1" :CLASS "left" :WIDTH "83"
:HEIGHT "129"))
(:P "Address: Decebal 35B") (:P "City: Bistrita")
(:P "Country: Romania") (:P "Tel: +40 36 340 5066")
(:P "Email: info@ke-works.ro"))))))
(in-package :www.genworks.com)
(define-object demos (base-site-sheet)
:computed-slots
((title "Genworks International - Demos")
(link-title "Demos")
(right-section-inner-html
(with-cl-who-string ()
(:H2 "Demos") (:H3 "Aerospace")
((:DIV :ID "profile")
((:DIV :ID "d-corp")
((:DIV :ID "d-corp-img") "
Aero Demo 1")
(:P "Under construction "))
((:DIV :ID "d-indu")
((:DIV :ID "d-indu-img") "
Aero Demo 2")
(:P "Under construction "))
((:P :CLASS "more") ((:A :HREF "") "View Details")))
(:H3 "Wind Energy")
((:DIV :ID "profile")
((:DIV :ID "d-corp")
((:DIV :ID "d-corp-img") "
Wind Demo 1")
(:P "Under construction"))
((:DIV :ID "d-indu")
((:DIV :ID "d-indu-img") "
Wind Demo 2")
(:P "Under construction"))
((:DIV :CLASS "clear"))
((:P :CLASS "more") ((:A :HREF "") "View Details")))))))
(in-package :www.genworks.com)
(define-object index-html (base-site-sheet)
:computed-slots
((title "Genworks International - Welcome")
(link-title "Home")
(right-section-inner-html (with-cl-who-string ()
(:H2 "Welcome to Genworks")
((:DIV :ID "welcome")
((:IMG :SRC "/newsite-static/images/robot-small.gif" :ALT "Pic 1" :CLASS "left" :WIDTH "171"
:HEIGHT "137"))
(:P (:STRONG "Genworks")
" provides General-purpose Declarative Language (GDL), a Generative Applicaton Development system
for creating web-centric Knowledge Based Engineering and Business applications. Based on both ANSI and de-facto standards, GDL is
generative on many levels, "
((:a :href "http://en.wikipedia.org/wiki/Automatic_programming") "generating")
" detailed code while you write high-level definitions, then generating solutions to your problems
according to those definitions.")
"The "
(:STRONG " (GDL)")
" suite is an open platform that blends the power of Common Lisp and "
(:STRONG "NURBS-based") " geometry kernels. "
(:P "Genworks GDL comes in a variety of configurations depending on your needs and resources,
starting from a free open-source distribution through to fully supported packages with proprietary licensing and built with
high-end commercial components.")
(:P (:STRONG "Genworks")
" is the first-level vendor for GDL. We work with a network of General Resellers and Value-added Resellers to provide
you with customized services and end-user applications, depending on your precise requirements."))
(:H3 "Company Profile")
((:DIV :ID "profile")
((:DIV :ID "corp")
((:DIV :ID "corp-img") "Aerospace")
(:P (:STRONG "Genworks International")
" was founded in November, 1997 as Knowledge Based Solutions, a Michigan Corporation. ")
(:P "We operate as an independent entity, free of underlying debt or big-corporate influences.")
(:P "Our focus is primarily as a first-level vendor for the GDL suite of tools, rather than domain-specific
vertical applications or specialized application consulting. This allows us to keep objectives aligned with our customers, and avoid
potential conflict-of-interest experienced by other KBE vendors who also presume to dominate the market for vertical applications and
consulting using their own tool.")))))))
(in-package :www.genworks.com)
(define-object base-site-sheet (base-ajax-sheet)
:computed-slots
((additional-header-content
(with-cl-who-string ()
((:link :type "text/css" :rel "stylesheet" :href "/newsite-static/css/style.css"))
((:meta :name "description"
:content "Genworks is a developer and vendor for General-purpose Declarative Language (GDL), a high-productivity application development
system used for creating web-centric Knowledge-based Engineering and Business applications which can involve complex 3D geometry."))
((:meta :name "keywords" :content "Genworks, Knowledge-Based Engineering, KBE, GDL, Common Lisp, Generative Programming, Dynamic Languages, 3D Geometry, NURBS, Solid Modeling, Disruptive Technologies"))))
(html-sections (list (the nav-section)
(the news-section)
(the support-section)
(the right-section)
(the footer-section)))
(main-sheet-body
(with-cl-who-string ()
((:div :id "wrapper")
((:div :id "header") (when *developing?* (str (the development-links))))
((:div :id "left")
((:div :id "logo") (:H1 "Genworks International")
(:p "Practical Tools for Generative Application Development"))
(str (the nav-section main-div))
(str (the news-section main-div))
(str (the support-section main-div)))
(str (the right-section main-div))
((:div :class "clear")) ((:div :id "spacer"))
(str (the footer-section main-div)))))
(right-section-inner-html (with-cl-who-string ()
(:h2 "Empty Template")))
(link-title (the strings-for-display)))
:hidden-objects
((nav-section :type 'sheet-section
:dom-id "nav"
:inner-html (with-cl-who-string ()
(:ul (dolist (page (the pages))
(htm (:li ((:a :href (the (relative-url-to (the-object page url))))
(str (the-object page link-title)))))))))
(news-section :type 'sheet-section
:dom-id "news"
:inner-html (with-cl-who-string ()
((:div :class "news")
(:h2 "Latest News")
(:h3 "2012-03-28")
(:p
"New Genworks Website prototype is launched.")
((:div :class "hr-dots"))
(:h3 "2012-03-15")
(:p
"Integration and Testing of Genworks GDL 1581 with "
((:a :href "http://www.smlib.com") " SMLib 8.51 ")
" is completed.")
(if (eql self (the news))
(htm ((:p :class "more") ((:a :href (the (relative-url-to (the index-html url)))) "less...")))
(htm ((:p :class "more") ((:a :href (the (relative-url-to (the news url)))) "more...")))))))
(support-section :type 'sheet-section
:dom-id "support"
:inner-html (with-cl-who-string ()
(:P "Technical Support")))
(right-section :type 'sheet-section
:dom-id "right"
:inner-html (the right-section-inner-html))
(footer-section :type 'sheet-section
:dom-id "footer"
:inner-html (with-cl-who-string ()
((:div :id "copyright") "Copyright © 2011 Copyright KE-Works S.R.L Romania All right reserved.")
((:div :id "footerline"))))))
(in-package :www.genworks.com)
(define-object news (base-site-sheet)
:computed-slots
((title "Genworks International - News")
(link-title "News")
(right-section-inner-html
(with-cl-who-string ()
(:h2 "Prior News")
(:H3 "2012-03-01")
(:p "Genworks GDL included as a standard dist with " ((:a :href "http://www.quicklisp.org") "Quicklisp") ".")
((:div :class "hr-dots"))
(:h3 "2012-02-01")
(:p "Port of core Genworks GDL to " ((:a :href "http://www.sbcl.org") "Steel Bank Common Lisp") " is completed.")
(:h3 "2012-01-01")
(:p "Genworks GDL 1581 Stable Beta release available, available on "
((:a :href "http://www.franz.com/products/allegro") "Allegro CL 8.2") " and "
((:a :href "http://www.lispworks.com/news/news31.html") "LispWorks 6.1"))
(:h3 "2011-10-24")
(:p ((:a :href "http://en.wikipedia.org/wiki/John_McCarthy_(computer_scientist)") "John McCarthy")
", father of Lisp programming language family, exits the planet.")
(:h3 "2011-10-23")
(:p "Open-sourcing of GDL under "
((:a :href "http://www.gnu.org/licenses/agpl-3.0.html") "Gnu Affero General Public License")
" is announced at "
((:a :href "http://blip.tv/eclm") "ECLM 2011") ".")))))
(gwl:define-package :www.genworks.com (:export #:assembly))
(in-package :www.genworks.com)
(define-object people (base-site-sheet)
:computed-slots
((title "Genworks International - People")
(link-title "People")
(right-section-inner-html
(with-cl-who-string ()
(:H2 "Our people")
((:DIV :ID "welcome"))
(:H3 "Chiciudean Teodor Gelu ")
((:DIV :ID "profile")
((:DIV :ID "peop")
(:H4 "Engineering Consultant, composite materials and KBE ")
(:P
"Teodor founded KE-Works S.R.L. Romania in 2009. At that time, he was a PhD Researcher
at Delft University of Technology in the department of Systems Engineering and Aircraft Design.
In 2011 he joined Genworks International as a consultant for Documentation, Geometry Primitives
Development and Support.")
(:P
"Teodor holds a Dipl-Ing. "M.Sc." degree in Aircraft Propulsion System, from Politehnica
University of Bucharest, Faculty of Aerospace Engineering and a Doctor degree in Chemical Engineering "Composite Materials"
from Politehnica University Bucharest, Faculty of Applied Chemistry and Materials Science. ")))
(:H3 "Alina Alexandra Tache ")
((:DIV :ID "profile")
((:DIV :ID "peop")
(:H4 "Engineering Consultant, composite materials and NDI")
(:P
"Alina has a background in Chemical Engineering. She holds a M.Sc. degree from Politehnica University of
Bucharest, Faculty of Applied Chemistry and Materials Science. She is involved with research in improving the
polymer matrix fiber interface, Bio-composite materials design, prototype manufacturing and testing.")
(:P
"She possesses expertise in Nondestructive Inspection (NDI) and it is a certified  level I
practitioner in ARN-TN Insignificant Radiologic Risk Activities - Nuclear Techniques by the Romanian
National Commission for Nuclear Activities Control (CNCAN). ")))
(:H3 "Carcu Andrei Eugen ")
((:DIV :ID "profile")
((:DIV :ID "peop") (:H4 "IT Consultant, visualization and networking ")
(:P
"Andrei has a background in Telecommunications and Multimedia Technology. He holds a Dipl-Ing. "M.Sc."
degree from Technical University of Cluj Napoca, Faculty of Telecommunications and Technology of Information.
He is involved in product configuration management (hardware and software "C, C#, C++"),
database "SQL" and server deployment support.")
(:P
"Andrei has several years of experience as a support engineer at CEMA AG and Alcatel-Lucent
and holds a Microsoft Active Directory and Cisco certification.")))
(:H3 "Varga Diana Iulia ")
((:DIV :ID "profile")
((:DIV :ID "peop") (:H4 "Consultant, marketing and customer relations")
(:P
"Diana has a background in Management in which she holds a M.Sc. degree from University Babes-Bolyai, Cluj-Napoca.
She is involved in finance budgeting, customer relations, and licensing.")))))))
(in-package :www.genworks.com)
(define-object products (base-site-sheet)
:computed-slots
((title "Genworks International - Products")
(link-title "Products")
(right-section-inner-html
(with-cl-who-string ()
(:h2 "Our Products") ((:div :id "welcome"))
(:p ((:a :href (the configurator url)) "Product Configurator"))))))
(in-package :www.genworks.com)
(let ((static (namestring
(merge-pathnames "newsite/static/"
(asdf:system-source-directory "gdl-demos"))))
(images (namestring
(merge-pathnames "newsite/images/"
(asdf:system-source-directory "gdl-demos")))))
(publish-directory :prefix "/newsite-static/"
:headers (list (cons :cache-control "86400"))
:destination static))
(publish-gwl-app "/newsite" "www.genworks.com:assembly")
(publish-gwl-app "/newsite/" "www.genworks.com:assembly")
(publish-gwl-app "/newsite.html" "www.genworks.com:assembly")
html, body, h1, h2, h3, h4, ul, li {
margin: 0;
padding: 0;
}
h1 img {
display: block;
}
img {
border: 0;
}
a {
color: #464544;
}
a:hover {
color: #FFA405;
}
.left {
float: left;
}
.right {
float: right;
}
.more {
text-align: right;
}
.clear {
clear: both;
}
body {
background: #E0D5B7 url(../images/page_bg.jpg) repeat-x;
text-align: center;
font: 11px verdana, arial, sans-serif;
color: #74653D;
padding-bottom: 10px;
padding-top: 31px;
}
/** layout **/
#wrapper {
text-align: left;
margin: auto;
width: 778px;
position: relative;
background: url(../images/body_bg.gif) repeat-y;
}
#header {
position: absolute;
top: 0;
left: 243px;
width: 535px;
height: 279px;
/* background: url(../images/header_2.jpg) no-repeat; */
background: url(../images/aero-small.png) no-repeat;
}
#header-people {
position: absolute;
top: 0;
left: 243px;
width: 535px;
height: 279px;
background: url(../images/header_22.jpg) no-repeat;
}
#left {
float: left;
width: 243px;
}
#logo {
width: 244px;
height: 152px;
background: url(../images/header_1.jpg) no-repeat;
text-align: center;
color: #595959;
}
#logo h1 {
padding-top: 30px;
font: 24px "arial narrow", arial, sans-serif;
}
#logo p {
margin: 8px 25px 4px 25px;
border-top: 1px solid #B8B8B8;
border-bottom: 1px solid #B8B8B8;
padding: 3px;
letter-spacing: 0.2em;
font-weight: bold;
}
#nav {
background: url(../images/nav_left.jpg) no-repeat;
}
#nav ul {
margin-left: 9px;
padding-left: 1px;
padding-bottom: 29px;
background: #2A2A2A bottom left url(../images/nav_bot.jpg) no-repeat;
}
#nav li {
list-style: none;
font: 14px "arial narrow", arial, sans-serif;
border-top: 1px solid #959595;
background: 188px 10px url(../images/arr_white.gif) no-repeat;
padding: 7px 0 0 31px;
}
#nav a {
color: #fff;
text-decoration: none;
border-left: 1px solid #959595;
padding-left: 10px;
display: block;
width: 90%;
padding: 2px 0 6px 8px;
}
#nav a:hover {
text-decoration: underline;
}
#nav .importantt a {
color: #E9C379;
}
#nav .important {
border: none;
background: 188px 10px url(../images/arr_orange.gif) no-repeat;
}
#nav .important a {
color: #E9C379;
}
.news {
background: url(../images/news_bg.jpg) repeat-y;
padding-left: 37px;
padding-right: 22px;
padding-bottom: 3px;
text-align: justify;
}
.news h2 {
font-size: 12px;
color: #BE8B06;
}
.news h3, #news p {