changed command definitions accordingly. added C-x C-g binding for abort added C-\ binding for call-last-kbd-macro changed binding for switch-input-method to C-x C-\ added commands: not-modified on A-~ (reset buffer modified flag) load-file-from-path(file) mark-whole-buffer() on C-x h count-lines() on C-x l what-cursor-position on C-x = allow key_grabber to quit and unget last key. added splitpath() to dispatch directory and filename into separate buffers. make separate functions for show_version and show_usage. make separate function for parse_command_line. added command line options: --help -h display help message and exit --no-init-file -q do not load config files --user -u load ~USER/.qe/config instead of your own --version -V display version information and exit added -- as a marker for end of command line options. allow most keys to be transmitted to shell process, including function keys. improved shell buffer escape sequence parser. added automatic detection of full screen shell applications and grab all keys try mc, Menuconfig, or even qemacs within qemacs ! improved *trace* buffer: do not trace keys when trace buffer is current, thus allowing navigation without side-effects improved Makefile to not make html stuff if disabled reduced CONFIG_TINY feature set
899 lines
24 KiB
C
899 lines
24 KiB
C
/*
|
|
* Graphical HTML mode for QEmacs.
|
|
* Copyright (c) 2001, 2002 Fabrice Bellard.
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
#include "qe.h"
|
|
#include "css.h"
|
|
|
|
/* define to enable timers */
|
|
//#define HTML_PROFILE
|
|
|
|
#define SCROLL_MHEIGHT 10
|
|
#define HTML_ERROR_BUFFER "*xml-error*"
|
|
|
|
/* mode state */
|
|
typedef struct HTMLState {
|
|
/* default style sheet */
|
|
CSSStyleSheet *default_style_sheet;
|
|
CSSContext *css_ctx;
|
|
CSSBox *top_box; /* top box of the display HTML page */
|
|
CSSColor bgcolor; /* global bgcolor */
|
|
int total_width; /* document size */
|
|
int total_height;
|
|
int last_width, last_ydisp, last_xdisp;
|
|
QECharset *last_charset;
|
|
CSSRect invalid_rect; /* this rectangle should be redrawn */
|
|
int up_to_date; /* true if css representation is synced with
|
|
buffer content */
|
|
int parse_flags; /* can contain XML_HTML and XML_IGNORE_CASE */
|
|
} HTMLState;
|
|
|
|
extern const char html_style[];
|
|
|
|
/* recompute cursor offset so that it is visible (find closest box) */
|
|
typedef struct {
|
|
CSSContext *ctx;
|
|
int wanted_offset;
|
|
int closest_offset;
|
|
int dmin;
|
|
} RecomputeOffsetData;
|
|
|
|
#define MAX_LINE_SIZE 256
|
|
|
|
static int recompute_offset_func(void *opaque, CSSBox *box,
|
|
int x0, int y0)
|
|
{
|
|
RecomputeOffsetData *data = opaque;
|
|
int offsets[MAX_LINE_SIZE+1];
|
|
unsigned int line_buf[MAX_LINE_SIZE];
|
|
int len, d, i, offset;
|
|
|
|
/* XXX: we do not accept empty boxes with spaces. need further
|
|
fixes */
|
|
if (box->height == 0)
|
|
return 0;
|
|
|
|
len = box_get_text(data->ctx, line_buf, MAX_LINE_SIZE, offsets, box);
|
|
if (len == 0)
|
|
return 0;
|
|
offset = data->wanted_offset;
|
|
for(i=0;i<len;i++) {
|
|
d = abs(offset - offsets[i]);
|
|
if (d < data->dmin) {
|
|
data->dmin = d;
|
|
data->closest_offset = offsets[i];
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void recompute_offset(EditState *s)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
RecomputeOffsetData data;
|
|
|
|
data.ctx = hs->css_ctx;
|
|
data.wanted_offset = s->offset;
|
|
data.closest_offset = 0;
|
|
data.dmin = MAXINT;
|
|
css_box_iterate(hs->css_ctx, hs->top_box,
|
|
&data, recompute_offset_func);
|
|
s->offset = data.closest_offset;
|
|
}
|
|
|
|
/* output error message in error buffer */
|
|
void css_error(const char *filename, int line_num, const char *msg)
|
|
{
|
|
EditBuffer *b;
|
|
|
|
b = eb_find(HTML_ERROR_BUFFER);
|
|
if (!b)
|
|
b = eb_new(HTML_ERROR_BUFFER, BF_READONLY);
|
|
if (!b)
|
|
return;
|
|
eb_printf(b, "%s:%d: %s\n", basename(filename), line_num, msg);
|
|
}
|
|
|
|
|
|
#ifdef HTML_PROFILE
|
|
|
|
static int timer_val;
|
|
|
|
static int get_time(void)
|
|
{
|
|
struct timeval tv;
|
|
gettimeofday(&tv, NULL);
|
|
return tv.tv_sec * 1000000 + tv.tv_usec;
|
|
}
|
|
|
|
#define timer_start() timer_val = get_time()
|
|
#define timer_stop(str) \
|
|
printf("timer %s: %0.3f ms\n", str, (double)(get_time() - timer_val) / 1000.0)
|
|
|
|
#else
|
|
|
|
#define timer_start()
|
|
#define timer_stop(str)
|
|
|
|
#endif
|
|
|
|
static int html_test_abort(void *opaque)
|
|
{
|
|
return is_user_input_pending();
|
|
}
|
|
|
|
static void html_display(EditState *s)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
CSSRect cursor_pos;
|
|
DirType dirc;
|
|
int n, cursor_found, d, ret, sel_start, sel_end;
|
|
CSSRect rect;
|
|
EditBuffer *b;
|
|
|
|
/* XXX: should be generic ? */
|
|
if (hs->last_width != s->width) {
|
|
hs->last_width = s->width;
|
|
hs->up_to_date = 0;
|
|
}
|
|
if (s->b->charset != hs->last_charset) {
|
|
hs->last_charset = s->b->charset;
|
|
hs->up_to_date = 0;
|
|
}
|
|
|
|
/* reparse & layout if needed */
|
|
if (!hs->up_to_date) {
|
|
/* display busy message */
|
|
if (!s->busy) {
|
|
s->busy = 1;
|
|
display_mode_line(s);
|
|
dpy_flush(s->screen);
|
|
}
|
|
|
|
/* delete previous document */
|
|
css_delete_box(hs->top_box);
|
|
hs->top_box = NULL;
|
|
|
|
if (hs->css_ctx) {
|
|
css_delete_document(hs->css_ctx);
|
|
hs->css_ctx = NULL;
|
|
}
|
|
|
|
/* find error message buffer */
|
|
b = eb_find(HTML_ERROR_BUFFER);
|
|
if (b) {
|
|
eb_delete(b, 0, b->total_size);
|
|
}
|
|
|
|
hs->css_ctx = css_new_document(s->screen, s->b);
|
|
if (!hs->css_ctx)
|
|
return;
|
|
|
|
/* prepare default style sheet */
|
|
hs->css_ctx->style_sheet = css_new_style_sheet();
|
|
css_merge_style_sheet(hs->css_ctx->style_sheet, hs->default_style_sheet);
|
|
|
|
/* default colors */
|
|
hs->css_ctx->selection_bgcolor = qe_styles[QE_STYLE_SELECTION].bg_color;
|
|
hs->css_ctx->selection_fgcolor = qe_styles[QE_STYLE_SELECTION].fg_color;
|
|
hs->css_ctx->default_bgcolor = qe_styles[QE_STYLE_CSS_DEFAULT].bg_color;
|
|
|
|
timer_start();
|
|
hs->top_box = xml_parse_buffer(s->b, 0, s->b->total_size,
|
|
hs->css_ctx->style_sheet,
|
|
hs->parse_flags,
|
|
html_test_abort, NULL);
|
|
timer_stop("xml_parse_buffer");
|
|
if (!hs->top_box)
|
|
return;
|
|
|
|
timer_start();
|
|
css_compute(hs->css_ctx, hs->top_box);
|
|
timer_stop("css_compute");
|
|
|
|
timer_start();
|
|
ret = css_layout(hs->css_ctx, hs->top_box, s->width,
|
|
html_test_abort, NULL);
|
|
timer_stop("css_layout");
|
|
if (ret) {
|
|
return;
|
|
}
|
|
|
|
/* extract document size */
|
|
hs->total_width = hs->top_box->bbox.x2;
|
|
hs->total_height = hs->top_box->bbox.y2;
|
|
|
|
/* set invalid rectangle to the whole window */
|
|
css_set_rect(&hs->invalid_rect, s->xleft, s->ytop,
|
|
s->xleft + s->width, s->ytop + s->height);
|
|
hs->up_to_date = 1;
|
|
s->busy = 0;
|
|
}
|
|
|
|
/* draw if possible */
|
|
if (hs->up_to_date) {
|
|
n = 0;
|
|
redo:
|
|
timer_start();
|
|
cursor_found = css_get_cursor_pos(hs->css_ctx, hs->top_box,
|
|
NULL, NULL, NULL,
|
|
&cursor_pos, &dirc, s->offset);
|
|
timer_stop("css_get_cursor_pos");
|
|
// printf("cursor_found=%d offset=%d\n", cursor_found, s->offset);
|
|
if (!cursor_found) {
|
|
if (++n == 1) {
|
|
/* move the cursor to the closest visible position */
|
|
recompute_offset(s);
|
|
goto redo;
|
|
}
|
|
}
|
|
|
|
if (cursor_found) {
|
|
/* if cursor not visible, adjust offsets */
|
|
d = cursor_pos.y1 + s->y_disp;
|
|
if (d < 0)
|
|
s->y_disp -= d;
|
|
d = cursor_pos.y2 + s->y_disp - s->height;
|
|
if (d > 0)
|
|
s->y_disp -= d;
|
|
|
|
d = cursor_pos.x1 + s->x_disp[0];
|
|
if (d < 0)
|
|
s->x_disp[0] -= d;
|
|
d = cursor_pos.x2 + s->x_disp[0] - s->width;
|
|
if (d > 0)
|
|
s->x_disp[0] -= d;
|
|
}
|
|
|
|
|
|
/* selection handling */
|
|
if (s->show_selection) {
|
|
sel_start = s->b->mark;
|
|
sel_end = s->offset;
|
|
/* sort selection */
|
|
if (sel_end < sel_start) {
|
|
sel_end = s->b->mark;
|
|
sel_start = s->offset;
|
|
}
|
|
} else {
|
|
/* no active selection */
|
|
sel_start = 0;
|
|
sel_end = 0;
|
|
}
|
|
|
|
if (sel_start != hs->css_ctx->selection_start ||
|
|
sel_end != hs->css_ctx->selection_end) {
|
|
hs->css_ctx->selection_start = sel_start;
|
|
hs->css_ctx->selection_end = sel_end;
|
|
s->display_invalid = 1;
|
|
}
|
|
|
|
if (hs->last_ydisp != s->y_disp ||
|
|
hs->last_xdisp != s->x_disp[0] ||
|
|
s->display_invalid) {
|
|
/* set invalid rectangle to the whole window */
|
|
css_set_rect(&hs->invalid_rect, s->xleft, s->ytop,
|
|
s->xleft + s->width, s->ytop + s->height);
|
|
hs->last_ydisp = s->y_disp;
|
|
hs->last_xdisp = s->x_disp[0];
|
|
s->display_invalid = 0;
|
|
}
|
|
|
|
/* set the clipping rectangle to the whole window */
|
|
rect.x1 = s->xleft;
|
|
rect.y1 = s->ytop;
|
|
rect.x2 = rect.x1 + s->width;
|
|
rect.y2 = rect.y1 + s->height;
|
|
set_clip_rectangle(s->screen, &rect);
|
|
|
|
/* compute clip rectangle */
|
|
if (!css_is_null_rect(&hs->invalid_rect)) {
|
|
CSSRect old_clip;
|
|
rect = hs->invalid_rect;
|
|
|
|
push_clip_rectangle(s->screen, &old_clip, &rect);
|
|
|
|
timer_start();
|
|
|
|
css_display(hs->css_ctx, hs->top_box,
|
|
&rect, s->xleft + s->x_disp[0], s->ytop + s->y_disp);
|
|
timer_stop("css_display");
|
|
|
|
set_clip_rectangle(s->screen, &old_clip);
|
|
|
|
/* no longer invalid, so set invalid_rect to null */
|
|
css_set_rect(&hs->invalid_rect, 0, 0, 0, 0);
|
|
}
|
|
|
|
/* display cursor */
|
|
if (cursor_found &&
|
|
s->qe_state->active_window == s) {
|
|
int x, y, w, h;
|
|
|
|
x = cursor_pos.x1;
|
|
y = cursor_pos.y1;
|
|
w = cursor_pos.x2 - cursor_pos.x1;
|
|
h = cursor_pos.y2 - cursor_pos.y1;
|
|
x += s->xleft + s->x_disp[0];
|
|
y += s->ytop + s->y_disp;
|
|
if (s->screen->dpy.dpy_cursor_at) {
|
|
/* hardware cursor */
|
|
s->screen->dpy.dpy_cursor_at(s->screen, x, y, w, h);
|
|
} else {
|
|
fill_rectangle(s->screen, x, y, w, h, QECOLOR_XOR);
|
|
/* invalidate rectangle modified by cursor */
|
|
css_set_rect(&rect, x, y, x + w, y + h);
|
|
css_union_rect(&hs->invalid_rect, &rect);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
typedef struct {
|
|
int y_found;
|
|
int y_disp;
|
|
int height;
|
|
int offset_found;
|
|
int dir; /* -1: cursor up, 1: cursor bottom */
|
|
int offsetc;
|
|
} ScrollContext;
|
|
|
|
static int scroll_func(void *opaque, CSSBox *box, int x, int y)
|
|
{
|
|
ScrollContext *m = opaque;
|
|
int y1;
|
|
|
|
if (box->height == 0)
|
|
return 0;
|
|
y += m->y_disp;
|
|
y1 = y + box->height;
|
|
/* XXX: add bidir handling : position cursor on left / right */
|
|
if (m->dir < 0) {
|
|
if (y >= 0 && y < m->y_found) {
|
|
m->y_found = y;
|
|
m->offset_found = box->u.buffer.start;
|
|
}
|
|
} else {
|
|
if (y1 <= m->height && y1 > m->y_found) {
|
|
m->y_found = y1;
|
|
m->offset_found = box->u.buffer.start;
|
|
}
|
|
}
|
|
if (m->offsetc >= box->u.buffer.start &&
|
|
m->offsetc <= box->u.buffer.end &&
|
|
y >= 0 && y1 <= m->height) {
|
|
m->offset_found = m->offsetc;
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
static void html_scroll_up_down(EditState *s, int dir)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
ScrollContext m1, *m = &m1;
|
|
int h;
|
|
|
|
if (!hs->up_to_date)
|
|
return;
|
|
|
|
h = SCROLL_MHEIGHT;
|
|
if (abs(dir) == 2) {
|
|
h = s->height - SCROLL_MHEIGHT;
|
|
dir /= 2;
|
|
}
|
|
if (h < SCROLL_MHEIGHT)
|
|
h = s->height;
|
|
h = -dir * h;
|
|
s->y_disp += h;
|
|
if (s->y_disp > 0 || hs->total_height <= s->height) {
|
|
s->y_disp = 0;
|
|
} else if (hs->total_height + s->y_disp < s->height) {
|
|
s->y_disp = s->height - hs->total_height;
|
|
}
|
|
|
|
/* XXX: max height ? */
|
|
|
|
/* now update cursor position so that it is on screen */
|
|
m->offsetc = s->offset;
|
|
m->dir = -dir;
|
|
m->y_found = 0x7fffffff * dir;
|
|
m->offset_found = s->offset; /* default offset */
|
|
m->y_disp = s->y_disp;
|
|
m->height = s->height;
|
|
css_box_iterate(hs->css_ctx, hs->top_box, m, scroll_func);
|
|
s->offset = m->offset_found;
|
|
}
|
|
|
|
/* visual UP/DOWN handling */
|
|
|
|
typedef struct {
|
|
int dir;
|
|
int yd;
|
|
int xdbase; /* x origin of box */
|
|
int xd;
|
|
int xdmin;
|
|
int ydmin;
|
|
int y1;
|
|
int y2;
|
|
int offsetd;
|
|
CSSBox *box;
|
|
} MoveContext;
|
|
|
|
/* distance from x to segment [x1,x2-1] */
|
|
static int seg_dist(int x, int x1, int x2)
|
|
{
|
|
if (x >= x1 && x < x2)
|
|
return 0;
|
|
else if (x < x1)
|
|
return x1 - x;
|
|
else
|
|
return x - x2 + 1;
|
|
}
|
|
|
|
static int up_down_func(void *opaque, CSSBox *box, int x, int y)
|
|
{
|
|
MoveContext *m = opaque;
|
|
int d, y1;
|
|
|
|
if (box->height == 0 || box->width == 0)
|
|
return 0;
|
|
|
|
if (m->dir < 0) {
|
|
y1 = y + box->height;
|
|
if (y1 <= m->yd)
|
|
goto ytest;
|
|
} else {
|
|
y1 = y;
|
|
if (y1 >= m->yd)
|
|
goto ytest;
|
|
}
|
|
return 0;
|
|
|
|
ytest:
|
|
/* if no y intersection with selected box, then see if it is closer */
|
|
if (m->ydmin == MAXINT ||
|
|
y >= m->y2 || (y + box->height) <= m->y1) {
|
|
|
|
d = abs(y1 - m->yd);
|
|
if (d < m->ydmin) {
|
|
m->ydmin = d;
|
|
m->y1 = y;
|
|
m->y2 = y + box->height;
|
|
m->xdmin = MAXINT;
|
|
} else if (d == m->ydmin) {
|
|
/* also do x test if on the same line */
|
|
} else {
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/* if the box passed the y test, then select the closest box along the x axis */
|
|
d = seg_dist(m->xd, x, x + box->width);
|
|
if (d < m->xdmin) {
|
|
m->xdbase = x;
|
|
m->xdmin = d;
|
|
m->box = box;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int up_down_last_x = -1;
|
|
|
|
static void html_move_up_down1(EditState *s, int dir, int xtarget)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
MoveContext m1, *m = &m1;
|
|
CSSRect cursor_pos;
|
|
int dirc, offset;
|
|
|
|
/* get the cursor position in the current chunk */
|
|
if (!css_get_cursor_pos(hs->css_ctx, hs->top_box, NULL, NULL, NULL,
|
|
&cursor_pos, &dirc, s->offset))
|
|
return;
|
|
|
|
/* compute the position to which we would like to go */
|
|
if (xtarget == 0) {
|
|
if (up_down_last_x == -1)
|
|
up_down_last_x = cursor_pos.x1;
|
|
}
|
|
|
|
if (dir > 0)
|
|
m->yd = cursor_pos.y2;
|
|
else
|
|
m->yd = cursor_pos.y1;
|
|
|
|
/* find a suitable box upward or downward */
|
|
if (xtarget == 0) {
|
|
m->xd = up_down_last_x;
|
|
} else {
|
|
m->xd = xtarget;
|
|
}
|
|
m->dir = dir;
|
|
m->xdmin = MAXINT;
|
|
m->ydmin = MAXINT;
|
|
m->box = NULL;
|
|
m->xdbase = 0;
|
|
|
|
css_box_iterate(hs->css_ctx, hs->top_box, m, up_down_func);
|
|
|
|
/* if no box found, then compose the next text chunk */
|
|
if (m->box) {
|
|
/* the box was found : find exact cursor offset */
|
|
offset = css_get_offset_pos(hs->css_ctx, m->box, m->xd - m->xdbase, 0);
|
|
if (offset >= 0) {
|
|
s->offset = offset;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void html_move_up_down(EditState *s, int dir)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
|
|
if (!hs->up_to_date)
|
|
return;
|
|
|
|
if (s->qe_state->last_cmd_func != do_up_down)
|
|
up_down_last_x = -1;
|
|
|
|
html_move_up_down1(s, dir, 0);
|
|
}
|
|
|
|
/* visual LEFT/RIGHT handling */
|
|
|
|
typedef struct {
|
|
int dir;
|
|
int y1;
|
|
int y2;
|
|
int xd;
|
|
int xdmin;
|
|
CSSBox *box;
|
|
int x0;
|
|
} LeftRightMoveContext;
|
|
|
|
static int left_right_func(void *opaque, CSSBox *box, int x, int y)
|
|
{
|
|
LeftRightMoveContext *m = opaque;
|
|
int d, x1;
|
|
|
|
/* only examine boxes which intersect the current one on y axis */
|
|
if (!(y + box->height <= m->y1 ||
|
|
y >= m->y2)) {
|
|
if ((m->dir < 0 && (x1 = x + box->width) <= m->xd) ||
|
|
(m->dir > 0 && (x1 = x) >= m->xd)) {
|
|
/* find the closest box in the correct direction */
|
|
d = abs(x1 - m->xd);
|
|
if (d < m->xdmin) {
|
|
m->xdmin = d;
|
|
m->box = box;
|
|
m->x0 = x;
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* go to left or right in visual order */
|
|
static void html_move_left_right_visual(EditState *s, int dir)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
LeftRightMoveContext m1, *m = &m1;
|
|
CSSRect cursor_pos;
|
|
int dirc, offset, x0;
|
|
CSSBox *box;
|
|
|
|
if (!hs->up_to_date)
|
|
return;
|
|
|
|
/* get the cursor position. If not found, do nothing */
|
|
if (!css_get_cursor_pos(hs->css_ctx, hs->top_box,
|
|
&box, &x0, NULL,
|
|
&cursor_pos, &dirc, s->offset))
|
|
return;
|
|
|
|
offset = css_get_offset_pos(hs->css_ctx,
|
|
box, cursor_pos.x1 - x0, dir);
|
|
if (offset >= 0) {
|
|
/* match found : finished ! */
|
|
s->offset = offset;
|
|
} else {
|
|
/* find the closest box in the correct direction */
|
|
if (dir > 0)
|
|
m->xd = cursor_pos.x2;
|
|
else
|
|
m->xd = cursor_pos.x1;
|
|
m->y1 = cursor_pos.y1;
|
|
m->y2 = cursor_pos.y2;
|
|
|
|
m->dir = dir;
|
|
m->xdmin = MAXINT;
|
|
m->box = NULL;
|
|
|
|
css_box_iterate(hs->css_ctx, hs->top_box, m, left_right_func);
|
|
if (!m->box) {
|
|
/* no box found : go up or down */
|
|
html_move_up_down1(s, dir, -dir * (MAXINT / 2));
|
|
} else {
|
|
offset = css_get_offset_pos(hs->css_ctx, m->box,
|
|
cursor_pos.x1 - m->x0, dir);
|
|
if (offset >= 0) {
|
|
s->offset = offset;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static void html_move_bol_eol(EditState *s, int dir)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
LeftRightMoveContext m1, *m = &m1;
|
|
CSSRect cursor_pos;
|
|
int dirc, offset, x0, xtarget;
|
|
CSSBox *box;
|
|
|
|
if (!hs->up_to_date)
|
|
return;
|
|
|
|
/* get the cursor position. If not found, do nothing */
|
|
if (!css_get_cursor_pos(hs->css_ctx, hs->top_box,
|
|
&box, &x0, NULL,
|
|
&cursor_pos, &dirc, s->offset))
|
|
return;
|
|
|
|
/* find the box closest to x */
|
|
xtarget = -dir * (MAXINT / 2);
|
|
m->xd = xtarget;
|
|
m->y1 = cursor_pos.y1;
|
|
m->y2 = cursor_pos.y2;
|
|
|
|
m->dir = dir;
|
|
m->xdmin = MAXINT;
|
|
m->box = NULL;
|
|
css_box_iterate(hs->css_ctx, hs->top_box, m, left_right_func);
|
|
if (m->box) {
|
|
|
|
offset = css_get_offset_pos(hs->css_ctx, m->box, xtarget, dir);
|
|
if (offset >= 0) {
|
|
s->offset = offset;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void html_move_bol(EditState *s)
|
|
{
|
|
int offset;
|
|
offset = s->offset;
|
|
html_move_bol_eol(s, 1);
|
|
/* XXX: hack to allow to go back on left side */
|
|
if (offset == s->offset) {
|
|
s->x_disp[0] = 0;
|
|
}
|
|
}
|
|
|
|
static void html_move_eol(EditState *s)
|
|
{
|
|
html_move_bol_eol(s, -1);
|
|
}
|
|
|
|
/* mouse handling */
|
|
|
|
typedef struct {
|
|
int yd;
|
|
int xd;
|
|
int dy_min;
|
|
int dx_min;
|
|
CSSBox *box;
|
|
int x0;
|
|
int dx, dy;
|
|
} MouseGotoContext;
|
|
|
|
static int mouse_goto_func(void *opaque, CSSBox *box, int x, int y)
|
|
{
|
|
MouseGotoContext *m = opaque;
|
|
int dy, dx;
|
|
|
|
x += m->dx;
|
|
y += m->dy;
|
|
|
|
dy = seg_dist(m->yd, y, y + box->height);
|
|
if (dy < m->dy_min) {
|
|
m->dy_min = dy;
|
|
m->dx_min = 0x3fffffff;
|
|
}
|
|
if (dy == m->dy_min) {
|
|
dx = seg_dist(m->xd, x, x + box->width);
|
|
if (dx < m->dx_min) {
|
|
m->dx_min = dx;
|
|
m->box = box;
|
|
m->x0 = x;
|
|
/* fast exit test */
|
|
if (dy == 0 && dx == 0)
|
|
return -1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void html_mouse_goto(EditState *s, int x, int y)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
MouseGotoContext m1, *m = &m1;
|
|
int offset;
|
|
|
|
if (!hs->up_to_date)
|
|
return;
|
|
|
|
m->dx_min = 0x3fffffff;
|
|
m->dy_min = 0x3fffffff;
|
|
m->xd = x;
|
|
m->yd = y;
|
|
m->box = NULL;
|
|
m->dx = s->x_disp[0];
|
|
m->dy = s->y_disp;
|
|
css_box_iterate(hs->css_ctx, hs->top_box, m, mouse_goto_func);
|
|
if (m->box) {
|
|
offset = css_get_offset_pos(hs->css_ctx, m->box, x - m->x0, 0);
|
|
if (offset >= 0) {
|
|
s->offset = offset;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* invalidate the html data if modification done (XXX: be more precise) */
|
|
static void html_callback(EditBuffer *b,
|
|
void *opaque,
|
|
enum LogOperation op,
|
|
int offset,
|
|
int size)
|
|
{
|
|
EditState *s = opaque;
|
|
HTMLState *hs = s->mode_data;
|
|
hs->up_to_date = 0;
|
|
}
|
|
|
|
static void load_default_style_sheet(HTMLState *hs, const char *stylesheet_str,
|
|
int flags)
|
|
{
|
|
CSSStyleSheet *style_sheet;
|
|
|
|
style_sheet = css_new_style_sheet();
|
|
|
|
css_parse_style_sheet_str(style_sheet, stylesheet_str, flags);
|
|
|
|
hs->default_style_sheet = style_sheet;
|
|
}
|
|
|
|
/* graphical XML/CSS mode init. is_html is TRUE to tell that specific HTML
|
|
quirks are needed in the parser. */
|
|
int gxml_mode_init(EditState *s,
|
|
ModeSavedData *saved_data,
|
|
int flags, const char *default_stylesheet)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
|
|
if (!saved_data) {
|
|
memset(s, 0, SAVED_DATA_SIZE);
|
|
s->insert = 1;
|
|
s->tab_size = 8;
|
|
s->indent_size = 4;
|
|
s->default_style = QE_STYLE_DEFAULT;
|
|
s->wrap = WRAP_LINE;
|
|
} else {
|
|
memcpy(s, saved_data->generic_data, SAVED_DATA_SIZE);
|
|
}
|
|
|
|
eb_add_callback(s->b, html_callback, s);
|
|
hs->parse_flags = flags;
|
|
|
|
load_default_style_sheet(hs, default_stylesheet, flags);
|
|
|
|
hs->up_to_date = 0;
|
|
return 0;
|
|
}
|
|
|
|
static int html_mode_init(EditState *s, ModeSavedData *saved_data)
|
|
{
|
|
return gxml_mode_init(s, saved_data,
|
|
XML_HTML | XML_HTML_SYNTAX | XML_IGNORE_CASE,
|
|
html_style);
|
|
}
|
|
|
|
static void html_mode_close(EditState *s)
|
|
{
|
|
HTMLState *hs = s->mode_data;
|
|
eb_free_callback(s->b, html_callback, s);
|
|
|
|
s->busy = 0;
|
|
if (hs->top_box)
|
|
css_delete_box(hs->top_box);
|
|
if (hs->css_ctx)
|
|
css_delete_document(hs->css_ctx);
|
|
css_free_style_sheet(hs->default_style_sheet);
|
|
}
|
|
|
|
/* search for HTML tag */
|
|
static int html_mode_probe(ModeProbeData *p1)
|
|
{
|
|
const unsigned char *p = p1->buf;
|
|
int c, score;
|
|
|
|
score = 0;
|
|
for(;;) {
|
|
c = *p;
|
|
if (c == '\0')
|
|
break;
|
|
if (c < 32 && (c != '\r' && c != '\n' && c != '\t' && c != '\e'))
|
|
return 0;
|
|
if (stristart(p, "<HTML", NULL))
|
|
score = 100;
|
|
p++;
|
|
}
|
|
return score;
|
|
}
|
|
|
|
/* XXX: only works in insert mode */
|
|
static void do_html_electric(EditState *s, int key)
|
|
{
|
|
const char *str;
|
|
str = find_entity_str(key);
|
|
if (str) {
|
|
do_char(s, '&');
|
|
while (*str) {
|
|
do_char(s, *str++);
|
|
}
|
|
do_char(s, ';');
|
|
}
|
|
}
|
|
|
|
|
|
/* specific html commands */
|
|
static CmdDef html_commands[] = {
|
|
/* should use 'k' intrinsic argument */
|
|
CMDV( '<', KEY_NONE, "html-electric-lt", do_html_electric, '<', "*v")
|
|
CMDV( '>', KEY_NONE, "html-electric-gt", do_html_electric, '>', "*v")
|
|
CMDV( '&', KEY_NONE, "html-electric-amp", do_html_electric, '&', "*v")
|
|
CMD_DEF_END,
|
|
};
|
|
|
|
ModeDef html_mode = {
|
|
"html",
|
|
instance_size: sizeof(HTMLState),
|
|
mode_probe: html_mode_probe,
|
|
mode_init: html_mode_init,
|
|
mode_close: html_mode_close,
|
|
display: html_display,
|
|
move_left_right: html_move_left_right_visual,
|
|
move_up_down: html_move_up_down,
|
|
move_bol: html_move_bol,
|
|
move_eol: html_move_eol,
|
|
scroll_up_down: html_scroll_up_down,
|
|
write_char: text_write_char,
|
|
mouse_goto: html_mouse_goto,
|
|
};
|
|
|
|
static int html_init(void)
|
|
{
|
|
css_init();
|
|
|
|
qe_register_mode(&html_mode);
|
|
qe_register_cmd_table(html_commands, "html");
|
|
return 0;
|
|
}
|
|
|
|
qe_module_init(html_init);
|