;; Leninist.Biz!
;; Emacs-Time-stamp: "2007-09-26 20:04:37"
(setq file-stamp "Emacs-File-stamp: \"/home/ysverdlov/leninist.biz/lb-registers.el\"")
;;; -------------------------------------------------------
(when (string= lb-lang lbg-lang-espanol)
  (set-register ?a "__SERIES__    ABC de Conocimientos Socio-Pol\'iticos\n")
  (set-register ?t "Traducido del ruso por ")
  )
;;; -------------------------------------------------------
(when (string= lb-lang lbg-lang-english)
  (set-register ?2 "\n__ALPHA_LVL2__\n[introduction.]\n")
  (set-register ?3 "\n__ALPHA_LVL3__\n[introduction.]\n")
  (set-register ?4 "\n__ALPHA_LVL4__\n[introduction.]\n")
  ;; FROM: lb.el
  (set-register ?\[ "<em>")
  (set-register ?\] "</em>")
  (set-register ?{ "<em></em>")
  ;; (set-register ?b '(file-query lb-pf-en-dblist 1))
  ;; (set-register ?d '(file-query "~/leninist.biz/en/.dirlist" 1))
  ;; (set-register ?i '(file-query "~/leninist.biz/en/.indexlist" 1))
  (set-register ?p "</p>\n\n<p>\n")
  ;; SEE: tx-editing-change-p-to-*
  (set-register ?P "<p>\n<b>Z</b> \r\n<b>Z</b> \r\n</p>\n")
  (set-register ?t '(file-query "~/leninist.biz/to-do" 1))
  (set-register ?z "()")
  ;; FROM: abbyycln.el
  (set-register ?* "__*_*_*__")
  (set-register ?- " class=\"smaller\"")
  (set-register ?= " =\n\n<br /> ~ ") ;; inter-para spacing @ end of upper para.
  (set-register ?. " . . . . . . . . . . ")
  (set-register ?: "::WRITTEN::\n\n::FIRST_PUBLISHED::\n\n::PRINTED_FROM::\n\n")
  (set-register ?\[ "<em>")
  (set-register ?\] "</em>")
  (set-register ?b "<br /> ") ;; <!-- e.g., page 359, volume 8 -->
  (set-register ?c " class=\"fst\"")
  (set-register ?c " class=\"hanging_indent\"")
  (set-register ?d " class=\"placedate\"")
  (set-register ?e "<!-- error: x -->")
  (set-register ?f  lb-str-footnote-cont-from)
;;;  (set-register ?f "<span class=\"fineprint\"></span>")
;;;  (set-register ?f " class=\"footnote-as-sidebar\"")
;;;  (set-register ?f " class=\"fst\"")
  (set-register ?h "			  <hr class=\"section\" />\n")
  (set-register ?i "\n<p>~^^1^^ Ibid, p. b. 
\n</p>\n")
  (set-register ?g " class=\"signature\"")
  (set-register ?i " class=\"inline\"")
  (set-register ?l "<p class=\"sig\"><em>Lenin</em></p>\n\n")
  (set-register ?l (concat "__SOURCE__ LAPL (Los Angeles Public Library): CN "
			   "\n  Checked-out: "))
  (set-register ?m "Published according to the manuscript __PUBLISHED_ACCORDING_TO__")
  (set-register ?n "&nbsp;")
  (set-register ?p "</p>\n\n<p>\n")
  (set-register ?q " class=\"quote\"")
  (set-register ?| "<br /> | <br />")
  (set-register ?r "::ALIGN:: RIGHT\n\n")
  (set-register ?s "DO NOT USE s BECAUSE OF C-x r s s ... COPY TO REGISTER s")
  (set-register ?r "<br /> | <br />") ;; v39 marginalia.
  (set-register ?~ " ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ __TITLE_SEPARATOR_COMMENT__\n\n__TITLE__\n")
  (set-register ?~ " ~ ~ ~ ~ ~ ")
  ;; (set-register ?y "ysverdlov library.")
  ;; (set-register ?y "Leninist.Biz library.")
  (set-register ?L "Leninist.Biz library.")
  (set-register ?c "
<p>~^^1^^ Lenin, =
<em>Collected Works</em>, Vol. a, p. b. 
</p>
")
  (set-register ?I "\n__ALPHA_LVL2__
<b>I</b> 
")
  (set-register ?1 "\n__NUMERIC_LVL2__
<b>1</b> 
")
  (set-register ?i "<span class=\"sic\"></span>")
  (set-register ?! " class=\"sic\"")
  (set-register ?r "Ralph Dumain bibliography.")
  ;; Two newlines up front: point maybe after page number.
  (set-register ?} "\n\n__ALPHA_LVL0__\nThe End.\n\n[END]\n\n")
  )
;;; -------------------------------------------------------
(when
    nil
  (progn
    (insert "a---------------------\n") (insert-register ?a)
    (insert "b---------------------\n") (insert-register ?b)
    (insert "c---------------------\n") (insert-register ?c)
    (insert "d---------------------\n") (insert-register ?d)
    (insert "e---------------------\n") (insert-register ?e)
    (insert "f---------------------\n") (insert-register ?f)
    (insert "g---------------------\n") (insert-register ?g)
    (insert "h---------------------\n") (insert-register ?h)
    (insert "i---------------------\n") (insert-register ?i)
    (insert "j---------------------\n") (insert-register ?j)
    (insert "k---------------------\n") (insert-register ?k)
    (insert "l---------------------\n") (insert-register ?l)
    (insert "m---------------------\n") (insert-register ?m)
    (insert "n---------------------\n") (insert-register ?n)
    (insert "o---------------------\n") (insert-register ?o)
    (insert "p---------------------\n") (insert-register ?p)
    (insert "q---------------------\n") (insert-register ?q)
    (insert "r---------------------\n") (insert-register ?r)
    (insert "s---------------------\n") (insert-register ?s)
    (insert "t---------------------\n") (insert-register ?t)
    (insert "u---------------------\n") (insert-register ?u)
    (insert "v---------------------\n") (insert-register ?v)
    (insert "w---------------------\n") (insert-register ?w)
    (insert "x---------------------\n") (insert-register ?x)
    (insert "y---------------------\n") (insert-register ?y)
    (insert "z---------------------\n") (insert-register ?z)
    (insert ",---------------------\n") (insert-register ?,)
    (insert ".---------------------\n") (insert-register ?.)
    (insert "/---------------------\n") (insert-register ?/)
    )
  )
(set-register ?\( 
	      (concat "\n\n;; \n(defun lb- nil\n"
		      "  \"\"\n" "  ;; \n"
		      "  (let (\n	_rc)\n"
		      "    (save-excursion\n"
		      "      (save-match-data\n\n	)) _rc))\n\n"))
(provide 'lb-registers)
;;;
;