# (find-fline "Files.tcl")

# To get the list of descriptions, run this:
# cd ~/TH/; Generate - "edescrs " | tee ~/o
# (find-fline "~/o")
#
# or, in Tcl, from make,
#   cd $env(HOME)/TH/; puts [exec ./Generate - "edescrs "]
# or
#   [cd $env(HOME)/TH/; exec ./Generate - "edescrs "]
# ops - works only at angg; from make it is better to do
#   [exec $argv0 - "edescrs "]
# that works because for complex reasons $argv0 is the location of "Generate".
#
# Correction, 2000sep10: added [info nameofexecutable] to make it run
# even at BSDs, where tclsh is usually at /usr/local/bin/ instead of
# at /usr/bin.

proc escr {stem str} {
  J [ES $stem $stem] ([MYL e/$stem.e orig]) - $str
}
proc escr' {stem str} {
  J $stem $str
}

htmlize {E-scripts index} {

  [P TO DO: indicate the date, the size and the relevant pieces in
each e-script.]

  [P To understand what an e-script is, take a look at the [L
eev-manifesto.html eev Manifesto], at [L index.html my main page], at
the [MYL tourism.html brief statement about tourism], at [AL eev.el
eev.el itself], or at the links at the header of any of the html files
below. This page is just an alphabetical index of my e-script files.]

  [P Note that below you're going to find two or three links for each
e-script: 1) one to the version in html, that has most of its Emacs
Lisp hyperlinks converted to things that should work via web\; 2) one
to the original version, from which the other two are generated (see
this [AL TH/Makefile Makefile] and its companion [A0L TH/Makefile.auto
Makefile.auto] if you're really into it), and optionally 3) a link to
a \"tamed\" version that is like the original but with some [MYL
emacs.html#glyphs strange characters] converted to more civilized
strings. Only a very few e-scripts won't work from the tamed
versions.]

  [eval {HLIST1 {}}
    [unlf [exec [info nameofexecutable] $argv0 - "edescrs "]]
  ]
}



# (find-angg "TH/Generate" "extra_functions")