2 Word-processor mode for the editor: does dynamic
5 Copyright (C) 2011, 2013
6 The Free Software Foundation, Inc.
8 Copyright (C) 1996 Paul Sheer
12 Andrew Borodin <aborodin@vmail.ru>, 2013
14 This file is part of the Midnight Commander.
16 The Midnight Commander is free software: you can redistribute it
17 and/or modify it under the terms of the GNU General Public License as
18 published by the Free Software Foundation, either version 3 of the License,
19 or (at your option) any later version.
21 The Midnight Commander is distributed in the hope that it will be useful,
22 but WITHOUT ANY WARRANTY; without even the implied warranty of
23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 GNU General Public License for more details.
26 You should have received a copy of the GNU General Public License
27 along with this program. If not, see <http://www.gnu.org/licenses/>.
31 * \brief Source: word-processor mode for the editor: does dynamic paragraph formatting
34 * \author Andrew Borodin
42 #include <sys/types.h>
51 #include "lib/global.h"
53 #include "src/setup.h" /* option_tab_spacing */
55 #include "edit-impl.h"
56 #include "editwidget.h"
58 /*** global variables ****************************************************************************/
60 /*** file scope macro definitions ****************************************************************/
62 #define tab_width option_tab_spacing
64 #define NO_FORMAT_CHARS_START "-+*\\,.;:&>"
65 #define FONT_MEAN_WIDTH 1
67 /*** file scope type declarations ****************************************************************/
69 /*** file scope variables ************************************************************************/
71 /*** file scope functions ************************************************************************/
72 /* --------------------------------------------------------------------------------------------- */
75 line_start (const edit_buffer_t
* buf
, long line
)
84 p
= edit_buffer_move_backward (buf
, p
, l
- line
);
86 p
= edit_buffer_move_forward (buf
, p
, line
- l
, 0);
88 p
= edit_buffer_get_bol (buf
, p
);
89 while (strchr ("\t ", edit_buffer_get_byte (buf
, p
)) != NULL
)
94 /* --------------------------------------------------------------------------------------------- */
97 bad_line_start (const edit_buffer_t
* buf
, off_t p
)
101 c
= edit_buffer_get_byte (buf
, p
);
104 /* `...' is acceptable */
105 return !(edit_buffer_get_byte (buf
, p
+ 1) == '.'
106 && edit_buffer_get_byte (buf
, p
+ 2) == '.');
110 /* `---' is acceptable */
111 return !(edit_buffer_get_byte (buf
, p
+ 1) == '-'
112 && edit_buffer_get_byte (buf
, p
+ 2) == '-');
115 return (strchr (NO_FORMAT_CHARS_START
, c
) != NULL
);
118 /* --------------------------------------------------------------------------------------------- */
120 * Find the start of the current paragraph for the purpose of formatting.
121 * Return position in the file.
125 begin_paragraph (WEdit
* edit
, gboolean force
)
129 for (i
= edit
->buffer
.curs_line
- 1; i
>= 0; i
--)
130 if (edit_line_is_blank (edit
, i
) ||
131 (force
&& bad_line_start (&edit
->buffer
, line_start (&edit
->buffer
, i
))))
137 return edit_buffer_move_backward (&edit
->buffer
, edit_buffer_get_current_bol (&edit
->buffer
),
138 edit
->buffer
.curs_line
- i
);
141 /* --------------------------------------------------------------------------------------------- */
143 * Find the end of the current paragraph for the purpose of formatting.
144 * Return position in the file.
148 end_paragraph (WEdit
* edit
, gboolean force
)
152 for (i
= edit
->buffer
.curs_line
+ 1; i
<= edit
->buffer
.lines
; i
++)
153 if (edit_line_is_blank (edit
, i
) ||
154 (force
&& bad_line_start (&edit
->buffer
, line_start (&edit
->buffer
, i
))))
160 return edit_buffer_get_eol (&edit
->buffer
,
161 edit_buffer_move_forward (&edit
->buffer
,
162 edit_buffer_get_current_bol
164 i
- edit
->buffer
.curs_line
, 0));
167 /* --------------------------------------------------------------------------------------------- */
170 get_paragraph (const edit_buffer_t
* buf
, off_t p
, off_t q
, gboolean indent
)
174 t
= g_string_sized_new (128);
178 if (indent
&& edit_buffer_get_byte (buf
, p
- 1) == '\n')
179 while (strchr ("\t ", edit_buffer_get_byte (buf
, p
)) != NULL
)
182 g_string_append_c (t
, edit_buffer_get_byte (buf
, p
));
185 g_string_append_c (t
, '\n');
190 /* --------------------------------------------------------------------------------------------- */
193 strip_newlines (unsigned char *t
, off_t size
)
197 for (p
= t
; size
-- != 0; p
++)
202 /* --------------------------------------------------------------------------------------------- */
204 This function calculates the number of chars in a line specified to length l in pixels
208 next_tab_pos (off_t x
)
210 x
+= tab_width
- x
% tab_width
;
214 /* --------------------------------------------------------------------------------------------- */
217 line_pixel_length (unsigned char *t
, off_t b
, off_t l
, gboolean utf8
)
219 off_t xn
, x
; /* position conters */
220 off_t cw
; /* character width in bytes */
226 for (xn
= 0, x
= 0; xn
<= l
; x
= xn
, b
+= cw
)
238 xn
= next_tab_pos (x
);
246 ch
= g_utf8_get_char_validated (tb
, -1);
247 if (ch
!= (gunichar
) (-2) && ch
!= (gunichar
) (-1))
251 /* Calculate UTF-8 char width */
252 next_ch
= g_utf8_next_char (tb
);
256 if (g_unichar_iswide (ch
))
270 /* --------------------------------------------------------------------------------------------- */
273 next_word_start (unsigned char *t
, off_t q
, off_t size
)
276 gboolean saw_ws
= FALSE
;
278 for (i
= q
; i
< size
; i
++)
297 /* --------------------------------------------------------------------------------------------- */
298 /** find the start of a word */
301 word_start (unsigned char *t
, off_t q
, off_t size
)
305 if (t
[q
] == ' ' || t
[q
] == '\t')
306 return next_word_start (t
, q
, size
);
317 if (c
== ' ' || c
== '\t')
323 /* --------------------------------------------------------------------------------------------- */
324 /** replaces ' ' with '\n' to properly format a paragraph */
327 format_this (unsigned char *t
, off_t size
, long indent
, gboolean utf8
)
331 strip_newlines (t
, size
);
332 ww
= option_word_wrap_line_length
* FONT_MEAN_WIDTH
- indent
;
333 if (ww
< FONT_MEAN_WIDTH
* 2)
334 ww
= FONT_MEAN_WIDTH
* 2;
340 q
= line_pixel_length (t
, q
, ww
, utf8
);
345 p
= word_start (t
, q
, size
);
347 q
= next_word_start (t
, q
, size
); /* Return the end of the word if the beginning
348 of the word is at the beginning of a line
349 (i.e. a very long word) */
352 if (q
== -1) /* end of paragraph */
359 /* --------------------------------------------------------------------------------------------- */
362 replace_at (WEdit
* edit
, off_t q
, int c
)
364 edit_cursor_move (edit
, q
- edit
->buffer
.curs1
);
365 edit_delete (edit
, TRUE
);
366 edit_insert_ahead (edit
, c
);
369 /* --------------------------------------------------------------------------------------------- */
372 edit_indent_width (const WEdit
* edit
, off_t p
)
376 /* move to the end of the leading whitespace of the line */
377 while (strchr ("\t ", edit_buffer_get_byte (&edit
->buffer
, q
)) != NULL
378 && q
< edit
->buffer
.size
- 1)
380 /* count the number of columns of indentation */
381 return (long) edit_move_forward3 (edit
, p
, 0, q
);
384 /* --------------------------------------------------------------------------------------------- */
387 edit_insert_indent (WEdit
* edit
, long indent
)
389 if (!option_fill_tabs_with_spaces
)
390 while (indent
>= TAB_SIZE
)
392 edit_insert (edit
, '\t');
397 edit_insert (edit
, ' ');
400 /* --------------------------------------------------------------------------------------------- */
401 /** replaces a block of text */
404 put_paragraph (WEdit
* edit
, unsigned char *t
, off_t p
, long indent
, off_t size
)
410 cursor
= edit
->buffer
.curs1
;
412 while (strchr ("\t ", edit_buffer_get_byte (&edit
->buffer
, p
)) != NULL
)
414 for (i
= 0; i
< size
; i
++, p
++)
416 if (i
!= 0 && indent
!= 0)
418 if (t
[i
- 1] == '\n' && c
== '\n')
420 while (strchr ("\t ", edit_buffer_get_byte (&edit
->buffer
, p
)) != NULL
)
423 else if (t
[i
- 1] == '\n')
427 edit_cursor_move (edit
, p
- edit
->buffer
.curs1
);
428 curs
= edit
->buffer
.curs1
;
429 edit_insert_indent (edit
, indent
);
431 cursor
+= edit
->buffer
.curs1
- p
;
432 p
= edit
->buffer
.curs1
;
436 edit_cursor_move (edit
, p
- edit
->buffer
.curs1
);
437 while (strchr ("\t ", edit_buffer_get_byte (&edit
->buffer
, p
)) != NULL
)
439 edit_delete (edit
, TRUE
);
440 if (cursor
> edit
->buffer
.curs1
)
443 p
= edit
->buffer
.curs1
;
447 c
= edit_buffer_get_byte (&edit
->buffer
, p
);
449 replace_at (edit
, p
, t
[i
]);
451 edit_cursor_move (edit
, cursor
- edit
->buffer
.curs1
); /* restore cursor position */
454 /* --------------------------------------------------------------------------------------------- */
457 test_indent (const WEdit
* edit
, off_t p
, off_t q
)
461 indent
= edit_indent_width (edit
, p
++);
466 if (edit_buffer_get_byte (&edit
->buffer
, p
- 1) == '\n'
467 && indent
!= edit_indent_width (edit
, p
))
472 /* --------------------------------------------------------------------------------------------- */
473 /*** public functions ****************************************************************************/
474 /* --------------------------------------------------------------------------------------------- */
477 format_paragraph (WEdit
* edit
, gboolean force
)
484 gboolean utf8
= FALSE
;
486 if (option_word_wrap_line_length
< 2)
488 if (edit_line_is_blank (edit
, edit
->buffer
.curs_line
))
491 p
= begin_paragraph (edit
, force
);
492 q
= end_paragraph (edit
, force
);
493 indent
= test_indent (edit
, p
, q
);
495 t
= get_paragraph (&edit
->buffer
, p
, q
, indent
!= 0);
502 if (strchr (NO_FORMAT_CHARS_START
, t
->str
[0]) == NULL
)
503 for (i
= 0; i
< size
- 1; i
++)
504 if (t
->str
[i
] == '\n'
505 && strchr (NO_FORMAT_CHARS_START
"\t ", t
->str
[i
+ 1]) != NULL
)
508 g_string_free (t
, TRUE
);
512 t2
= (unsigned char *) g_string_free (t
, FALSE
);
516 format_this (t2
, q
- p
, indent
, utf8
);
517 put_paragraph (edit
, t2
, p
, indent
, size
);
518 g_free ((char *) t2
);
520 /* Scroll left as much as possible to show the formatted paragraph */
521 edit_scroll_left (edit
, -edit
->start_col
);
524 /* --------------------------------------------------------------------------------------------- */