Commit fb33adba authored by Dave Cooper's avatar Dave Cooper

update for relaunch of genworks.com.

parent ded32e7b
......@@ -251,15 +251,18 @@
:radius 19
:inner-radius 7)
(rule-ackermann :type 'rule-ackermann
:ackermann-data (list :left (getf (the ackermann-data) :left)
:right (getf (the ackermann-data) :right))
:ackermann-data-ideal (list :left (getf (the ackermann-data) :left)
:right (getf (the ackermann-data) :ideal-right))))
:right (getf (the ackermann-data) :ideal-right)))
)
:hidden-objects
((knuckles-straight
(
(knuckles-straight
:type 'knuckle
:sequence (:size 2)
:center (the (:axles 0) (:kingpins (the-child :index)) :center)
......
......@@ -108,7 +108,10 @@
(declare (ignore header?)))
(cad-output-tree
(&key (header? nil))
(declare (ignore header?)))))
(declare (ignore header?)))
(shape (&rest args)
(declare (ignore args)))
))
......
......@@ -189,6 +189,8 @@ Default is the standard doctype for HTML5 and later."
doctype-string "<!DOCTYPE HTML>")
(use-ajax? t ) ;; of course because this is base-ajax-sheet. But we can override if needed.
("Boolean. Include jquery javascript libraries in the page header?
Default nil."
use-jquery? nil :settable)
......@@ -245,7 +247,7 @@ interface. Defaults to nil."
development-links
(with-cl-who-string () (write-the development-links))))
:objects
:hidden-objects
((standard-javascript-section
:type 'sheet-section
:js-to-eval :parse
......
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