From 1f8666812332cabb416672dc1ec3f1c4f5b919c9 Mon Sep 17 00:00:00 2001
From: Miguel de Benito <nonick@8027.org>
Date: Fri, 24 Aug 2012 12:39:05 +0000
Subject: [PATCH] Doc fix

---
 api/index.en.tm       |  27 ++++++++
 api/progs/index.en.tm | 158 ------------------------------------------
 2 files changed, 27 insertions(+), 158 deletions(-)
 create mode 100644 api/index.en.tm
 delete mode 100644 api/progs/index.en.tm

diff --git a/api/index.en.tm b/api/index.en.tm
new file mode 100644
index 0000000..70413f2
--- /dev/null
+++ b/api/index.en.tm
@@ -0,0 +1,27 @@
+<TeXmacs|1.0.7.16>
+
+<style|tmdoc>
+
+<\body>
+  <tmdoc-title|API documentation>
+
+  The <scheme> API of <TeXmacs> is built from two different sources. On the
+  one hand, the module system and on the other the <c++> functions exported
+  using the glue. You can read more on this topic in ``<hlink|General
+  architecture of the <scheme> API|../devel/scheme/overview/overview-architecture.en.tm>''.
+
+  <subsection|The module system>
+
+  <TeXmacs> modules are currently classified in the following families:
+
+  <subsection|The glue>
+
+  <tmdoc-copyright||>
+
+  <tmdoc-license|Permission is granted to copy, distribute and/or modify
+  this\ndocument under the terms of the GNU Free Documentation License,
+  Version 1.1 or\nany later version published by the Free Software
+  Foundation; with no Invariant\nSections, with no Front-Cover Texts, and
+  with no Back-Cover Texts. A copy of\nthe license is included in the section
+  entitled "GNU Free Documentation License".>
+</body>
\ No newline at end of file
diff --git a/api/progs/index.en.tm b/api/progs/index.en.tm
deleted file mode 100644
index 50f5e8c..0000000
--- a/api/progs/index.en.tm
+++ /dev/null
@@ -1,158 +0,0 @@
-<TeXmacs|1.0.7.15>
-
-<style|tmdoc>
-
-<\body>
-  <tmdoc-title|API documentation>
-
-  The <scheme> API of <TeXmacs> is built from two different sources. On the
-  one hand, the module system and on the other the <c++> functions exported
-  using the glue. You can read more on this topic in ``<hlink|General
-  architecture of the <scheme> API|../devel/scheme/overview/overview-architecture.en.tm>''.
-
-  <subsection|The module system>
-
-  <TeXmacs> modules are currently classified in the following families:
-
-  <traverse-modules-doc>
-
-  <\traverse>
-    <branch|somemodule|someplace>
-
-    Some text here
-
-    <branch|someothermodule|someotherplace>
-
-    More text here
-  </traverse>
-
-  <\session|scheme|default>
-    <\input|Scheme] >
-      (define ts (select (buffer-tree) '(traverse :*)))
-    </input>
-
-    <\unfolded-io|Scheme] >
-      (tree-\<gtr\>stree (car ts))
-    <|unfolded-io>
-      (traverse (document (branch "somemodule" "someplace") "Some text here"
-      (branch "someothermodule" "someotherplace") "More text here"))
-    </unfolded-io>
-
-    <\input|Scheme] >
-      \;
-    </input>
-
-    <\input|Scheme] >
-      (define (list-modules)
-
-      \ \ (list-uniq\ 
-
-      \ \ \ (apply append (map cdr (ahash-table-\<gtr\>list
-      tm-defined-module)))))
-    </input>
-
-    <\input|Scheme] >
-      (define (list-submodules root)
-
-      \ \ (if (symbol? root)\ 
-
-      \ \ \ \ \ \ (list-filter (list-modules) (lambda (x) (== (car x)
-      root)))))
-
-      \ \ \ 
-
-      \ \ \ \ \ \ ; TODO: filter submodules
-
-      ;(list-filter ;WRONG!(list-submodules (cdr root))
-
-      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;(lambda (x) (==
-      (cr x) root))))))
-    </input>
-
-    <\input|Scheme] >
-      \;
-    </input>
-
-    <\unfolded-io|Scheme] >
-      (list-submodules 'graphics)
-    <|unfolded-io>
-      ((graphics graphics-single) (graphics graphics-kbd) (graphics
-      graphics-menu) (graphics graphics-object) (graphics graphics-group)
-      (graphics graphics-env) (graphics graphics-main) (graphics
-      graphics-edit) (graphics graphics-drd) (graphics graphics-utils))
-    </unfolded-io>
-
-    <\input|Scheme] >
-      (define (module-\<gtr\>string module)
-
-      \ \ (if (list? module)
-
-      \ \ \ \ \ \ (string-join (map symbol-\<gtr\>string module) ".")
-
-      \ \ \ \ \ \ (symbol-\<gtr\>string module)))
-    </input>
-
-    <\input|Scheme] >
-      (define (module-doc-path module)
-
-      \ \ (string-concatenate
-
-      \ \ \ \ \ (list "api/"
-
-      \ \ \ \ \ \ \ \ \ \ \ (string-join (map symbol-\<gtr\>string module)
-      "/")
-
-      \ \ \ \ \ \ \ \ \ \ \ ".en.tm")))
-    </input>
-
-    <\input|Scheme] >
-      (define ($module-doc-link module)
-
-      \ \ "Builds a link to the documentation for @module"
-
-      \ \ (let ((pm (module-doc-path module)))
-
-      \ \ \ \ ($link (string-append (url-concretize "$TEXMACS_PATH/doc/") pm)
-
-      \ \ \ \ \ \ (module-\<gtr\>string module))))
-    </input>
-
-    <\input|Scheme] >
-      (define ($doc-module-branches root)
-
-      \ \ `(document
-
-      \ \ \ \ ,(for (m (list-submodules root))
-
-      \ \ \ \ \ \ `(branch ,(module-\<gtr\>string m) ,($module-doc-link
-      m)))))
-    </input>
-
-    <\input|Scheme] >
-      (define br ($doc-module-branches 'graphics))
-    </input>
-
-    <\unfolded-io|Scheme] >
-      br
-    <|unfolded-io>
-      (document #\<less\>unspecified\<gtr\>)
-    </unfolded-io>
-
-    <\input|Scheme] >
-      \;
-    </input>
-  </session>
-
-  <subsection|The glue>
-
-  <traverse-glue-doc>
-
-  <tmdoc-copyright||>
-
-  <tmdoc-license|Permission is granted to copy, distribute and/or modify
-  this\ndocument under the terms of the GNU Free Documentation License,
-  Version 1.1 or\nany later version published by the Free Software
-  Foundation; with no Invariant\nSections, with no Front-Cover Texts, and
-  with no Back-Cover Texts. A copy of\nthe license is included in the section
-  entitled "GNU Free Documentation License".>
-</body>
\ No newline at end of file