Commit 1d2facba authored by Gail Zacharias's avatar Gail Zacharias

Remove some latex-isms from doc source, add support for backend-agnostic replacements

parent 0272a167
......@@ -216,6 +216,10 @@
(write-the-object element cl-who-base)))))
(:copyright (htm "©"))
(:rightarrow (htm "→"))
(:$ (htm "$"))
(:textgreater (htm ">"))
(:textasciitilde (htm "˜"))
((:index :indexed)
(dolist (element (list-elements (the elements)))
......
......@@ -189,20 +189,21 @@
(:indexed :index)
(:verbatim "begin{verbatim}")
(:small "{\\small")
(otherwise (the :markup-tag)))))
(when (not (member (the :markup-tag) (list :verbatim :footnote :emph :indexed :index :texttt)))
(otherwise (the :markup-tag))))
(elements (list-elements (the :elements))))
(when (and elements (not (member (the :markup-tag) (list :verbatim :footnote :emph :indexed :index :texttt))))
(write-env (:newline-out)))
(when (not (eql (the markup-tag) :small)) (write-env "\\"))
(write-env (:a (string-downcase markup-tag)))
(when (not (member (the :markup-tag) '(:verbatim :small)))
(write-env "{")))
(dolist (element (list-elements (the :elements)))
(write-the-object element (base :escape-strings? (not (eql (the :markup-tag) :verbatim)))))
(if (eql (the :markup-tag) :verbatim)
(write-env (:newline-out)
"\\end{verbatim}"
)
(write-env "}" ))
(when elements (write-env "{")))
(dolist (element elements)
(write-the-object element (base :escape-strings? (not (eql (the :markup-tag) :verbatim)))))
(if (eql (the :markup-tag) :verbatim)
(write-env (:newline-out)
"\\end{verbatim}"
)
(when elements (write-env "}" ))))
(when (eql (the :markup-tag) :indexed)
(dolist (element (list-elements (the :elements)))
(write-the-object element (base)))))))))
......
......@@ -42,6 +42,5 @@
(replace-substring
(replace-substring
(replace-substring
(replace-substring
(replace-substring string "#" "\\#") "$" "\\$") "_" "\\_") "$" "$") "^" "hat-") "&" "\\&") "%" "\\%"))
(replace-substring string "#" "\\#") "$" "\\$") "_" "\\_") "^" "hat-") "&" "\\&") "%" "\\%"))
......@@ -150,7 +150,7 @@ error messages, warnings, etc.")
(:item "In Emacs, type: "
(:texttt "C-x &")
" (or select Emacs menu item "
"Buffers$\\rightarrow$*slime-repl...*"
(:emph "Buffers" (:$) (:rightarrow) (:$) "*slime-repl...*")
") to visit the ``*slime-repl ...*'' buffer. The full name
of this buffer depends on the specific CL/GDL platform which you are
running. This buffer contains an interactive prompt, labeled "
......@@ -181,7 +181,7 @@ the other, or move the mouse cursor and click in each window. Notice
how the blinking insertion point moves from one window to the other.")
(:item "In the top (or left) window, type C-x C-f (or select Emacs menu item
``File$\\rightarrow$Open File'') to get the ``Find file'' prompt in the
``File" (:$) (:rightarrow) (:$) "Open File'') to get the ``Find file'' prompt in the
mini-buffer.")
(:item "Type C-a to move the point to the beginning of the mini-buffer line.")
......@@ -189,7 +189,7 @@ mini-buffer.")
(:item "Type C-k to delete from the point to the end of the mini-buffer.")
(:item "Type "
(:texttt "\\textasciitilde/hello.gdl")
(:texttt (:textasciitilde) "/hello.gdl")
" and press [Enter]")
(:item "You are now editing a (presumably new) file of GDL
......@@ -219,26 +219,26 @@ You can auto-indent each new line by pressing [TAB] after pressing [Enter] for t
(:item "type " (:texttt "C-x C-s") " (or choose Emacs menu item "
(:emph "File$\\rightarrow$Save")
(:emph "File" (:$) (:rightarrow) (:$) "Save")
") to save the contents of the buffer (i.e. the window)
to the file in your HOME directory.")
(:item "type " (:texttt "C-c C-k") " (or choose Emacs menu item "
(:emph "SLIME$\\rightarrow$Compilation$\\rightarrow$Compile/Load File")
(:emph "SLIME" (:$) (:rightarrow) (:$) "Compilation" (:$) (:rightarrow) (:$) "Compile/Load File")
") to compile & load the code from this file.")
(:item "type " (:texttt "C-c o") " (or move and click the mouse) to switch to the bottom window.")
(:item "In the bottom window, type " (:texttt "C-x &") " (or choose Emacs menu item "
(:emph "Buffers$\\rightarrow$*slime-repl...*")
(:emph "Buffers" (:$) (:rightarrow) (:$) "*slime-repl...*")
") to get the "
(:texttt "*slime-repl ...*") " buffer, which should contain a "
(:texttt "gdl-user>")
" prompt. This is where you normally type interactive GDL commands.")
(:item "If necessary, type "
(:texttt "M \\textgreater")
" (that is, hold down Meta (Alt), Shift, and the ``\\textgreater'' key) to
(:texttt "M " (:textgreater))
" (that is, hold down Meta (Alt), Shift, and the ``" (:textgreater) "'' key) to
move the insertion point to the end of this buffer.")
(:item "At the "
......
......@@ -37,7 +37,7 @@ in a Spreadsheet to establish the value of a particular "
a spreadsheet, these values are only computed on an as-needed
basis (i.e. ``on-demand''). You can also evaluate S-expressions at the
toplevel "
(:texttt "gdl-user\\textgreater")
(:texttt "gdl-user" (:textgreater))
" prompt, and see the result immediately. In fact, this toplevel prompt is called a "
(:emph "read-eval-print")
" loop, because its purpose is to "
......@@ -229,7 +229,7 @@ evaluate to themselves when included in an expression.")
", then enough arguments to match the "
(:emph "format directives")
" in the format-string. Format directives begin with the
tilde character (\\~). The format-directive "
tilde character (" (:texttt "~") "). The format-directive "
(:texttt "~a")
" indicates that the printed representation of the corresonding argument should simpy be
substituted into the format-string at the point where it occurs.")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment