;; Testing.
;; Emacs-Time-stamp: "2007-06-25 16:42:41"
(setq file-stamp "Emacs-File-stamp: \"/home/ysverdlov/leninist.biz/lb-test.el\"")
;; The real deal:
;;; #4:  (progn (lb-tx-make-or-refresh-indextx "en/1973/WICIR313/") (lb-ht "1973"))
(progn (setq arg1yr "1973")
       (lb-tx-make-or-refresh-indextx "en/1973/WICIR313/")
       (setq lbg-text-indextx
	     (concat "~/leninist.biz/en/" arg1yr "/WICIR313/index.txt"))
       (lb-ht-tenderize-tx lbg-text-indextx))
(progn
  (lb-ht-generate-indexhtml-as-template)
  ;; (lb-ht-generate-book)
  (setq lbg-i-from1 3)
  (setq lbg-i-from1 1)
  (setq lbg-i-from1 2)
  (setq lbg-i-from1 4)
  (setq lbg-i-from1 5)
  (lb-ht-common-__ "lb-i-from1")
  ;;(lb-ht-insert-tx-into-html)
  (with-temp-buffer
    ;; Insert template.
    ;; index.html is template until it is changed to Contents.
    (_-ifcl lbg-html-index)
    (goto-char (point-min))
    (search-forward-string "%%data%%")
    (_-para-delete)
    ;; Insert raw text after some minor transformations.
    (insert
     (if t ;; lb-ht-tx-transform-target-html
	 (lb-ht-tx-transform-target-html)
       (with-temp-buffer
	 (if t ;; lb-ht-generate-wholesome-text
	     (insert
	      (lb-ht-generate-wholesome-text lbg-text-indextx))
	   (setq lbg-next-section nil)
	   ;;(insert
	   (insert (lb-ht-toc-get-section))
	   ;; TEST.
	   (if nil ;; lb-ht-footnotes-balancer-next-page-next-section
	       (lb-ht-footnotes-balancer-next-page-next-section)
	     )
	   ;; TEST.
	   (if nil ;; lb-ht-footnotes-balancer-anchor-mismatch
	       (lb-ht-footnotes-balancer-anchor-mismatch)
	     )
	   (error "%s" "See *Messages*")
	   (buffer-string))
	 )
       )
     )
    ;;
    (_-compress-multiple-newlines)
    (write-region (point-min) (point-max)
		  (setq lb-rc lbg-pf-output-html)))
  )
(with-temp-buffer
  (insert-file-contents-literally lbg-pf-output-html)
  ;; TEST!
  (lb-ht-footnotes-anchor-and-move)
  (error "%s" "See *Messages*")
  )
;; (lb-ht-generate-toc)
(provide 'lb-test)
;;;
					;