mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

Some additional fixes for documentation

Browse source
This commit is contained in:
David Botton 2021-12-26 11:45:34 -05:00
parent 51ef8f0900
commit 63586cfb0f
3 changed files with 22 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
doc/clog-manual.html
View file

@ -6513,19 +6513,25 @@ clog-user:<em>body</em> to last window openned to /repl.</p></li>
<p><a id='x-28CLOG-3ALOAD-WORLD-20FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ALOAD-WORLD-20FUNCTION-29'></a></p>
<ul> <ul>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALOAD-WORLD-20FUNCTION-29" >LOAD-WORLD</a></span></span> <span class="locative-args"></span></span></li> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALOAD-WORLD-20FUNCTION-29" >LOAD-WORLD</a></span></span> <span class="locative-args"></span></span></p>
<p>Load source files for creating documentation</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29'></a></p>
<ul> <ul>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29" >MAKE-MARK-DOWN</a></span></span> <span class="locative-args"></span></span></li> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29" >MAKE-MARK-DOWN</a></span></span> <span class="locative-args"></span></span></p>
<p>Create manual in Mark Down format</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3AMAKE-HTML-20FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AMAKE-HTML-20FUNCTION-29'></a></p>
<ul> <ul>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-HTML-20FUNCTION-29" >MAKE-HTML</a></span></span> <span class="locative-args"></span></span></li> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-HTML-20FUNCTION-29" >MAKE-HTML</a></span></span> <span class="locative-args"></span></span></p>
<p>Create manual in <code>HTML</code></p></li>
</ul> </ul>
<p><a id='x-28CLOG-3AMAKE-WORLD-20FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AMAKE-WORLD-20FUNCTION-29'></a></p>

16
source/clog-docs.lisp
View file

@ -16,20 +16,26 @@
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
(defun load-world () (defun load-world ()
"Load source files for creating documentation"
(load "source/clog.lisp") (load "source/clog.lisp")
(load "source/clog-docs.lisp") (load "source/clog-utilities.lisp")
(load "source/clog-base.lisp") (load "source/clog-base.lisp")
(load "source/clog-element.lisp") (load "source/clog-element.lisp")
(load "source/clog-element-common.lisp") (load "source/clog-element-common.lisp")
(load "source/clog-style.lisp")
(load "source/clog-canvas.lisp") (load "source/clog-canvas.lisp")
(load "source/clog-form.lisp") (load "source/clog-form.lisp")
(load "source/clog-multimedia.lisp")
(load "source/clog-window.lisp") (load "source/clog-window.lisp")
(load "source/clog-navigator.lisp")
(load "source/clog-document.lisp") (load "source/clog-document.lisp")
(load "source/clog-location.lisp") (load "source/clog-location.lisp")
(load "source/clog-system.lisp") (load "source/clog-navigator.lisp")
(load "source/clog-utilities.lisp")
(load "source/clog-body.lisp") (load "source/clog-body.lisp")
(load "source/clog-system.lisp")
(load "source/clog-panel.lisp")
(load "source/clog-gui.lisp")
(load "source/clog-web.lisp")
(load "source/clog-docs.lisp")
(load "source/clog-helpers.lisp")) (load "source/clog-helpers.lisp"))
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
@ -37,6 +43,7 @@
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(defun make-mark-down () (defun make-mark-down ()
"Create manual in Mark Down format"
(load-world) (load-world)
(describe clog:@CLOG-MANUAL)) (describe clog:@CLOG-MANUAL))
@ -45,6 +52,7 @@
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
(defun make-html () (defun make-html ()
"Create manual in HTML"
(load-world) (load-world)
(mgl-pax:update-asdf-system-html-docs clog:@CLOG-MANUAL :clog)) (mgl-pax:update-asdf-system-html-docs clog:@CLOG-MANUAL :clog))

1
source/clog-gui.lisp
View file

@ -1257,6 +1257,7 @@ is placed in DOM at top of html body instead of bottom of html body."
(set-on-click (set-on-click
(attach-as-child obj (format nil "~A-close" html-id)) (attach-as-child obj (format nil "~A-close" html-id))
(lambda (obj) (lambda (obj)
(declare (ignore obj))
(destroy win))) (destroy win)))
(when time-out (when time-out
(sleep time-out) (sleep time-out)