diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-12 10:04:04 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-12 10:04:04 +0200 |
commit | 475307bc9926898e769c7ad6fa3a844853b07f52 (patch) | |
tree | aa7610aaf3e7768ff8410d080364e0baeb42cd1a /module/scripts | |
parent | Fix bug causing for's continue to not work. (diff) | |
download | calp-475307bc9926898e769c7ad6fa3a844853b07f52.tar.gz calp-475307bc9926898e769c7ad6fa3a844853b07f52.tar.xz |
Add a bunch of documentation.
Diffstat (limited to '')
-rw-r--r-- | module/scripts/find-undocumented.scm | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/module/scripts/find-undocumented.scm b/module/scripts/find-undocumented.scm index 499f18d6..5aebcb25 100644 --- a/module/scripts/find-undocumented.scm +++ b/module/scripts/find-undocumented.scm @@ -7,6 +7,7 @@ :use-module (ice-9 regex) :use-module (ice-9 rdelim) :use-module (rnrs records syntactic) + :use-module (glob) :export (main) ) @@ -103,8 +104,20 @@ (define source-directory "module") (define doc-dir "doc/ref") (define skip-files - '("module/graphvis.scm" - "module/glob.scm")) + (append + '( + ;; Ignored since we arent't the implementor. + ;; It could however be nice to document it + "module/graphviz.scm" + ) + ;; Each entry-point should only export a main procedure, + ;; and is documented elsewhere + (glob "module/calp/entry-points/*.scm") + ;; These are scripts for `guild`. + ;; Each file exports a few pre-defined symbols, + ;; and are documented in other ways. + (glob "module/scripts/*.scm") + )) (define documented-symbols (concatenate @@ -130,6 +143,12 @@ (concatenate (for path in (all-modules-under-directory source-directory) (when (member path skip-files) + (continue '())) + + (define components* + (drop (path-split path) + (length (path-split source-directory)))) + (define name (map string->symbol (append (drop-right components* 1) |