@@ -47,21 +47,57 @@

 #define COMMAND_EXIT "Exit"

 /* "forest" theme */

-#define COLOR_STATUSBG "\x14\x3a\xaf\xff"

-#define COLOR_STATUSFG "\xe6\xdc\x5d\xff"

-#define COLOR_STATUSFGLIGHT "\x6f\x73\xa3\xff"

-

-#define COLOR_QUERYBG "\xad\x92\x5e\xff"

-#define COLOR_QUERYFG "\xd0\xef\x4f\xff"

-#define COLOR_QUERYBGOLD "\x83\x75\x59\xff"

-#define COLOR_QUERYFGOLD "\xb1\xc5\x5e\xff"

-

-#define COLOR_WARNINGBG "\xba\x07\x07\xff"

-#define COLOR_WARNINGFG "\xe6\xdc\x5d\xff"

-

-#define COLOR_INFOBG "\x4e\x8a\x4e\xff"

-#define COLOR_INFOFG "\xee\xee\x46\xff"

-#define COLOR_INFOFGLIGHT "\x84\xa4\x4c\xff"

+#define DEFAULT_COLOR_BACKGROUND "\xdf\xdf\xdf\xff"

+#define DEFAULT_COLOR_PRINTOUTSTRIPE "\xef\xef\xef\xff"

+

+#define DEFAULT_COLOR_CURSORBG "\x00\x00\x00\xff"

+#define DEFAULT_COLOR_CURSORFG "\xff\xff\xff\xff"

+

+#define DEFAULT_COLOR_TEXT "\x00\x00\x00\xff"

+

+#define DEFAULT_COLOR_MATCHBG "\xff\xff\xff\xaf"

+#define DEFAULT_COLOR_MATCHFG "\xff\x00\x00\x80"

+

+#define DEFAULT_COLOR_STATUSBG "\x14\x3a\xaf\xff"

+#define DEFAULT_COLOR_STATUSFG "\xe6\xdc\x5d\xff"

+#define DEFAULT_COLOR_STATUSFGLIGHT "\x6f\x73\xa3\xff"

+

+#define DEFAULT_COLOR_QUERYBG "\xad\x92\x5e\xff"

+#define DEFAULT_COLOR_QUERYFG "\xd0\xef\x4f\xff"

+#define DEFAULT_COLOR_QUERYBGOLD "\x83\x75\x59\xff"

+#define DEFAULT_COLOR_QUERYFGOLD "\xb1\xc5\x5e\xff"

+

+#define DEFAULT_COLOR_WARNINGBG "\xba\x07\x07\xff"

+#define DEFAULT_COLOR_WARNINGFG "\xe6\xdc\x5d\xff"

+

+#define DEFAULT_COLOR_INFOBG "\x4e\x8a\x4e\xff"

+#define DEFAULT_COLOR_INFOFG "\xee\xee\x46\xff"

+#define DEFAULT_COLOR_INFOFGLIGHT "\x84\xa4\x4c\xff"

+

+#define DEFAULT_COLOR_SELNORMAL "\xde\xcf\x7f\xff"

+#define DEFAULT_COLOR_CURLINE "\xf0\xea\xc9\xff"

+

+#define COLOR_BACKGROUND(re) re->theme.color_background

+#define COLOR_PRINTOUTSTRIPE(re) re->theme.color_printoutstripe

+#define COLOR_CURSORBG(re) re->theme.color_cursorbg

+#define COLOR_CURSORFG(re) re->theme.color_cursorfg

+#define COLOR_TEXT(re) re->theme.color_text

+#define COLOR_MATCHBG(re) re->theme.color_matchbg

+#define COLOR_MATCHFG(re) re->theme.color_matchfg

+#define COLOR_STATUSBG(re) re->theme.color_statusbg

+#define COLOR_STATUSFG(re) re->theme.color_statusfg

+#define COLOR_STATUSFGLIGHT(re) re->theme.color_statusfglight

+#define COLOR_QUERYBG(re) re->theme.color_querybg

+#define COLOR_QUERYFG(re) re->theme.color_queryfg

+#define COLOR_QUERYBGOLD(re) re->theme.color_querybgold

+#define COLOR_QUERYFGOLD(re) re->theme.color_queryfgold

+#define COLOR_WARNINGBG(re) re->theme.color_warningbg

+#define COLOR_WARNINGFG(re) re->theme.color_warningfg

+#define COLOR_INFOBG(re) re->theme.color_infobg

+#define COLOR_INFOFG(re) re->theme.color_infofg

+#define COLOR_INFOFGLIGHT(re) re->theme.color_infofglight

+#define COLOR_SELNORMAL(re) re->theme.color_selnormal

+#define COLOR_CURLINE(re) re->theme.color_curline

 typedef struct printout_t {

         reui_t *ui;

@@ -73,9 +109,35 @@ typedef struct printout_t {

         int dirty;

 } printout_t;

+typedef struct theme_t {

+        int ntheme;

+        char color_background[5];

+        char color_printoutstripe[5];

+        char color_cursorbg[5];

+        char color_cursorfg[5];

+        char color_text[5];

+        char color_matchbg[5];

+        char color_matchfg[5];

+        char color_statusbg[5];

+        char color_statusfg[5];

+        char color_statusfglight[5];

+        char color_querybg[5];

+        char color_queryfg[5];

+        char color_querybgold[5];

+        char color_queryfgold[5];

+        char color_warningbg[5];

+        char color_warningfg[5];

+        char color_infobg[5];

+        char color_infofg[5];

+        char color_infofglight[5];

+        char color_selnormal[5];

+        char color_curline[5];

+} theme_t;

+

 typedef struct re_t {

         redata_t *data;

         reui_t *ui;

+        theme_t theme;

         int viewonly;

         int quirk_duplicates;

         int flag_newfile;

@@ -126,7 +188,6 @@ static void sighandler_sigint(int num);

 static void sighandler_sigpipe(int num);

 static int mystricmp(const char *s1, const char *s2);

-

 re_t *re_init(int viewonly);

 void re_free(re_t *re);

 int re_setuidata(re_t *re);

@@ -164,6 +225,7 @@ int re_drawcontents(re_t *re, printout_t *printout);

 redata_t *re_getfunclisting(re_t *re);

 int re_funclistingxy2line(re_t *re,int mx,int my);

 int re_wheelaccel(re_t *re, int rawamount);

+int re_themeset(re_t *re, int ntheme);

 int

@@ -755,6 +817,7 @@ re_init(int viewonly)

         re->viewonly=(viewonly!=0)?1:0;

         SDL_GetVersion(&linked_version);

         re->quirk_duplicates=(linked_version.major==2 && linked_version.minor==0 && linked_version.patch==9)?1:0;

+        re_themeset(re,0);

         return(re);

 }

@@ -1265,14 +1328,24 @@ fprintf(stderr,"SDL_KEYDOWN: BACKSPACE%s\n",(event==&fakeevent)?" (fake)":"");

                 re->headerdirty=1;

                 re->contentsdirty=1;

         } else if(event->key.keysym.sym==SDLK_PLUS && (SDL_GetModState()&KMOD_CTRL)!=0) {

-#warning XXX TODO: Control+shift+'+'/'-' iterates between the color permutations of the current theme in rgb, 6 in total (Control+shift+'0' resets to the default permutation)

-                re_changefontsize(re, 1);

+                /* NOTE: Control+'+'/'-' iterates between the font sizes (Control+'0' resets to the default font size) */

+                /* NOTE: Control+shift+'+'/'-' iterates between the color permutations of the current theme in rgb, 6 in total (Control+shift+'0' resets to the default permutation) */

+                if((SDL_GetModState()&KMOD_SHIFT)==0)

+                        re_changefontsize(re, 1);

+                else

+                        re_themeset(re, re->theme.ntheme+1);

                 re->ignorenkeys++;

         } else if(event->key.keysym.sym==SDLK_MINUS && (SDL_GetModState()&KMOD_CTRL)!=0) {

-                re_changefontsize(re, -1);

+                if((SDL_GetModState()&KMOD_SHIFT)==0)

+                        re_changefontsize(re, -1);

+                else

+                        re_themeset(re, re->theme.ntheme-1);

                 re->ignorenkeys++;

         } else if(event->key.keysym.sym==SDLK_0 && (SDL_GetModState()&KMOD_CTRL)!=0) {

-                re_changefontsize(re, 0);

+                if((SDL_GetModState()&KMOD_SHIFT)==0)

+                        re_changefontsize(re, 0);

+                else

+                        re_themeset(re, 0);

                 if(re->quirk_duplicates)

                         re->ignorenkeys++;

         } else if((event->key.keysym.sym==SDLK_c || event->key.keysym.sym==SDLK_x) && (SDL_GetModState()&KMOD_CTRL)!=0) {

@@ -2233,7 +2306,7 @@ re_drawheader_editing(re_t *re)

                 return(-1);

         if(redata_linecol2pos(re->data,re->curline,re->curcol,&cursorpos,NULL)!=0)

                 return(0); /* error obtaining position */

-        reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,redata_needssaving(re->data)?COLOR_STATUSBG:COLOR_INFOBG);

+        reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,redata_needssaving(re->data)?COLOR_STATUSBG(re):COLOR_INFOBG(re));

         /* for the user, lines start at 0 (internally they start at 0) */

         memset(spaces,' ',sizeof(spaces));

         spaces[sizeof(spaces)-1]='\0';

@@ -2248,10 +2321,10 @@ re_drawheader_editing(re_t *re)

         lenfilename=strlen(re->filename);

         filename=((lenfilename)>(sizeof(spaces)-1))?(re->filename+lenfilename-sizeof(spaces)-1):re->filename;

         spacesfilename=spaces+sizeof(spaces)-1-strlen(filename);

-        reui_printf(re->ui,0,0,redata_needssaving(re->data)?COLOR_STATUSFGLIGHT:COLOR_INFOFGLIGHT

+        reui_printf(re->ui,0,0,redata_needssaving(re->data)?COLOR_STATUSFGLIGHT(re):COLOR_INFOFGLIGHT(re)

            ,"File:%s%s Line:%s Col:%s Pos:%s Size:%s"

           ,spacesfilename,redata_needssaving(re->data)?"*":" ",spaceslinebuf,spacescolbuf,spacesposbuf,spacessizebuf);

-        reui_printf(re->ui,0,0,redata_needssaving(re->data)?COLOR_STATUSFG:COLOR_INFOFG

+        reui_printf(re->ui,0,0,redata_needssaving(re->data)?COLOR_STATUSFG(re):COLOR_INFOFG(re)

            ,"     %s%s      %s     %s     %s      %s"

           ,filename," ",linebuf,colbuf,posbuf,sizebuf);

         re->headerdirty=0;

@@ -2267,21 +2340,21 @@ re_drawheader_command(re_t *re)

         if(re->command==NULL)

                 return(-1);

         if(re->command[0]=='\0') {

-                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_QUERYBG);

-                reui_printf(re->ui,0,0,COLOR_QUERYFG,"Command:");

+                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_QUERYBG(re));

+                reui_printf(re->ui,0,0,COLOR_QUERYFG(re),"Command:");

         } else if(strcmp(re->command,COMMAND_WARNING)==0 || strcmp(re->command,COMMAND_CONFIRMEXIT)==0) {

-                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_WARNINGBG);

-                reui_printf(re->ui,0,0,COLOR_WARNINGFG,"%s %s",re->command,re->commandbuf);

+                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_WARNINGBG(re));

+                reui_printf(re->ui,0,0,COLOR_WARNINGFG(re),"%s %s",re->command,re->commandbuf);

         } else if(strcmp(re->command,COMMAND_INFO)==0) {

-                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_INFOBG);

-                reui_printf(re->ui,0,0,COLOR_INFOFG,"%s %s",re->command,re->commandbuf);

+                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_INFOBG(re));

+                reui_printf(re->ui,0,0,COLOR_INFOFG(re),"%s %s",re->command,re->commandbuf);

         } else if(strcmp(re->command,COMMAND_QUESTION)==0) {

                 question_t *q;

-                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_QUERYBG);

+                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_QUERYBG(re));

 #warning XXX TODO: suppont arbitrary number of options, highlight current option

                 q=re->question;

                 re->commandbuf[sizeof(re->commandbuf)-1]='\0';

-                reui_printf(re->ui,0,0,COLOR_QUERYFG,"%s %s: %s %s%s%s%s%s%s%s%s: %s"

+                reui_printf(re->ui,0,0,COLOR_QUERYFG(re),"%s %s: %s %s%s%s%s%s%s%s%s: %s"

                    ,re->command

                    ,(q->titleshort!=NULL)?q->titleshort:q->title

                    ,(q->bodyshort!=NULL)?q->bodyshort:q->body

@@ -2293,18 +2366,18 @@ re_drawheader_command(re_t *re)

         } else {

                 int commandlen;

                 int commandbuflen;

-                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_QUERYBG);

+                reui_fill(re->ui,0,0,re->ui->w,re->ui->fontheight,COLOR_QUERYBG(re));

                 re->commandbuf[sizeof(re->commandbuf)-1]='\0';

                 commandlen=redata_generic_utf8len(re->command,strlen(re->command));

-                reui_printf(re->ui,0,0,COLOR_QUERYFG,"%s",re->command);

+                reui_printf(re->ui,0,0,COLOR_QUERYFG(re),"%s",re->command);

                 commandbuflen=redata_generic_utf8len(re->commandbuf,strlen(re->commandbuf));

                 if(!(re->is_oldcommandbuf) || re->commandbuf[0]=='\0') {

-                        reui_printf(re->ui,re->ui->fontwidth*(commandlen+1),0,COLOR_QUERYFG,"%s",re->commandbuf);

+                        reui_printf(re->ui,re->ui->fontwidth*(commandlen+1),0,COLOR_QUERYFG(re),"%s",re->commandbuf);

                         /* draw something that to indicate the end of the commandbuf (useful if commandbuf ends in spaces) */

-                        reui_fill(re->ui,re->ui->fontwidth*(commandlen+1+commandbuflen)+1,re->ui->fontheight/2,1,re->ui->fontheight/2,COLOR_QUERYFG);

+                        reui_fill(re->ui,re->ui->fontwidth*(commandlen+1+commandbuflen)+1,re->ui->fontheight/2,1,re->ui->fontheight/2,COLOR_QUERYFG(re));

                 } else {

-                        reui_fillrounded(re->ui,re->ui->fontwidth*(commandlen+1)-re->ui->fontwidth/2,0,re->ui->fontwidth*(commandbuflen+1)+1,re->ui->fontheight,COLOR_QUERYBGOLD);

-                        reui_printf(re->ui,re->ui->fontwidth*(commandlen+1),0,COLOR_QUERYFGOLD,"%s",re->commandbuf);

+                        reui_fillrounded(re->ui,re->ui->fontwidth*(commandlen+1)-re->ui->fontwidth/2,0,re->ui->fontwidth*(commandbuflen+1)+1,re->ui->fontheight,COLOR_QUERYBGOLD(re));

+                        reui_printf(re->ui,re->ui->fontwidth*(commandlen+1),0,COLOR_QUERYFGOLD(re),"%s",re->commandbuf);

                 }

         }

         re->headerdirty=0;

@@ -2329,8 +2402,6 @@ re_drawcontents(re_t *re, printout_t *printout)

         printout_t fakeprintout;

         hcolor_t *colors,fakecolor;

         int ncolors;

-        const char selcolornormal[]={"\xde\xcf\x7f\xff"};

-        const char selcolorcurline[]={"\xf0\xea\xc9\xff"};

         long realstart,realend;

         linecolor_t *linecolors,fakelinecolors;

         int nlinecolors;

@@ -2391,7 +2462,7 @@ re_drawcontents(re_t *re, printout_t *printout)

         }

         if(redata_linecol2pos(data,curline,curcol,&cursorpos,NULL)!=0)

                 return(0); /* error obtaining position */

-        reui_fill(ui,x0-linenowidth,y0,w,h,"\xdf\xdf\xdf\xff");

+        reui_fill(ui,x0-linenowidth,y0,w,h,COLOR_BACKGROUND(re));

         row=curline-originline;

         pos=cursorpos;

         /* get position/row/col of character at top left of screen */

@@ -2404,17 +2475,17 @@ re_drawcontents(re_t *re, printout_t *printout)

         }

         /* highlight current line (in printouts, highlight alternating lines) */

         if(printout==NULL) {

-                reui_fill(ui,x0-linenowidth,y0+(curline-originline)*ui->fontheight,w,ui->fontheight+1,"\xef\xef\xef\xff");

+                reui_fill(ui,x0-linenowidth,y0+(curline-originline)*ui->fontheight,w,ui->fontheight+1,COLOR_PRINTOUTSTRIPE(re));

         } else {

                 for(y=y0+((printout->data==NULL)?1:(printout->originline%2))*ui->fontheight;y<(y0+h);y+=ui->fontheight*2)

-                        reui_fill(ui,x0-linenowidth,y,w,ui->fontheight+1,"\xef\xef\xef\xff");

+                        reui_fill(ui,x0-linenowidth,y,w,ui->fontheight+1,COLOR_PRINTOUTSTRIPE(re));

         }

         /* highlight the selection */

         if(printout==NULL && re->selactive) {

                 const char *selcolor;

                 tmprow=row;

                 for(y=y0;y<(y0+h);y+=ui->fontheight,row++) {

-                        selcolor=(row==(curline-originline))?selcolorcurline:selcolornormal;

+                        selcolor=(row==(curline-originline))?COLOR_CURLINE(re):COLOR_SELNORMAL(re);

                         if((originline+row)==re->sellinefrom && (originline+row)==re->sellineto) {

                                 reui_fill(ui,x0+(re->selcolfrom-origincol)*ui->fontwidth,y0+row*ui->fontheight,(re->selcolto-re->selcolfrom)*ui->fontwidth,ui->fontheight+1,selcolor);

                         } else if((originline+row)==re->sellinefrom) {

@@ -2437,7 +2508,7 @@ re_drawcontents(re_t *re, printout_t *printout)

         if((colors=redata_highlighter_getcolors(data,&ncolors))==NULL) {

                 colors=&fakecolor;

                 ncolors=1;

-                memcpy(fakecolor.rgba,"\x00\x00\x00\xff",5);

+                memcpy(fakecolor.rgba,COLOR_TEXT(re),5);

         }

         drawn_cursor=0;

         matchingpos=-1;

@@ -2462,7 +2533,7 @@ re_drawcontents(re_t *re, printout_t *printout)

                 }

                 curlinecolor=0;

                 usedlenlinecolor=0;

-                lastcolor="\x00\x00\x00\xff";                      

+                lastcolor=COLOR_TEXT(re);

                 in_error=0;

                 if(flaglineno && origincol==0) {

                         int i,n;

@@ -2546,22 +2617,22 @@ re_drawcontents(re_t *re, printout_t *printout)

                                 char cursorchar[7];

                                 int usedcursorchar;

                                 /* draw cursor */

-                                reui_fill(ui,x0+ui->fontwidth*(curcol-origincol),y,ui->fontwidth,ui->fontheight+1,"\x00\x00\x00\xff");

+                                reui_fill(ui,x0+ui->fontwidth*(curcol-origincol),y,ui->fontwidth,ui->fontheight+1,COLOR_CURSORBG(re));

                                 drawn_cursor=1;

                                 usedcursorchar=0;

                                 redata_getutf8char(re->data,cursorpos,cursorchar,sizeof(cursorchar),&usedcursorchar);

                                 /* tab chars are drawn as an almost filled block, other chars are written as-is */

                                 if(usedcursorchar==1 && *cursorchar=='\t')

-                                        reui_fill(ui,x0+ui->fontwidth*(curcol-origincol)+1,y+1,ui->fontwidth-2,ui->fontheight+1-2,"\xff\xff\xff\xff");

+                                        reui_fill(ui,x0+ui->fontwidth*(curcol-origincol)+1,y+1,ui->fontwidth-2,ui->fontheight+1-2,COLOR_CURSORFG(re));

                                 else

-                                        reui_write(ui,x0+ui->fontwidth*(curcol-origincol),y,"\xff\xff\xff\xff",cursorchar,usedcursorchar);

+                                        reui_write(ui,x0+ui->fontwidth*(curcol-origincol),y,COLOR_CURSORFG(re),cursorchar,usedcursorchar);

                                 /* get matching braces/parens/anglebracket/curlybraces for highlighting */

                                 if(usedcursorchar==1 && strchr("[]{}<>()",*cursorchar)!=NULL)

                                         matchingpos=re_getmatchingbracket(re,cursorpos,*cursorchar,&matchingchar);

                         }

                 }

                 if(printout==NULL && row==(curline-originline) && !drawn_cursor)

-                        reui_fill(ui,x0+ui->fontwidth*(curcol-origincol),y,ui->fontwidth,ui->fontheight+1,"\x00\x00\x00\xff");

+                        reui_fill(ui,x0+ui->fontwidth*(curcol-origincol),y,ui->fontwidth,ui->fontheight+1,COLOR_CURSORBG(re));

                 if(in_error)

                         break;

                 pos=realend+1;

@@ -2569,8 +2640,8 @@ re_drawcontents(re_t *re, printout_t *printout)

         /* highlight matching parens/brace/... if applicable */

         if(printout==NULL && matchingpos!=-1 && redata_pos2linecol(data,matchingpos,&mline,&mcol)!=-1) {

                 int x,y;

-                char *fg="\xff\x00\x00\x80";

-                char *bg="\xff\xff\xff\xaf";

+                char *fg=COLOR_MATCHFG(re);

+                char *bg=COLOR_MATCHBG(re);

                 x=x0+(mcol-origincol)*ui->fontwidth+(ui->fontwidth/2);

                 x=(x<x0)?x0:(x>=(x0+w))?(x0+w-1):x;

                 y=y0+(mline-originline)*ui->fontheight+(ui->fontheight/2);

@@ -2605,7 +2676,7 @@ re_drawcontents(re_t *re, printout_t *printout)

                 for(total=redata_line_total(re->funclisting),i=re->originlinefunclisting,ypos=y0;i<total && ypos<re->h;i++,ypos+=(ui->fontheight/((linebuf[0]=='\0')?2:1))) {

                         fg="\xff\xff\xff\xff";

                         if(i==re->curlinefunclisting) {

-                                reui_fill(ui,x0-linenowidth+ui->fontwidth*3,ypos,w-ui->fontwidth*6,ui->fontheight,"\xdf\xdf\xdf\xff");

+                                reui_fill(ui,x0-linenowidth+ui->fontwidth*3,ypos,w-ui->fontwidth*6,ui->fontheight,COLOR_BACKGROUND(re));

                                 fg="\x00\x00\x00\xff";

                         }

                         if(redata_line_getstartstr(re->funclisting,i,linebuf,sizeof(linebuf))!=0)

@@ -2726,12 +2797,70 @@ re_wheelaccel(re_t *re, int rawamount)

         return(wheelamount);

 }

+void

+util_applypermutation(int *template3,char *colors,int invert)

+{

+        unsigned char c[3];

+        if(template3==NULL || colors==NULL || template3[0]<0 || template3[0]>2 || template3[1]<0 || template3[1]>2 || template3[2]<0 || template3[2]>2)

+                return; /* sanity check error */

+        if(invert==0) {

+                c[0]=((unsigned char *)colors)[0];

+                c[1]=((unsigned char *)colors)[1];

+                c[2]=((unsigned char *)colors)[2];

+        } else {

+                c[0]=255-((unsigned char *)colors)[0];

+                c[1]=255-((unsigned char *)colors)[1];

+                c[2]=255-((unsigned char *)colors)[2];

+        }

+        ((unsigned char *)colors)[0]=c[template3[0]];

+        ((unsigned char *)colors)[1]=c[template3[1]];

+        ((unsigned char *)colors)[2]=c[template3[2]];

+        return;

+}

-

-

-

-

-

-

-

+int

+re_themeset(re_t *re, int ntheme)

+{

+        int permutations[6][3]={{0,1,2},{0,2,1},{1,0,2},{1,2,0},{2,1,0},{2,0,1}};

+        int *permutationtemplate;

+        int invert;

+        if(re==NULL)

+                return(-1);

+        /* num. themes: 3*2*1*2=12 (permutations of 3 colors plus inverted colors)*/

+        ntheme=(ntheme<0)?12-((-ntheme)%12):ntheme;

+        ntheme%=12;

+        re->theme.ntheme=ntheme;

+        /* compute invert and the number of permutation */

+        invert=(ntheme>=6)?1:0;

+        ntheme%=6;

+        permutationtemplate=permutations[ntheme];

+        /* reset colors and permutate them */

+        strncpy(re->theme.color_background,DEFAULT_COLOR_BACKGROUND,sizeof(re->theme.color_background)),re->theme.color_background[sizeof(re->theme.color_background)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_background,invert);

+        strncpy(re->theme.color_printoutstripe,DEFAULT_COLOR_PRINTOUTSTRIPE,sizeof(re->theme.color_printoutstripe)),re->theme.color_printoutstripe[sizeof(re->theme.color_printoutstripe)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_printoutstripe,invert);

+        strncpy(re->theme.color_cursorbg,DEFAULT_COLOR_CURSORBG,sizeof(re->theme.color_cursorbg)),re->theme.color_cursorbg[sizeof(re->theme.color_cursorbg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_cursorbg,invert);

+        strncpy(re->theme.color_cursorfg,DEFAULT_COLOR_CURSORFG,sizeof(re->theme.color_cursorfg)),re->theme.color_cursorfg[sizeof(re->theme.color_cursorfg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_cursorfg,invert);

+        strncpy(re->theme.color_text,DEFAULT_COLOR_TEXT,sizeof(re->theme.color_text)),re->theme.color_text[sizeof(re->theme.color_text)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_text,invert);

+        strncpy(re->theme.color_matchbg,DEFAULT_COLOR_MATCHBG,sizeof(re->theme.color_matchbg)),re->theme.color_matchbg[sizeof(re->theme.color_matchbg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_matchbg,invert);

+        strncpy(re->theme.color_matchfg,DEFAULT_COLOR_MATCHFG,sizeof(re->theme.color_matchfg)),re->theme.color_matchfg[sizeof(re->theme.color_matchfg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_matchfg,invert);

+        strncpy(re->theme.color_statusbg,DEFAULT_COLOR_STATUSBG,sizeof(re->theme.color_statusbg)),re->theme.color_statusbg[sizeof(re->theme.color_statusbg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_statusbg,invert);

+        strncpy(re->theme.color_statusfg,DEFAULT_COLOR_STATUSFG,sizeof(re->theme.color_statusfg)),re->theme.color_statusfg[sizeof(re->theme.color_statusfg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_statusfg,invert);

+        strncpy(re->theme.color_statusfglight,DEFAULT_COLOR_STATUSFGLIGHT,sizeof(re->theme.color_statusfglight)),re->theme.color_statusfglight[sizeof(re->theme.color_statusfglight)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_statusfglight,invert);

+        strncpy(re->theme.color_querybg,DEFAULT_COLOR_QUERYBG,sizeof(re->theme.color_querybg)),re->theme.color_querybg[sizeof(re->theme.color_querybg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_querybg,invert);

+        strncpy(re->theme.color_queryfg,DEFAULT_COLOR_QUERYFG,sizeof(re->theme.color_queryfg)),re->theme.color_queryfg[sizeof(re->theme.color_queryfg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_queryfg,invert);

+        strncpy(re->theme.color_querybgold,DEFAULT_COLOR_QUERYBGOLD,sizeof(re->theme.color_querybgold)),re->theme.color_querybgold[sizeof(re->theme.color_querybgold)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_querybgold,invert);

+        strncpy(re->theme.color_queryfgold,DEFAULT_COLOR_QUERYFGOLD,sizeof(re->theme.color_queryfgold)),re->theme.color_queryfgold[sizeof(re->theme.color_queryfgold)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_queryfgold,invert);

+        strncpy(re->theme.color_warningbg,DEFAULT_COLOR_WARNINGBG,sizeof(re->theme.color_warningbg)),re->theme.color_warningbg[sizeof(re->theme.color_warningbg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_warningbg,invert);

+        strncpy(re->theme.color_warningfg,DEFAULT_COLOR_WARNINGFG,sizeof(re->theme.color_warningfg)),re->theme.color_warningfg[sizeof(re->theme.color_warningfg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_warningfg,invert);

+        strncpy(re->theme.color_infobg,DEFAULT_COLOR_INFOBG,sizeof(re->theme.color_infobg)),re->theme.color_infobg[sizeof(re->theme.color_infobg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_infobg,invert);

+        strncpy(re->theme.color_infofg,DEFAULT_COLOR_INFOFG,sizeof(re->theme.color_infofg)),re->theme.color_infofg[sizeof(re->theme.color_infofg)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_infofg,invert);

+        strncpy(re->theme.color_infofglight,DEFAULT_COLOR_INFOFGLIGHT,sizeof(re->theme.color_infofglight)),re->theme.color_infofglight[sizeof(re->theme.color_infofglight)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_infofglight,invert);

+        strncpy(re->theme.color_selnormal,DEFAULT_COLOR_SELNORMAL,sizeof(re->theme.color_selnormal)),re->theme.color_selnormal[sizeof(re->theme.color_selnormal)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_selnormal,invert);

+        strncpy(re->theme.color_curline,DEFAULT_COLOR_CURLINE,sizeof(re->theme.color_curline)),re->theme.color_curline[sizeof(re->theme.color_curline)-1]='\0',util_applypermutation(permutationtemplate,re->theme.color_curline,invert);

+        /* set theme in highlighter */

+        redata_highlighter_settheme(re->data,ntheme,invert);

+        /* force redraw */

+        re->contentsdirty=1;

+        re->headerdirty=1;

+        return(0);

+}