;; This is the README for the htmlized versions of
;; the "intros" for eev2, that are at:
;;   http://angg.twu.net/eev-intros/
;;           (find-angg "eev-intros/")
;; The htmlized versions are produced from the defuns in:
;;   http://angg.twu.net/eev-current/eev-intro.el.html
;;                        (find-eev "eev-intro.el")
;; by the Lisp code below, plus some other heavy tricks.

;; The newest upstream version of this README is stored at:
;;   http://angg.twu.net/eev-intros/README.html
;;           (find-angg "eev-intros/README")

;; YOU ARE NOT EXPECTED TO UNDERSTAND THIS.
;; Eduardo Ochs, 2019jun22 / 2019oct15

(progn

;; The list of intros, taken from: (find-eev-intro)
;; See: (find-blogme3 "eevintros.lua" "listofintros")
(setq
 ee-intros
 (ee-split
  (mapcar
   (lambda (sexp) (symbol-name (car sexp)))
   '( 
     (find-anchors-intro)
     (find-audiovideo-intro)
     (find-bounded-intro)
     (find-brxxx-intro)
     (find-channels-intro)
     (find-code-c-d-intro)
     (find-debootstrap-intro)
     (find-defun-intro)
     (find-dot-emacs-intro)
     (find-edit-index-intro)
     (find-eejump-intro)
     (find-eepitch-intro)
     (find-eev-exercises-intro)
     (find-eev-install-intro)
     (find-eev-intro)
     (find-eev-levels-intro)
     (find-eev-quick-intro)
     (find-elisp-intro)
     (find-emacs-intro)
     (find-emacs-keys-intro)
     (find-escripts-intro)
     (find-eval-intro)
     (find-git-intro)
     (find-here-links-intro)
     (find-kl-here-intro)
     (find-kla-intro)
     (find-lean4-intro)
     (find-lexical-intro)
     (find-links-conv-intro)
     (find-links-intro)
     (find-lua-tutorial-intro)
     (find-multiwindow-intro)
     (find-org-intro)
     (find-pdf-like-intro)
     (find-prepared-intro)
     (find-psne-intro)
     (find-rcirc-intro)
     (find-refining-intro)
     (find-rstdoc-intro)
     (find-saving-links-intro)
     (find-show2-intro)
     (find-strange-functions-intro)
     (find-templates-intro)
     (find-three-main-keys-intro)
     (find-try-sly-intro)
     (find-video-links-intro)
     (find-videos-intro)
     (find-windows-beginner-intro)
     (find-wrap-intro)

     (find-show-conses-intro)
     (find-lisptree-intro)
     ))))


;; The mapcar sexp below saves each intro into a separate file.
;; To make sure that they are all being re-generated, we can
;; clean the eev-intros/ directory, with:
;;   (find-sh0 "rm -v ~/eev-intros/f*")
;; and inspect it with:
;;   (find-angg "eev-intros/")
;;
(defun ee-intro-contents (name)
  (funcall (ee-intern "%s" name))
  (prog1 (buffer-substring-no-properties (point-min) (point-max))
    (ee-kill-this-buffer)))

(defun ee-intro-save (name)
  (write-region
   (ee-intro-contents name) nil
   (ee-expand (format "~/eev-intros/%s" name)))
  name)

(load "~/eev-current/eev-intro.el")
(load "~/show-conses/show-conses.el")
(mapcar 'ee-intro-save ee-intros)
(find-wset "13o_o" ' (find-ebuffer "*Messages*"))

) ;; end of the progn


;; Whenever we modify the list of intros in
;;   (find-eev-intro)
;; we have to modify the list of `find-*-intro' sexps in the places
;; listed here:
;;;  (find-blogme3 "eevintros.lua" "add-new-intro")
;;
' (find-estring
   (mapconcat
    (lambda (name) (format "  eev-intros/%s\n" name))
    ee-intros ""))

;;            (find-angg "eev-intros/")
;;               (load "~/eev-intros/README")
;;    http://angg.twu.net/eev-intros/README.html
;; file:///home/edrx/TH/L/eev-intros/README.html

;; Local Variables:
;; coding: raw-text-unix
;; mode: emacs-lisp
;; End: