Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
* infrastructure for contrib/ documentation in the main manual: contrib;**;*.texinfo get automagically included in the chapter "Contributed Modules" ... rename docstrings.sh to make-tempfiles.sh, since it makes more than docstrings now ... test it all by converting sb-aclrepl/README to texinfo format.
- Loading branch information
Showing
8 changed files
with
129 additions
and
15 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,46 @@ | ||
@node sb-aclrepl | ||
@section sb-aclrepl | ||
|
||
The @code{sb-aclrepl} module offers an AllegroCL style Read-Eval-Print | ||
Loop for SBCL. An AllegroCL style inspector is integrated. Adding an | ||
AllegroCL style debugger is planned. | ||
|
||
@menu | ||
* Usage:: | ||
@end menu | ||
|
||
@node Usage | ||
@subsection Usage | ||
|
||
To start @code{sb-aclrepl} as your read-eval-print loop, put the form | ||
@lisp | ||
(require 'sb-aclrepl) | ||
@end lisp | ||
|
||
in your @file{~/.sbclrc} initialization file. | ||
|
||
Here's a longer example of a @file{~/.sbclrc} file that shows off | ||
some of the features of @code{sb-aclrepl}: | ||
|
||
@lisp | ||
(ignore-errors (require 'sb-aclrepl)) | ||
(when (find-package 'sb-aclrepl) | ||
(push :aclrepl cl:*features*)) | ||
#+aclrepl | ||
(progn | ||
(setq sb-aclrepl:*max-history* 100) | ||
(setf (sb-aclrepl:alias "asdc") | ||
#'(lambda (sys) (asdf:operate 'asdf:compile-op sys))) | ||
(sb-aclrepl:alias "l" (sys) (asdf:operate 'asdf:load-op sys)) | ||
(sb-aclrepl:alias "t" (sys) (asdf:operate 'asdf:test-op sys)) | ||
;; The 1 below means that two characaters ("up") are required | ||
(sb-aclrepl:alias ("up" 1 "Use package") (package) (use-package package)) | ||
;; The 0 below means only the first letter ("r") is required, | ||
;; such as ":r base64" | ||
(sb-aclrepl:alias ("require" 0 "Require module") (sys) (require sys)) | ||
(setq cl:*features* (delete :aclrepl cl:*features*))) | ||
@end lisp | ||
|
||
Questions, comments, or bug reports should be sent to Kevin Rosenberg | ||
(@email{kevin@@rosenberg.net}). |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,5 @@ | ||
@node Contributed Modules | ||
@comment node-name, next, previous, up | ||
@chapter Contributed Modules | ||
|
||
@include contrib-doc-list.texi-temp |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,42 @@ | ||
;;;; -*- lisp -*- | ||
|
||
;;;; "Lisp as scripting language -- discuss" | ||
|
||
;;;; Generate contrib-docs.texi-temp from any texinfo files found in | ||
;;;; the contrib/ sub-tree. | ||
|
||
(defun nodename (texi-file) | ||
(with-open-file (f texi-file) | ||
(loop for line = (read-line f) | ||
while line | ||
do (let ((index (search "@node" line))) | ||
(when index | ||
(return-from nodename | ||
(subseq line (+ index 1 (length "@node")))))))) | ||
(error "No `@node' line found in file ~A" texi-file)) | ||
|
||
(let ((texi-files (directory "../../contrib/**/*.texinfo"))) | ||
(with-open-file (out "contrib-doc-list.texi-temp" :direction :output | ||
:if-does-not-exist :create :if-exists :supersede) | ||
(write-string "@c -*- texinfo -*- | ||
@c Include documentation for contrib modules. | ||
@c This is a generated file - do not edit! | ||
" out) | ||
(write-line "@menu" out) | ||
(dolist (texi-file texi-files) | ||
(let ((nodename (nodename texi-file))) | ||
(format out "* ~A::~%" nodename))) | ||
(write-line "@end menu" out) | ||
(terpri out) | ||
(dolist (texi-file texi-files) | ||
(format out "@include ~A~%" | ||
(namestring (make-pathname | ||
:directory (list* :relative :up :up | ||
(last | ||
(pathname-directory texi-file) 2)) | ||
:name (pathname-name texi-file) | ||
:type (pathname-type texi-file))))))) | ||
|
||
(sb-ext:quit) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters