|
2
|
1 ;;; Two buffers, raw latin on top, output of prep.xsl on english on the bottom
|
|
37
|
2 ;;; Both in xml mode
|
|
|
3 ;;; Put cursor at end of english/'both' div, start in latin window with cursor at
|
|
|
4 ;;; beginning of latin para
|
|
18
|
5 (defalias 'merge-paras (read-kbd-macro
|
|
23
|
6 "C-SPC M-C-f C-x C-x M-w C-x o C-r right\"/> RET M-f C-f C-d C-f C-y < /div> C-r < p SPC RET 3*<C-f> xml:lang=\"la\" SPC C-r < p RET M-C-f C-s clear: SPC both RET C-r < div RET M-C-f C-x o M-C-f C-s < p RET 2*<C-b>"))
|
|
|
7
|
|
18
|
8
|
|
2
|
9 (defalias
|
|
18
|
10 'old-merge-paras
|
|
2
|
11 (read-kbd-macro
|
|
8
|
12 "C-SPC M-C-f C-x C-x M-w M-C-f C-s < p C-a C-x o RET C-y M-C-b 2*<C-f> SPC xml:lang=W <backspace> \"la\" C-s < p C-a M-C-f C-x o")
|
|
2
|
13 )
|
|
6
|
14
|
|
18
|
15
|
|
|
16
|
|
6
|
17 ;;; Position after the first para of a multi-para intro in the English corresponding to a
|
|
18
|
18 ;;; single para in the Latin: overtaken by fixup.xsl
|
|
6
|
19 (defalias 'fix-prooemium (read-kbd-macro
|
|
8
|
20 "C-s < h4 C-a C-r < div4 C-a C-p < /div> C-p C-a C-r < /h3 C-n C-s < /p> C-f C-x C-x C-x C-x C-s < div4 C-a 2*<C-p> C-x C-x M-x narrow- to- region RET M-x replace- regexp RET < /div> C-q C-j .* C-q C-j .* C-q C-j 2*RET M-x widen RET C-x C-x C-o < div SPC xml:lang=\"en\"> C-a M-C-f"))
|
|
6
|
21
|
|
|
22 ;;; Add Q. numbers
|
|
|
23 (defalias 'number-titles (read-kbd-macro
|
|
8
|
24 "C-s < div3 RET C-s title= C-f C-SPC 2*<M-f> M-w C-s < h3 RET C-s > RET C-y . SPC M-b C-b <backspace>"))
|
|
6
|
25
|
