mcabber: mcabber/src/screen.c annotate

annotate mcabber/src/screen.c @ 1226:2521efbf3b72

New (debug) subcommand, buffer list

author	Mikael Berthe <mikael@lilotux.net>
date	Sat, 19 May 2007 11:56:32 +0200
parents	0e9e9724d643
children	79c396678f1b

rev	line source
307 566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	1 /*
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	2 * screen.c -- UI stuff
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 389 diff changeset	3 *
1205 2de8f8ba1f34 Update copyrights Mikael Berthe <mikael@lilotux.net> parents: 1204 diff changeset	4 * Copyright (C) 2005-2007 Mikael Berthe <mikael@lilotux.net>
307 566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	5 * Parts of this file come from the Cabber project <cabber@ajmacias.com>
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	6 *
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	7 * This program is free software; you can redistribute it and/or modify
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	8 * it under the terms of the GNU General Public License as published by
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	9 * the Free Software Foundation; either version 2 of the License, or (at
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	10 * your option) any later version.
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	11 *
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	12 * This program is distributed in the hope that it will be useful, but
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	13 * WITHOUT ANY WARRANTY; without even the implied warranty of
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	15 * General Public License for more details.
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	16 *
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	17 * You should have received a copy of the GNU General Public License
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	18 * along with this program; if not, write to the Free Software
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	20 * USA
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	21 */
566818afee1c Add headers to C files Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	22
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	23 #include <stdio.h>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	24 #include <stdlib.h>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	25 #include <string.h>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	26 #include <time.h>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	27 #include <ctype.h>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	28 #include <locale.h>
232 9a6ba4b38e63 [/trunk] Changeset 245 by mikael mikael parents: 220 diff changeset	29 #include <langinfo.h>
929 f4bf564893b5 Fix ncurses #include Mikael Berthe <mikael@lilotux.net> parents: 898 diff changeset	30 #include <config.h>
f4bf564893b5 Fix ncurses #include Mikael Berthe <mikael@lilotux.net> parents: 898 diff changeset	31
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	32 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	33 # include <aspell.h>
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	34 #endif
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	35
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	36 #include "screen.h"
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	37 #include "utf8.h"
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	38 #include "hbuf.h"
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: 44 diff changeset	39 #include "commands.h"
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 84 diff changeset	40 #include "compl.h"
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	41 #include "roster.h"
180 42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	42 #include "histolog.h"
279 f5dd437c057b Rewrite the settings system Mikael Berthe <mikael@lilotux.net> parents: 276 diff changeset	43 #include "settings.h"
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	44 #include "utils.h"
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	45
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	46 #define get_color(col) (COLOR_PAIR(col)\|COLOR_ATTRIB[col])
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	47
515 180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	48 #define DEFAULT_LOG_WIN_HEIGHT (5+2)
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	49 #define DEFAULT_ROSTER_WIDTH 24
515 180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	50 #define CHAT_WIN_HEIGHT (maxY-1-Log_Win_Height)
180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	51
592 67a332121aea Try UTF8 -> locale conversion with fallback Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	52 char *LocaleCharSet = "C";
67a332121aea Try UTF8 -> locale conversion with fallback Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	53
515 180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	54 static unsigned short int Log_Win_Height;
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	55 static unsigned short int Roster_Width;
515 180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	56
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	57 static inline void check_offset(int);
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	58 static void scr_cancel_current_completion(void);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	59 static void scr_end_current_completion(void);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	60 static void scr_insert_text(const char*);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	61 static void scr_handle_tab(void);
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	62
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	63 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	64 static void spellcheck(char , char );
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	65 #endif
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	66
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	67 static GHashTable *winbufhash;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	68
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	69 typedef struct {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	70 GList *hbuf;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	71 GList *top; // If top is NULL, we'll display the last lines
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	72 char cleared; // For ex, user has issued a /clear command...
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	73 char lock;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	74 } buffdata;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	75
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	76 typedef struct {
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	77 WINDOW *win;
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	78 PANEL *panel;
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	79 buffdata *bd;
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	80 } winbuf;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	81
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	82 struct dimensions {
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	83 int l;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	84 int c;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	85 };
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	86
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	87 static WINDOW rosterWnd, chatWnd, activechatWnd, inputWnd, *logWnd;
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	88 static WINDOW mainstatusWnd, chatstatusWnd;
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	89 static PANEL rosterPanel, chatPanel, activechatPanel, inputPanel;
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	90 static PANEL mainstatusPanel, chatstatusPanel;
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	91 static PANEL *logPanel;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	92 static int maxY, maxX;
1093 6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	93 static int prev_chatwidth;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	94 static winbuf *statusWindow;
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	95 static winbuf *currentWindow;
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	96 static GList *statushbuf;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	97
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	98 static int roster_hidden;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	99 static int chatmode;
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	100 static int multimode;
807 f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	101 static char multiline, multimode_subj;
30 4ea2df449381 [/trunk] Changeset 46 by mikael mikael parents: 29 diff changeset	102 int update_roster;
232 9a6ba4b38e63 [/trunk] Changeset 245 by mikael mikael parents: 220 diff changeset	103 int utf8_mode = 0;
322 da138cdebf04 Implement auto-away mode Mikael Berthe <mikael@lilotux.net> parents: 314 diff changeset	104 static bool Autoaway;
332 a1901741890e scr_LogPrint() can be called before ncurses initialization Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	105 static bool Curses;
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	106 static bool log_win_on_top;
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	107 static bool roster_win_on_right;
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	108 static time_t LastActivity;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	109
174 6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	110 static char inputLine[INPUTLINE_LENGTH+1];
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	111 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	112 static char maskLine[INPUTLINE_LENGTH+1];
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	113 #endif
174 6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	114 static char *ptr_inputline;
6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	115 static short int inputline_offset;
6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	116 static int completion_started;
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	117 static GList *cmdhisto;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	118 static GList *cmdhisto_cur;
1127 fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	119 static guint cmdhisto_nblines;
174 6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	120 static char cmdhisto_backup[INPUTLINE_LENGTH+1];
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	121
991 ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	122 static int chatstate; /* (0=active, 1=composing, 2=paused) */
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	123 static bool lock_chatstate;
991 ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	124 static time_t chatstate_timestamp;
993 0759f4c7da68 Add option 'disable_chatstates' Mikael Berthe <mikael@lilotux.net> parents: 992 diff changeset	125 int chatstates_disabled;
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	126
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	127 #define MAX_KEYSEQ_LENGTH 8
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	128
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	129 typedef struct {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	130 char *seqstr;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	131 guint mkeycode;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	132 gint value;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	133 } keyseq;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	134
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	135 GSList *keyseqlist;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	136 static void add_keyseq(char *seqstr, guint mkeycode, gint value);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	137
850 d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	138 void scr_WriteInWindow(const char winId, const char text, time_t timestamp,
d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	139 unsigned int prefix_flags, int force_show);
d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	140
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	141 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	142 #define ASPELLBADCHAR 5
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	143 AspellConfig *spell_config;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	144 AspellSpeller *spell_checker;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	145 #endif
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	146
99 7fffb8a6b229 [/trunk] Changeset 113 by mikael mikael parents: 98 diff changeset	147 /* Functions */
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	148
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	149 static int FindColor(const char *name)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	150 {
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	151 if (!strcmp(name, "default"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	152 return -1;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	153 if (!strcmp(name, "black"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	154 return COLOR_BLACK;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	155 if (!strcmp(name, "red"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	156 return COLOR_RED;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	157 if (!strcmp(name, "green"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	158 return COLOR_GREEN;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	159 if (!strcmp(name, "yellow"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	160 return COLOR_YELLOW;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	161 if (!strcmp(name, "blue"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	162 return COLOR_BLUE;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	163 if (!strcmp(name, "magenta"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	164 return COLOR_MAGENTA;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	165 if (!strcmp(name, "cyan"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	166 return COLOR_CYAN;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	167 if (!strcmp(name, "white"))
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	168 return COLOR_WHITE;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	169
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	170 scr_LogPrint(LPRINT_LOGNORM, "ERROR: Wrong color: %s", name);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	171 return -1;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	172 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	173
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	174 static void ParseColors(void)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	175 {
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	176 const char *colors[] = {
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	177 "", "",
267 8d3d5bd52da3 Improve color configuration mikael@frmp8452 parents: 265 diff changeset	178 "general",
785 7e0562e3bc83 Replace color_highlight with color_msgout Mikael Berthe <mikael@lilotux.net> parents: 779 diff changeset	179 "msgout",
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	180 "msghl",
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	181 "status",
712 e1639629c87b Rename color options Mikael Berthe <mikael@lilotux.net> parents: 711 diff changeset	182 "roster",
e1639629c87b Rename color options Mikael Berthe <mikael@lilotux.net> parents: 711 diff changeset	183 "rostersel",
723 23068490d063 Add text color when the selected buddy has an unread message Mikael Berthe <mikael@lilotux.net> parents: 721 diff changeset	184 "rosterselmsg",
712 e1639629c87b Rename color options Mikael Berthe <mikael@lilotux.net> parents: 711 diff changeset	185 "rosternewmsg",
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	186 NULL
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	187 };
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	188
281 f562b9af2de7 Add "const" specifier in prototypes Mikael Berthe <mikael@lilotux.net> parents: 279 diff changeset	189 const char *color;
f562b9af2de7 Add "const" specifier in prototypes Mikael Berthe <mikael@lilotux.net> parents: 279 diff changeset	190 const char *background = settings_opt_get("color_background");
712 e1639629c87b Rename color options Mikael Berthe <mikael@lilotux.net> parents: 711 diff changeset	191 const char *backselected = settings_opt_get("color_bgrostersel");
e1639629c87b Rename color options Mikael Berthe <mikael@lilotux.net> parents: 711 diff changeset	192 const char *backstatus = settings_opt_get("color_bgstatus");
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	193 char *tmp;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	194 int i;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	195
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	196 // Initialize color attributes
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	197 memset(COLOR_ATTRIB, 0, sizeof(COLOR_ATTRIB));
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	198
267 8d3d5bd52da3 Improve color configuration mikael@frmp8452 parents: 265 diff changeset	199 // Default values
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	200 if (!background) background = "black";
267 8d3d5bd52da3 Improve color configuration mikael@frmp8452 parents: 265 diff changeset	201 if (!backselected) backselected = "cyan";
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	202 if (!backstatus) backstatus = "blue";
267 8d3d5bd52da3 Improve color configuration mikael@frmp8452 parents: 265 diff changeset	203
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	204 for (i=0; colors[i]; i++) {
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	205 tmp = g_strdup_printf("color_%s", colors[i]);
279 f5dd437c057b Rewrite the settings system Mikael Berthe <mikael@lilotux.net> parents: 276 diff changeset	206 color = settings_opt_get(tmp);
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	207 g_free(tmp);
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	208
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	209 if (color) {
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	210 if (!strncmp(color, "bright", 6)) {
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	211 COLOR_ATTRIB[i+1] = A_BOLD;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	212 color += 6;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	213 }
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	214 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	215
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	216 switch (i + 1) {
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	217 case 1:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	218 init_pair(1, COLOR_BLACK, COLOR_WHITE);
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	219 break;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	220 case 2:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	221 init_pair(2, COLOR_WHITE, COLOR_BLACK);
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	222 break;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	223 case COLOR_GENERAL:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	224 init_pair(i+1, ((color) ? FindColor(color) : COLOR_WHITE),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	225 FindColor(background));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	226 break;
785 7e0562e3bc83 Replace color_highlight with color_msgout Mikael Berthe <mikael@lilotux.net> parents: 779 diff changeset	227 case COLOR_MSGOUT:
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	228 init_pair(i+1, ((color) ? FindColor(color) : COLOR_CYAN),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	229 FindColor(background));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	230 break;
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	231 case COLOR_MSGHL:
e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	232 init_pair(i+1, ((color) ? FindColor(color) : COLOR_YELLOW),
e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	233 FindColor(background));
e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	234 break;
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	235 case COLOR_STATUS:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	236 init_pair(i+1, ((color) ? FindColor(color) : COLOR_WHITE),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	237 FindColor(backstatus));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	238 break;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	239 case COLOR_ROSTER:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	240 init_pair(i+1, ((color) ? FindColor(color) : COLOR_GREEN),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	241 FindColor(background));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	242 break;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	243 case COLOR_ROSTERSEL:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	244 init_pair(i+1, ((color) ? FindColor(color) : COLOR_BLUE),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	245 FindColor(backselected));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	246 break;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	247 case COLOR_ROSTERSELNMSG:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	248 init_pair(i+1, ((color) ? FindColor(color) : COLOR_RED),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	249 FindColor(backselected));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	250 break;
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	251 case COLOR_ROSTERNMSG:
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	252 init_pair(i+1, ((color) ? FindColor(color) : COLOR_RED),
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	253 FindColor(background));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	254 break;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	255 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	256 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	257 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	258
765 72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	259 static void init_keycodes(void)
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	260 {
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	261 add_keyseq("O5A", MKEY_EQUIV, 521); // Ctrl-Up
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	262 add_keyseq("O5B", MKEY_EQUIV, 514); // Ctrl-Down
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	263 add_keyseq("O5C", MKEY_EQUIV, 518); // Ctrl-Right
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	264 add_keyseq("O5D", MKEY_EQUIV, 516); // Ctrl-Left
763 6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	265 add_keyseq("O6A", MKEY_EQUIV, 520); // Shift-Up
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	266 add_keyseq("O6B", MKEY_EQUIV, 513); // Shift-Down
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	267 add_keyseq("O6C", MKEY_EQUIV, 402); // Shift-Right
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	268 add_keyseq("O6D", MKEY_EQUIV, 393); // Shift-Left
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	269 add_keyseq("O2A", MKEY_EQUIV, 520); // Shift-Up
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	270 add_keyseq("O2B", MKEY_EQUIV, 513); // Shift-Down
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	271 add_keyseq("O2C", MKEY_EQUIV, 402); // Shift-Right
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	272 add_keyseq("O2D", MKEY_EQUIV, 393); // Shift-Left
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	273 add_keyseq("[5^", MKEY_CTRL_PGUP, 0); // Ctrl-PageUp
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	274 add_keyseq("[6^", MKEY_CTRL_PGDOWN, 0); // Ctrl-PageDown
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	275 add_keyseq("[5@", MKEY_CTRL_SHIFT_PGUP, 0); // Ctrl-Shift-PageUp
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	276 add_keyseq("[6@", MKEY_CTRL_SHIFT_PGDOWN, 0); // Ctrl-Shift-PageDown
826 3a3c7a017904 Add Ctrl-Shift-{Home,End} key code sequences Mikael Berthe <mikael@lilotux.net> parents: 825 diff changeset	277 add_keyseq("[7@", MKEY_CTRL_SHIFT_HOME, 0); // Ctrl-Shift-Home
3a3c7a017904 Add Ctrl-Shift-{Home,End} key code sequences Mikael Berthe <mikael@lilotux.net> parents: 825 diff changeset	278 add_keyseq("[8@", MKEY_CTRL_SHIFT_END, 0); // Ctrl-Shift-End
794 32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	279 add_keyseq("[8^", MKEY_CTRL_END, 0); // Ctrl-End
32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	280 add_keyseq("[7^", MKEY_CTRL_HOME, 0); // Ctrl-Home
32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	281 add_keyseq("[2^", MKEY_CTRL_INS, 0); // Ctrl-Insert
32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	282 add_keyseq("[3^", MKEY_CTRL_DEL, 0); // Ctrl-Delete
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	283
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	284 // Xterm
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	285 add_keyseq("[1;5A", MKEY_EQUIV, 521); // Ctrl-Up
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	286 add_keyseq("[1;5B", MKEY_EQUIV, 514); // Ctrl-Down
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	287 add_keyseq("[1;5C", MKEY_EQUIV, 518); // Ctrl-Right
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	288 add_keyseq("[1;5D", MKEY_EQUIV, 516); // Ctrl-Left
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	289 add_keyseq("[1;6A", MKEY_EQUIV, 520); // Ctrl-Shift-Up
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	290 add_keyseq("[1;6B", MKEY_EQUIV, 513); // Ctrl-Shift-Down
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	291 add_keyseq("[1;6C", MKEY_EQUIV, 402); // Ctrl-Shift-Right
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	292 add_keyseq("[1;6D", MKEY_EQUIV, 393); // Ctrl-Shift-Left
826 3a3c7a017904 Add Ctrl-Shift-{Home,End} key code sequences Mikael Berthe <mikael@lilotux.net> parents: 825 diff changeset	293 add_keyseq("[1;6H", MKEY_CTRL_SHIFT_HOME, 0); // Ctrl-Shift-Home
3a3c7a017904 Add Ctrl-Shift-{Home,End} key code sequences Mikael Berthe <mikael@lilotux.net> parents: 825 diff changeset	294 add_keyseq("[1;6F", MKEY_CTRL_SHIFT_END, 0); // Ctrl-Shift-End
763 6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	295 add_keyseq("[1;2A", MKEY_EQUIV, 521); // Shift-Up
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	296 add_keyseq("[1;2B", MKEY_EQUIV, 514); // Shift-Down
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	297 add_keyseq("[5;5~", MKEY_CTRL_PGUP, 0); // Ctrl-PageUp
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	298 add_keyseq("[6;5~", MKEY_CTRL_PGDOWN, 0); // Ctrl-PageDown
794 32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	299 add_keyseq("[1;5F", MKEY_CTRL_END, 0); // Ctrl-End
32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	300 add_keyseq("[1;5H", MKEY_CTRL_HOME, 0); // Ctrl-Home
32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	301 add_keyseq("[2;5~", MKEY_CTRL_INS, 0); // Ctrl-Insert
32d5298f9f8d Add a few keycode sequences Mikael Berthe <mikael@lilotux.net> parents: 790 diff changeset	302 add_keyseq("[3;5~", MKEY_CTRL_DEL, 0); // Ctrl-Delete
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	303
768 0f6d25a02450 Add PuTTY escape keys for Ctrl-arrows Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	304 // PuTTY
0f6d25a02450 Add PuTTY escape keys for Ctrl-arrows Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	305 add_keyseq("[A", MKEY_EQUIV, 521); // Ctrl-Up
0f6d25a02450 Add PuTTY escape keys for Ctrl-arrows Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	306 add_keyseq("[B", MKEY_EQUIV, 514); // Ctrl-Down
0f6d25a02450 Add PuTTY escape keys for Ctrl-arrows Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	307 add_keyseq("[C", MKEY_EQUIV, 518); // Ctrl-Right
0f6d25a02450 Add PuTTY escape keys for Ctrl-arrows Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	308 add_keyseq("[D", MKEY_EQUIV, 516); // Ctrl-Left
0f6d25a02450 Add PuTTY escape keys for Ctrl-arrows Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	309
762 96d46e00524a Add some key escape sequences for screen Mikael Berthe <mikael@lilotux.net> parents: 761 diff changeset	310 // screen
96d46e00524a Add some key escape sequences for screen Mikael Berthe <mikael@lilotux.net> parents: 761 diff changeset	311 add_keyseq("Oa", MKEY_EQUIV, 521); // Ctrl-Up
96d46e00524a Add some key escape sequences for screen Mikael Berthe <mikael@lilotux.net> parents: 761 diff changeset	312 add_keyseq("Ob", MKEY_EQUIV, 514); // Ctrl-Down
96d46e00524a Add some key escape sequences for screen Mikael Berthe <mikael@lilotux.net> parents: 761 diff changeset	313 add_keyseq("Oc", MKEY_EQUIV, 518); // Ctrl-Right
96d46e00524a Add some key escape sequences for screen Mikael Berthe <mikael@lilotux.net> parents: 761 diff changeset	314 add_keyseq("Od", MKEY_EQUIV, 516); // Ctrl-Left
763 6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	315 add_keyseq("[a", MKEY_EQUIV, 520); // Shift-Up
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	316 add_keyseq("[b", MKEY_EQUIV, 513); // Shift-Down
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	317 add_keyseq("[c", MKEY_EQUIV, 402); // Shift-Right
6866ee749225 More keycodes Mikael Berthe <mikael@lilotux.net> parents: 762 diff changeset	318 add_keyseq("[d", MKEY_EQUIV, 393); // Shift-Left
765 72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	319 add_keyseq("[5$", MKEY_SHIFT_PGUP, 0); // Shift-PageUp
72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	320 add_keyseq("[6$", MKEY_SHIFT_PGDOWN, 0); // Shift-PageDown
1170 29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	321
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	322 // VT100
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	323 add_keyseq("[H", MKEY_EQUIV, KEY_HOME); // Home
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	324 add_keyseq("[F", MKEY_EQUIV, KEY_END); // End
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	325
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	326 // Konsole Linux
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	327 add_keyseq("[1~", MKEY_EQUIV, KEY_HOME); // Home
29f805d8412f Add some keycodes Mikael Berthe <mikael@lilotux.net> parents: 1168 diff changeset	328 add_keyseq("[4~", MKEY_EQUIV, KEY_END); // End
765 72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	329 }
72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	330
1176 547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	331 // scr_init_bindings()
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	332 // Create default key bindings
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	333 // Return 0 if error and 1 if none
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	334 void scr_init_bindings(void)
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	335 {
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	336 GString *sbuf = g_string_new("");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	337
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	338 // Common backspace key codes: 8, 127
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	339 settings_set(SETTINGS_TYPE_BINDING, "8", "iline char_bdel"); // Ctrl-h
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	340 settings_set(SETTINGS_TYPE_BINDING, "127", "iline char_bdel");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	341 g_string_printf(sbuf, "%d", KEY_BACKSPACE);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	342 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline char_bdel");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	343 g_string_printf(sbuf, "%d", KEY_DC);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	344 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline char_fdel");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	345 g_string_printf(sbuf, "%d", KEY_LEFT);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	346 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline bchar");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	347 g_string_printf(sbuf, "%d", KEY_RIGHT);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	348 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline fchar");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	349 settings_set(SETTINGS_TYPE_BINDING, "7", "iline compl_cancel"); // Ctrl-g
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	350 g_string_printf(sbuf, "%d", KEY_UP);
1190 be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	351 settings_set(SETTINGS_TYPE_BINDING, sbuf->str,
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	352 "iline hist_beginning_search_bwd");
1176 547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	353 g_string_printf(sbuf, "%d", KEY_DOWN);
1190 be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	354 settings_set(SETTINGS_TYPE_BINDING, sbuf->str,
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	355 "iline hist_beginning_search_fwd");
1176 547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	356 g_string_printf(sbuf, "%d", KEY_PPAGE);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	357 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "roster up");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	358 g_string_printf(sbuf, "%d", KEY_NPAGE);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	359 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "roster down");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	360 g_string_printf(sbuf, "%d", KEY_HOME);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	361 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline iline_start");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	362 settings_set(SETTINGS_TYPE_BINDING, "1", "iline iline_start"); // Ctrl-a
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	363 g_string_printf(sbuf, "%d", KEY_END);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	364 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline iline_end");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	365 settings_set(SETTINGS_TYPE_BINDING, "5", "iline iline_end"); // Ctrl-e
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	366 // Ctrl-o (accept-line-and-down-history):
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	367 settings_set(SETTINGS_TYPE_BINDING, "15", "iline iline_accept_down_hist");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	368 settings_set(SETTINGS_TYPE_BINDING, "21", "iline iline_bdel"); // Ctrl-u
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	369 g_string_printf(sbuf, "%d", KEY_EOL);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	370 settings_set(SETTINGS_TYPE_BINDING, sbuf->str, "iline iline_fdel");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	371 settings_set(SETTINGS_TYPE_BINDING, "11", "iline iline_fdel"); // Ctrl-k
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	372 settings_set(SETTINGS_TYPE_BINDING, "16", "buffer up"); // Ctrl-p
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	373 settings_set(SETTINGS_TYPE_BINDING, "14", "buffer down"); // Ctrl-n
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	374 settings_set(SETTINGS_TYPE_BINDING, "20", "iline char_swap"); // Ctrl-t
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	375 settings_set(SETTINGS_TYPE_BINDING, "23", "iline word_bdel"); // Ctrl-w
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	376 settings_set(SETTINGS_TYPE_BINDING, "M98", "iline bword"); // Meta-b
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	377 settings_set(SETTINGS_TYPE_BINDING, "M102", "iline fword"); // Meta-f
1186 0158bd8ca9d6 Add a default binding to Meta-d (iline word_fdel) Mikael Berthe <mikael@lilotux.net> parents: 1185 diff changeset	378 settings_set(SETTINGS_TYPE_BINDING, "M100", "iline word_fdel"); // Meta-d
1176 547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	379 // Ctrl-Left (2 codes):
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	380 settings_set(SETTINGS_TYPE_BINDING, "515", "iline bword");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	381 settings_set(SETTINGS_TYPE_BINDING, "516", "iline bword");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	382 // Ctrl-Right (2 codes):
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	383 settings_set(SETTINGS_TYPE_BINDING, "517", "iline fword");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	384 settings_set(SETTINGS_TYPE_BINDING, "518", "iline fword");
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	385 settings_set(SETTINGS_TYPE_BINDING, "12", "screen_refresh"); // Ctrl-l
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	386 settings_set(SETTINGS_TYPE_BINDING, "27", "chat_disable"); // Esc
1185 5c34af370b67 Bind Meta-Esc (Esc-Esc) to chat_disable by default Mikael Berthe <mikael@lilotux.net> parents: 1179 diff changeset	387 settings_set(SETTINGS_TYPE_BINDING, "M27", "chat_disable"); // Esc-Esc
1176 547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	388 settings_set(SETTINGS_TYPE_BINDING, "4", "iline send_multiline"); // Ctrl-d
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	389 settings_set(SETTINGS_TYPE_BINDING, "M117", "iline word_upcase"); // Meta-u
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	390 settings_set(SETTINGS_TYPE_BINDING, "M108", "iline word_downcase"); // Meta-l
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	391 settings_set(SETTINGS_TYPE_BINDING, "M99", "iline word_capit"); // Meta-c
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	392
1208 0dbe51d1e62e Add default binding for F1 (265) to /help Mikael Berthe <mikael@lilotux.net> parents: 1205 diff changeset	393 settings_set(SETTINGS_TYPE_BINDING, "265", "help"); // Bind F1 to help...
0dbe51d1e62e Add default binding for F1 (265) to /help Mikael Berthe <mikael@lilotux.net> parents: 1205 diff changeset	394
1176 547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	395 g_string_free(sbuf, TRUE);
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	396 }
547a8ca7c1a8 Move init_bindings() to screen.c, with a few updates Mikael Berthe <mikael@lilotux.net> parents: 1173 diff changeset	397
779 057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	398 void scr_InitLocaleCharSet(void)
057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	399 {
057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	400 setlocale(LC_CTYPE, "");
057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	401 LocaleCharSet = nl_langinfo(CODESET);
057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	402 utf8_mode = (strcmp(LocaleCharSet, "UTF-8") == 0);
057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	403 }
057ffe7c43dc Initialize locale charset earlier Mikael Berthe <mikael@lilotux.net> parents: 773 diff changeset	404
765 72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	405 void scr_InitCurses(void)
72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	406 {
72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	407 /* Key sequences initialization */
72626e9d60bd Create init_keycodes(), add 2 screen escape sequences Mikael Berthe <mikael@lilotux.net> parents: 764 diff changeset	408 init_keycodes();
762 96d46e00524a Add some key escape sequences for screen Mikael Berthe <mikael@lilotux.net> parents: 761 diff changeset	409
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	410 initscr();
382 4c6e8392e465 Use nodelay() instead of halfdelay() Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	411 raw();
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	412 noecho();
389 6e895f397474 Ncurses changes + Ctrl-C does not send a signal anylore Mikael Berthe <mikael@lilotux.net> parents: 388 diff changeset	413 nonl();
6e895f397474 Ncurses changes + Ctrl-C does not send a signal anylore Mikael Berthe <mikael@lilotux.net> parents: 388 diff changeset	414 intrflush(stdscr, FALSE);
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	415 start_color();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	416 use_default_colors();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	417
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	418 ParseColors();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	419
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	420 getmaxyx(stdscr, maxY, maxX);
515 180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	421 Log_Win_Height = DEFAULT_LOG_WIN_HEIGHT;
518 9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	422 // Note scr_DrawMainWindow() should be called early after scr_InitCurses()
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	423 // to update Log_Win_Height and set max{X,Y}
515 180f0a6e4ac9 Log window's height can be set by the user Mikael Berthe <mikael@lilotux.net> parents: 514 diff changeset	424
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	425 inputLine[0] = 0;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	426 ptr_inputline = inputLine;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	427
966 d9acb7f2a3d1 Do not set Curses variable too early Mikael Berthe <mikael@lilotux.net> parents: 961 diff changeset	428 Curses = TRUE;
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	429 return;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	430 }
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	431
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	432 void scr_TerminateCurses(void)
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	433 {
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	434 if (!Curses) return;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	435 clear();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	436 refresh();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	437 endwin();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	438 Curses = FALSE;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	439 return;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	440 }
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	441
675 ae7016aae014 New "beep_on_message" option Mikael Berthe <mikael@lilotux.net> parents: 667 diff changeset	442 inline void scr_Beep(void)
ae7016aae014 New "beep_on_message" option Mikael Berthe <mikael@lilotux.net> parents: 667 diff changeset	443 {
ae7016aae014 New "beep_on_message" option Mikael Berthe <mikael@lilotux.net> parents: 667 diff changeset	444 beep();
ae7016aae014 New "beep_on_message" option Mikael Berthe <mikael@lilotux.net> parents: 667 diff changeset	445 }
ae7016aae014 New "beep_on_message" option Mikael Berthe <mikael@lilotux.net> parents: 667 diff changeset	446
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	447 // scr_LogPrint(...)
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	448 // Display a message in the log window.
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	449 // This function will convert from UTF-8 unless the LPRINT_NOTUTF8 flag is set.
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	450 void scr_LogPrint(unsigned int flag, const char *fmt, ...)
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	451 {
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	452 time_t timestamp;
857 ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	453 char strtimestamp[64];
858 2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	454 char buffer, btext;
1075 03bc225ad763 Improve scr_LogPrint() readability Mikael Berthe <mikael@lilotux.net> parents: 1072 diff changeset	455 char convbuf1 = NULL, convbuf2 = NULL;
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	456 va_list ap;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	457
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	458 if (!(flag & ~LPRINT_NOTUTF8)) return; // Shouldn't happen
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	459
857 ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	460 timestamp = time(NULL);
ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	461 strftime(strtimestamp, 48, "[%H:%M:%S]", localtime(&timestamp));
ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	462 va_start(ap, fmt);
858 2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	463 btext = g_strdup_vprintf(fmt, ap);
857 ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	464 va_end(ap);
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	465
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	466 if (flag & LPRINT_NORMAL) {
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	467 char *buffer_locale;
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	468 char *buf_specialwindow;
da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	469
858 2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	470 buffer = g_strdup_printf("%s %s", strtimestamp, btext);
2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	471
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	472 // Convert buffer to current locale for wprintw()
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	473 if (!(flag & LPRINT_NOTUTF8))
1075 03bc225ad763 Improve scr_LogPrint() readability Mikael Berthe <mikael@lilotux.net> parents: 1072 diff changeset	474 buffer_locale = convbuf1 = from_utf8(buffer);
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	475 else
ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	476 buffer_locale = buffer;
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	477
884 9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	478 if (!buffer_locale) {
9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	479 wprintw(logWnd,
9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	480 "\n%s*Error: cannot convert string to locale.", strtimestamp);
9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	481 update_panels();
9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	482 g_free(buffer);
897 a05b5a16a06a Fix memory leak in scr_LogPrint() Mikael Berthe <mikael@lilotux.net> parents: 891 diff changeset	483 g_free(btext);
884 9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	484 return;
9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	485 }
9e6d9f0cf9eb scr_LogPrint(): Add a warning for UTF-8 -> locale conversion failures Mikael Berthe <mikael@lilotux.net> parents: 880 diff changeset	486
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	487 // For the special status buffer, we need utf-8, but without the timestamp
da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	488 if (flag & LPRINT_NOTUTF8)
1075 03bc225ad763 Improve scr_LogPrint() readability Mikael Berthe <mikael@lilotux.net> parents: 1072 diff changeset	489 buf_specialwindow = convbuf2 = to_utf8(btext);
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	490 else
858 2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	491 buf_specialwindow = btext;
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	492
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	493 if (Curses) {
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	494 wprintw(logWnd, "\n%s", buffer_locale);
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	495 update_panels();
850 d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	496 scr_WriteInWindow(NULL, buf_specialwindow, timestamp,
d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	497 HBB_PREFIX_SPECIAL, FALSE);
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	498 } else {
771 ce4f8a2129a4 scr_LogPrint() can display UTF-8 strings Mikael Berthe <mikael@lilotux.net> parents: 770 diff changeset	499 printf("%s\n", buffer_locale);
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	500 // ncurses are not initialized yet, so we call directly hbuf routine
da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	501 hbuf_add_line(&statushbuf, buf_specialwindow, timestamp,
1141 5be2408a6534 Add option "max_history_blocks" Mikael Berthe <mikael@lilotux.net> parents: 1139 diff changeset	502 HBB_PREFIX_SPECIAL, 0, 0);
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	503 }
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	504
1075 03bc225ad763 Improve scr_LogPrint() readability Mikael Berthe <mikael@lilotux.net> parents: 1072 diff changeset	505 g_free(convbuf1);
03bc225ad763 Improve scr_LogPrint() readability Mikael Berthe <mikael@lilotux.net> parents: 1072 diff changeset	506 g_free(convbuf2);
858 2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	507 g_free(buffer);
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	508 }
412 9c640ee3bae3 Display full date in the log file Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	509
857 ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	510 if (flag & (LPRINT_LOG\|LPRINT_DEBUG)) {
ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	511 strftime(strtimestamp, 23, "[%Y-%m-%d %H:%M:%S]", localtime(&timestamp));
858 2683ad5d1003 Improve scr_LogPrint() for log/debug messages Mikael Berthe <mikael@lilotux.net> parents: 857 diff changeset	512 buffer = g_strdup_printf("%s %s\n", strtimestamp, btext);
857 ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	513 ut_WriteLog(flag, buffer);
ef35a2bb40d7 scr_LogPrint(): do not use static buffer size Mikael Berthe <mikael@lilotux.net> parents: 851 diff changeset	514 g_free(buffer);
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	515 }
897 a05b5a16a06a Fix memory leak in scr_LogPrint() Mikael Berthe <mikael@lilotux.net> parents: 891 diff changeset	516 g_free(btext);
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	517 }
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	518
1156 cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	519 static winbuf scr_SearchWindow(const char winId, int special)
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	520 {
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	521 char *id;
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	522 winbuf *wbp;
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	523
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	524 if (special)
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	525 return statusWindow; // Only one special window atm.
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	526
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	527 if (!winId)
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	528 return NULL;
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	529
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	530 id = g_strdup(winId);
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	531 mc_strtolower(id);
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	532 wbp = g_hash_table_lookup(winbufhash, id);
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	533 g_free(id);
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	534 return wbp;
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	535 }
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	536
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	537 int scr_BuddyBufferExists(const char *bjid)
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	538 {
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	539 return (scr_SearchWindow(bjid, FALSE) != NULL);
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	540 }
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	541
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	542 // scr_new_buddy(title, dontshow)
1139 104676e3389b Update documentation Mikael Berthe <mikael@lilotux.net> parents: 1138 diff changeset	543 // Note: title (aka winId/jid) can be NULL for special buffers
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	544 static winbuf scr_new_buddy(const char title, int dont_show)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	545 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	546 winbuf *tmp;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 389 diff changeset	547
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	548 tmp = g_new0(winbuf, 1);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	549
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	550 tmp->win = activechatWnd;
9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	551 tmp->panel = activechatPanel;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	552
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	553 if (!dont_show) {
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	554 currentWindow = tmp;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	555 } else {
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	556 if (currentWindow)
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	557 top_panel(currentWindow->panel);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	558 else
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	559 top_panel(chatPanel);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	560 }
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	561 update_panels();
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	562
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	563 // If title is NULL, this is a special buffer
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	564 if (title) {
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	565 char *id;
1156 cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	566 id = hlog_get_log_jid(title);
cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	567 if (id) {
1160 14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	568 winbuf *wb = scr_SearchWindow(id, FALSE);
14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	569 if (!wb)
14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	570 wb = scr_new_buddy(id, TRUE);
14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	571 tmp->bd=wb->bd;
1156 cae430fcd385 Mcabber will load symlinked histories only once, now. Frank Zschockelt parents: 1154 diff changeset	572 g_free(id);
1159 53c0c5be43fa Small fixes, typos and cleanups Mikael Berthe <mikael@lilotux.net> parents: 1157 diff changeset	573 } else { // Load buddy history from file (if enabled)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	574 tmp->bd = g_new0(buffdata, 1);
1159 53c0c5be43fa Small fixes, typos and cleanups Mikael Berthe <mikael@lilotux.net> parents: 1157 diff changeset	575 hlog_read_history(title, &tmp->bd->hbuf,
53c0c5be43fa Small fixes, typos and cleanups Mikael Berthe <mikael@lilotux.net> parents: 1157 diff changeset	576 maxX - Roster_Width - PREFIX_WIDTH);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	577 }
181 4a0bde661562 [/trunk] Changeset 193 by mikael mikael parents: 180 diff changeset	578
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	579 id = g_strdup(title);
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	580 mc_strtolower(id);
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	581 g_hash_table_insert(winbufhash, id, tmp);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	582 } else {
1159 53c0c5be43fa Small fixes, typos and cleanups Mikael Berthe <mikael@lilotux.net> parents: 1157 diff changeset	583 tmp->bd = g_new0(buffdata, 1);
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	584 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	585 return tmp;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	586 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	587
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	588 // scr_UpdateWindow()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	589 // (Re-)Display the given chat window.
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	590 static void scr_UpdateWindow(winbuf *win_entry)
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	591 {
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	592 int n;
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	593 int width;
184 b5aa2b9c425a [/trunk] Changeset 196 by mikael mikael parents: 181 diff changeset	594 hbb_line *lines, line;
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	595 GList *hbuf_head;
850 d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	596 char date[64];
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	597
1077 c51ca5225516 Remove useless WindowWidth function Mikael Berthe <mikael@lilotux.net> parents: 1076 diff changeset	598 width = getmaxx(win_entry->win);
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	599
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	600 // Should the window be empty?
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	601 if (win_entry->bd->cleared) {
168 6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	602 werase(win_entry->win);
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	603 return;
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	604 }
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	605
1160 14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	606 // win_entry->bd->top is the top message of the screen. If it set to NULL,
14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	607 // we are displaying the last messages.
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	608
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	609 // We will show the last CHAT_WIN_HEIGHT lines.
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	610 // Let's find out where it begins.
1160 14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	611 if (!win_entry->bd->top \|\| (g_list_position(g_list_first(win_entry->bd->hbuf),
14f5876b5555 Slight optimization + line wrapping Mikael Berthe <mikael@lilotux.net> parents: 1159 diff changeset	612 win_entry->bd->top) == -1)) {
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	613 // Move up CHAT_WIN_HEIGHT lines
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	614 win_entry->bd->hbuf = g_list_last(win_entry->bd->hbuf);
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	615 hbuf_head = win_entry->bd->hbuf;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	616 win_entry->bd->top = NULL; // (Just to make sure)
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	617 n = 0;
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	618 while (hbuf_head && (n < CHAT_WIN_HEIGHT-1) && g_list_previous(hbuf_head)) {
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	619 hbuf_head = g_list_previous(hbuf_head);
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	620 n++;
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	621 }
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	622 // If the buffer is locked, remember current "top" line for the next time.
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	623 if (win_entry->bd->lock)
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	624 win_entry->bd->top = hbuf_head;
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	625 } else
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	626 hbuf_head = win_entry->bd->top;
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	627
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	628 // Get the last CHAT_WIN_HEIGHT lines.
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	629 lines = hbuf_get_lines(hbuf_head, CHAT_WIN_HEIGHT);
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	630
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	631 // Display these lines
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	632 for (n = 0; n < CHAT_WIN_HEIGHT; n++) {
168 6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	633 wmove(win_entry->win, n, 0);
184 b5aa2b9c425a [/trunk] Changeset 196 by mikael mikael parents: 181 diff changeset	634 line = *(lines+n);
185 e8e447a07641 [/trunk] Changeset 197 by mikael mikael parents: 184 diff changeset	635 // NOTE: update PREFIX_WIDTH if you change the date format!!
e8e447a07641 [/trunk] Changeset 197 by mikael mikael parents: 184 diff changeset	636 // You need to set it to the whole prefix length + 1
184 b5aa2b9c425a [/trunk] Changeset 196 by mikael mikael parents: 181 diff changeset	637 if (line) {
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	638 if (line->flags & HBB_PREFIX_HLIGHT_OUT)
785 7e0562e3bc83 Replace color_highlight with color_msgout Mikael Berthe <mikael@lilotux.net> parents: 779 diff changeset	639 wattrset(win_entry->win, get_color(COLOR_MSGOUT));
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	640 else if (line->flags & HBB_PREFIX_HLIGHT)
e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	641 wattrset(win_entry->win, get_color(COLOR_MSGHL));
730 e46c680bdd3d New color: color_highlight (for outgoing messages) Mikael Berthe <mikael@lilotux.net> parents: 729 diff changeset	642
850 d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	643 if (line->timestamp && !(line->flags & HBB_PREFIX_SPECIAL)) {
419 2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 412 diff changeset	644 strftime(date, 30, "%m-%d %H:%M", localtime(&line->timestamp));
184 b5aa2b9c425a [/trunk] Changeset 196 by mikael mikael parents: 181 diff changeset	645 } else
185 e8e447a07641 [/trunk] Changeset 197 by mikael mikael parents: 184 diff changeset	646 strcpy(date, " ");
197 c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	647 if (line->flags & HBB_PREFIX_INFO) {
c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	648 char dir = '*';
c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	649 if (line->flags & HBB_PREFIX_IN)
c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	650 dir = '<';
c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	651 else if (line->flags & HBB_PREFIX_OUT)
c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	652 dir = '>';
c289e3c39c48 [/trunk] Changeset 209 by mikael mikael parents: 196 diff changeset	653 wprintw(win_entry->win, "%.11s %c ", date, dir);
325 ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	654 } else if (line->flags & HBB_PREFIX_ERR) {
ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	655 char dir = '#';
ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	656 if (line->flags & HBB_PREFIX_IN)
ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	657 dir = '<';
ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	658 else if (line->flags & HBB_PREFIX_OUT)
ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	659 dir = '>';
ff6fb51bfd78 Handle "error" message type Mikael Berthe <mikael@lilotux.net> parents: 322 diff changeset	660 wprintw(win_entry->win, "%.11s #%c# ", date, dir);
728 421b337dc6d2 Chat window: Highlight the flag in our messages Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	661 } else if (line->flags & HBB_PREFIX_IN) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	662 char cryptflag = line->flags & HBB_PREFIX_PGPCRYPT ? '~' : '=';
c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	663 wprintw(win_entry->win, "%.11s <%c= ", date, cryptflag);
728 421b337dc6d2 Chat window: Highlight the flag in our messages Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	664 } else if (line->flags & HBB_PREFIX_OUT) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	665 char cryptflag = line->flags & HBB_PREFIX_PGPCRYPT ? '~' : '-';
c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	666 wprintw(win_entry->win, "%.11s -%c> ", date, cryptflag);
850 d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	667 } else if (line->flags & HBB_PREFIX_SPECIAL) {
d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	668 strftime(date, 30, "%m-%d %H:%M:%S", localtime(&line->timestamp));
d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	669 wprintw(win_entry->win, "%.14s ", date);
728 421b337dc6d2 Chat window: Highlight the flag in our messages Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	670 } else {
185 e8e447a07641 [/trunk] Changeset 197 by mikael mikael parents: 184 diff changeset	671 wprintw(win_entry->win, "%.11s ", date);
75 ff119bb11563 [/trunk] Changeset 89 by mikael mikael parents: 74 diff changeset	672 }
729 39f67cade02c Use bold font for outgoing messages Mikael Berthe <mikael@lilotux.net> parents: 728 diff changeset	673
730 e46c680bdd3d New color: color_highlight (for outgoing messages) Mikael Berthe <mikael@lilotux.net> parents: 729 diff changeset	674 wprintw(win_entry->win, "%s", line->text); // Display text line
729 39f67cade02c Use bold font for outgoing messages Mikael Berthe <mikael@lilotux.net> parents: 728 diff changeset	675
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	676 if (line->flags & HBB_PREFIX_HLIGHT_OUT \|\|
e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	677 line->flags & HBB_PREFIX_HLIGHT)
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	678 wattrset(win_entry->win, get_color(COLOR_GENERAL));
168 6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	679 wclrtoeol(win_entry->win);
184 b5aa2b9c425a [/trunk] Changeset 196 by mikael mikael parents: 181 diff changeset	680 g_free(line->text);
898 c65b71dcda94 Fix memory leak in scr_UpdateWindow() Mikael Berthe <mikael@lilotux.net> parents: 897 diff changeset	681 g_free(line);
168 6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	682 } else {
6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	683 wclrtobot(win_entry->win);
6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	684 break;
75 ff119bb11563 [/trunk] Changeset 89 by mikael mikael parents: 74 diff changeset	685 }
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	686 }
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	687 g_free(lines);
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	688 }
1159 53c0c5be43fa Small fixes, typos and cleanups Mikael Berthe <mikael@lilotux.net> parents: 1157 diff changeset	689
53c0c5be43fa Small fixes, typos and cleanups Mikael Berthe <mikael@lilotux.net> parents: 1157 diff changeset	690 static winbuf scr_CreateWindow(const char winId, int special, int dont_show)
1154 f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	691 {
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	692 if (special) {
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	693 if (!statusWindow) {
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	694 statusWindow = scr_new_buddy(NULL, dont_show);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	695 statusWindow->bd->hbuf = statushbuf;
1154 f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	696 }
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	697 return statusWindow;
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	698 } else {
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	699 return scr_new_buddy(winId, dont_show);
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	700 }
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	701 }
f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	702
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	703 // scr_ShowWindow()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	704 // Display the chat window with the given identifier.
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	705 // "special" must be true if this is a special buffer window.
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	706 static void scr_ShowWindow(const char *winId, int special)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	707 {
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	708 winbuf *win_entry;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	709
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	710 win_entry = scr_SearchWindow(winId, special);
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	711
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	712 if (!win_entry) {
1154 f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	713 win_entry = scr_CreateWindow(winId, special, FALSE);
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	714 }
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	715
180 42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	716 top_panel(win_entry->panel);
42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	717 currentWindow = win_entry;
42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	718 chatmode = TRUE;
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	719 if (!win_entry->bd->lock)
889 ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	720 roster_msg_setflag(winId, special, FALSE);
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	721 if (!special)
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	722 roster_setflags(winId, ROSTER_FLAG_LOCK, TRUE);
874 293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	723 update_roster = TRUE;
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	724
180 42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	725 // Refresh the window
42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	726 scr_UpdateWindow(win_entry);
42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	727
42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	728 // Finished :)
42a33611233b [/trunk] Changeset 192 by mikael mikael parents: 178 diff changeset	729 update_panels();
142 bb6fe91589b9 [/trunk] Changeset 154 by mikael mikael parents: 140 diff changeset	730
bb6fe91589b9 [/trunk] Changeset 154 by mikael mikael parents: 140 diff changeset	731 top_panel(inputPanel);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	732 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	733
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	734 // scr_ShowBuddyWindow()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	735 // Display the chat window buffer for the current buddy.
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	736 void scr_ShowBuddyWindow(void)
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	737 {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	738 const gchar *bjid;
140 3b480b73df19 [/trunk] Changeset 152 by mikael mikael parents: 139 diff changeset	739
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	740 if (!current_buddy) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	741 bjid = NULL;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	742 } else {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	743 bjid = CURRENT_JID;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	744 if (buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL) {
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	745 scr_ShowWindow(buddy_getname(BUDDATA(current_buddy)), TRUE);
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	746 return;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	747 }
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	748 }
140 3b480b73df19 [/trunk] Changeset 152 by mikael mikael parents: 139 diff changeset	749
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	750 if (!bjid) {
140 3b480b73df19 [/trunk] Changeset 152 by mikael mikael parents: 139 diff changeset	751 top_panel(chatPanel);
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	752 top_panel(inputPanel);
140 3b480b73df19 [/trunk] Changeset 152 by mikael mikael parents: 139 diff changeset	753 currentWindow = NULL;
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	754 return;
140 3b480b73df19 [/trunk] Changeset 152 by mikael mikael parents: 139 diff changeset	755 }
3b480b73df19 [/trunk] Changeset 152 by mikael mikael parents: 139 diff changeset	756
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	757 scr_ShowWindow(bjid, FALSE);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	758 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	759
865 cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	760 // scr_UpdateBuddyWindow()
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	761 // (Re)Display the current window.
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	762 // If chatmode is enabled, call scr_ShowBuddyWindow(),
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	763 // else display the chat window.
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	764 inline void scr_UpdateBuddyWindow(void)
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	765 {
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	766 if (chatmode) {
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	767 scr_ShowBuddyWindow();
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	768 return;
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	769 }
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	770
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	771 top_panel(chatPanel);
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	772 top_panel(inputPanel);
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	773 }
cee8d6be04e1 Improve changeset a3db3ee8b99e, do not enable chatmode when refreshing Mikael Berthe <mikael@lilotux.net> parents: 858 diff changeset	774
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	775 // scr_WriteInWindow()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	776 // Write some text in the winId window (this usually is a jid).
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	777 // Use winId == NULL for the special status buffer.
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	778 // Lines are splitted when they are too long to fit in the chat window.
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	779 // If this window doesn't exist, it is created.
184 b5aa2b9c425a [/trunk] Changeset 196 by mikael mikael parents: 181 diff changeset	780 void scr_WriteInWindow(const char winId, const char text, time_t timestamp,
850 d0781ca2dd08 Use new status buffer window Mikael Berthe <mikael@lilotux.net> parents: 849 diff changeset	781 unsigned int prefix_flags, int force_show)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	782 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	783 winbuf *win_entry;
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	784 char *text_locale;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	785 int dont_show = FALSE;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	786 int special;
1142 0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	787 guint num_history_blocks;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	788 bool setmsgflg = FALSE;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	789
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	790 // Look for the window entry.
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	791 special = (winId == NULL);
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	792 win_entry = scr_SearchWindow(winId, special);
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	793
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	794 // Do we have to really show the window?
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	795 if (!chatmode)
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	796 dont_show = TRUE;
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	797 else if ((!force_show) && ((!currentWindow \|\| (currentWindow != win_entry))))
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	798 dont_show = TRUE;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	799
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	800 // If the window entry doesn't exist yet, let's create it.
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	801 if (!win_entry) {
1154 f746d91c5d3b Rearranged duplicated code in screen.c franky@teufel.fs parents: 1142 diff changeset	802 win_entry = scr_CreateWindow(winId, special, dont_show);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	803 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	804
220 8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	805 // The message must be displayed -> update top pointer
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	806 if (win_entry->bd->cleared)
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	807 win_entry->bd->top = g_list_last(win_entry->bd->hbuf);
220 8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	808
1142 0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	809 // Make sure we do not free the buffer while it's locked or when
0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	810 // top is set.
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	811 if (win_entry->bd->lock \|\| win_entry->bd->top)
1142 0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	812 num_history_blocks = 0U;
0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	813 else
0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	814 num_history_blocks = get_max_history_blocks();
0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	815
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	816 text_locale = from_utf8(text);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	817 hbuf_add_line(&win_entry->bd->hbuf, text_locale, timestamp, prefix_flags,
1142 0e27177882c7 Small fix for the max_history_blocks option Mikael Berthe <mikael@lilotux.net> parents: 1141 diff changeset	818 maxX - Roster_Width - PREFIX_WIDTH, num_history_blocks);
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	819 g_free(text_locale);
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	820
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	821 if (win_entry->bd->cleared) {
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	822 win_entry->bd->cleared = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	823 if (g_list_next(win_entry->bd->top))
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	824 win_entry->bd->top = g_list_next(win_entry->bd->top);
220 8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	825 }
8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	826
8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	827 // Make sure the last line appears in the window; update top if necessary
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	828 if (!win_entry->bd->lock && win_entry->bd->top) {
220 8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	829 int dist;
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	830 GList *first = g_list_first(win_entry->bd->hbuf);
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	831 dist = g_list_position(first, g_list_last(win_entry->bd->hbuf)) -
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	832 g_list_position(first, win_entry->bd->top);
220 8dfdc6f1778e [/trunk] Changeset 232 by mikael mikael parents: 197 diff changeset	833 if (dist >= CHAT_WIN_HEIGHT)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	834 win_entry->bd->top = NULL;
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	835 }
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	836
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	837 if (!dont_show) {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	838 if (win_entry->bd->lock)
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	839 setmsgflg = TRUE;
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	840 // Show and refresh the window
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	841 top_panel(win_entry->panel);
b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	842 scr_UpdateWindow(win_entry);
142 bb6fe91589b9 [/trunk] Changeset 154 by mikael mikael parents: 140 diff changeset	843 top_panel(inputPanel);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	844 update_panels();
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	845 } else if (!(prefix_flags & HBB_PREFIX_NOFLAG)) {
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	846 setmsgflg = TRUE;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	847 }
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	848 if (setmsgflg && !special) {
889 ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	849 if (special && !winId)
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	850 winId = SPECIAL_BUFFER_STATUS_ID;
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	851 roster_msg_setflag(winId, special, TRUE);
30 4ea2df449381 [/trunk] Changeset 46 by mikael mikael parents: 29 diff changeset	852 update_roster = TRUE;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	853 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	854 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	855
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	856 // scr_UpdateMainStatus()
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	857 // Redraw the main (bottom) status line.
724 264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	858 void scr_UpdateMainStatus(int forceupdate)
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	859 {
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	860 char *sm = from_utf8(jb_getstatusmsg());
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	861
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	862 werase(mainstatusWnd);
724 264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	863 mvwprintw(mainstatusWnd, 0, 0, "%c[%c] %s",
718 b41799901abd Add a new_message flag (#) in the main status line Mikael Berthe <mikael@lilotux.net> parents: 717 diff changeset	864 (unread_msg(NULL) ? '#' : ' '),
b41799901abd Add a new_message flag (#) in the main status line Mikael Berthe <mikael@lilotux.net> parents: 717 diff changeset	865 imstatus2char[jb_getstatus()], (sm ? sm : ""));
724 264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	866 if (forceupdate) {
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	867 top_panel(inputPanel);
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	868 update_panels();
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	869 }
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	870 g_free(sm);
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	871 }
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	872
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	873 // scr_DrawMainWindow()
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	874 // Set fullinit to TRUE to also create panels. Set it to FALSE for a resize.
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	875 //
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	876 // I think it could be improved a _lot_ but I'm really not an ncurses
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	877 // expert... :-\ Mikael.
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	878 //
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	879 void scr_DrawMainWindow(unsigned int fullinit)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	880 {
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	881 int requested_size;
961 95659cf9ea1a Display mcabber version in the status window Mikael Berthe <mikael@lilotux.net> parents: 952 diff changeset	882 gchar ver, message;
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	883 int chat_y_pos, chatstatus_y_pos, log_y_pos;
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	884 int roster_x_pos, chat_x_pos;
518 9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	885
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	886 Log_Win_Height = DEFAULT_LOG_WIN_HEIGHT;
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	887 requested_size = settings_opt_get_int("log_win_height");
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	888 if (requested_size > 0) {
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	889 if (maxY > requested_size + 3)
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	890 Log_Win_Height = requested_size + 2;
518 9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	891 else
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	892 Log_Win_Height = ((maxY > 5) ? (maxY - 2) : 3);
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	893 } else if (requested_size < 0) {
518 9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	894 Log_Win_Height = 3;
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	895 }
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	896
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	897 if (maxY < Log_Win_Height+2) {
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	898 if (maxY < 5) {
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	899 Log_Win_Height = 3;
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	900 maxY = Log_Win_Height+2;
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	901 } else {
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	902 Log_Win_Height = maxY - 2;
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	903 }
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	904 }
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	905
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	906 if (roster_hidden) {
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	907 Roster_Width = 0;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	908 } else {
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	909 requested_size = settings_opt_get_int("roster_width");
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	910 if (requested_size > 1)
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	911 Roster_Width = requested_size;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	912 else if (requested_size == 1)
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	913 Roster_Width = 2;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	914 else
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	915 Roster_Width = DEFAULT_ROSTER_WIDTH;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	916 }
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	917
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	918 log_win_on_top = (settings_opt_get_int("log_win_on_top") == 1);
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	919 roster_win_on_right = (settings_opt_get_int("roster_win_on_right") == 1);
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	920
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	921 if (log_win_on_top) {
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	922 chat_y_pos = Log_Win_Height-1;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	923 log_y_pos = 0;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	924 chatstatus_y_pos = Log_Win_Height-2;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	925 } else {
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	926 chat_y_pos = 0;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	927 log_y_pos = CHAT_WIN_HEIGHT+1;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	928 chatstatus_y_pos = CHAT_WIN_HEIGHT;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	929 }
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	930
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	931 if (roster_win_on_right) {
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	932 roster_x_pos = maxX - Roster_Width;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	933 chat_x_pos = 0;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	934 } else {
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	935 roster_x_pos = 0;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	936 chat_x_pos = Roster_Width;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	937 }
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	938
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	939 if (fullinit) {
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	940 if (!winbufhash)
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	941 winbufhash = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, NULL);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	942 /* Create windows */
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	943 rosterWnd = newwin(CHAT_WIN_HEIGHT, Roster_Width, chat_y_pos, roster_x_pos);
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	944 chatWnd = newwin(CHAT_WIN_HEIGHT, maxX - Roster_Width, chat_y_pos,
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	945 chat_x_pos);
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	946 activechatWnd = newwin(CHAT_WIN_HEIGHT, maxX - Roster_Width, chat_y_pos,
9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	947 chat_x_pos);
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	948 logWnd = newwin(Log_Win_Height-2, maxX, log_y_pos, 0);
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	949 chatstatusWnd = newwin(1, maxX, chatstatus_y_pos, 0);
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	950 mainstatusWnd = newwin(1, maxX, maxY-2, 0);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	951 inputWnd = newwin(1, maxX, maxY-1, 0);
358 6e4e667c5571 Fix a segfault when starting mcabber in a really small terminal Mikael Berthe <mikael@lilotux.net> parents: 339 diff changeset	952 if (!rosterWnd \|\| !chatWnd \|\| !logWnd \|\| !inputWnd) {
6e4e667c5571 Fix a segfault when starting mcabber in a really small terminal Mikael Berthe <mikael@lilotux.net> parents: 339 diff changeset	953 scr_TerminateCurses();
6e4e667c5571 Fix a segfault when starting mcabber in a really small terminal Mikael Berthe <mikael@lilotux.net> parents: 339 diff changeset	954 fprintf(stderr, "Cannot create windows!\n");
6e4e667c5571 Fix a segfault when starting mcabber in a really small terminal Mikael Berthe <mikael@lilotux.net> parents: 339 diff changeset	955 exit(EXIT_FAILURE);
6e4e667c5571 Fix a segfault when starting mcabber in a really small terminal Mikael Berthe <mikael@lilotux.net> parents: 339 diff changeset	956 }
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	957 wbkgd(rosterWnd, get_color(COLOR_GENERAL));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	958 wbkgd(chatWnd, get_color(COLOR_GENERAL));
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	959 wbkgd(activechatWnd, get_color(COLOR_GENERAL));
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	960 wbkgd(logWnd, get_color(COLOR_GENERAL));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	961 wbkgd(chatstatusWnd, get_color(COLOR_STATUS));
0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	962 wbkgd(mainstatusWnd, get_color(COLOR_STATUS));
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	963 } else {
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	964 /* Resize/move windows */
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	965 wresize(rosterWnd, CHAT_WIN_HEIGHT, Roster_Width);
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	966 wresize(chatWnd, CHAT_WIN_HEIGHT, maxX - Roster_Width);
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	967 wresize(logWnd, Log_Win_Height-2, maxX);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	968
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	969 mvwin(chatWnd, chat_y_pos, chat_x_pos);
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	970 mvwin(rosterWnd, chat_y_pos, roster_x_pos);
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	971 mvwin(logWnd, log_y_pos, 0);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	972
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	973 // Resize & move chat status window
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	974 wresize(chatstatusWnd, 1, maxX);
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	975 mvwin(chatstatusWnd, chatstatus_y_pos, 0);
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	976 // Resize & move main status window
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	977 wresize(mainstatusWnd, 1, maxX);
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	978 mvwin(mainstatusWnd, maxY-2, 0);
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	979 // Resize & move input line window
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	980 wresize(inputWnd, 1, maxX);
409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	981 mvwin(inputWnd, maxY-1, 0);
168 6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	982
6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	983 werase(chatWnd);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	984 }
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	985
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	986 /* Draw/init windows */
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	987
961 95659cf9ea1a Display mcabber version in the status window Mikael Berthe <mikael@lilotux.net> parents: 952 diff changeset	988 ver = mcabber_version();
95659cf9ea1a Display mcabber version in the status window Mikael Berthe <mikael@lilotux.net> parents: 952 diff changeset	989 message = g_strdup_printf("MCabber version %s.\n", ver);
95659cf9ea1a Display mcabber version in the status window Mikael Berthe <mikael@lilotux.net> parents: 952 diff changeset	990 mvwprintw(chatWnd, 0, 0, message);
679 5933a8036672 Remove "This is the status window" message Mikael Berthe <mikael@lilotux.net> parents: 675 diff changeset	991 mvwprintw(chatWnd, 1, 0, "http://www.lilotux.net/~mikael/mcabber/");
961 95659cf9ea1a Display mcabber version in the status window Mikael Berthe <mikael@lilotux.net> parents: 952 diff changeset	992 g_free(ver);
95659cf9ea1a Display mcabber version in the status window Mikael Berthe <mikael@lilotux.net> parents: 952 diff changeset	993 g_free(message);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	994
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	995 // Auto-scrolling in log window
74 b392112ab995 [/trunk] Changeset 88 by mikael mikael parents: 65 diff changeset	996 scrollok(logWnd, TRUE);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	997
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	998
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	999 if (fullinit) {
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1000 // Enable keypad (+ special keys)
409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1001 keypad(inputWnd, TRUE);
382 4c6e8392e465 Use nodelay() instead of halfdelay() Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	1002 nodelay(inputWnd, TRUE);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1003
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1004 // Create panels
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1005 rosterPanel = new_panel(rosterWnd);
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1006 chatPanel = new_panel(chatWnd);
1133 9dd28a56128f Do not create one panel per contact Mikael Berthe <mikael@lilotux.net> parents: 1131 diff changeset	1007 activechatPanel = new_panel(activechatWnd);
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1008 logPanel = new_panel(logWnd);
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	1009 chatstatusPanel = new_panel(chatstatusWnd);
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	1010 mainstatusPanel = new_panel(mainstatusWnd);
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1011 inputPanel = new_panel(inputWnd);
232 9a6ba4b38e63 [/trunk] Changeset 245 by mikael mikael parents: 220 diff changeset	1012
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1013 // Build the buddylist at least once, to make sure the special buffer
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1014 // is added
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1015 buddylist_build();
1093 6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1016
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1017 // Init prev_chatwidth; this variable will be used to prevent us
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1018 // from rewrapping buffers when the width doesn't change.
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1019 prev_chatwidth = maxX - Roster_Width - PREFIX_WIDTH;
851 da03534e46c7 Add startup log messages to the status buffer Mikael Berthe <mikael@lilotux.net> parents: 850 diff changeset	1020 // Wrap existing status buffer lines
1093 6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1021 hbuf_rebuild(&statushbuf, prev_chatwidth);
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1022
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	1023 #ifndef UNICODE
232 9a6ba4b38e63 [/trunk] Changeset 245 by mikael mikael parents: 220 diff changeset	1024 if (utf8_mode)
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	1025 scr_LogPrint(LPRINT_NORMAL,
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	1026 "WARNING: Compiled without full UTF-8 support!");
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	1027 #endif
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1028 } else {
409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1029 // Update panels
409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1030 replace_panel(rosterPanel, rosterWnd);
409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1031 replace_panel(chatPanel, chatWnd);
409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1032 replace_panel(logPanel, logWnd);
711 75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	1033 replace_panel(chatstatusPanel, chatstatusWnd);
75dde88f1884 Introduce status lines Mikael Berthe <mikael@lilotux.net> parents: 709 diff changeset	1034 replace_panel(mainstatusPanel, mainstatusWnd);
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1035 replace_panel(inputPanel, inputWnd);
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1036 }
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1037
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1038 // We'll need to redraw the roster
149 9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1039 update_roster = TRUE;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1040 return;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1041 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1042
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1043 static void resize_win_buffer(gpointer key, gpointer value, gpointer data)
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1044 {
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1045 winbuf *wbp = value;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1046 struct dimensions *dim = data;
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1047 int chat_x_pos, chat_y_pos;
1093 6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1048 int new_chatwidth;
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	1049
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1050 if (!(wbp && wbp->win))
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1051 return;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1052
972 11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	1053 if (log_win_on_top)
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	1054 chat_y_pos = Log_Win_Height-1;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	1055 else
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	1056 chat_y_pos = 0;
11b632d824f6 Add option 'log_win_on_top' Mikael Berthe <mikael@lilotux.net> parents: 967 diff changeset	1057
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1058 if (roster_win_on_right)
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1059 chat_x_pos = 0;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1060 else
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1061 chat_x_pos = Roster_Width;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1062
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1063 // Resize/move buddy window
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1064 wresize(wbp->win, dim->l, dim->c);
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1065 mvwin(wbp->win, chat_y_pos, chat_x_pos);
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1066 werase(wbp->win);
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1067 // If a panel exists, replace the old window with the new
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1068 if (wbp->panel)
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1069 replace_panel(wbp->panel, wbp->win);
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1070 // Redo line wrapping
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1071 wbp->bd->top = hbuf_previous_persistent(wbp->bd->top);
1093 6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1072
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1073 new_chatwidth = maxX - Roster_Width - PREFIX_WIDTH;
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1074 if (new_chatwidth != prev_chatwidth)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1075 hbuf_rebuild(&wbp->bd->hbuf, new_chatwidth);
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1076 }
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1077
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1078 // scr_Resize()
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1079 // Function called when the window is resized.
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1080 // - Resize windows
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1081 // - Rewrap lines in each buddy buffer
1059 875d2c9d399c Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	1082 void scr_Resize(void)
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1083 {
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1084 struct dimensions dim;
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1085
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1086 // First, update the global variables
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1087 getmaxyx(stdscr, maxY, maxX);
518 9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	1088 // scr_DrawMainWindow() will take care of maxY and Log_Win_Height
9480a76471b6 Update Log_Win_Height when refreshing the screen Mikael Berthe <mikael@lilotux.net> parents: 515 diff changeset	1089
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1090 // Make sure the cursor stays inside the window
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1091 check_offset(0);
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1092
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1093 // Resize windows and update panels
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1094 scr_DrawMainWindow(FALSE);
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1095
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1096 // Resize all buddy windows
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1097 dim.l = CHAT_WIN_HEIGHT;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1098 dim.c = maxX - Roster_Width;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1099 if (dim.c < 1)
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1100 dim.c = 1;
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1101
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1102 // Resize all buffers
7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1103 g_hash_table_foreach(winbufhash, resize_win_buffer, &dim);
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1104
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1105 // Resize/move special status buffer
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1106 if (statusWindow)
1078 7866dbaf67a6 Use a hash for the list of win buffers Mikael Berthe <mikael@lilotux.net> parents: 1077 diff changeset	1107 resize_win_buffer(NULL, statusWindow, &dim);
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1108
1093 6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1109 // Update prev_chatwidth, now that all buffers have been resized
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1110 prev_chatwidth = maxX - Roster_Width - PREFIX_WIDTH;
6ca9a65df21f Do not rewrap buffer lines when the chat window width doesn't change Mikael Berthe <mikael@lilotux.net> parents: 1089 diff changeset	1111
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1112 // Refresh current buddy window
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	1113 if (chatmode)
151 b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1114 scr_ShowBuddyWindow();
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1115 }
b69c0b7a23e3 [/trunk] Changeset 163 by mikael mikael parents: 149 diff changeset	1116
721 9cf31c9b1dc4 Use room topic as a description in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 720 diff changeset	1117 // scr_UpdateChatStatus(forceupdate)
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1118 // Redraw the buddy status bar.
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1119 // Set forceupdate to TRUE if update_panels() must be called.
721 9cf31c9b1dc4 Use room topic as a description in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 720 diff changeset	1120 void scr_UpdateChatStatus(int forceupdate)
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1121 {
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1122 unsigned short btype, isgrp, ismuc, isspe;
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1123 const char *fullname;
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1124 const char *msg = NULL;
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1125 char status;
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1126 char buf, buf_locale;
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1127
718 b41799901abd Add a new_message flag (#) in the main status line Mikael Berthe <mikael@lilotux.net> parents: 717 diff changeset	1128 // Usually we need to update the bottom status line too,
b41799901abd Add a new_message flag (#) in the main status line Mikael Berthe <mikael@lilotux.net> parents: 717 diff changeset	1129 // at least to refresh the pending message flag.
724 264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	1130 scr_UpdateMainStatus(FALSE);
718 b41799901abd Add a new_message flag (#) in the main status line Mikael Berthe <mikael@lilotux.net> parents: 717 diff changeset	1131
806 3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1132 // Clear the line
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1133 werase(chatstatusWnd);
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1134
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1135 if (chatmode)
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1136 wprintw(chatstatusWnd, "~");
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1137
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1138 if (!current_buddy) {
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1139 if (forceupdate) {
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1140 update_panels();
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1141 }
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1142 return;
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1143 }
3521e34f722a Fix a segfault when not connected to a server Mikael Berthe <mikael@lilotux.net> parents: 797 diff changeset	1144
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1145 fullname = buddy_getname(BUDDATA(current_buddy));
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1146 btype = buddy_gettype(BUDDATA(current_buddy));
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1147
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1148 isgrp = btype & ROSTER_TYPE_GROUP;
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1149 ismuc = btype & ROSTER_TYPE_ROOM;
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1150 isspe = btype & ROSTER_TYPE_SPECIAL;
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1151
874 293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	1152 if (chatmode && !isgrp) {
293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	1153 winbuf *win_entry;
293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	1154 win_entry = scr_SearchWindow(buddy_getjid(BUDDATA(current_buddy)), isspe);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1155 if (win_entry && win_entry->bd->lock)
874 293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	1156 mvwprintw(chatstatusWnd, 0, 0, "*");
293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	1157 }
293e8955075c Display a flag in the chat status line when the buffer is locked Mikael Berthe <mikael@lilotux.net> parents: 873 diff changeset	1158
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1159 if (isgrp \|\| isspe) {
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1160 buf_locale = from_utf8(fullname);
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1161 if (isgrp)
a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1162 mvwprintw(chatstatusWnd, 0, 5, "Group: %s", buf_locale);
a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1163 else
a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1164 mvwprintw(chatstatusWnd, 0, 5, "Special buffer: %s", buf_locale);
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1165 g_free(buf_locale);
716 ba1137a01078 Add a chatmode flag (©) in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 715 diff changeset	1166 if (forceupdate) {
ba1137a01078 Add a chatmode flag (©) in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 715 diff changeset	1167 update_panels();
ba1137a01078 Add a chatmode flag (©) in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 715 diff changeset	1168 }
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1169 return;
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1170 }
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1171
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1172 status = '?';
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1173
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1174 if (ismuc) {
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1175 if (buddy_getinsideroom(BUDDATA(current_buddy)))
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1176 status = 'C';
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1177 else
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1178 status = 'x';
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1179 } else if (jb_getstatus() != offline) {
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1180 enum imstatus budstate;
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1181 budstate = buddy_getstatus(BUDDATA(current_buddy), NULL);
790 5d4ad1d77da4 Kill a few gcc4 warnings Mikael Berthe <mikael@lilotux.net> parents: 785 diff changeset	1182 if (budstate < imstatus_size)
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1183 status = imstatus2char[budstate];
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1184 }
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1185
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1186 // No status message for groups & MUC rooms
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1187 if (!isgrp && !ismuc) {
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1188 GSList resources, p_res;
2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1189 resources = buddy_getresources(BUDDATA(current_buddy));
843 915a7f17474a Remember the status message when a buddy goes offline Mikael Berthe <mikael@lilotux.net> parents: 833 diff changeset	1190 msg = buddy_getstatusmsg(BUDDATA(current_buddy),
915a7f17474a Remember the status message when a buddy goes offline Mikael Berthe <mikael@lilotux.net> parents: 833 diff changeset	1191 resources ? resources->data : "");
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1192 // Free the resources list data
2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1193 for (p_res = resources ; p_res ; p_res = g_slist_next(p_res))
2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1194 g_free(p_res->data);
2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1195 g_slist_free(resources);
721 9cf31c9b1dc4 Use room topic as a description in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 720 diff changeset	1196 } else if (ismuc) {
9cf31c9b1dc4 Use room topic as a description in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 720 diff changeset	1197 msg = buddy_gettopic(BUDDATA(current_buddy));
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1198 }
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1199 if (!msg)
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1200 msg = "";
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1201
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1202 buf = g_strdup_printf("[%c] Buddy: %s -- %s", status, fullname, msg);
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1203 replace_nl_with_dots(buf);
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1204 buf_locale = from_utf8(buf);
e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1205 mvwprintw(chatstatusWnd, 0, 1, "%s", buf_locale);
e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1206 g_free(buf_locale);
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1207 g_free(buf);
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1208
996 f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1209 // Display chatstates of the contact, if available.
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1210 if (btype & ROSTER_TYPE_USER) {
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1211 char eventchar = 0;
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1212 guint event;
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1213
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1214 // We do not specify the resource here, so one of the resources with the
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1215 // highest priority will be used.
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1216 event = buddy_resource_getevents(BUDDATA(current_buddy), NULL);
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1217
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1218 if (event == ROSTER_EVENT_ACTIVE)
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1219 eventchar = 'A';
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1220 else if (event == ROSTER_EVENT_COMPOSING)
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1221 eventchar = 'C';
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1222 else if (event == ROSTER_EVENT_PAUSED)
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1223 eventchar = 'P';
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1224 else if (event == ROSTER_EVENT_INACTIVE)
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1225 eventchar = 'I';
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1226 else if (event == ROSTER_EVENT_GONE)
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1227 eventchar = 'G';
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1228
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1229 if (eventchar)
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1230 mvwprintw(chatstatusWnd, 0, maxX-3, "[%c]", eventchar);
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1231 }
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1232
f4d6570e2628 Chatstates: display contact chatstate in the chat status bar Mikael Berthe <mikael@lilotux.net> parents: 993 diff changeset	1233
717 8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1234 if (forceupdate) {
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1235 update_panels();
8ce2bfdc4143 Reindent update_chat_status_window() Mikael Berthe <mikael@lilotux.net> parents: 716 diff changeset	1236 }
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1237 }
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1238
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1239 // scr_DrawRoster()
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1240 // Display the buddylist (not really the roster) on the screen
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1241 void scr_DrawRoster(void)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1242 {
735 2f027806cd48 Some code cleanup Mikael Berthe <mikael@lilotux.net> parents: 731 diff changeset	1243 static int offset = 0;
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1244 char name, rline;
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1245 int maxx, maxy;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1246 GList *buddy;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1247 int i, n;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1248 int rOffset;
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1249 int cursor_backup;
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1250 char status, pending;
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 159 diff changeset	1251 enum imstatus currentstatus = jb_getstatus();
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1252 int x_pos;
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1253
123 1bdf882bed98 [/trunk] Changeset 136 by mikael mikael parents: 121 diff changeset	1254 // We can reset update_roster
1bdf882bed98 [/trunk] Changeset 136 by mikael mikael parents: 121 diff changeset	1255 update_roster = FALSE;
1bdf882bed98 [/trunk] Changeset 136 by mikael mikael parents: 121 diff changeset	1256
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1257 getmaxyx(rosterWnd, maxy, maxx);
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1258 maxx--; // Last char is for vertical border
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1259
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1260 cursor_backup = curs_set(0);
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1261
724 264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	1262 if (!buddylist)
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	1263 offset = 0;
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	1264 else
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	1265 scr_UpdateChatStatus(FALSE);
264375fe7159 Fix a roster refresh issue Mikael Berthe <mikael@lilotux.net> parents: 723 diff changeset	1266
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1267 // Cleanup of roster window
168 6ad156673b19 [/trunk] Changeset 180 by mikael mikael parents: 167 diff changeset	1268 werase(rosterWnd);
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1269
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1270 if (Roster_Width) {
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1271 int line_x_pos = roster_win_on_right ? 0 : Roster_Width-1;
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1272 // Redraw the vertical line (not very good...)
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	1273 wattrset(rosterWnd, get_color(COLOR_GENERAL));
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1274 for (i=0 ; i < CHAT_WIN_HEIGHT ; i++)
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1275 mvwaddch(rosterWnd, i, line_x_pos, ACS_VLINE);
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1276 }
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1277
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1278 // Leave now if buddylist is empty or the roster is hidden
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1279 if (!buddylist \|\| !Roster_Width) {
123 1bdf882bed98 [/trunk] Changeset 136 by mikael mikael parents: 121 diff changeset	1280 update_panels();
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1281 curs_set(cursor_backup);
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1282 return;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1283 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1284
84 134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1285 // Update offset if necessary
680 1f8987e0e56c Try to display as many buddylist items as possible Mikael Berthe <mikael@lilotux.net> parents: 679 diff changeset	1286 // a) Try to show as many buddylist items as possible
1f8987e0e56c Try to display as many buddylist items as possible Mikael Berthe <mikael@lilotux.net> parents: 679 diff changeset	1287 i = g_list_length(buddylist) - maxy;
682 f3945593432e Small fix in scr_DrawRoster() Mikael Berthe <mikael@lilotux.net> parents: 680 diff changeset	1288 if (i < 0)
f3945593432e Small fix in scr_DrawRoster() Mikael Berthe <mikael@lilotux.net> parents: 680 diff changeset	1289 i = 0;
f3945593432e Small fix in scr_DrawRoster() Mikael Berthe <mikael@lilotux.net> parents: 680 diff changeset	1290 if (i < offset)
680 1f8987e0e56c Try to display as many buddylist items as possible Mikael Berthe <mikael@lilotux.net> parents: 679 diff changeset	1291 offset = i;
1f8987e0e56c Try to display as many buddylist items as possible Mikael Berthe <mikael@lilotux.net> parents: 679 diff changeset	1292 // b) Make sure the current_buddy is visible
84 134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1293 i = g_list_position(buddylist, current_buddy);
134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1294 if (i == -1) { // This is bad
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	1295 scr_LogPrint(LPRINT_NORMAL, "Doh! Can't find current selected buddy!!");
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1296 curs_set(cursor_backup);
84 134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1297 return;
134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1298 } else if (i < offset) {
134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1299 offset = i;
134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1300 } else if (i+1 > offset + maxy) {
134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1301 offset = i + 1 - maxy;
134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1302 }
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1303
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1304 if (roster_win_on_right)
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1305 x_pos = 1; // 1 char offset (vertical line)
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1306 else
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1307 x_pos = 0;
e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1308
1026 fc6060707022 [BP] Fixes truncating utf-8 buddy names (Myhailo Danylenko) Mikael Berthe <mikael@lilotux.net> parents: 966 diff changeset	1309 name = g_new0(char, 4*Roster_Width);
fc6060707022 [BP] Fixes truncating utf-8 buddy names (Myhailo Danylenko) Mikael Berthe <mikael@lilotux.net> parents: 966 diff changeset	1310 rline = g_new0(char, 4*Roster_Width+1);
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1311
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1312 buddy = buddylist;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1313 rOffset = offset;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1314
84 134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1315 for (i=0; i<maxy && buddy; buddy = g_list_next(buddy)) {
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1316 unsigned short bflags, btype, ismsg, isgrp, ismuc, ishid, isspe;
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1317 gchar *rline_locale;
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1318 GSList resources, p_res;
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1319
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1320 bflags = buddy_getflags(BUDDATA(buddy));
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1321 btype = buddy_gettype(BUDDATA(buddy));
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1322
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1323 ismsg = bflags & ROSTER_FLAG_MSG;
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1324 ishid = bflags & ROSTER_FLAG_HIDE;
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1325 isgrp = btype & ROSTER_TYPE_GROUP;
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1326 ismuc = btype & ROSTER_TYPE_ROOM;
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1327 isspe = btype & ROSTER_TYPE_SPECIAL;
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1328
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1329 if (rOffset > 0) {
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1330 rOffset--;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1331 continue;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1332 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1333
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1334 status = '?';
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1335 pending = ' ';
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1336
986 ed697234bd39 Chat states receival (Alexis Hildebrandt) Mikael Berthe <mikael@lilotux.net> parents: 981 diff changeset	1337 resources = buddy_getresources(BUDDATA(buddy));
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1338 for (p_res = resources ; p_res ; p_res = g_slist_next(p_res)) {
986 ed697234bd39 Chat states receival (Alexis Hildebrandt) Mikael Berthe <mikael@lilotux.net> parents: 981 diff changeset	1339 guint events = buddy_resource_getevents(BUDDATA(buddy),
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1340 p_res ? p_res->data : "");
2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1341 if ((events & ROSTER_EVENT_PAUSED) && pending != '+')
992 b37348c2aa79 Chatstates: display "paused" states in the roster Mikael Berthe <mikael@lilotux.net> parents: 991 diff changeset	1342 pending = '.';
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1343 if (events & ROSTER_EVENT_COMPOSING)
987 f47e312560af Improve JEP22 + JEP85 support Mikael Berthe <mikael@lilotux.net> parents: 986 diff changeset	1344 pending = '+';
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1345 g_free(p_res->data);
986 ed697234bd39 Chat states receival (Alexis Hildebrandt) Mikael Berthe <mikael@lilotux.net> parents: 981 diff changeset	1346 }
1072 2a3cfb98bd5e Fix memory leaks after calls to buddy_getresources() Mikael Berthe <mikael@lilotux.net> parents: 1059 diff changeset	1347 g_slist_free(resources);
986 ed697234bd39 Chat states receival (Alexis Hildebrandt) Mikael Berthe <mikael@lilotux.net> parents: 981 diff changeset	1348
149 9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1349 // Display message notice if there is a message flag, but not
9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1350 // for unfolded groups.
9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1351 if (ismsg && (!isgrp \|\| ishid)) {
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1352 pending = '#';
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1353 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1354
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1355 if (ismuc) {
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1356 if (buddy_getinsideroom(BUDDATA(buddy)))
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1357 status = 'C';
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1358 else
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1359 status = 'x';
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1360 } else if (currentstatus != offline) {
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1361 enum imstatus budstate;
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1362 budstate = buddy_getstatus(BUDDATA(buddy), NULL);
790 5d4ad1d77da4 Kill a few gcc4 warnings Mikael Berthe <mikael@lilotux.net> parents: 785 diff changeset	1363 if (budstate < imstatus_size)
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1364 status = imstatus2char[budstate];
b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1365 }
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1366 if (buddy == current_buddy) {
723 23068490d063 Add text color when the selected buddy has an unread message Mikael Berthe <mikael@lilotux.net> parents: 721 diff changeset	1367 if (pending == '#')
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	1368 wattrset(rosterWnd, get_color(COLOR_ROSTERSELNMSG));
723 23068490d063 Add text color when the selected buddy has an unread message Mikael Berthe <mikael@lilotux.net> parents: 721 diff changeset	1369 else
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	1370 wattrset(rosterWnd, get_color(COLOR_ROSTERSEL));
723 23068490d063 Add text color when the selected buddy has an unread message Mikael Berthe <mikael@lilotux.net> parents: 721 diff changeset	1371 // The 3 following lines aim at coloring the whole line
973 e693cbe33802 Add option 'roster_win_on_right' Mikael Berthe <mikael@lilotux.net> parents: 972 diff changeset	1372 wmove(rosterWnd, i, x_pos);
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1373 for (n = 0; n < maxx; n++)
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1374 waddch(rosterWnd, ' ');
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1375 } else {
149 9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1376 if (pending == '#')
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	1377 wattrset(rosterWnd, get_color(COLOR_ROSTERNMSG));
139 8d7e31d37bec [/trunk] Changeset 151 by mikael mikael parents: 135 diff changeset	1378 else
739 0d5fb1d9077c Allow "bright" text colors Mikael Berthe <mikael@lilotux.net> parents: 735 diff changeset	1379 wattrset(rosterWnd, get_color(COLOR_ROSTER));
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1380 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1381
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1382 if (Roster_Width > 7)
1026 fc6060707022 [BP] Fixes truncating utf-8 buddy names (Myhailo Danylenko) Mikael Berthe <mikael@lilotux.net> parents: 966 diff changeset	1383 g_utf8_strncpy(name, buddy_getname(BUDDATA(buddy)), Roster_Width-7);
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1384 else
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1385 name[0] = 0;
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1386
149 9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1387 if (isgrp) {
133 a27b22e3b3a1 [/trunk] Changeset 146 by mikael mikael parents: 129 diff changeset	1388 char *sep;
149 9f74832eb4f8 [/trunk] Changeset 161 by mikael mikael parents: 148 diff changeset	1389 if (ishid)
133 a27b22e3b3a1 [/trunk] Changeset 146 by mikael mikael parents: 129 diff changeset	1390 sep = "+++";
a27b22e3b3a1 [/trunk] Changeset 146 by mikael mikael parents: 129 diff changeset	1391 else
a27b22e3b3a1 [/trunk] Changeset 146 by mikael mikael parents: 129 diff changeset	1392 sep = "---";
1168 eb05f960613f Fix UTF-8 group names in the roster (Myhailo Danylenko) Mikael Berthe <mikael@lilotux.net> parents: 1160 diff changeset	1393 snprintf(rline, 4*Roster_Width, " %c%s %s", pending, sep, name);
848 a9161d2dc414 Introduce special buffer stuff Mikael Berthe <mikael@lilotux.net> parents: 843 diff changeset	1394 } else if (isspe) {
1168 eb05f960613f Fix UTF-8 group names in the roster (Myhailo Danylenko) Mikael Berthe <mikael@lilotux.net> parents: 1160 diff changeset	1395 snprintf(rline, 4*Roster_Width, " %c%s", pending, name);
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1396 } else {
824 37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1397 char sepleft = '[';
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1398 char sepright = ']';
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1399 if (btype & ROSTER_TYPE_USER) {
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1400 guint subtype = buddy_getsubscription(BUDDATA(buddy));
832 7c210263c661 Small scr_DrawRoster() fix Mikael Berthe <mikael@lilotux.net> parents: 828 diff changeset	1401 if (status == '_' && !(subtype & sub_to))
824 37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1402 status = '?';
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1403 if (!(subtype & sub_from)) {
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1404 sepleft = '{';
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1405 sepright = '}';
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1406 }
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1407 }
37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1408
1026 fc6060707022 [BP] Fixes truncating utf-8 buddy names (Myhailo Danylenko) Mikael Berthe <mikael@lilotux.net> parents: 966 diff changeset	1409 snprintf(rline, 4*Roster_Width,
824 37ef269330f0 Show incomplete subscriptions in the roster Mikael Berthe <mikael@lilotux.net> parents: 822 diff changeset	1410 " %c%c%c%c %s", pending, sepleft, status, sepright, name);
133 a27b22e3b3a1 [/trunk] Changeset 146 by mikael mikael parents: 129 diff changeset	1411 }
84 134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1412
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1413 rline_locale = from_utf8(rline);
981 553b8ecf901f Fixes truncating of utf-8 buddy names (again) Myhailo Danylenko <isbear@ukrpost.net> parents: 980 diff changeset	1414 mvwprintw(rosterWnd, i, x_pos, "%s", rline_locale);
773 e25b8a348ebd Screen updating functions use UTF-8 Mikael Berthe <mikael@lilotux.net> parents: 772 diff changeset	1415 g_free(rline_locale);
84 134fe2567f07 [/trunk] Changeset 98 by mikael mikael parents: 81 diff changeset	1416 i++;
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1417 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1418
701 6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1419 g_free(rline);
6c100adfbfb6 Add setting "roster_width" (variable buddylist width) Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	1420 g_free(name);
142 bb6fe91589b9 [/trunk] Changeset 154 by mikael mikael parents: 140 diff changeset	1421 top_panel(inputPanel);
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1422 update_panels();
713 b5aa7b7afee8 Update status lines Mikael Berthe <mikael@lilotux.net> parents: 712 diff changeset	1423 curs_set(cursor_backup);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1424 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1425
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1426 // scr_RosterVisibility(status)
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1427 // Set the roster visibility:
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1428 // status=1 Show roster
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1429 // status=0 Hide roster
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1430 // status=-1 Toggle roster status
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1431 void scr_RosterVisibility(int status)
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1432 {
708 ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1433 int old_roster_status = roster_hidden;
ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1434
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1435 if (status > 0)
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1436 roster_hidden = FALSE;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1437 else if (status == 0)
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1438 roster_hidden = TRUE;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1439 else
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1440 roster_hidden = !roster_hidden;
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1441
708 ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1442 if (roster_hidden != old_roster_status) {
709 5aa66101807b Leave full-width mode automatically under some conditions Mikael Berthe <mikael@lilotux.net> parents: 708 diff changeset	1443 if (roster_hidden) {
5aa66101807b Leave full-width mode automatically under some conditions Mikael Berthe <mikael@lilotux.net> parents: 708 diff changeset	1444 // Enter chat mode
5aa66101807b Leave full-width mode automatically under some conditions Mikael Berthe <mikael@lilotux.net> parents: 708 diff changeset	1445 scr_set_chatmode(TRUE);
5aa66101807b Leave full-width mode automatically under some conditions Mikael Berthe <mikael@lilotux.net> parents: 708 diff changeset	1446 scr_ShowBuddyWindow();
5aa66101807b Leave full-width mode automatically under some conditions Mikael Berthe <mikael@lilotux.net> parents: 708 diff changeset	1447 }
708 ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1448 // Recalculate windows size and redraw
ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1449 scr_Resize();
ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1450 redrawwin(stdscr);
ed326697e4ed scr_RosterVisibility(): do not refresh when it is not needed Mikael Berthe <mikael@lilotux.net> parents: 707 diff changeset	1451 }
707 b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1452 }
b26a0bde4cdb Add /roster hide\|show\|toggle Mikael Berthe <mikael@lilotux.net> parents: 701 diff changeset	1453
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	1454 inline void scr_WriteMessage(const char bjid, const char text,
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1455 time_t timestamp, guint prefix_flags)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1456 {
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 726 diff changeset	1457 char *xtext;
725 1aff92625bdb Expand tabs when receiving a message Mikael Berthe <mikael@lilotux.net> parents: 724 diff changeset	1458
726 51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1459 if (!timestamp) timestamp = time(NULL);
725 1aff92625bdb Expand tabs when receiving a message Mikael Berthe <mikael@lilotux.net> parents: 724 diff changeset	1460
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1115 diff changeset	1461 xtext = ut_expand_tabs(text); // Expand tabs and filter out some chars
726 51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1462
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	1463 scr_WriteInWindow(bjid, xtext, timestamp, prefix_flags, FALSE);
725 1aff92625bdb Expand tabs when receiving a message Mikael Berthe <mikael@lilotux.net> parents: 724 diff changeset	1464
1aff92625bdb Expand tabs when receiving a message Mikael Berthe <mikael@lilotux.net> parents: 724 diff changeset	1465 if (xtext != (char*)text)
1aff92625bdb Expand tabs when receiving a message Mikael Berthe <mikael@lilotux.net> parents: 724 diff changeset	1466 g_free(xtext);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1467 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1468
726 51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1469 // If prefix is NULL, HBB_PREFIX_IN is supposed.
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1470 void scr_WriteIncomingMessage(const char jidfrom, const char text,
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1471 time_t timestamp, guint prefix)
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1472 {
1055 6eb1efea75d0 PGP: Visual encryption flag Mikael Berthe <mikael@lilotux.net> parents: 1050 diff changeset	1473 if (!(prefix &
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	1474 ~HBB_PREFIX_NOFLAG & ~HBB_PREFIX_HLIGHT & ~HBB_PREFIX_HLIGHT_OUT &
e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	1475 ~HBB_PREFIX_PGPCRYPT))
726 51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1476 prefix \|= HBB_PREFIX_IN;
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1477
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1478 scr_WriteMessage(jidfrom, text, timestamp, prefix);
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1479 }
51be2bc1a820 Better tab expansion Mikael Berthe <mikael@lilotux.net> parents: 725 diff changeset	1480
1055 6eb1efea75d0 PGP: Visual encryption flag Mikael Berthe <mikael@lilotux.net> parents: 1050 diff changeset	1481 void scr_WriteOutgoingMessage(const char jidto, const char text, guint prefix)
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: 44 diff changeset	1482 {
1115 922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1483 GSList *roster_elt;
922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1484 roster_elt = roster_find(jidto, jidsearch,
922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1485 ROSTER_TYPE_USER\|ROSTER_TYPE_AGENT\|ROSTER_TYPE_ROOM);
922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1486
1204 e802ec0c02d2 Basic support for nick highlighting in MUC rooms (the whole line is colored) Mikael Berthe <mikael@lilotux.net> parents: 1190 diff changeset	1487 scr_WriteMessage(jidto, text, 0, prefix\|HBB_PREFIX_OUT\|HBB_PREFIX_HLIGHT_OUT);
1115 922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1488
922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1489 // Show jidto's buffer unless the buddy is not in the buddylist
922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1490 if (roster_elt && g_list_position(buddylist, roster_elt->data) != -1)
922a9ae1a17e Fix /say_to to a member of a folded group Mikael Berthe <mikael@lilotux.net> parents: 1093 diff changeset	1491 scr_ShowWindow(jidto, FALSE);
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: 44 diff changeset	1492 }
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: 44 diff changeset	1493
935 97e6a6da2b2c Fix ncurses #include (again) Mikael Berthe <mikael@lilotux.net> parents: 933 diff changeset	1494 static inline void set_autoaway(bool setaway)
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1495 {
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1496 static enum imstatus oldstatus;
521 cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1497 static char *oldmsg;
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1498 Autoaway = setaway;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1499
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1500 if (setaway) {
521 cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1501 const char msg, prevmsg;
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1502 oldstatus = jb_getstatus();
521 cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1503 if (oldmsg) {
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1504 g_free(oldmsg);
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1505 oldmsg = NULL;
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1506 }
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1507 prevmsg = jb_getstatusmsg();
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1508 msg = settings_opt_get("message_autoaway");
521 cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1509 if (!msg)
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1510 msg = prevmsg;
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1511 if (prevmsg)
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1512 oldmsg = g_strdup(prevmsg);
1056 5b3ecae91c95 PGP: sign auto-away presence too Mikael Berthe <mikael@lilotux.net> parents: 1055 diff changeset	1513 jb_setstatus(away, NULL, msg, FALSE);
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1514 } else {
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1515 // Back
1050 ea71d31a2607 PGP: Do not sign presence messages to chatrooms Mikael Berthe <mikael@lilotux.net> parents: 1037 diff changeset	1516 jb_setstatus(oldstatus, NULL, (oldmsg ? oldmsg : ""), FALSE);
521 cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1517 if (oldmsg) {
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1518 g_free(oldmsg);
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1519 oldmsg = NULL;
cc8c969ab6e5 "/status" changes Mikael Berthe <mikael@lilotux.net> parents: 518 diff changeset	1520 }
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1521 }
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1522 }
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1523
991 ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1524 long int scr_GetAutoAwayTimeout(time_t now)
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1525 {
940 fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1526 enum imstatus cur_st;
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1527 unsigned int autoaway_timeout = settings_opt_get_int("autoaway");
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1528
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1529 if (Autoaway \|\| !autoaway_timeout)
940 fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1530 return 86400;
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1531
940 fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1532 cur_st = jb_getstatus();
fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1533 // Auto-away is disabled for the following states
fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1534 if ((cur_st != available) && (cur_st != freeforchat))
fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1535 return 86400;
fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1536
fc30221b952d Fix an autoaway problem Mikael Berthe <mikael@lilotux.net> parents: 939 diff changeset	1537 if (now >= LastActivity + (time_t)autoaway_timeout)
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1538 return 0;
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1539 else
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1540 return LastActivity + (time_t)autoaway_timeout - now;
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1541 }
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	1542
991 ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1543 // set_chatstate(state)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1544 // Set the current chat state (0=active, 1=composing, 2=paused)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1545 // If the chat state has changed, call jb_send_chatstate()
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1546 static inline void set_chatstate(int state)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1547 {
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1548 #if defined JEP0022 \|\| defined JEP0085
993 0759f4c7da68 Add option 'disable_chatstates' Mikael Berthe <mikael@lilotux.net> parents: 992 diff changeset	1549 if (chatstates_disabled)
0759f4c7da68 Add option 'disable_chatstates' Mikael Berthe <mikael@lilotux.net> parents: 992 diff changeset	1550 return;
991 ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1551 if (!chatmode)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1552 state = 0;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1553 if (state != chatstate) {
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1554 chatstate = state;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1555 if (current_buddy &&
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1556 buddy_gettype(BUDDATA(current_buddy)) == ROSTER_TYPE_USER) {
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1557 guint jep_state;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1558 if (chatstate == 1)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1559 jep_state = ROSTER_EVENT_COMPOSING;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1560 else if (chatstate == 2)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1561 jep_state = ROSTER_EVENT_PAUSED;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1562 else
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1563 jep_state = ROSTER_EVENT_ACTIVE;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1564 jb_send_chatstate(BUDDATA(current_buddy), jep_state);
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1565 }
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1566 if (!chatstate)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1567 chatstate_timestamp = 0;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1568 }
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1569 #endif
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1570 }
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1571
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1572 #if defined JEP0022 \|\| defined JEP0085
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1573 inline long int scr_GetChatStatesTimeout(time_t now)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1574 {
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1575 // Check if we're currently composing...
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1576 if (chatstate != 1 \|\| !chatstate_timestamp)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1577 return 86400;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1578
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1579 // If the timeout is reached, let's change the state right now.
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1580 if (now >= chatstate_timestamp + COMPOSING_TIMEOUT) {
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1581 chatstate_timestamp = now;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1582 set_chatstate(2);
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1583 return 86400;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1584 }
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1585
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1586 return chatstate_timestamp + COMPOSING_TIMEOUT - now;
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1587 }
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1588 #endif
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	1589
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1590 // Check if we should enter/leave automatic away status
935 97e6a6da2b2c Fix ncurses #include (again) Mikael Berthe <mikael@lilotux.net> parents: 933 diff changeset	1591 void scr_CheckAutoAway(int activity)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1592 {
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1593 enum imstatus cur_st;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1594 unsigned int autoaway_timeout = settings_opt_get_int("autoaway");
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1595
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1596 if (Autoaway && activity) set_autoaway(FALSE);
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1597 if (!autoaway_timeout) return;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1598 if (!LastActivity \|\| activity) time(&LastActivity);
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1599
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1600 cur_st = jb_getstatus();
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1601 // Auto-away is disabled for the following states
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1602 if ((cur_st != available) && (cur_st != freeforchat))
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1603 return;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1604
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1605 if (!activity) {
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1606 time_t now;
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1607 time(&now);
735 2f027806cd48 Some code cleanup Mikael Berthe <mikael@lilotux.net> parents: 731 diff changeset	1608 if (!Autoaway && (now > LastActivity + (time_t)autoaway_timeout))
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1609 set_autoaway(TRUE);
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	1610 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1611 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1612
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1613 // set_current_buddy(newbuddy)
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1614 // Set the current_buddy to newbuddy (if not NULL)
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1615 // Lock the newbuddy, and unlock the previous current_buddy
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1616 static void set_current_buddy(GList *newbuddy)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1617 {
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1618 enum imstatus prev_st = imstatus_size;
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1619 /* prev_st initialized to imstatus_size, which is used as "undef" value.
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1620 * We are sure prev_st will get a different status value after the
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1621 * buddy_getstatus() call.
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1622 */
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1623
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1624 if (!current_buddy \|\| !newbuddy) return;
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1625 if (newbuddy == current_buddy) return;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1626
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	1627 // We're moving to another buddy. We're thus inactive wrt current_buddy.
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	1628 set_chatstate(0);
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	1629 // We don't want the chatstate to be changed again right now.
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	1630 lock_chatstate = true;
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	1631
438 b44be19d6229 Handle multiple resources for the same buddy Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	1632 prev_st = buddy_getstatus(BUDDATA(current_buddy), NULL);
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1633 buddy_setflags(BUDDATA(current_buddy), ROSTER_FLAG_LOCK, FALSE);
330 a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1634 if (chatmode)
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1635 alternate_buddy = current_buddy;
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1636 current_buddy = newbuddy;
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1637 // Lock the buddy in the buddylist if we're in chat mode
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1638 if (chatmode)
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1639 buddy_setflags(BUDDATA(current_buddy), ROSTER_FLAG_LOCK, TRUE);
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1640 // We should rebuild the buddylist but not everytime
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1641 // Here we check if we were locking a buddy who is actually offline,
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1642 // and hide_offline_buddies is TRUE. In which case we need to rebuild.
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1643 if (prev_st == offline && buddylist_get_hide_offline_buddies())
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1644 buddylist_build();
83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1645 update_roster = TRUE;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1646 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	1647
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1648 // scr_RosterTop()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1649 // Go to the first buddy in the buddylist
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1650 void scr_RosterTop(void)
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1651 {
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1652 set_current_buddy(buddylist);
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1653 if (chatmode)
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1654 scr_ShowBuddyWindow();
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1655 }
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1656
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1657 // scr_RosterBottom()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1658 // Go to the last buddy in the buddylist
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1659 void scr_RosterBottom(void)
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1660 {
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1661 set_current_buddy(g_list_last(buddylist));
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1662 if (chatmode)
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1663 scr_ShowBuddyWindow();
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1664 }
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1665
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1666 // scr_RosterUp()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1667 // Go to the previous buddy in the buddylist
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1668 void scr_RosterUp(void)
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1669 {
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1670 set_current_buddy(g_list_previous(current_buddy));
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1671 if (chatmode)
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1672 scr_ShowBuddyWindow();
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1673 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1674
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1675 // scr_RosterDown()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1676 // Go to the next buddy in the buddylist
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1677 void scr_RosterDown(void)
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1678 {
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1679 set_current_buddy(g_list_next(current_buddy));
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1680 if (chatmode)
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	1681 scr_ShowBuddyWindow();
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1682 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 76 diff changeset	1683
1086 5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1684 // scr_RosterPrevGroup()
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1685 // Go to the previous group in the buddylist
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1686 void scr_RosterPrevGroup(void)
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1687 {
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1688 GList *bud;
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1689
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1690 for (bud = current_buddy ; bud ; ) {
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1691 bud = g_list_previous(bud);
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1692 if (!bud)
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1693 break;
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1694 if (buddy_gettype(BUDDATA(bud)) & ROSTER_TYPE_GROUP) {
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1695 set_current_buddy(bud);
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1696 if (chatmode)
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1697 scr_ShowBuddyWindow();
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1698 break;
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1699 }
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1700 }
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1701 }
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1702
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1703 // scr_RosterNextGroup()
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1704 // Go to the next group in the buddylist
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1705 void scr_RosterNextGroup(void)
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1706 {
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1707 GList *bud;
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1708
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1709 for (bud = current_buddy ; bud ; ) {
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1710 bud = g_list_next(bud);
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1711 if (!bud)
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1712 break;
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1713 if (buddy_gettype(BUDDATA(bud)) & ROSTER_TYPE_GROUP) {
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1714 set_current_buddy(bud);
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1715 if (chatmode)
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1716 scr_ShowBuddyWindow();
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1717 break;
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1718 }
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1719 }
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1720 }
5e2e647e781b Add command /roster group_prev\|group_next and update documentation Mikael Berthe <mikael@lilotux.net> parents: 1083 diff changeset	1721
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1722 // scr_RosterSearch(str)
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1723 // Look forward for a buddy with jid/name containing str.
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1724 void scr_RosterSearch(char *str)
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1725 {
328 83d129adde03 Add set_current_buddy() function, to reduce code duplication Mikael Berthe <mikael@lilotux.net> parents: 325 diff changeset	1726 set_current_buddy(buddy_search(str));
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1727 if (chatmode)
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1728 scr_ShowBuddyWindow();
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1729 }
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 263 diff changeset	1730
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	1731 // scr_RosterJumpJid(bjid)
c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	1732 // Jump to buddy bjid.
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1733 // NOTE: With this function, the buddy is added to the roster if doesn't exist.
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1734 void scr_RosterJumpJid(char *barejid)
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1735 {
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1736 GSList *roster_elt;
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1737 // Look for an existing buddy
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1738 roster_elt = roster_find(barejid, jidsearch,
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1739 ROSTER_TYPE_USER\|ROSTER_TYPE_AGENT\|ROSTER_TYPE_ROOM);
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1740 // Create it if necessary
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1741 if (!roster_elt)
603 9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 602 diff changeset	1742 roster_elt = roster_add_user(barejid, NULL, NULL, ROSTER_TYPE_USER,
9516db839e08 Store subscription data Mikael Berthe <mikael@lilotux.net> parents: 602 diff changeset	1743 sub_none);
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1744 // Set a lock to see it in the buddylist
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1745 buddy_setflags(BUDDATA(roster_elt), ROSTER_FLAG_LOCK, TRUE);
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1746 buddylist_build();
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1747 // Jump to the buddy
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1748 set_current_buddy(buddy_search_jid(barejid));
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1749 if (chatmode)
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1750 scr_ShowBuddyWindow();
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1751 }
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 464 diff changeset	1752
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1753 // scr_RosterUnreadMessage(next)
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1754 // Go to a new message. If next is not null, try to go to the next new
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1755 // message. If it is not possible or if next is NULL, go to the first new
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1756 // message from unread_list.
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1757 void scr_RosterUnreadMessage(int next)
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1758 {
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1759 gpointer unread_ptr;
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1760 gpointer refbuddata;
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1761 GList *nbuddy;
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1762
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1763 if (!current_buddy) return;
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1764
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1765 if (next) refbuddata = BUDDATA(current_buddy);
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1766 else refbuddata = NULL;
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1767
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1768 unread_ptr = unread_msg(refbuddata);
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1769 if (!unread_ptr) return;
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1770
889 ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1771 if (!(buddy_gettype(unread_ptr) & ROSTER_TYPE_SPECIAL)) {
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1772 gpointer ngroup;
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1773 // If buddy is in a folded group, we need to expand it
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1774 ngroup = buddy_getgroup(unread_ptr);
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1775 if (buddy_getflags(ngroup) & ROSTER_FLAG_HIDE) {
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1776 buddy_setflags(ngroup, ROSTER_FLAG_HIDE, FALSE);
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1777 buddylist_build();
ae93e69aaaaf Fix up pending message flag for the status special buffer Mikael Berthe <mikael@lilotux.net> parents: 888 diff changeset	1778 }
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1779 }
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1780
329 7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1781 nbuddy = g_list_find(buddylist, unread_ptr);
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1782 if (nbuddy) {
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1783 set_current_buddy(nbuddy);
7c53bf62a2a2 scr_RosterUnreadMessage() uses set_current_buddy() Mikael Berthe <mikael@lilotux.net> parents: 328 diff changeset	1784 if (chatmode) scr_ShowBuddyWindow();
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	1785 } else
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	1786 scr_LogPrint(LPRINT_LOGNORM, "Error: nbuddy == NULL"); // should not happen
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1787 }
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	1788
330 a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1789 // scr_RosterJumpAlternate()
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1790 // Try to jump to alternate (== previous) buddy
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1791 void scr_RosterJumpAlternate(void)
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1792 {
330 a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1793 if (!alternate_buddy \|\| g_list_position(buddylist, alternate_buddy) == -1)
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1794 return;
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1795 set_current_buddy(alternate_buddy);
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1796 if (chatmode)
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1797 scr_ShowBuddyWindow();
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1798 }
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 329 diff changeset	1799
369 499170ed71c9 Rename some buffer commands, for homogeneity Mikael Berthe <mikael@lilotux.net> parents: 365 diff changeset	1800 // scr_BufferScrollUpDown()
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1801 // Scroll up/down the current buddy window,
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1802 // - half a screen if nblines is 0,
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1803 // - up if updown == -1, down if updown == 1
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1804 void scr_BufferScrollUpDown(int updown, unsigned int nblines)
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1805 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	1806 winbuf *win_entry;
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1807 int n, nbl;
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1808 GList *hbuf_top;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1809 guint isspe;
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1810
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1811 // Get win_entry
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1812 if (!current_buddy) return;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1813
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1814 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1815 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1816 if (!win_entry) return;
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1817
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1818 if (!nblines) {
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1819 // Scroll half a screen (or less)
512 1744664332cd Fix "/buffer up" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	1820 nbl = CHAT_WIN_HEIGHT/2;
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1821 } else {
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1822 nbl = nblines;
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1823 }
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1824 hbuf_top = win_entry->bd->top;
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1825
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1826 if (updown == -1) { // UP
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1827 if (!hbuf_top) {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1828 hbuf_top = g_list_last(win_entry->bd->hbuf);
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1829 if (!win_entry->bd->cleared) {
512 1744664332cd Fix "/buffer up" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	1830 if (!nblines) nbl = nbl*3 - 1;
1744664332cd Fix "/buffer up" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	1831 else nbl += CHAT_WIN_HEIGHT - 1;
1744664332cd Fix "/buffer up" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	1832 } else {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1833 win_entry->bd->cleared = FALSE;
512 1744664332cd Fix "/buffer up" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	1834 }
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1835 }
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1836 for (n=0 ; hbuf_top && n < nbl && g_list_previous(hbuf_top) ; n++)
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1837 hbuf_top = g_list_previous(hbuf_top);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1838 win_entry->bd->top = hbuf_top;
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1839 } else { // DOWN
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 503 diff changeset	1840 for (n=0 ; hbuf_top && n < nbl ; n++)
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1841 hbuf_top = g_list_next(hbuf_top);
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1842 win_entry->bd->top = hbuf_top;
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1843 // Check if we are at the bottom
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1844 for (n=0 ; hbuf_top && n < CHAT_WIN_HEIGHT-1 ; n++)
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1845 hbuf_top = g_list_next(hbuf_top);
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1846 if (!hbuf_top)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1847 win_entry->bd->top = NULL; // End reached
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1848 }
105 91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1849
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1850 // Refresh the window
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1851 scr_UpdateWindow(win_entry);
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1852
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1853 // Finished :)
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1854 update_panels();
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1855 }
91d3ec21c24e [/trunk] Changeset 119 by mikael mikael parents: 104 diff changeset	1856
369 499170ed71c9 Rename some buffer commands, for homogeneity Mikael Berthe <mikael@lilotux.net> parents: 365 diff changeset	1857 // scr_BufferClear()
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	1858 // Clear the current buddy window (used for the /clear command)
369 499170ed71c9 Rename some buffer commands, for homogeneity Mikael Berthe <mikael@lilotux.net> parents: 365 diff changeset	1859 void scr_BufferClear(void)
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1860 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	1861 winbuf *win_entry;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1862 guint isspe;
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1863
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1864 // Get win_entry
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1865 if (!current_buddy) return;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1866 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	1867 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	1868 if (!win_entry) return;
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1869
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1870 win_entry->bd->cleared = TRUE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1871 win_entry->bd->top = NULL;
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1872
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1873 // Refresh the window
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1874 scr_UpdateWindow(win_entry);
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1875
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1876 // Finished :)
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1877 update_panels();
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1878 }
7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 105 diff changeset	1879
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1880 // buffer_purge()
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1881 // key: winId/jid
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1882 // value: winbuf structure
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1883 // data: int, set to 1 if the buffer should be closed.
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1884 // NOTE: does not work for special buffers.
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1885 static void buffer_purge(gpointer key, gpointer value, gpointer data)
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1886 {
1225 0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1887 int *p_closebuf = data;
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1888 winbuf *win_entry = value;
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1889
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1890 // Delete the current hbuf
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1891 hbuf_free(&win_entry->bd->hbuf);
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1892
1225 0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1893 if (*p_closebuf) {
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1894 g_hash_table_remove(winbufhash, key);
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1895 } else {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1896 win_entry->bd->cleared = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1897 win_entry->bd->top = NULL;
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1898 }
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1899 }
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1900
1135 5d7c05932b13 Add command /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1133 diff changeset	1901 // scr_BufferPurge(closebuf)
866 b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1902 // Purge/Drop the current buddy buffer
1135 5d7c05932b13 Add command /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1133 diff changeset	1903 // If closebuf is 1, close the buffer.
5d7c05932b13 Add command /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1133 diff changeset	1904 void scr_BufferPurge(int closebuf)
866 b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1905 {
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1906 winbuf *win_entry;
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1907 guint isspe;
1225 0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1908 guint *p_closebuf;
866 b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1909
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1910 // Get win_entry
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1911 if (!current_buddy) return;
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1912 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1913 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1914 if (!win_entry) return;
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1915
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1916 if (!isspe) {
1225 0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1917 p_closebuf = g_new(guint, 1);
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1918 *p_closebuf = closebuf;
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1919 buffer_purge((gpointer)CURRENT_JID, win_entry, p_closebuf);
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1920 g_free(p_closebuf);
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1921 if (closebuf) {
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1922 scr_set_chatmode(FALSE);
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1923 currentWindow = NULL;
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1924 }
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1925 } else {
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1926 // (Special buffer)
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1927 // Reset the current hbuf
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1928 hbuf_free(&win_entry->bd->hbuf);
866 b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1929 // Currently it can only be the status buffer
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1930 statushbuf = NULL;
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1931
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1932 win_entry->bd->cleared = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1933 win_entry->bd->top = NULL;
866 b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1934 }
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1935
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1936 // Refresh the window
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1937 scr_UpdateBuddyWindow();
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1938
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1939 // Finished :)
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1940 update_panels();
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1941 }
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1942
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1943 void scr_BufferPurgeAll(int closebuf)
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1944 {
1225 0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1945 guint *p_closebuf;
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1946 p_closebuf = g_new(guint, 1);
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1947
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1948 *p_closebuf = closebuf;
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1949 g_hash_table_foreach(winbufhash, buffer_purge, p_closebuf);
0e9e9724d643 Fix a bad type cast in buffer_purge() Mikael Berthe <mikael@lilotux.net> parents: 1209 diff changeset	1950 g_free(p_closebuf);
1138 8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1951
8ba4b1e8b42d Add command /buffer close_all Mikael Berthe <mikael@lilotux.net> parents: 1137 diff changeset	1952 if (closebuf) {
1135 5d7c05932b13 Add command /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1133 diff changeset	1953 scr_set_chatmode(FALSE);
1137 5752017f6e2b Fix a bug in /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1135 diff changeset	1954 currentWindow = NULL;
1135 5d7c05932b13 Add command /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1133 diff changeset	1955 }
5d7c05932b13 Add command /buffer close Mikael Berthe <mikael@lilotux.net> parents: 1133 diff changeset	1956
866 b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1957 // Refresh the window
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1958 scr_UpdateBuddyWindow();
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1959
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1960 // Finished :)
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1961 update_panels();
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1962 }
b30df2ab457f Add "/buffer purge" Mikael Berthe <mikael@lilotux.net> parents: 865 diff changeset	1963
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1964 // scr_BufferScrollLock(lock)
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1965 // Lock/unlock the current buddy buffer
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1966 // lock = 1 : lock
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1967 // lock = 0 : unlock
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1968 // lock = -1: toggle lock status
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1969 void scr_BufferScrollLock(int lock)
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1970 {
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1971 winbuf *win_entry;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1972 guint isspe;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1973
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1974 // Get win_entry
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1975 if (!current_buddy) return;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1976 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1977 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1978 if (!win_entry) return;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1979
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1980 if (lock == -1)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1981 lock = !win_entry->bd->lock;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1982
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1983 if (lock) {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1984 win_entry->bd->lock = TRUE;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1985 } else {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1986 win_entry->bd->lock = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1987 //win_entry->bd->cleared = FALSE;
880 ea983a945eba /buffer scroll_unlock: Don't always jump to the end of the buffer Mikael Berthe <mikael@lilotux.net> parents: 878 diff changeset	1988 if (isspe \|\| (buddy_getflags(BUDDATA(current_buddy)) & ROSTER_FLAG_MSG))
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1989 win_entry->bd->top = NULL;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1990 }
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1991
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1992 // If chatmode is disabled and we're at the bottom of the buffer,
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1993 // we need to set the "top" line, so we need to call scr_ShowBuddyWindow()
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1994 // at least once. (Maybe it will cause a double refresh...)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	1995 if (!chatmode && !win_entry->bd->top) {
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1996 chatmode = TRUE;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1997 scr_ShowBuddyWindow();
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1998 chatmode = FALSE;
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	1999 }
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2000
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2001 // Refresh the window
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2002 scr_UpdateBuddyWindow();
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2003
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2004 // Finished :)
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2005 update_panels();
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2006 }
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2007
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	2008 // scr_BufferTopBottom()
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	2009 // Jump to the head/tail of the current buddy window
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	2010 // (top if topbottom == -1, bottom topbottom == 1)
51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	2011 void scr_BufferTopBottom(int topbottom)
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2012 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	2013 winbuf *win_entry;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2014 guint isspe;
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2015
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2016 // Get win_entry
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2017 if (!current_buddy) return;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2018 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2019 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2020 if (!win_entry) return;
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2021
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2022 win_entry->bd->cleared = FALSE;
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	2023 if (topbottom == 1)
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2024 win_entry->bd->top = NULL;
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 358 diff changeset	2025 else
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2026 win_entry->bd->top = g_list_first(win_entry->bd->hbuf);
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2027
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2028 // Refresh the window
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2029 scr_UpdateWindow(win_entry);
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2030
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2031 // Finished :)
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2032 update_panels();
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2033 }
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 185 diff changeset	2034
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2035 // scr_BufferSearch(direction, text)
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2036 // Jump to the next line containing text
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2037 // (backward search if direction == -1, forward if topbottom == 1)
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2038 void scr_BufferSearch(int direction, const char *text)
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2039 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	2040 winbuf *win_entry;
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2041 GList current_line, search_res;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2042 guint isspe;
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2043
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2044 // Get win_entry
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2045 if (!current_buddy) return;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2046 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2047 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2048 if (!win_entry) return;
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2049
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2050 if (win_entry->bd->top)
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2051 current_line = win_entry->bd->top;
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2052 else
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2053 current_line = g_list_last(win_entry->bd->hbuf);
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2054
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2055 search_res = hbuf_search(current_line, direction, text);
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2056
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2057 if (search_res) {
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2058 win_entry->bd->cleared = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2059 win_entry->bd->top = search_res;
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2060
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2061 // Refresh the window
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2062 scr_UpdateWindow(win_entry);
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2063
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2064 // Finished :)
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2065 update_panels();
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2066 } else
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2067 scr_LogPrint(LPRINT_NORMAL, "Search string not found");
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2068 }
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	2069
462 d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2070 // scr_BufferPercent(n)
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2071 // Jump to the specified position in the buffer, in %
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2072 void scr_BufferPercent(int pc)
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2073 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	2074 winbuf *win_entry;
462 d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2075 GList *search_res;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2076 guint isspe;
462 d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2077
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2078 // Get win_entry
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2079 if (!current_buddy) return;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2080 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2081 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
462 d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2082 if (!win_entry) return;
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2083
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2084 if (pc < 0 \|\| pc > 100) {
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2085 scr_LogPrint(LPRINT_NORMAL, "Bad % value");
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2086 return;
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2087 }
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2088
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2089 search_res = hbuf_jump_percent(win_entry->bd->hbuf, pc);
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2090
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2091 win_entry->bd->cleared = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2092 win_entry->bd->top = search_res;
462 d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2093
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2094 // Refresh the window
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2095 scr_UpdateWindow(win_entry);
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2096
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2097 // Finished :)
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2098 update_panels();
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2099 }
d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 459 diff changeset	2100
464 e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2101 // scr_BufferDate(t)
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2102 // Jump to the first line after date t in the buffer
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2103 // t is a date in seconds since `00:00:00 1970-01-01 UTC'
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2104 void scr_BufferDate(time_t t)
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2105 {
822 0dbb2be10975 Get rid of list.h Mikael Berthe <mikael@lilotux.net> parents: 807 diff changeset	2106 winbuf *win_entry;
464 e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2107 GList *search_res;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2108 guint isspe;
464 e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2109
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2110 // Get win_entry
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2111 if (!current_buddy) return;
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2112 isspe = buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_SPECIAL;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2113 win_entry = scr_SearchWindow(CURRENT_JID, isspe);
464 e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2114 if (!win_entry) return;
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2115
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2116 search_res = hbuf_jump_date(win_entry->bd->hbuf, t);
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2117
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2118 win_entry->bd->cleared = FALSE;
5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2119 win_entry->bd->top = search_res;
464 e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2120
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2121 // Refresh the window
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2122 scr_UpdateWindow(win_entry);
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2123
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2124 // Finished :)
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2125 update_panels();
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2126 }
e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	2127
1226 2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2128 #ifdef DEBUG_ENABLE
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2129 // buffer_list()
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2130 // key: winId/jid
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2131 // value: winbuf structure
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2132 // data: none.
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2133 static void buffer_list(gpointer key, gpointer value, gpointer data)
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2134 {
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2135 winbuf *win_entry = value;
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2136 scr_LogPrint(LPRINT_NORMAL, " %s (%ld)", key,
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2137 g_list_length(g_list_first(win_entry->bd->hbuf)));
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2138 }
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2139
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2140 void scr_BufferList(void)
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2141 {
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2142 scr_LogPrint(LPRINT_NORMAL, "Buffer list:");
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2143 scr_LogPrint(LPRINT_NORMAL, " [status] (%ld)",
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2144 g_list_length(g_list_first(statusWindow->bd->hbuf)));
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2145 g_hash_table_foreach(winbufhash, buffer_list, NULL);
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2146 scr_LogPrint(LPRINT_NORMAL, "End of buffer list.");
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2147 }
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2148 #endif
2521efbf3b72 New (debug) subcommand, buffer list Mikael Berthe <mikael@lilotux.net> parents: 1225 diff changeset	2149
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2150 // scr_set_chatmode()
261 259ed1de5bdc Fix spelling mistakes in comments mikael@frmp8452 parents: 260 diff changeset	2151 // Public function to (un)set chatmode...
129 03be1cc94560 [/trunk] Changeset 142 by mikael mikael parents: 126 diff changeset	2152 inline void scr_set_chatmode(int enable)
03be1cc94560 [/trunk] Changeset 142 by mikael mikael parents: 126 diff changeset	2153 {
03be1cc94560 [/trunk] Changeset 142 by mikael mikael parents: 126 diff changeset	2154 chatmode = enable;
721 9cf31c9b1dc4 Use room topic as a description in the chat status line Mikael Berthe <mikael@lilotux.net> parents: 720 diff changeset	2155 scr_UpdateChatStatus(TRUE);
129 03be1cc94560 [/trunk] Changeset 142 by mikael mikael parents: 126 diff changeset	2156 }
03be1cc94560 [/trunk] Changeset 142 by mikael mikael parents: 126 diff changeset	2157
1129 1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2158 // scr_get_chatmode()
1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2159 // Public function to get chatmode state.
1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2160 inline int scr_get_chatmode(void)
1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2161 {
1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2162 return chatmode;
1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2163 }
1a109ebf3f24 Add option "events_ignore_active_window" Mikael Berthe <mikael@lilotux.net> parents: 1127 diff changeset	2164
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2165 // scr_get_multimode()
261 259ed1de5bdc Fix spelling mistakes in comments mikael@frmp8452 parents: 260 diff changeset	2166 // Public function to get multimode status...
1059 875d2c9d399c Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	2167 inline int scr_get_multimode(void)
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2168 {
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2169 return multimode;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2170 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2171
654 d7fe7b88e4fc MUC: Set the new_message flag when joining a room Mikael Berthe <mikael@lilotux.net> parents: 652 diff changeset	2172 // scr_setmsgflag_if_needed(jid)
d7fe7b88e4fc MUC: Set the new_message flag when joining a room Mikael Berthe <mikael@lilotux.net> parents: 652 diff changeset	2173 // Set the message flag unless we're already in the jid buffer window
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	2174 void scr_setmsgflag_if_needed(const char *bjid, int special)
654 d7fe7b88e4fc MUC: Set the new_message flag when joining a room Mikael Berthe <mikael@lilotux.net> parents: 652 diff changeset	2175 {
891 78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2176 const char *current_id;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2177 bool iscurrentlocked = FALSE;
667 86bc3295a4db Fix segfault in scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 658 diff changeset	2178
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	2179 if (!bjid)
849 42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2180 return;
42c43a88d823 Status buffer management Mikael Berthe <mikael@lilotux.net> parents: 848 diff changeset	2181
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2182 if (current_buddy) {
891 78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2183 if (special)
78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2184 current_id = buddy_getname(BUDDATA(current_buddy));
78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2185 else
78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2186 current_id = buddy_getjid(BUDDATA(current_buddy));
78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2187 if (current_id) {
78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2188 winbuf *win_entry = scr_SearchWindow(current_id, special);
888 578d2034e971 scr_setmsgflag_if_needed(): Add a check after scr_SearchWindow() Mikael Berthe <mikael@lilotux.net> parents: 884 diff changeset	2189 if (!win_entry) return;
1157 5c857f0f0ab8 Moved all variables related to hbuf to an extra struct, bufdata Frank Zschockelt parents: 1156 diff changeset	2190 iscurrentlocked = win_entry->bd->lock;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2191 }
ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2192 } else {
891 78f4971578dd Add a "special" parameter to scr_setmsgflag_if_needed() Mikael Berthe <mikael@lilotux.net> parents: 889 diff changeset	2193 current_id = NULL;
873 ee39f6d94d43 Add /buffer {scroll_lock\|scroll_unlock\|toggle_scroll} Mikael Berthe <mikael@lilotux.net> parents: 866 diff changeset	2194 }
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	2195 if (!chatmode \|\| !current_id \|\| strcmp(bjid, current_id) \|\| iscurrentlocked)
c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	2196 roster_msg_setflag(bjid, special, TRUE);
654 d7fe7b88e4fc MUC: Set the new_message flag when joining a room Mikael Berthe <mikael@lilotux.net> parents: 652 diff changeset	2197 }
d7fe7b88e4fc MUC: Set the new_message flag when joining a room Mikael Berthe <mikael@lilotux.net> parents: 652 diff changeset	2198
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2199 // scr_set_multimode()
261 259ed1de5bdc Fix spelling mistakes in comments mikael@frmp8452 parents: 260 diff changeset	2200 // Public function to (un)set multimode...
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 252 diff changeset	2201 // Convention:
33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 252 diff changeset	2202 // 0 = disabled / 1 = multimode / 2 = multimode verbatim (commands disabled)
807 f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2203 inline void scr_set_multimode(int enable, char *subject)
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2204 {
807 f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2205 g_free(multiline);
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2206 multiline = NULL;
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2207
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2208 g_free(multimode_subj);
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2209 if (enable && subject)
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2210 multimode_subj = g_strdup(subject);
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2211 else
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2212 multimode_subj = NULL;
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2213
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 252 diff changeset	2214 multimode = enable;
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2215 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2216
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2217 // scr_get_multiline()
261 259ed1de5bdc Fix spelling mistakes in comments mikael@frmp8452 parents: 260 diff changeset	2218 // Public function to get the current multi-line.
807 f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2219 inline const char *scr_get_multiline(void)
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2220 {
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2221 if (multimode && multiline)
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2222 return multiline;
807 f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2223 return NULL;
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2224 }
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2225
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2226 // scr_get_multimode_subj()
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2227 // Public function to get the multi-line subject, if any.
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2228 inline const char *scr_get_multimode_subj(void)
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2229 {
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2230 if (multimode)
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2231 return multimode_subj;
f6cda389db48 Allow messages with a subject (/msay) Mikael Berthe <mikael@lilotux.net> parents: 806 diff changeset	2232 return NULL;
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2233 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2234
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2235 // scr_append_multiline(line)
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2236 // Public function to append a line to the current multi-line message.
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2237 // Skip empty leading lines.
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2238 void scr_append_multiline(const char *line)
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2239 {
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2240 static int num;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2241
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2242 if (!multimode) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2243 scr_LogPrint(LPRINT_NORMAL, "Error: Not in multi-line message mode!");
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2244 return;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2245 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2246 if (multiline) {
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2247 int len = strlen(multiline)+strlen(line)+2;
252 cb7f944741e4 [/trunk] Changeset 265 by mikael mikael parents: 238 diff changeset	2248 if (len >= HBB_BLOCKSIZE - 1) {
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2249 // We don't handle single messages with size > HBB_BLOCKSIZE
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2250 // (see hbuf)
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2251 scr_LogPrint(LPRINT_NORMAL, "Your multi-line message is too big, "
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2252 "this line has not been added.");
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2253 scr_LogPrint(LPRINT_NORMAL, "Please send this part now...");
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2254 return;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2255 }
276 627925d885de Limit the number of lines in multi-line messages Mikael Berthe <mikael@lilotux.net> parents: 271 diff changeset	2256 if (num >= MULTILINE_MAX_LINE_NUMBER) {
627925d885de Limit the number of lines in multi-line messages Mikael Berthe <mikael@lilotux.net> parents: 271 diff changeset	2257 // We don't allow too many lines; however the maximum is arbitrary
627925d885de Limit the number of lines in multi-line messages Mikael Berthe <mikael@lilotux.net> parents: 271 diff changeset	2258 // (It should be < 1000 yet)
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2259 scr_LogPrint(LPRINT_NORMAL, "Your message has too many lines, "
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2260 "this one has not been added.");
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2261 scr_LogPrint(LPRINT_NORMAL, "Please send this part now...");
276 627925d885de Limit the number of lines in multi-line messages Mikael Berthe <mikael@lilotux.net> parents: 271 diff changeset	2262 return;
627925d885de Limit the number of lines in multi-line messages Mikael Berthe <mikael@lilotux.net> parents: 271 diff changeset	2263 }
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2264 multiline = g_renew(char, multiline, len);
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2265 strcat(multiline, "\n");
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2266 strcat(multiline, line);
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2267 num++;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2268 } else {
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2269 // First message line (we skip leading empty lines)
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2270 num = 0;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2271 if (line[0]) {
419 2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 412 diff changeset	2272 multiline = g_strdup(line);
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2273 num++;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2274 } else
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2275 return;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2276 }
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	2277 scr_LogPrint(LPRINT_NORMAL\|LPRINT_NOTUTF8,
464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	2278 "Multi-line mode: line #%d added [%.25s...", num, line);
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2279 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	2280
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2281 // scr_cmdhisto_addline()
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2282 // Add a line to the inputLine history
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2283 inline void scr_cmdhisto_addline(char *line)
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2284 {
1127 fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2285 int max_histo_lines;
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2286
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2287 if (!line \|\| !*line)
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2288 return;
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2289
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2290 max_histo_lines = settings_opt_get_int("cmdhistory_lines");
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2291
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2292 if (max_histo_lines < 0)
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2293 max_histo_lines = 1;
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2294
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2295 if (max_histo_lines)
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2296 while (cmdhisto_nblines >= (guint)max_histo_lines) {
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2297 if (cmdhisto_cur && cmdhisto_cur == cmdhisto)
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2298 break;
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2299 g_free(cmdhisto->data);
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2300 cmdhisto = g_list_delete_link(cmdhisto, cmdhisto);
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2301 cmdhisto_nblines--;
fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2302 }
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2303
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2304 cmdhisto = g_list_append(cmdhisto, g_strdup(line));
1127 fddf2fef7b83 Add option "cmdhistory_lines" Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	2305 cmdhisto_nblines++;
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2306 }
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2307
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2308 // scr_cmdhisto_prev()
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2309 // Look for previous line beginning w/ the given mask in the inputLine history
175 7b7dd6d69f58 [/trunk] Changeset 187 by mikael mikael parents: 174 diff changeset	2310 // Returns NULL if none found
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2311 static const char scr_cmdhisto_prev(char mask, guint len)
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2312 {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2313 GList *hl;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2314 if (!cmdhisto_cur) {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2315 hl = g_list_last(cmdhisto);
174 6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	2316 if (hl) { // backup current line
6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	2317 strncpy(cmdhisto_backup, mask, INPUTLINE_LENGTH);
6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	2318 }
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2319 } else {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2320 hl = g_list_previous(cmdhisto_cur);
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2321 }
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2322 while (hl) {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2323 if (!strncmp((char*)hl->data, mask, len)) {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2324 // Found a match
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2325 cmdhisto_cur = hl;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2326 return (const char*)hl->data;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2327 }
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2328 hl = g_list_previous(hl);
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2329 }
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2330 return NULL;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2331 }
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2332
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2333 // scr_cmdhisto_next()
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2334 // Look for next line beginning w/ the given mask in the inputLine history
175 7b7dd6d69f58 [/trunk] Changeset 187 by mikael mikael parents: 174 diff changeset	2335 // Returns NULL if none found
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2336 static const char scr_cmdhisto_next(char mask, guint len)
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2337 {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2338 GList *hl;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2339 if (!cmdhisto_cur) return NULL;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2340 hl = cmdhisto_cur;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2341 while ((hl = g_list_next(hl)) != NULL)
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2342 if (!strncmp((char*)hl->data, mask, len)) {
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2343 // Found a match
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2344 cmdhisto_cur = hl;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2345 return (const char*)hl->data;
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2346 }
175 7b7dd6d69f58 [/trunk] Changeset 187 by mikael mikael parents: 174 diff changeset	2347 // If the "backuped" line matches, we'll use it
7b7dd6d69f58 [/trunk] Changeset 187 by mikael mikael parents: 174 diff changeset	2348 if (strncmp(cmdhisto_backup, mask, len)) return NULL; // No match
174 6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	2349 cmdhisto_cur = NULL;
6354625e8fb2 [/trunk] Changeset 186 by mikael mikael parents: 173 diff changeset	2350 return cmdhisto_backup;
173 09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2351 }
09e24917059d [/trunk] Changeset 185 by mikael mikael parents: 168 diff changeset	2352
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2353 // readline_transpose_chars()
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2354 // Drag the character before point forward over the character at
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2355 // point, moving point forward as well. If point is at the end of
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2356 // the line, then this transposes the two characters before point.
1059 875d2c9d399c Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	2357 void readline_transpose_chars(void)
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2358 {
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2359 char c1, c2;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2360 unsigned a, b;
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2361
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2362 if (ptr_inputline == inputLine) return;
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2363
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2364 if (!*ptr_inputline) { // We're at EOL
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2365 // If line is only 1 char long, nothing to do...
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2366 if (ptr_inputline == prev_char(ptr_inputline, inputLine)) return;
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2367 // Transpose the two previous characters
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2368 c2 = prev_char(ptr_inputline, inputLine);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2369 c1 = prev_char(c2, inputLine);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2370 a = get_char(c1);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2371 b = get_char(c2);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2372 put_char(put_char(c1, b), a);
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2373 } else {
196 58eb8ad9ef74 [/trunk] Changeset 208 by mikael mikael parents: 195 diff changeset	2374 // Swap the two characters before the cursor and move right.
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2375 c2 = ptr_inputline;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2376 c1 = prev_char(c2, inputLine);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2377 a = get_char(c1);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2378 b = get_char(c2);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2379 put_char(put_char(c1, b), a);
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2380 check_offset(1);
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2381 }
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2382 }
cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2383
1171 03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2384 void readline_forward_kill_word(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2385 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2386 char c, old = ptr_inputline;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2387 int spaceallowed = 1;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2388
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2389 if (! *ptr_inputline) return;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2390
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2391 for (c = ptr_inputline ; *c ; c = next_char(c)) {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2392 if (!iswalnum(get_char(c))) {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2393 if (iswblank(get_char(c))) {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2394 if (!spaceallowed) break;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2395 } else spaceallowed = 0;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2396 } else spaceallowed = 0;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2397 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2398
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2399 // Modify the line
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2400 for (;;) {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2401 old = c++;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2402 if (!*old++) break;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2403 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2404 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2405
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2406 // readline_backward_kill_word()
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2407 // Kill the word before the cursor, in input line
1059 875d2c9d399c Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	2408 void readline_backward_kill_word(void)
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2409 {
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2410 char c, old = ptr_inputline;
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2411 int spaceallowed = 1;
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2412
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2413 if (ptr_inputline == inputLine) return;
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2414
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2415 c = prev_char(ptr_inputline, inputLine);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2416 for ( ; c > inputLine ; c = prev_char(c, inputLine)) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2417 if (!iswalnum(get_char(c))) {
933 ede9260be93d Input line: Improve word-related functions Mikael Berthe <mikael@lilotux.net> parents: 932 diff changeset	2418 if (iswblank(get_char(c))) {
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2419 if (!spaceallowed) break;
933 ede9260be93d Input line: Improve word-related functions Mikael Berthe <mikael@lilotux.net> parents: 932 diff changeset	2420 } else spaceallowed = 0;
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2421 } else spaceallowed = 0;
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2422 }
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2423
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2424 if (c != inputLine \|\| iswblank(get_char(c)))
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2425 if ((c < prev_char(ptr_inputline, inputLine)) && (!iswalnum(get_char(c))))
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2426 c = next_char(c);
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2427
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2428 // Modify the line
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2429 ptr_inputline = c;
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2430 for (;;) {
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2431 c = old++;
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2432 if (!*c++) break;
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2433 }
195 cdaa53d5ef70 [/trunk] Changeset 207 by mikael mikael parents: 194 diff changeset	2434 check_offset(-1);
194 a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2435 }
a05d5c3876ec [/trunk] Changeset 206 by mikael mikael parents: 190 diff changeset	2436
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2437 // readline_backward_word()
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2438 // Move back to the start of the current or previous word
1059 875d2c9d399c Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	2439 void readline_backward_word(void)
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2440 {
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2441 int i = 0;
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2442
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2443 if (ptr_inputline == inputLine) return;
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2444
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2445 if (iswalnum(get_char(ptr_inputline)) &&
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2446 !iswalnum(get_char(prev_char(ptr_inputline, inputLine))))
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2447 i--;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2448
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2449 for( ;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2450 ptr_inputline > inputLine;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2451 ptr_inputline = prev_char(ptr_inputline, inputLine)) {
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2452 if (!iswalnum(get_char(ptr_inputline))) {
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2453 if (i) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2454 ptr_inputline = next_char(ptr_inputline);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2455 break;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2456 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2457 } else i++;
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2458 }
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2459
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2460 check_offset(-1);
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2461 }
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2462
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2463 // readline_forward_word()
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2464 // Move forward to the end of the next word
1059 875d2c9d399c Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	2465 void readline_forward_word(void)
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2466 {
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2467 int stopsymbol_allowed = 1;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2468
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2469 while (*ptr_inputline) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2470 if (!iswalnum(get_char(ptr_inputline))) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2471 if (!stopsymbol_allowed) break;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2472 } else stopsymbol_allowed = 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2473 ptr_inputline = next_char(ptr_inputline);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2474 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2475
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2476 check_offset(1);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2477 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2478
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2479 void readline_updowncase_word(int upcase)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2480 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2481 int stopsymbol_allowed = 1;
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2482
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2483 while (*ptr_inputline) {
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2484 if (!iswalnum(get_char(ptr_inputline))) {
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2485 if (!stopsymbol_allowed) break;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2486 } else {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2487 stopsymbol_allowed = 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2488 if (upcase)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2489 *ptr_inputline = towupper(get_char(ptr_inputline));
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2490 else
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2491 *ptr_inputline = towlower(get_char(ptr_inputline));
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2492 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2493 ptr_inputline = next_char(ptr_inputline);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2494 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2495
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2496 check_offset(1);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2497 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2498
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2499 void readline_capitalize_word(void)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2500 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2501 int stopsymbol_allowed = 1;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2502 int upcased = 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2503
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2504 while (*ptr_inputline) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2505 if (!iswalnum(get_char(ptr_inputline))) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2506 if (!stopsymbol_allowed) break;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2507 } else {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2508 stopsymbol_allowed = 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2509 if (!upcased) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2510 *ptr_inputline = towupper(get_char(ptr_inputline));
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2511 upcased = 1;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2512 } else *ptr_inputline = towlower(get_char(ptr_inputline));
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2513 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2514 ptr_inputline = next_char(ptr_inputline);
759 a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2515 }
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2516
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2517 check_offset(1);
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2518 }
a681dc477c7f Add readline_backward_word and readline_forward_word (Ctrl-Left/Ctrl-Right) Mikael Berthe <mikael@lilotux.net> parents: 758 diff changeset	2519
1171 03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2520 void readline_backward_char(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2521 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2522 if (ptr_inputline == (char*)&inputLine) return;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2523
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2524 ptr_inputline = prev_char(ptr_inputline, inputLine);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2525 check_offset(-1);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2526 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2527
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2528 void readline_forward_char(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2529 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2530 if (!*ptr_inputline) return;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2531
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2532 ptr_inputline = next_char(ptr_inputline);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2533 check_offset(1);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2534 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2535
1177 10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2536 // readline_accept_line(down_history)
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2537 // Validate current command line.
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2538 // If down_history is true, load the next history line.
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2539 int readline_accept_line(int down_history)
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2540 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2541 scr_CheckAutoAway(TRUE);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2542 if (process_line(inputLine))
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2543 return 255;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2544 // Add line to history
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2545 scr_cmdhisto_addline(inputLine);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2546 // Reset the line
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2547 ptr_inputline = inputLine;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2548 *ptr_inputline = 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2549 inputline_offset = 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2550
1177 10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2551 if (down_history) {
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2552 // Use next history line instead of a blank line
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2553 const char *l = scr_cmdhisto_next("", 0);
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2554 if (l) strcpy(inputLine, l);
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2555 // Reset backup history line
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2556 cmdhisto_backup[0] = 0;
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2557 } else {
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2558 // Reset history line pointer
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2559 cmdhisto_cur = NULL;
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	2560 }
1172 334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2561 return 0;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2562 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2563
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2564 void readline_cancel_completion(void)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2565 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2566 scr_cancel_current_completion();
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2567 scr_end_current_completion();
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2568 check_offset(-1);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2569 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2570
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2571 void readline_do_completion(void)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2572 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2573 int i, n;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2574
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2575 if (scr_get_multimode() != 2) {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2576 // Not in verbatim multi-line mode
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2577 scr_handle_tab();
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2578 } else {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2579 // Verbatim multi-line mode: expand tab
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2580 char tabstr[9];
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2581 n = 8 - (ptr_inputline - inputLine) % 8;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2582 for (i = 0; i < n; i++)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2583 tabstr[i] = ' ';
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2584 tabstr[i] = '\0';
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2585 scr_insert_text(tabstr);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2586 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2587 check_offset(0);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2588 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2589
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2590 void readline_refresh_screen(void)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2591 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2592 scr_CheckAutoAway(TRUE);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2593 ParseColors();
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2594 scr_Resize();
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2595 redrawwin(stdscr);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2596 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2597
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2598 void readline_disable_chat_mode(void)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2599 {
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2600 scr_CheckAutoAway(TRUE);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2601 currentWindow = NULL;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2602 chatmode = FALSE;
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2603 if (current_buddy)
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2604 buddy_setflags(BUDDATA(current_buddy), ROSTER_FLAG_LOCK, FALSE);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2605 scr_RosterVisibility(1);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2606 scr_UpdateChatStatus(FALSE);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2607 top_panel(chatPanel);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2608 top_panel(inputPanel);
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2609 update_panels();
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2610 }
334ae9f498f1 Add some more iline functions (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1171 diff changeset	2611
1190 be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2612 void readline_hist_beginning_search_bwd(void)
1171 03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2613 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2614 const char *l = scr_cmdhisto_prev(inputLine, ptr_inputline-inputLine);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2615 if (l) strcpy(inputLine, l);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2616 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2617
1190 be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2618 void readline_hist_beginning_search_fwd(void)
1171 03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2619 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2620 const char *l = scr_cmdhisto_next(inputLine, ptr_inputline-inputLine);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2621 if (l) strcpy(inputLine, l);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2622 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2623
1190 be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2624 void readline_hist_prev(void)
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2625 {
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2626 const char *l = scr_cmdhisto_prev(inputLine, 0);
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2627 if (l) {
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2628 strcpy(inputLine, l);
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2629 // Set the pointer at the EOL.
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2630 // We have to move it to BOL first, because we could be too far already.
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2631 readline_iline_start();
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2632 readline_iline_end();
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2633 }
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2634 }
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2635
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2636 void readline_hist_next(void)
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2637 {
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2638 const char *l = scr_cmdhisto_next(inputLine, 0);
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2639 if (l) {
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2640 strcpy(inputLine, l);
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2641 // Set the pointer at the EOL.
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2642 // We have to move it to BOL first, because we could be too far already.
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2643 readline_iline_start();
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2644 readline_iline_end();
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2645 }
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2646 }
be06bbe7e449 Add readline_hist_beginning_search_bwd/fwd functions Mikael Berthe <mikael@lilotux.net> parents: 1187 diff changeset	2647
1171 03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2648 void readline_backward_kill_char(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2649 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2650 char src, c;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2651
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2652 if (ptr_inputline == (char*)&inputLine)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2653 return;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2654
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2655 src = ptr_inputline;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2656 c = prev_char(ptr_inputline, inputLine);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2657 ptr_inputline = c;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2658 for ( ; *src ; )
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2659 c++ = src++;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2660 *c = 0;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2661 check_offset(-1);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2662 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2663
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2664 void readline_forward_kill_char(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2665 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2666 if (!*ptr_inputline)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2667 return;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2668
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2669 strcpy(ptr_inputline, next_char(ptr_inputline));
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2670 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2671
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2672 void readline_iline_start(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2673 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2674 ptr_inputline = inputLine;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2675 inputline_offset = 0;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2676 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2677
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2678 void readline_iline_end(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2679 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2680 for (; *ptr_inputline; ptr_inputline++) ;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2681 check_offset(1);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2682 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2683
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2684 void readline_backward_kill_iline(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2685 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2686 strcpy(inputLine, ptr_inputline);
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2687 ptr_inputline = inputLine;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2688 inputline_offset = 0;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2689 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2690
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2691 void readline_forward_kill_iline(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2692 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2693 *ptr_inputline = 0;
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2694 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2695
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2696 void readline_send_multiline(void)
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2697 {
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2698 // Validate current multi-line
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2699 if (scr_get_multimode())
1187 16abe7ec3056 Fix a conflict between verbatim multiline mode and the key binding system Mikael Berthe <mikael@lilotux.net> parents: 1186 diff changeset	2700 process_command(mkcmdstr("msay send"), TRUE);
1171 03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2701 }
03a38b7ad2e0 Add a collection of commands for key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1170 diff changeset	2702
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2703 // which_row()
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2704 // Tells which row our cursor is in, in the command line.
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2705 // -2 -> normal text
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2706 // -1 -> room: nickname completion
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2707 // 0 -> command
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2708 // 1 -> parameter 1 (etc.)
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2709 // If > 0, then *p_row is set to the beginning of the row
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2710 static int which_row(const char **p_row)
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2711 {
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2712 int row = -1;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2713 char *p;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2714 int quote = FALSE;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2715
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2716 // Not a command?
967 303408ef5e5d Configurable command character Alexis Hildebrandt parents: 966 diff changeset	2717 if ((ptr_inputline == inputLine) \|\| (inputLine[0] != COMMAND_CHAR)) {
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2718 if (!current_buddy) return -2;
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2719 if (buddy_gettype(BUDDATA(current_buddy)) == ROSTER_TYPE_ROOM) {
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2720 *p_row = inputLine;
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2721 return -1;
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2722 }
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2723 return -2;
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2724 }
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2725
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2726 // This is a command
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2727 row = 0;
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2728 for (p = inputLine ; p < ptr_inputline ; p = next_char(p)) {
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2729 if (quote) {
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2730 if (p == '"' && (p-1) != '\\')
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2731 quote = FALSE;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2732 continue;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2733 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2734 if (p == '"' && (p-1) != '\\') {
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2735 quote = TRUE;
121 94b251102069 [/trunk] Changeset 134 by mikael mikael parents: 120 diff changeset	2736 } else if (*p == ' ') {
94b251102069 [/trunk] Changeset 134 by mikael mikael parents: 120 diff changeset	2737 if (*(p-1) != ' ')
94b251102069 [/trunk] Changeset 134 by mikael mikael parents: 120 diff changeset	2738 row++;
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2739 *p_row = p+1;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2740 }
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2741 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2742 return row;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2743 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2744
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2745 // scr_insert_text()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2746 // Insert the given text at the current cursor position.
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2747 // The cursor is moved. We don't check if the cursor still is in the screen
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2748 // after, the caller should do that.
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2749 static void scr_insert_text(const char *text)
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2750 {
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2751 char tmpLine[INPUTLINE_LENGTH+1];
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2752 int len = strlen(text);
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2753 // Check the line isn't too long
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2754 if (strlen(inputLine) + len >= INPUTLINE_LENGTH) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2755 scr_LogPrint(LPRINT_LOGNORM, "Cannot insert text, line too long.");
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2756 return;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2757 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2758
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2759 strcpy(tmpLine, ptr_inputline);
419 2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 412 diff changeset	2760 strcpy(ptr_inputline, text);
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 412 diff changeset	2761 ptr_inputline += len;
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2762 strcpy(ptr_inputline, tmpLine);
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2763 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2764
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2765 static void scr_cancel_current_completion(void);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2766
143 300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2767 // scr_handle_tab()
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2768 // Function called when tab is pressed.
300bb88f631f [/trunk] Changeset 155 by mikael mikael parents: 142 diff changeset	2769 // Initiate or continue a completion...
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2770 static void scr_handle_tab(void)
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2771 {
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2772 int nrow;
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2773 const char *row;
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2774 const char *cchar;
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2775 guint compl_categ;
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2776
740 1877838d3c27 Kill two gcc warnings Mikael Berthe <mikael@lilotux.net> parents: 739 diff changeset	2777 row = inputLine; // (Kills a GCC warning)
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2778 nrow = which_row(&row);
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2779
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2780 // a) No completion if no leading slash ('cause not a command),
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2781 // unless this is a room (then, it is a nickname completion)
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2782 // b) We can't have more than 2 parameters (we use 2 flags)
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2783 if ((nrow == -2) \|\| (nrow == 3 && !completion_started) \|\| nrow > 3)
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2784 return;
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2785
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2786 if (nrow == 0) { // Command completion
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2787 row = next_char(inputLine);
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2788 compl_categ = COMPL_CMD;
503 ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2789 } else if (nrow == -1) { // Nickname completion
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2790 compl_categ = COMPL_RESOURCE;
ddec224c2318 MUC: nickname completion Mikael Berthe <mikael@lilotux.net> parents: 499 diff changeset	2791 } else { // Other completion, depending on the command
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2792 int alias = FALSE;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2793 cmd *com;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2794 char *xpline = expandalias(inputLine);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2795 com = cmd_get(xpline);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2796 if (xpline != inputLine) {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2797 // This is an alias, so we can't complete rows > 0
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2798 alias = TRUE;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2799 g_free(xpline);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2800 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2801 if ((!com && (!alias \|\| !completion_started)) \|\| !row) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 373 diff changeset	2802 scr_LogPrint(LPRINT_NORMAL, "I cannot complete that...");
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2803 return;
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2804 }
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2805 if (!alias)
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2806 compl_categ = com->completion_flags[nrow-1];
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2807 else
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	2808 compl_categ = 0;
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2809 }
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2810
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2811 if (!completion_started) {
1076 b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2812 guint dynlist;
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2813 GSList *list = compl_get_category_list(compl_categ, &dynlist);
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2814 if (list) {
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2815 char *prefix = g_strndup(row, ptr_inputline-row);
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2816 // Init completion
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2817 new_completion(prefix, list);
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2818 g_free(prefix);
1076 b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2819 // Free the list if it's a dynamic one
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2820 if (dynlist) {
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2821 GSList *slp;
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2822 for (slp = list; slp; slp = g_slist_next(slp))
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2823 g_free(slp->data);
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2824 g_slist_free(list);
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2825
b9698c89f46d Fix memory leak in scr_handle_tab() Mikael Berthe <mikael@lilotux.net> parents: 1075 diff changeset	2826 }
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2827 // Now complete
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2828 cchar = complete();
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2829 if (cchar)
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2830 scr_insert_text(cchar);
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2831 completion_started = TRUE;
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2832 }
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2833 } else { // Completion already initialized
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2834 scr_cancel_current_completion();
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2835 // Now complete again
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2836 cchar = complete();
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2837 if (cchar)
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	2838 scr_insert_text(cchar);
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	2839 }
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2840 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2841
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2842 static void scr_cancel_current_completion(void)
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2843 {
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2844 char *c;
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2845 char *src = ptr_inputline;
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2846 guint back = cancel_completion();
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2847 guint i;
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2848 // Remove $back chars
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2849 for (i = 0; i < back; i++)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2850 ptr_inputline = prev_char(ptr_inputline, inputLine);
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2851 c = ptr_inputline;
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2852 for ( ; *src ; )
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2853 c++ = src++;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2854 *c = 0;
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2855 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2856
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2857 static void scr_end_current_completion(void)
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2858 {
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2859 done_completion();
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2860 completion_started = FALSE;
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2861 }
f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	2862
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2863 // check_offset(int direction)
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2864 // Check inputline_offset value, and make sure the cursor is inside the
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2865 // screen.
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2866 static inline void check_offset(int direction)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2867 {
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2868 int i;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2869 char *c = &inputLine[inputline_offset];
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2870 // Left side
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2871 if (inputline_offset && direction <= 0) {
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2872 while (ptr_inputline <= c) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2873 for (i = 0; i < 5; i++)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2874 c = prev_char(c, inputLine);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2875 if (c == inputLine)
828 319fc55b9a2b Fix a bug in check_offset() Mikael Berthe <mikael@lilotux.net> parents: 827 diff changeset	2876 break;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2877 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2878 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2879 // Right side
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2880 if (direction >= 0) {
932 fc6aaa223650 Fix a few problems with non-UTF-8 locales Mikael Berthe <mikael@lilotux.net> parents: 931 diff changeset	2881 int delta = get_char_width(c);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2882 while (ptr_inputline > c) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2883 c = next_char(c);
932 fc6aaa223650 Fix a few problems with non-UTF-8 locales Mikael Berthe <mikael@lilotux.net> parents: 931 diff changeset	2884 delta += get_char_width(c);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2885 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2886 c = &inputLine[inputline_offset];
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2887 while (delta >= maxX) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2888 for (i = 0; i < 5; i++) {
932 fc6aaa223650 Fix a few problems with non-UTF-8 locales Mikael Berthe <mikael@lilotux.net> parents: 931 diff changeset	2889 delta -= get_char_width(c);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2890 c = next_char(c);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2891 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2892 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2893 }
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2894 inputline_offset = c - inputLine;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2895 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	2896
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2897 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2898 // prints inputLine with underlined words when misspelled
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2899 static inline void print_checked_line(void)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2900 {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2901 char *wprint_char_fmt = "%c";
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2902 int point;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2903 char *ptrCur = inputLine + inputline_offset;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2904
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2905 #ifdef UNICODE
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2906 // We need this to display a single UTF-8 char... Any better solution?
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2907 if (utf8_mode)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2908 wprint_char_fmt = "%lc";
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2909 #endif
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2910
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2911 wmove(inputWnd, 0, 0); // problem with backspace
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2912
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2913 while (*ptrCur) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2914 point = ptrCur - inputLine;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2915 if (maskLine[point])
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2916 wattrset(inputWnd, A_UNDERLINE);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2917 wprintw(inputWnd, wprint_char_fmt, get_char(ptrCur));
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2918 wattrset(inputWnd, A_NORMAL);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2919 ptrCur = next_char(ptrCur);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2920 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2921 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2922 #endif
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2923
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 332 diff changeset	2924 static inline void refresh_inputline(void)
312 f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2925 {
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2926 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2927 if (settings_opt_get_int("aspell_enable")) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2928 memset(maskLine, 0, INPUTLINE_LENGTH+1);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2929 spellcheck(inputLine, maskLine);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2930 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2931 print_checked_line();
312 f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2932 wclrtoeol(inputWnd);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2933 if (*ptr_inputline) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2934 // hack to set cursor pos. Characters can have different width,
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2935 // so I know of no better way.
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2936 char c = *ptr_inputline;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2937 *ptr_inputline = 0;
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2938 print_checked_line();
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2939 *ptr_inputline = c;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	2940 }
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2941 #else
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2942 mvwprintw(inputWnd, 0, 0, "%s", inputLine + inputline_offset);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2943 wclrtoeol(inputWnd);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2944 if (*ptr_inputline) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2945 // hack to set cursor pos. Characters can have different width,
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2946 // so I know of no better way.
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2947 char c = *ptr_inputline;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2948 *ptr_inputline = 0;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2949 mvwprintw(inputWnd, 0, 0, "%s", inputLine + inputline_offset);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2950 *ptr_inputline = c;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2951 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	2952 #endif
312 f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2953 }
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2954
389 6e895f397474 Ncurses changes + Ctrl-C does not send a signal anylore Mikael Berthe <mikael@lilotux.net> parents: 388 diff changeset	2955 void scr_handle_CtrlC(void)
312 f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2956 {
365 ddb6593bedc9 Fix segfault when mcabber receives an INT signal (Ctrl-C) early Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	2957 if (!Curses) return;
315 65aa05520556 First Ctrl-C now also leaves multi-line message mode Mikael Berthe <mikael@lilotux.net> parents: 314 diff changeset	2958 // Leave multi-line mode
1187 16abe7ec3056 Fix a conflict between verbatim multiline mode and the key binding system Mikael Berthe <mikael@lilotux.net> parents: 1186 diff changeset	2959 process_command(mkcmdstr("msay abort"), TRUE);
312 f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2960 // Same as Ctrl-g, now
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2961 scr_cancel_current_completion();
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2962 scr_end_current_completion();
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2963 check_offset(-1);
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2964 refresh_inputline();
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2965 }
f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	2966
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2967 static void add_keyseq(char *seqstr, guint mkeycode, gint value)
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2968 {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2969 keyseq *ks;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2970
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2971 // Let's make sure the length is correct
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2972 if (strlen(seqstr) > MAX_KEYSEQ_LENGTH) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2973 scr_LogPrint(LPRINT_LOGNORM, "add_keyseq(): key sequence is too long!");
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2974 return;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2975 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2976
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2977 ks = g_new0(keyseq, 1);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2978 ks->seqstr = g_strdup(seqstr);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2979 ks->mkeycode = mkeycode;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2980 ks->value = value;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2981 keyseqlist = g_slist_append(keyseqlist, ks);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2982 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2983
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2984 // match_keyseq(iseq, &ret)
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2985 // Check if "iseq" is a known key escape sequence.
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2986 // Return value:
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2987 // -1 if "seq" matches no known sequence
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2988 // 0 if "seq" could match 1 or more known sequences
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2989 // >0 if "seq" matches a key sequence; the mkey code is returned
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2990 // and *ret is set to the matching keyseq structure.
952 527d6f234924 Small code cleanup Mikael Berthe <mikael@lilotux.net> parents: 949 diff changeset	2991 static inline gint match_keyseq(int iseq, keyseq *ret)
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	2992 {
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2993 GSList *ksl;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2994 keyseq *ksp;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2995 char *p, c;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2996 int *i;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2997 int needmore = FALSE;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2998
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	2999 for (ksl = keyseqlist; ksl; ksl = g_slist_next(ksl)) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3000 ksp = ksl->data;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3001 p = ksp->seqstr;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3002 i = iseq;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3003 while (1) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3004 c = (unsigned char)*i;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3005 if (!*p && !c) { // Match
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3006 (*ret) = ksp;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3007 return ksp->mkeycode;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3008 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3009 if (!c) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3010 // iseq is too short
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3011 needmore = TRUE;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3012 break;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3013 } else if (!p \|\| c != p) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3014 // This isn't a match
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3015 break;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3016 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3017 p++; i++;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3018 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3019 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3020
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3021 if (needmore)
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3022 return 0;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3023 return -1;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3024 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3025
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3026 static inline int match_utf8_keyseq(int *iseq)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3027 {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3028 int *strp = iseq;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3029 unsigned c = *strp++;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3030 unsigned mask = 0x80;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3031 int len = -1;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3032 while (c & mask) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3033 mask >>= 1;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3034 len++;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3035 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3036 if (len <= 0 \|\| len > 4)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3037 return -1;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3038 c &= mask - 1;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3039 while ((*strp & 0xc0) == 0x80) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3040 if (len-- <= 0) // can't happen
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3041 return -1;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3042 c = (c << 6) \| (*strp++ & 0x3f);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3043 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3044 if (len)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3045 return 0;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3046 return c;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3047 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3048
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3049 void scr_Getch(keycode *kcode)
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3050 {
769 15eefed5f1de Kill a gcc warning Mikael Berthe <mikael@lilotux.net> parents: 766 diff changeset	3051 keyseq *mks = NULL;
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3052 int ks[MAX_KEYSEQ_LENGTH+1];
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3053 int i;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3054
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3055 memset(kcode, 0, sizeof(keycode));
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3056 memset(ks, 0, sizeof(ks));
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3057
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3058 kcode->value = wgetch(inputWnd);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3059 if (utf8_mode) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3060 bool ismeta = (kcode->value == 27);
c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3061
c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3062 if (ismeta)
944 aec71ebf98fa Fix Meta + UTF-8 character Mikael Berthe <mikael@lilotux.net> parents: 940 diff changeset	3063 ks[0] = wgetch(inputWnd);
aec71ebf98fa Fix Meta + UTF-8 character Mikael Berthe <mikael@lilotux.net> parents: 940 diff changeset	3064 else
aec71ebf98fa Fix Meta + UTF-8 character Mikael Berthe <mikael@lilotux.net> parents: 940 diff changeset	3065 ks[0] = kcode->value;
aec71ebf98fa Fix Meta + UTF-8 character Mikael Berthe <mikael@lilotux.net> parents: 940 diff changeset	3066
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3067 for (i = 0; i < MAX_KEYSEQ_LENGTH - 1; i++) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3068 int match = match_utf8_keyseq(ks);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3069 if (match == -1)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3070 break;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3071 if (match > 0) {
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3072 kcode->value = match;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3073 kcode->utf8 = 1;
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3074 if (ismeta)
944 aec71ebf98fa Fix Meta + UTF-8 character Mikael Berthe <mikael@lilotux.net> parents: 940 diff changeset	3075 kcode->mcode = MKEY_META;
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3076 return;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3077 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3078 ks[i + 1] = wgetch(inputWnd);
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3079 if (ks[i + 1] == ERR)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3080 break;
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3081 }
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3082 while (i > 0)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3083 ungetch(ks[i--]);
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3084 if (ismeta)
944 aec71ebf98fa Fix Meta + UTF-8 character Mikael Berthe <mikael@lilotux.net> parents: 940 diff changeset	3085 ungetch(ks[0]);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3086 memset(ks, 0, sizeof(ks));
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3087 }
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3088 if (kcode->value != 27)
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3089 return;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3090
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3091 // Check for escape key sequence
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3092 for (i=0; i < MAX_KEYSEQ_LENGTH; i++) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3093 int match;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3094 ks[i] = wgetch(inputWnd);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3095 if (ks[i] == ERR) break;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3096 match = match_keyseq(ks, &mks);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3097 if (match == -1) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3098 // No such key sequence. Let's increment i as it is a valid key.
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3099 i++;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3100 break;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3101 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3102 if (match > 0) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3103 // We have a matching sequence
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3104 kcode->mcode = mks->mkeycode;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3105 kcode->value = mks->value;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3106 return;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3107 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3108 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3109
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3110 // No match. Let's return a meta-key.
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3111 if (i > 0) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3112 kcode->mcode = MKEY_META;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3113 kcode->value = ks[0];
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3114 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3115 if (i > 1) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3116 // We need to push some keys back to the keyboard buffer
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3117 while (i-- > 1)
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3118 ungetch(ks[i]);
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3119 }
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3120 return;
373 af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	3121 }
af2f8ddf6a1b Move (reorganize) functions Mikael Berthe <mikael@lilotux.net> parents: 370 diff changeset	3122
939 12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	3123 inline void scr_DoUpdate(void)
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	3124 {
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	3125 doupdate();
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	3126 }
12fa2ae6445d Get rid of "busy-waiting" (Christof Meerwald) Mikael Berthe <mikael@lilotux.net> parents: 936 diff changeset	3127
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3128 static int bindcommand(keycode kcode)
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3129 {
945 17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3130 gchar asciikey[16], asciicode[16];
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3131 const gchar *boundcmd;
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3132
945 17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3133 if (kcode.utf8)
17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3134 g_snprintf(asciicode, 15, "U%d", kcode.value);
17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3135 else
17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3136 g_snprintf(asciicode, 15, "%d", kcode.value);
17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3137
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3138 if (!kcode.mcode \|\| kcode.mcode == MKEY_EQUIV)
945 17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3139 g_snprintf(asciikey, 15, "%s", asciicode);
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3140 else if (kcode.mcode == MKEY_META)
945 17ef145f3326 Display and use UTF-8 key codes Mikael Berthe <mikael@lilotux.net> parents: 944 diff changeset	3141 g_snprintf(asciikey, 15, "M%s", asciicode);
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3142 else
949 e3c49b2f8143 Fix bindings of special keys (MK) Mikael Berthe <mikael@lilotux.net>* parents: 945 diff changeset	3143 g_snprintf(asciikey, 15, "MK%d", kcode.mcode);
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3144
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3145 boundcmd = settings_get(SETTINGS_TYPE_BINDING, asciikey);
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3146
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3147 if (boundcmd) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3148 gchar cmdline, boundcmd_locale;
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	3149 boundcmd_locale = from_utf8(boundcmd);
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3150 cmdline = g_strdup_printf(mkcmdstr("%s"), boundcmd_locale);
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3151 scr_CheckAutoAway(TRUE);
1187 16abe7ec3056 Fix a conflict between verbatim multiline mode and the key binding system Mikael Berthe <mikael@lilotux.net> parents: 1186 diff changeset	3152 if (process_command(cmdline, TRUE))
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3153 return 255; // Quit
772 464be13343a9 Store most data in UTF-8 internally Mikael Berthe <mikael@lilotux.net> parents: 771 diff changeset	3154 g_free(boundcmd_locale);
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 1056 diff changeset	3155 g_free(cmdline);
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3156 return 0;
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3157 }
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3158
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3159 scr_LogPrint(LPRINT_NORMAL, "Unknown key=%s", asciikey);
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3160 #ifndef UNICODE
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3161 if (utf8_mode)
930 a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3162 scr_LogPrint(LPRINT_NORMAL,
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3163 "WARNING: Compiled without full UTF-8 support!");
a75f7a13df7b UTF-8 terminal support (Reimar Döffinger) Mikael Berthe <mikael@lilotux.net> parents: 929 diff changeset	3164 #endif
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3165 return -1;
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3166 }
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3167
44 c10f95f959d0 [/trunk] Changeset 60 by mikael mikael parents: 42 diff changeset	3168 // process_key(key)
c10f95f959d0 [/trunk] Changeset 60 by mikael mikael parents: 42 diff changeset	3169 // Handle the pressed key, in the command line (bottom).
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3170 int process_key(keycode kcode)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	3171 {
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3172 int key = kcode.value;
931 1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3173 int display_char = FALSE;
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3174
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3175 lock_chatstate = false;
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3176
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3177 switch (kcode.mcode) {
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3178 case 0:
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3179 break;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3180 case MKEY_EQUIV:
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3181 key = kcode.value;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3182 break;
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3183 case MKEY_META:
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3184 default:
764 4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3185 if (bindcommand(kcode) == 255)
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3186 return 255;
4e15322d315e Allow binding of meta keys Mikael Berthe <mikael@lilotux.net> parents: 763 diff changeset	3187 key = ERR; // Do not process any further
758 402b0e288433 Enable "meta" key Mikael Berthe <mikael@lilotux.net> parents: 740 diff changeset	3188 }
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3189
931 1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3190 if (kcode.utf8) {
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3191 if (key != ERR && !kcode.mcode)
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3192 display_char = TRUE;
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3193 goto display;
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3194 }
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3195
758 402b0e288433 Enable "meta" key Mikael Berthe <mikael@lilotux.net> parents: 740 diff changeset	3196 switch (key) {
761 4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3197 case 0:
4532a9fe0e8c Handle some keyboard escape sequences Mikael Berthe <mikael@lilotux.net> parents: 760 diff changeset	3198 case ERR:
758 402b0e288433 Enable "meta" key Mikael Berthe <mikael@lilotux.net> parents: 740 diff changeset	3199 break;
1173 960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3200 case 9: // Tab
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3201 readline_do_completion();
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3202 break;
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3203 case 13: // Enter
1177 10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	3204 if (readline_accept_line(FALSE) == 255)
10733d7de004 Refactor readline_accept_line() and readline_accept_line_down_hist() Mikael Berthe <mikael@lilotux.net> parents: 1176 diff changeset	3205 return 255;
1173 960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3206 break;
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3207 case 3: // Ctrl-C
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3208 scr_handle_CtrlC();
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3209 break;
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3210 case KEY_RESIZE:
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3211 scr_Resize();
960f34ec22a2 Add init_bindings() for default key bindings (Lego12239) Mikael Berthe <mikael@lilotux.net> parents: 1172 diff changeset	3212 break;
499 baa812f04f24 Reorganise process_key() Mikael Berthe <mikael@lilotux.net> parents: 480 diff changeset	3213 default:
931 1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3214 display_char = TRUE;
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3215 } // switch
263 1bcc3eec08f0 Add Ctrl-o: accept-line-and-down-history mikael@frmp8452 parents: 261 diff changeset	3216
931 1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3217 display:
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3218 if (display_char) {
932 fc6aaa223650 Fix a few problems with non-UTF-8 locales Mikael Berthe <mikael@lilotux.net> parents: 931 diff changeset	3219 if (kcode.utf8 ? iswprint(key) : isprint(key)) {
931 1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3220 char tmpLine[INPUTLINE_LENGTH+1];
499 baa812f04f24 Reorganise process_key() Mikael Berthe <mikael@lilotux.net> parents: 480 diff changeset	3221
931 1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3222 // Check the line isn't too long
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3223 if (strlen(inputLine) + 4 > INPUTLINE_LENGTH)
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3224 return 0;
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3225
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3226 // Insert char
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3227 strcpy(tmpLine, ptr_inputline);
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3228 ptr_inputline = put_char(ptr_inputline, key);
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3229 strcpy(ptr_inputline, tmpLine);
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3230 check_offset(1);
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3231 } else {
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3232 // Look for a key binding.
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3233 if (!kcode.utf8 && (bindcommand(kcode) == 255))
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3234 return 255;
1cd6d694ac3c Fix display of some UTF-8 chars Mikael Berthe <mikael@lilotux.net> parents: 930 diff changeset	3235 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	3236 }
499 baa812f04f24 Reorganise process_key() Mikael Berthe <mikael@lilotux.net> parents: 480 diff changeset	3237
157 409ff07d9fe2 [/trunk] Changeset 169 by mikael mikael parents: 154 diff changeset	3238 if (completion_started && key != 9 && key != KEY_RESIZE)
98 f20831f7d349 [/trunk] Changeset 112 by mikael mikael parents: 95 diff changeset	3239 scr_end_current_completion();
312 f0b7ff2df7e8 Ctrl-C does not terminate mcabber Mikael Berthe <mikael@lilotux.net> parents: 307 diff changeset	3240 refresh_inputline();
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3241
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3242 if (!lock_chatstate) {
997 d0d0cd9e39c4 Cosmetics & comments Mikael Berthe <mikael@lilotux.net> parents: 996 diff changeset	3243 // Set chat state to composing (1) if the user is currently composing,
d0d0cd9e39c4 Cosmetics & comments Mikael Berthe <mikael@lilotux.net> parents: 996 diff changeset	3244 // i.e. not an empty line and not a command line.
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3245 if (inputLine[0] == 0 \|\| inputLine[0] == COMMAND_CHAR)
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3246 set_chatstate(0);
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3247 else
35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3248 set_chatstate(1);
991 ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	3249 if (chatstate)
ef10906691bb Chatstates: add composing timeout Mikael Berthe <mikael@lilotux.net> parents: 990 diff changeset	3250 time(&chatstate_timestamp);
990 35e7913affb7 Send events/chatstates notifications (JEP-22/JEP-85) Mikael Berthe <mikael@lilotux.net> parents: 987 diff changeset	3251 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	3252 return 0;
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	3253 }
576 8b3db0b555a1 Add Vim modelines Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	3254
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3255 #ifdef HAVE_ASPELL_H
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3256 // Aspell initialization
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3257 void spellcheck_init(void)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3258 {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3259 int aspell_enable = settings_opt_get_int("aspell_enable");
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3260 const char *aspell_lang = settings_opt_get("aspell_lang");
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3261 const char *aspell_encoding = settings_opt_get("aspell_encoding");
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3262 AspellCanHaveError *possible_err;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3263
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3264 if (!aspell_enable)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3265 return;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3266
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3267 if (spell_checker) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3268 delete_aspell_speller(spell_checker);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3269 delete_aspell_config(spell_config);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3270 spell_checker = NULL;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3271 spell_config = NULL;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3272 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3273
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3274 spell_config = new_aspell_config();
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3275 aspell_config_replace(spell_config, "encoding", aspell_encoding);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3276 aspell_config_replace(spell_config, "lang", aspell_lang);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3277 possible_err = new_aspell_speller(spell_config);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3278
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3279 if (aspell_error_number(possible_err) != 0) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3280 spell_checker = NULL;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3281 delete_aspell_config(spell_config);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3282 spell_config = NULL;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3283 } else {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3284 spell_checker = to_aspell_speller(possible_err);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3285 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3286 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3287
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3288 // Deinitialization of Aspell spellchecker
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3289 void spellcheck_deinit(void)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3290 {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3291 if (spell_checker) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3292 delete_aspell_speller(spell_checker);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3293 spell_checker = NULL;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3294 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3295
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3296 if (spell_config) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3297 delete_aspell_config(spell_config);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3298 spell_config = NULL;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3299 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3300 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3301
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3302 // Spell checking function
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3303 static void spellcheck(char line, char checked)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3304 {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3305 const char start, line_start;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3306
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3307 if (inputLine[0] == 0 \|\| inputLine[0] == COMMAND_CHAR)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3308 return;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3309
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3310 line_start = line;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3311
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3312 while (*line) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3313
1209 47579e8c73d0 Aspell: is_alpha() isn't needed Mikael Berthe <mikael@lilotux.net> parents: 1208 diff changeset	3314 if (!iswalpha(get_char(line))) {
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3315 line = next_char(line);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3316 continue;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3317 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3318
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3319 if (!strncmp(line, "http://", 7)) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3320 line += 7; // : and / characters are 1 byte long in utf8, right?
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3321
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3322 while (!strchr(" \t\r\n", *line))
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3323 line = next_char(line); // i think line++ would be fine here?
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3324
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3325 continue;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3326 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3327
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3328 if (!strncmp(line, "ftp://", 6)) {
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3329 line += 6;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3330
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3331 while (!strchr(" \t\r\n", *line))
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3332 line = next_char(line);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3333
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3334 continue;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3335 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3336
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3337 start = line;
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3338
1209 47579e8c73d0 Aspell: is_alpha() isn't needed Mikael Berthe <mikael@lilotux.net> parents: 1208 diff changeset	3339 while (iswalpha(get_char(line)))
1179 0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3340 line = next_char(line);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3341
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3342 if (spell_checker &&
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3343 aspell_speller_check(spell_checker, start, line - start) == 0)
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3344 memset(&checked[start - line_start], ASPELLBADCHAR, line - start);
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3345 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3346 }
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3347 #endif
0f7e0346d9cb Add aspell support entragian <entragian@o2.pl> parents: 1178 diff changeset	3348
580 fed6d1e4d7a9 Fix modelines Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	3349 /* vim: set expandtab cindent cinoptions=>2\:2(0: For Vim users... */

Mercurial > ~mikael > mcabber > hg

annotate mcabber/src/screen.c @ 1226:2521efbf3b72