Mercurial > hg > Aquinas

comparison summa/bilingual/merge.el @ 18:28d43bc93d8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new defn
author ht
date Sun, 08 Mar 2009 13:44:03 +0000
parents 1a67da87d11f
children b1666e6cfbd1
comparison
equal deleted inserted replaced
17:2bff41f49349 18:28d43bc93d8f
1 ;;; Two buffers, raw latin on top, output of prep.xsl on english on the bottom 1 ;;; Two buffers, raw latin on top, output of prep.xsl on english on the bottom
2 ;;; Put cursor at beginning of latin para, end of english 2 ;;; Put cursor at beginning of latin para, end of english
3 (defalias 'merge-paras (read-kbd-macro
4 "C-SPC M-C-f C-x C-x M-w C-x o 4*<C-b> 4*<C-f> 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>"))
5
3 (defalias 6 (defalias
4 'merge-paras 7 'old-merge-paras
5 (read-kbd-macro 8 (read-kbd-macro
6 "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") 9 "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")
7 ) 10 )
8 11
12
13
9 ;;; Position after the first para of a multi-para intro in the English corresponding to a 14 ;;; Position after the first para of a multi-para intro in the English corresponding to a
10 ;;; single para in the Latin 15 ;;; single para in the Latin: overtaken by fixup.xsl
11 (defalias 'fix-prooemium (read-kbd-macro 16 (defalias 'fix-prooemium (read-kbd-macro
12 "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")) 17 "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"))
13 18
14 ;;; Add Q. numbers 19 ;;; Add Q. numbers
15 (defalias 'number-titles (read-kbd-macro 20 (defalias 'number-titles (read-kbd-macro