Commit f2f46a1f authored by Dave Cooper's avatar Dave Cooper

updated and rebuilt manual

parent 1f9a6748
......@@ -147,15 +147,19 @@
(the :section-descriptor)
(the :title)))
(label (string-append
(ecase (the :section-style)
(:document "doc")
((:chapter :chapter*) "chap")
((:section :section*) "sec")
((:subsection :subsection*) "subsec")
((:subsubsection :subsubsection*) "subsubsec"))
":"
(or (getf (the :attributes) :label) (title-to-label (the :title)))))
(label (glisp:replace-regexp
(glisp:replace-regexp
(string-append
(ecase (the :section-style)
(:document "doc")
((:chapter :chapter*) "chap")
((:section :section*) "sec")
((:subsection :subsection*) "subsec")
((:subsubsection :subsubsection*) "subsubsec"))
":"
(or (getf (the :attributes) :label) (title-to-label (the :title))))
".%.%" "")
".$.$" ""))
(section-descriptor (case (the :level)
(0 "Doc")
......@@ -281,16 +285,20 @@
(object (getf (rest (first (the :data))) :object))))
(defun title-to-label (title)
(replace-substring
(replace-substring
(glisp:replace-regexp
(glisp:replace-regexp
(replace-substring
(replace-substring
(replace-substring
(replace-substring
(string-downcase title)
" " "")
"{" "")
"}" "")
"'" "")
"`" "")
"\\texttt" ""))
(replace-substring
(replace-substring
(replace-substring
(string-downcase title)
" " "")
"{" "")
"}" "")
"'" "")
"`" "")
"\\texttt" "")
".%.%" "")
".$.$" ""))
......@@ -304,7 +304,9 @@
(read-from-string (the object))))))
out))
(load (compile-file drawing-file)))
(when (probe-file image-file) (delete-file image-file))
(uiop:copy-file (merge-pathnames "example.pdf" (glisp:temporary-folder))
image-file)
......
......@@ -268,12 +268,23 @@ additional-header-js (with-cl-who-string ()
(remove nil
`(:item
(:index ,(format nil "~a" (the-object documentation symbol)))
(:label ,(format nil "prim:~(~a~)" (the-object documentation symbol)))
(:textbf ,(format nil "~a~a"
(the-object documentation symbol)
(if (the-object documentation :macro?)
" [Macro]" "")))
,@(the-object documentation dom-body))))
(:label ,(let ((label
(glisp:replace-regexp
(glisp:replace-regexp
(glisp:replace-regexp
(glisp:replace-regexp
(format nil "prim:~(~a~)" (the-object documentation symbol))
".%.%" "")
".$.$" "")
"\\$\\$" "dollardollar")
"%%" "percentpercent")))
label))
(:textbf ,(format nil "~a~a"
(the-object documentation symbol)
(if (the-object documentation :macro?)
" [Macro]" "")))
,@(the-object documentation dom-body))))
documentations))))))
......
This source diff could not be displayed because it is too large. You can view the blob instead.
This source diff could not be displayed because it is too large. You can view the blob instead.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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