home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / two-column.el < prev    next >
Encoding:
Text File  |  1991-06-03  |  26.6 KB  |  664 lines
  1. ; Path: dg-rtp!dgcad!amdcad!apple!mips!zaphod.mps.ohio-state.edu!wuarchive!uunet!mcsun!corton!cix!irit!pfeiffer
  2. ; From: pfeiffer@irit.fr (Daniel Pfeiffer)
  3. ; Newsgroups: comp.emacs,gnu.emacs.sources,soc.culture.esperanto
  4. ; Subject: latest enhanced two-column editing support
  5. ; Date: 31 May 1991 11:55:55 GMT
  6. ; Organization: Instituto de Reser^cado pri Informadiko de Tuluzo (IRIT)
  7. ;           Universitato Paul Sabatier
  8. ; 
  9. ; Here is the latest version, which is more robust against major mode
  10. ; changes, and which can handle any column widths.  The two columns now
  11. ; remain aligned if you use the minor mode commands for scrolling.  I
  12. ; was repeatedly asked to do this.  At first reluctant, since I thought
  13. ; that I didn't want it to work that way, I've since became a convert.
  14. ; 
  15. ; In addition to two-column editing of text, for example for writing a
  16. ; bilingual text side-by-side as shown below in the file's prolog, other
  17. ; interesting uses have been found for this minor mode:
  18. ; 
  19. ; 
  20. ; You can separate the columns with    {+} C-x 6 u  or  <f2> u  if you prefer
  21. ; any string that pleases you, by      {+} handles these with a prefix argument
  22. ; setting two-column:separator.  For   {+} that enables you to declare the
  23. ; example "{+}  " if you like to       {+}  desired length of such a string.
  24. ; amuse yourself.
  25. ; 
  26. ; 
  27. ; keyword You can write any text corresponding to a
  28. ;       given keyword in a filled paragraph next to
  29. ;       it.  Note that the width of the first column
  30. ;       may be less than window-min-width in the
  31. ;       result, but will be displayed at that width.
  32. ; 
  33. ; another This is not a three- or multi-column mode.
  34. ;       The example in the file's prolog required
  35. ;       working on two columns and then treating the
  36. ;       result as one column in order to add the
  37. ;       third.
  38. ; 
  39. ; 
  40. ; Programmers might like the ability to split off the comment column of
  41. ; a file that looks like the following.  The advantage is that with
  42. ; (setq fill-prefix "-- ") you can run M-q (fill-paragraph) on the
  43. ; comment.  The problem is, code quickly gets rather wide, so you need
  44. ; to use a narrower comment column, which is less interesting, unless
  45. ; you have a 132-column screen.  Code lines that reach beyond
  46. ; comment-column are no problem, except that you won't always see their
  47. ; end during editing.
  48. ; 
  49. ; BEGIN                    -- This is just some meaningless
  50. ;     FOR i IN 1..10 LOOP        -- code in Ada, that runs foobar
  51. ;     foobar( i );            -- once for each argument from one
  52. ;     END LOOP;                -- to ten, and then we're already
  53. ; END;                    -- through with it.
  54. ; 
  55. ; Better yet, you can put the point before "This", type M-3 C-x 6 u
  56. ; which makes "-- " the separator between a no-comments Ada buffer, and
  57. ; a plain text comment buffer.  When you put them back together, every
  58. ; non-empty line of the 2nd column will again be preceded by "-- ".
  59. ; 
  60. ; 
  61. ; The <f2> function key hack (which is one of the rare times when
  62. ; function keys are mnemonic) at the end of the file's prolog requires
  63. ; that the lisp/term/*.el for your terminal use the standard
  64. ; conventions.  Too bad that some don't (at least not in version 18.55).
  65. ; The Sun one is hopelessly non-standard, and vt2[024]0 somehow forgot
  66. ; to define <f1> thru <f5>.  (It defines <pf1> thru <pf4> instead, but
  67. ; that is not what we need on an X terminal.)  If you want to use those,
  68. ; you'll need another hack something like:
  69. ; 
  70. ;       (if (string= (system-name) "cix")
  71. ;       (progn
  72. ;         (load-library "term/vt200.el")
  73. ;         (define-key CSI-map "12~" (cons function-keymap ?\^b)))
  74. ;     (global-unset-key "\e[")
  75. ;     (define-key esc-map "[225z" (cons function-keymap ?\^b)))
  76. ; 
  77. ; where "cix" is the non-sun machine I use.  Actually I use the same X
  78. ; terminal to connect to both machines, and I want to keep my ~/.emacs
  79. ; identical on both.  Bother, the two Emacses don't recognize the same
  80. ; keys and assign different sequences to those they do!  I sure hope all
  81. ; this nonsense will stop with version 19 (or preferably soon) where I'd
  82. ; like to be able to say (define-key some-map '<f2> some-cmd), and see
  83. ; <f2> rather than some unintelligible ESC-sequence in command key
  84. ; sequences.
  85. ; 
  86. ; Enjoy and keep me informed!
  87. ; 
  88. ; --
  89. ; -- Daniel Pfeiffer                <pfeiffer@cix.cict.fr>
  90. ; -- Tolosa (Toulouse), Midi-Pyrenees, Europe    <pfeiffer@irit.fr>
  91. ; -- "Beware - polyglot esperantist"        <pfeiffer@frcict81.bitnet>
  92. ; --
  93. ; 
  94. ; --8<---- two-column.el ----8<--------8<--------8<--------8<--------8<--------
  95. ; Esperanto:                English:
  96.  
  97. ; Minora modalo por samtempa dukolumna    Minor mode for simultaneous
  98. ; tajpado                two-column editing
  99.  
  100. ; Daniel Pfeiffer <pfeiffer@cix.cict.fr, @irit.fr>, 1991-05-14
  101. ; Copyright (C) 1991 Free Software Foundation, Inc.
  102.  
  103. ; ^Ci dataro estas ero de GNU Emacs.    This file is part of GNU Emacs.
  104.  
  105. ; GNU  Emacs  estas  disdonata   en la    GNU Emacs is distributed in the hope
  106. ; espero  ke ^gi estos utila,  sed SEN    that it will  be useful, but WITHOUT
  107. ; IA  GARANTIO.   Neniu   a^utoro  a^u    ANY    WARRANTY.     No  author   or
  108. ; disdonanto  akceptas respondecon  al    distributor   accepts responsibility
  109. ; iu ajn  por la sekvoj de ^gia uzado,    to  anyone for the   consequences of
  110. ; a^u  ^cu  ^gi serveblas al  iu celo,    using it or  for  whether it  serves
  111. ; a^u e^c  entute funkcias,  se  li ni    any particular purpose   or works at
  112. ; estas skribinta  tion.  Vidu la  GNU    all,  unless he says so  in writing.
  113. ; Emacs ^Generala Publika  Licenco por    Refer  to  the   GNU  Emacs  General
  114. ; plenaj detaloj.            Public License for full details.
  115.  
  116. ; ^Ciu rajtas  kopii,  modifi kaj  ree    Everyone  is  granted permission  to
  117. ; disdoni  GNU Emacs,  sed nur  sub la    copy,  modify and  redistribute  GNU
  118. ; condi^coj  priskribitaj  en  la  GNU    Emacs, but only under the conditions
  119. ; Emacs  ^Generala  Publika   Licenco.    described in  the  GNU Emacs General
  120. ; Kopio de  tiu licenso estas supozata    Public  License.   A copy   of  this
  121. ; donita al vi kune kun GNU Emacs, por    license  is supposed to have    been
  122. ; ke   vi  sciu   viajn  rajtojn   kaj    given to you along with GNU Emacs so
  123. ; respondecojn.   ^Gi  devus  esti  en    you   can   know   your   rights and
  124. ; dataro    nomata    COPYING.   Inter    responsibilities.  It should be in a
  125. ; alia^joj,  la notico  pri  kopirajto    file named    COPYING.   Among other
  126. ; kaj  ^ci  notico devas esti  gardata    things, the  copyright   notice  and
  127. ; sur ^ciuj kopioj.            this notice must be preserved on all
  128. ;                    copies.
  129.  
  130.  
  131. ; Tiu minora  modalo  ebligas  al   vi    This     minor mode  allows  you  to
  132. ; tajpi   sendepende  en   du   apudaj    independently    edit two   adjacent
  133. ; bufroj.  Vi  havas tri eblecojn  por    buffers.    You have three  ways  to
  134. ; eki    ^gin.   ^Ciu  donas  al    vi    start it  up.   Each  gives   you  a
  135. ; horizontale   disigatan   fenestron,    horizontally split window similar to
  136. ; simila  al  fina   apareco  de   via    the final outcome of your text:
  137. ; teksto:
  138.  
  139. ; C-x 6 2  asocias  novan  bufron  nomatan  associates a new  buffer called
  140. ;       same, sed kun 2C/ anta^u.        the   same,    but   with   2C/
  141. ;                        prepended.
  142.  
  143. ; C-x 6 b  asocias alian bufron.  Vi povas  associates    another   buffer.
  144. ;       anka^u asocii  dataron,   se vi  This can be used to associate a
  145. ;       ^jus anta^ue faris C-x C-f.        file if you just did C-x C-f.
  146.  
  147. ; C-x 6 u  disigas  jam dukolumnan tekston  unmerges a two-column text into
  148. ;       en  du   bufroj  ekde  la  nuna  two  buffers from  the  current
  149. ;       linio,  kaj je la nuna kolumno.  line and at the current column.
  150. ;       La    anta^uaj   signoj   (ofte  The preceding characters (often
  151. ;       tabeligilo  a^u  |)  estas   la  tab   or  |)  are   the  column
  152. ;       kolumna disiganto.  Linioj kiuj  separator.   Lines  that  don't
  153. ;       ne   enhavas   ilin   ne  estas  have them  won't  be separated.
  154. ;       disigitaj.   Kiel  la kvara kaj  Like the  fourth and fifth line
  155. ;       la   kvina  linio se vi disigas  if  you unmerge this  file from
  156. ;       ^ci dataron ekde la unua  angla  the first english word.
  157. ;       vorto.
  158.  
  159. ; Je ^cia  flanko  estas  bufro,   kiu    On each side is a buffer  that knows
  160. ; konas la  alian.  Kun la ordonoj C-x    about the other.  With the  commands
  161. ; 6 SPC, C-x 6 DEL  kaj  C-x 6 RET oni    C-x 6 SPC,  C-x 6 DEL  and C-x 6 RET
  162. ; povas   suben-   a^u  supreniri  unu    you can  simultaneously scroll up or
  163. ; ekranon,    kaj   subeniri   linion,    down by  a screenfull  and by a line
  164. ; samtempe en la du bufroj. Al la alia    in both buffers.   Empty lines   are
  165. ; bufro  estas   aldonataj  linioj  se    added to  the  other    buffer    if
  166. ; necesas,  por  ke  vi vidu la  saman    necessary, so that  you see the same
  167. ; parton.  Per  C-x  6  C-l vi   povas    part.   With   C-x 6  C-l    you can
  168. ; recentrigi la linion.    Kiam vi nur    recenter the line.   When  you  only
  169. ; plu  havas    unu el   la du  bufroj    have one of the two buffers onscreen
  170. ; surekrane vi  revidos la alian   per    you can get the other back  with C-x
  171. ; denove C-x 6 2.            6 2 once more.
  172.  
  173. ; Se  vi  volas  meti  longajn liniojn    If you include long lines, i.e which
  174. ; (ekz. programerojn) en la  kunigotan    will span both columns  (eg.  source
  175. ; tekston,   ili  devas  esti  en   la    code), they should  be  in what will
  176. ; estonte unua kolumno.  La alia devas    be the    first column,    with  the
  177. ; havi malplenajn linion apud ili.    associated buffer having empty lines
  178. ;                    next to them.
  179.  
  180. ; Averto: en Emacs kiam vi ^san^gas la    Attention:  in Emacs when you change
  181. ; ma^joran modalon, la minoraj modaloj    the major mode,  the minor modes are
  182. ; estas  anka^u  elmemorigitaj.   Tiu-    also  purged  from  memory.  In that
  183. ; okaze  vi devas religi la du bufrojn    case you   must  reassociate the two
  184. ; per iu  C-x 6-ordono,  ekz. C-x 6 b.    buffers with any C-x 6-command, e.g.
  185. ;                    C-x 6 b.
  186.  
  187. ; Kiam   vi   estos  kontenta   de  la    When you have edited both buffers to
  188. ; rezulto, vi kunmetos la du kolumnojn    your  content,  you merge them  with
  189. ; per  C-x 6 1.   Se  vi  poste  vidas    C-x 6 1.  If you then see a problem,
  190. ; problemon, vi  neniigu   la kunmeton    you undo the  merge with  C-x u  and
  191. ; per C-x u  kaj  plue  modifu  la  du    continue   to  edit the two buffers.
  192. ; bufrojn.  Kiam vi ne plu volas tajpi    When you  no longer  want to edit in
  193. ; dukolumne,  vi  eliru el  la  minora    two  columns, you turn off the minor
  194. ; modalo per C-x 6 k.            mode with C-x 6 k.
  195.  
  196.  
  197. ; An^stata^u tri `autoload' kaj tri  |  Instead  of  three  `autoload' and
  198. ; `global-set-key'  vi povas uzi la  |  three `global-set-key' you can use
  199. ; jenon en via dataro ~/.emacs, por  |  the    following   in  your   file
  200. ; memstare ^car^gi la modalon:         |  ~/.emacs,  to  automatically  load
  201. ;                     |  the mode:
  202.  
  203. ;    (global-set-key "\C-x6"
  204. ;            '(lambda () (interactive)
  205. ;               (load-library "two-column")
  206. ;               (call-interactively
  207. ;                (cdr (assq (read-char) two-column:mode-map)))))
  208.  
  209. ; Se vi ^satus  havi la dukolumnajn  |  If     you'd like   to  have   the
  210. ; ordonojn je funkciklavo <f2>,  vi  |  two-column  commands   on function
  211. ; povas  uzi la jenon en via dataro  |  key   <f2>,  you  can     use  the
  212. ; ~/.emacs:                 |  following in your file ~/.emacs:
  213.  
  214. ;    (define-key function-keymap "\^b"
  215. ;      '(lambda () (interactive)
  216. ;         (load-library "two-column")
  217. ;         (define-key function-keymap "\^b" two-column:mode-map)
  218. ;         (call-interactively
  219. ;          (cdr (assq (read-char) two-column:mode-map)))))
  220.  
  221. ;;;;; variable declarations ;;;;;
  222.  
  223.  
  224. (provide 'two-column)
  225.  
  226.  
  227. (defvar two-column:prefix "\C-x6"
  228.   "Prefix two-column:mode-map gets bound to.
  229. If you'd like to bind it to function key <f2>, see the prolog of the
  230. source file, lisp/two-column.el")
  231.  
  232. (defvar two-column:mode-map nil
  233.   "Keymap that contains all commands useful with two-column minor mode.
  234. This gets bound globally to `two-column:prefix' since minor modes have
  235. no local keymap.")
  236.  
  237. (if two-column:mode-map
  238.     ()
  239.   (setq two-column:mode-map (make-sparse-keymap))
  240.   (define-key two-column:mode-map "1" 'two-column:merge)
  241.   (define-key two-column:mode-map "2" 'two-column:split)
  242.   (define-key two-column:mode-map "b" 'two-column:associate-buffer)
  243.   (define-key two-column:mode-map "k" 'two-column:kill-association)
  244.   (define-key two-column:mode-map "\C-l" 'two-column:recenter)
  245.   (define-key two-column:mode-map "o" 'two-column:associated-buffer)
  246.   (define-key two-column:mode-map "u" 'two-column:unmerge)
  247.   (define-key two-column:mode-map "{" 'shrink-window-horizontally)
  248.   (define-key two-column:mode-map "}" 'enlarge-window-horizontally)
  249.   (define-key two-column:mode-map " " 'two-column:scroll-up)
  250.   (define-key two-column:mode-map "\^?" 'two-column:scroll-down)
  251.   (define-key two-column:mode-map "\C-m" 'two-column:scroll-line))
  252.  
  253. (global-set-key two-column:prefix two-column:mode-map)
  254.  
  255.  
  256. ; markers seem to be the only buffer-id not affected by renaming
  257. ; a buffer.  This nevertheless loses when a buffer is killed.
  258. (defvar two-column:other nil
  259.   "Marker to the associated buffer, if non-nil.")
  260. (make-variable-buffer-local 'two-column:other)
  261.  
  262.  
  263. (defvar two-column:buffer-list ()
  264.   "An alist of markers to associated buffers.  (Backs up `two-column:other')")
  265.  
  266.  
  267. (setq minor-mode-alist (cons '(two-column:other " 2C") minor-mode-alist))
  268.  
  269.  
  270. ; rearranged, so that the pertinent info will show in 40 columns
  271. (defvar two-column:mode-line-format
  272.     '("-%*- %15b --"  (-3 . "%p")  "--%[("  mode-name
  273.       minor-mode-alist  "%n"  mode-line-process  ")%]%-")
  274.   "*Value of mode-line-format for a buffer in two-column minor mode.")
  275.  
  276.  
  277. (defvar two-column:separator ""
  278.   "*A string inserted between the two columns when merging.
  279. This gets set locally by \\[two-column:unmerge].")
  280.  
  281.  
  282. (defvar two-column:window-width 40
  283.   "*The width of the first column.  (Must be at least `window-min-width')
  284. This value is local for every buffer that sets it.")
  285. (make-variable-buffer-local 'two-column:window-width)
  286.  
  287.  
  288. (defvar two-column:beyond-fill-column 4
  289.   "*Base for calculating `fill-column' for a buffer in two-column minor mode.
  290. The value of `fill-column' becomes `two-column:window-width' for this buffer
  291. minus this value.")
  292.  
  293.  
  294. (defvar two-column:mode-hook nil
  295.   "Function called, if non-nil, whenever turning on two-column minor mode.
  296. It can get called by \\[two-column:split] (two-column:split), \\[two-column:unmerge] (two-column:unmerge)
  297. and \\[two-column:associate-buffer] (two-column:associate-buffer), on both buffers.")
  298.  
  299. ;;;;; base functions ;;;;;
  300.  
  301.  
  302. ; the access method for the other buffer.  this tries to remedy against
  303. ; lost local variables and lost buffers.
  304. (defun two-column:other ()
  305.   (if (or two-column:other
  306.       (setq two-column:other
  307.         ; assoc with a different predicate, since we don't know
  308.         ; which marker points to this buffer
  309.         (let ((bl two-column:buffer-list))
  310.           (while (and bl (not (eq (current-buffer)
  311.                       (marker-buffer (car (car bl))))))
  312.             (setq bl (cdr bl)))
  313.           (cdr (car bl)))))
  314.       (or (prog1
  315.           (marker-buffer two-column:other)
  316.         (setq mode-line-format two-column:mode-line-format ))
  317.       ; The associated buffer somehow got killed.
  318.       (progn
  319.         ; The other variables may later be useful if the user
  320.         ; reestablishes the association.
  321.         (kill-local-variable 'two-column:other)
  322.         (kill-local-variable 'mode-line-format)
  323.         nil))))
  324.  
  325.  
  326. (defun two-column:split (&optional buffer)
  327.   "Split current window vertically for two-column editing.
  328.  
  329. When called the first time, associates a buffer with the current
  330. buffer.  Both buffers are put in two-column minor mode and
  331. two-column:mode-hook gets called on both.  These buffers remember
  332. about one another, even when renamed.
  333.  
  334. When called again, restores the screen layout with the current buffer
  335. first and the associated buffer to it's right.
  336.  
  337. If you include long lines, i.e which will span both columns (eg.
  338. source code), they should be in what will be the first column, with
  339. the associated buffer having empty lines next to them.
  340.  
  341. You have the following commands at your disposal:
  342.  
  343. \\[two-column:split]   Rearrange screen
  344. \\[two-column:associate-buffer]   Reassociate buffer after changing major mode
  345. \\[two-column:scroll-up]   Scroll both buffers up by a screenfull
  346. \\[two-column:scroll-down]   Scroll both buffers down by a screenful
  347. \\[two-column:scroll-line]   Scroll both buffers up by one or more lines
  348. \\[two-column:recenter]   Recenter and realign other buffer
  349. \\[shrink-window-horizontally], \\[enlarge-window-horizontally]   Shrink, enlarge current column
  350. \\[two-column:associated-buffer]   Switch to associated buffer
  351. \\[two-column:merge]   Merge both buffers
  352.  
  353. These keybindings can be customized in your ~/.emacs by `two-column:prefix'
  354. and `two-column:mode-map'.
  355.  
  356. The appearance of the screen can be customized by the variables
  357. `two-column:window-width', `two-column:beyond-fill-column',
  358. `two-column:mode-line-format' and `truncate-partial-width-windows'."
  359.  
  360.   (interactive "P")
  361.   ; first go to full width, so that we can certainly split into
  362.   ; two windows
  363.   (if (< (window-width) (screen-width))
  364.       (enlarge-window 99999 t))
  365.   (split-window-horizontally
  366.    (max window-min-width (min two-column:window-width
  367.                   (- (screen-width) window-min-width))))
  368.  
  369.   (if (two-column:other)
  370.       (progn
  371.     (other-window 1)
  372.     (switch-to-buffer (two-column:other))
  373.     (other-window -1)
  374.     ; align buffers if necessary
  375.     (two-column:scroll-line 0))
  376.  
  377.     ; set up minor mode linking two buffers
  378.     (setq fill-column (- two-column:window-width
  379.              two-column:beyond-fill-column)
  380.       mode-line-format two-column:mode-line-format)
  381.     (run-hooks two-column:mode-hook)
  382.     (let ((other (point-marker)))
  383.       (other-window 1)
  384.       (switch-to-buffer
  385.        (or buffer
  386.        (generate-new-buffer
  387.         (concat "2C/" (buffer-name)))))
  388.       (or buffer
  389.       (text-mode))
  390.       (setq fill-column (- two-column:window-width
  391.                two-column:beyond-fill-column)
  392.         mode-line-format two-column:mode-line-format
  393.         two-column:other other
  394.         other (point-marker))
  395.       (setq two-column:buffer-list (cons (cons two-column:other other)
  396.                      two-column:buffer-list))
  397.       (run-hooks two-column:mode-hook)
  398.       (other-window -1)
  399.       (setq two-column:buffer-list
  400.         (cons (cons other
  401.             (save-excursion
  402.               (set-buffer (two-column:other))
  403.               two-column:other))
  404.           two-column:buffer-list))
  405.       (setq two-column:other other))))
  406.  
  407. (fset 'two-column:mode 'two-column:split)
  408.  
  409.  
  410. (defun two-column:associate-buffer ()
  411.   "Associate another buffer with this one in two-column minor mode.
  412. Can also be used to associate a just previously visited file, by
  413. accepting the proposed default buffer.
  414.  
  415. See  \\[two-column:split]  and  `lisp/two-column.el'  for further details."
  416.   (interactive)
  417.   (let ((b1 (current-buffer))
  418.     (b2 (or (two-column:other)
  419.         (read-buffer "Associate buffer: " (other-buffer)))))
  420.     (save-excursion
  421.       (setq two-column:other nil)
  422.       (set-buffer b2)
  423.       (and (two-column:other)
  424.        (not (eq b1 (two-column:other)))
  425.        (error "Buffer already associated with buffer `%s'."
  426.           (buffer-name (two-column:other))))
  427.       (setq b1 (and (assq 'two-column:window-width (buffer-local-variables))
  428.             two-column:window-width)))
  429.     ; if other buffer has a local width, adjust here too
  430.     (if b1 (setq two-column:window-width (- (screen-width) b1)))
  431.     (two-column:split b2)))
  432.  
  433.  
  434. (defun two-column:unmerge (arg)
  435.   "Unmerge a two-column text into two buffers in two-column minor mode.
  436. The text is unmerged at the cursor's column which becomes the local
  437. value of two-column:window-width.  Only lines that have the ARG same
  438. preceding characters at that column get split.  The ARG preceding
  439. characters without any leading whitespace become the local value for
  440. `two-column:separator'.  This way lines that continue across both
  441. columns remain untouched in the first buffer.
  442.  
  443. This function can be used with a prototype line, to set up things as
  444. you like them.  You write the first line of each column with the
  445. separator you like and then unmerge that line.  E.g.:
  446.  
  447. First column's text    sSs  Second columns text
  448.                \\___/\\
  449.             /    \\
  450.    5 character Separator      You type  M-5 \\[two-column:unmerge]  with the point here
  451.  
  452. See  \\[two-column:split]  and  `lisp/two-column.el'  for further details."
  453.   (interactive "p")
  454.   (and (two-column:other)
  455.        (if (y-or-n-p (concat "Overwrite associated buffer `"
  456.                  (buffer-name (two-column:other))
  457.                  "'? "))
  458.        (save-excursion
  459.          (set-buffer (two-column:other))
  460.          (erase-buffer))
  461.      (signal 'quit nil)))
  462.   (let ((point (point))
  463.     ; make next-line always come back to same column
  464.     (goal-column (current-column))
  465.     ; a counter for empty lines in other buffer
  466.     (n (1- (count-lines (point-min) (point))))
  467.     chars other)
  468.     (save-excursion
  469.       (backward-char arg)
  470.       (setq chars (buffer-substring (point) point))
  471.       (skip-chars-forward " \t" point)
  472.       (make-variable-buffer-local 'two-column:separator)
  473.       (setq two-column:separator (buffer-substring (point) point)
  474.         two-column:window-width (current-column)))
  475.     (two-column:split)
  476.     (setq other (two-column:other))
  477.     ; now we're ready to actually unmerge
  478.     (save-excursion
  479.       (while (not (eobp))
  480.     (if (not (and (= (current-column) goal-column)
  481.               (string= chars
  482.                    (buffer-substring (point)
  483.                          (save-excursion
  484.                            (backward-char arg)
  485.                            (point))))))
  486.         (setq n (1+ n))
  487.       (setq point (point))
  488.       (backward-char arg)
  489.       (skip-chars-backward " \t")
  490.       (delete-region point (point))
  491.       (setq point (point))
  492.       (insert-char ?\n n)
  493.       (append-to-buffer other point (progn (end-of-line)
  494.                            (if (eobp)
  495.                            (point)
  496.                          (1+ (point)))))
  497.       (delete-region point (point))
  498.       (setq n 0))
  499.     (next-line 1)))))
  500.  
  501.  
  502. (defun two-column:kill-association ()
  503.   "Turn off two-column minor mode in current and associated buffer.
  504. If the associated buffer is unmodified and empty, it is killed."
  505.   (interactive)
  506.   (let ((buffer (current-buffer)))
  507.     (save-excursion
  508.       (and (two-column:other)
  509.        (prog2
  510.         (setq two-column:buffer-list
  511.           (delq (assq two-column:other two-column:buffer-list)
  512.             two-column:buffer-list))
  513.         (set-buffer (two-column:other))
  514.         (setq two-column:buffer-list
  515.           (delq (assq two-column:other two-column:buffer-list)
  516.             two-column:buffer-list)))
  517.        (or (not (two-column:other))
  518.            (eq buffer (two-column:other)))
  519.        (if (and (not (buffer-modified-p))
  520.             (eobp) (bobp))
  521.            (kill-buffer nil)
  522.          (kill-local-variable 'two-column:other)
  523.          (kill-local-variable 'two-column:window-width)
  524.          (kill-local-variable 'two-column:separator)
  525.          (kill-local-variable 'mode-line-format)
  526.          (kill-local-variable 'fill-column))))
  527.     (kill-local-variable 'two-column:other)
  528.     (kill-local-variable 'two-column:window-width)
  529.     (kill-local-variable 'two-column:separator)
  530.     (kill-local-variable 'mode-line-format)
  531.     (kill-local-variable 'fill-column)))
  532.  
  533.  
  534. ; this doesn't use yank-rectangle, so that the first column can
  535. ; contain long lines
  536. (defun two-column:merge ()
  537.   "Merges the associated buffer with the current buffer.
  538. They get merged at the column, which is the value of
  539. `two-column:window-width', i.e. usually at the vertical window
  540. separator.  This separator gets replaced with white space.  Beyond
  541. that the value of gets inserted on merged lines.  The two columns are
  542. thus pasted side by side, in a single text.  If the other buffer is
  543. not displayed to the left of this one, then this one becomes the left
  544. column.
  545.  
  546. If you want `two-column:separator' on empty lines in the second column,
  547. you should put just one space in them.  In the final result, you can strip
  548. off trailing spaces with \\[beginning-of-buffer] \\[replace-regexp] [ SPC TAB ] + $ RET RET"
  549.  
  550.   (interactive)
  551.   (or (two-column:other)
  552.       (error "You must first set two-column minor mode."))
  553.   (and (> (car (window-edges)) 0)    ; not touching left edge of screen
  554.        (eq (window-buffer (previous-window))
  555.        (two-column:other))
  556.        (other-window -1))
  557.   (save-excursion
  558.     (let ((b1 (current-buffer))
  559.       (b2 (two-column:other))
  560.       string)
  561.       (goto-char (point-min))
  562.       (set-buffer b2)
  563.       (goto-char (point-min))
  564.       (while (not (eobp))
  565.     (setq string (buffer-substring (point)
  566.                        (progn (end-of-line) (point))))
  567.     (or (eobp)
  568.         (forward-char))        ; next line
  569.     (set-buffer b1)
  570.     (if (string= string "")
  571.         ()
  572.       (end-of-line)
  573.       (indent-to-column two-column:window-width)
  574.       (insert two-column:separator string))
  575.     (next-line 1)            ; add one if necessary
  576.     (set-buffer b2))))
  577.   (if (< (window-width) (screen-width))
  578.       (enlarge-window 99999 t)))
  579.  
  580. ;;;;; utility functions ;;;;;
  581.  
  582.  
  583. (defun two-column:associated-buffer ()
  584.   "Switch to associated buffer."
  585.   (interactive)
  586.   (or (two-column:other)
  587.       (error "You must set two-column minor mode."))
  588.   (if (get-buffer-window (two-column:other))
  589.       (select-window (get-buffer-window (two-column:other)))
  590.     (switch-to-buffer (two-column:other))))
  591.  
  592.  
  593. ; It would be desirable to intercept anything that causes the current
  594. ; window to scroll.  Maybe a `scroll-hook'?
  595. (defun two-column:scroll-line (arg)
  596.   "Scroll current window upward by ARG lines.
  597. The associated window gets scrolled to the same line."
  598.   (interactive "p")
  599.   (or (two-column:other)
  600.       (error "You must set two-column minor mode."))
  601.   ; scroll-up has a bug on arg 0 at end of buffer
  602.   (or (zerop arg)
  603.       (scroll-up arg))
  604.   (setq arg (count-lines (point-min) (window-start)))
  605.   ; too bad that pre 18.57 Emacs makes save-window-excursion restore
  606.   ; the point.  When it becomes extinct, we can simplify this.
  607.   (if (get-buffer-window (two-column:other))
  608.       (let ((window (selected-window)))
  609.     (select-window (get-buffer-window (two-column:other)))
  610.     (setq arg (- arg (count-lines (point-min) (window-start))))
  611.     ; make sure that other buffer has enough lines
  612.     (save-excursion
  613.       (goto-char (point-max))
  614.       (insert-char ?\n
  615.                (- arg (count-lines (window-start) (point-max)) -1)))
  616.     (or (zerop arg)
  617.         (scroll-up arg))
  618.     (select-window window))))
  619.  
  620.  
  621. (defun two-column:scroll-up (arg)
  622.   "Scroll current window upward by ARG screens.
  623. The associated window gets scrolled to the same line."
  624.   (interactive "p")
  625.   (two-column:scroll-line (* arg (- (window-height)
  626.                     next-screen-context-lines 1))))
  627.  
  628.  
  629. (defun two-column:scroll-down (arg)
  630.   "Scroll current window downward by ARG screens.
  631. The associated window gets scrolled to the same line."
  632.   (interactive "p")
  633.   (two-column:scroll-line (* arg (- next-screen-context-lines
  634.                     (window-height) -1))))
  635.  
  636.  
  637. (defun two-column:recenter (arg)
  638.   "Center point in window.  With ARG, put point on line ARG.
  639. This counts from bottom if ARG is negative.  The associated window
  640. gets scrolled to the same line."
  641.   (interactive "P")
  642.   (setq arg (and arg (prefix-numeric-value arg)))
  643.   (two-column:scroll-line (- (count-lines (window-start) (point))
  644.                  (cond ((null arg)  (/ (window-height) 2))
  645.                    ((< arg 0)  (+ (window-height) arg))
  646.                    (  arg)))))
  647.  
  648.  
  649. (defun enlarge-window-horizontally (arg)
  650.   "Make current window ARG columns wider."
  651.   (interactive "p")
  652.   (enlarge-window arg t)
  653.   (and (two-column:other)
  654.        (setq two-column:window-width (+ two-column:window-width arg))
  655.        (set-buffer (two-column:other))
  656.        (setq two-column:window-width (- two-column:window-width arg))))
  657.  
  658.  
  659. (defun shrink-window-horizontally (arg)
  660.   "Make current window ARG columns narrower."
  661.   (interactive "p")
  662.   (enlarge-window-horizontally (- arg)))
  663.  
  664.