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

Move docs to its own asdf subsystem.

Browse source
This commit is contained in:
David Botton 2021-12-26 10:58:47 -05:00
parent 9997a18e30
commit 51ef8f0900
6 changed files with 144 additions and 140 deletions
Download patch file Download diff file Expand all files Collapse all files

47
source/clog-helpers.lisp
View file

@ -6,7 +6,7 @@
;;;; clog-helpers.lisp ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Various helpers for learning CLOG
;;; Various helpers for CLOG
(cl:in-package :clog)
@ -112,48 +112,3 @@ clog-user:*body* to last window openned to /repl."
:if-does-not-exist if-does-not-exist
:external-format external-format)
t))
;;;;;;;;;;;;;;;;
;; load-world ;;
;;;;;;;;;;;;;;;;
(defun load-world ()
(load "source/clog.lisp")
(load "source/clog-docs.lisp")
(load "source/clog-base.lisp")
(load "source/clog-element.lisp")
(load "source/clog-element-common.lisp")
(load "source/clog-canvas.lisp")
(load "source/clog-form.lisp")
(load "source/clog-window.lisp")
(load "source/clog-navigator.lisp")
(load "source/clog-document.lisp")
(load "source/clog-location.lisp")
(load "source/clog-system.lisp")
(load "source/clog-utilities.lisp")
(load "source/clog-body.lisp")
(load "source/clog-helpers.lisp"))
;;;;;;;;;;;;;;;;;;;;
;; make-mark-down ;;
;;;;;;;;;;;;;;;;;;;;
(defun make-mark-down ()
(load-world)
(describe clog:@CLOG-MANUAL))
;;;;;;;;;;;;;;;
;; make-html ;;
;;;;;;;;;;;;;;;
(defun make-html ()
(load-world)
(mgl-pax:update-asdf-system-html-docs clog:@CLOG-MANUAL :clog))
;;;;;;;;;;;;;;;;
;; make-world ;;
;;;;;;;;;;;;;;;;
(defun make-world ()
(make-html)
(asdf:compile-system :clog))