util/setstyle.c

   1 /* setstyle.c - loads style related options to wmaker
   2  *
   3  *  WindowMaker window manager
   4  *
   5  *  Copyright (c) 1997-2003 Alfredo K. Kojima
   6  *
   7  *  This program is free software; you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation; either version 2 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License
  18  *  along with this program; if not, write to the Free Software
  19  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
  20  *  USA.
  21  */
  22
  23
  24 #define PROG_VERSION "setstyle (Window Maker) 0.6"
  25
  26 #include <stdlib.h>
  27 #include <stdio.h>
  28 #include <sys/stat.h>
  29 #include <unistd.h>
  30 #include <string.h>
  31 #include <X11/Xlib.h>
  32 #include <WINGs/WUtil.h>
  33
  34
  35
  36 #include "../src/wconfig.h"
  37
  38 #define MAX_OPTIONS 128
  39
  40 char *FontOptions[] = {
  41     "IconTitleFont",
  42         "ClipTitleFont",
  43         "DisplayFont",
  44         "LargeDisplayFont",
  45         "MenuTextFont",
  46         "MenuTitleFont",
  47         "WindowTitleFont",
  48         NULL
  49 };
  50
  51 char *CursorOptions[] = {
  52     "NormalCursor",
  53     "ArrowCursor",
  54     "MoveCursor",
  55     "ResizeCursor",
  56     "TopLeftResizeCursor",
  57     "TopRightResizeCursor",
  58     "BottomLeftResizeCursor",
  59     "BottomRightResizeCursor",
  60     "VerticalResizeCursor",
  61     "HorizontalResizeCursor",
  62     "WaitCursor",
  63     "QuestionCursor",
  64     "TextCursor",
  65     "SelectCursor",
  66     NULL
  67 };
  68
  69
  70
  71 char *ProgName;
  72 int ignoreFonts = 0;
  73 int ignoreCursors = 0;
  74
  75 Display *dpy;
  76
  77
  78
  79 WMPropList *readBlackBoxStyle(char *path);
  80
  81
  82
  83 char*
  84 defaultsPathForDomain(char *domain)
  85 {
  86     static char path[1024];
  87     char *gspath;
  88
  89     gspath = getenv("GNUSTEP_USER_ROOT");
  90     if (gspath) {
  91         strcpy(path, gspath);
  92         strcat(path, "/");
  93     } else {
  94         char *home;
  95
  96         home = getenv("HOME");
  97         if (!home) {
  98             printf("%s:could not get HOME environment variable!\n", ProgName);
  99             exit(0);
 100         }
 101
 102         strcpy(path, home);
 103         strcat(path, "/GNUstep/");
 104     }
 105     strcat(path, DEFAULTS_DIR);
 106     strcat(path, "/");
 107     strcat(path, domain);
 108
 109     return path;
 110 }
 111
 112
 113
 114 void
 115 hackPathInTexture(WMPropList *texture, char *prefix)
 116 {
 117     WMPropList *type;
 118     char *t;
 119
 120     /* get texture type */
 121     type = WMGetFromPLArray(texture, 0);
 122     t = WMGetFromPLString(type);
 123     if (t == NULL)
 124         return;
 125     if (strcasecmp(t, "tpixmap")==0
 126         || strcasecmp(t, "spixmap")==0
 127         || strcasecmp(t, "mpixmap")==0
 128         || strcasecmp(t, "cpixmap")==0
 129         || strcasecmp(t, "tvgradient")==0
 130         || strcasecmp(t, "thgradient")==0
 131         || strcasecmp(t, "tdgradient")==0) {
 132         WMPropList *file;
 133         char buffer[4018];
 134
 135         /* get pixmap file path */
 136         file = WMGetFromPLArray(texture, 1);
 137         sprintf(buffer, "%s/%s", prefix, WMGetFromPLString(file));
 138         /* replace path with full path */
 139         WMDeleteFromPLArray(texture, 1);
 140         WMInsertInPLArray(texture, 1, WMCreatePLString(buffer));
 141     } else if (strcasecmp(t, "bitmap") == 0) {
 142         WMPropList *file;
 143         char buffer[4018];
 144
 145         /* get bitmap file path */
 146         file = WMGetFromPLArray(texture, 1);
 147         sprintf(buffer, "%s/%s", prefix, WMGetFromPLString(file));
 148         /* replace path with full path */
 149         WMDeleteFromPLArray(texture, 1);
 150         WMInsertInPLArray(texture, 1, WMCreatePLString(buffer));
 151
 152         /* get mask file path */
 153         file = WMGetFromPLArray(texture, 2);
 154         sprintf(buffer, "%s/%s", prefix, WMGetFromPLString(file));
 155         /* replace path with full path */
 156         WMDeleteFromPLArray(texture, 2);
 157         WMInsertInPLArray(texture, 2, WMCreatePLString(buffer));
 158     }
 159 }
 160
 161
 162 void
 163 hackPaths(WMPropList *style, char *prefix)
 164 {
 165     WMPropList *keys;
 166     WMPropList *key;
 167     WMPropList *value;
 168     int i;
 169
 170
 171     keys = WMGetPLDictionaryKeys(style);
 172
 173     for (i = 0; i < WMGetPropListItemCount(keys); i++) {
 174         key = WMGetFromPLArray(keys, i);
 175
 176         value = WMGetFromPLDictionary(style, key);
 177         if (!value)
 178             continue;
 179
 180         if (strcasecmp(WMGetFromPLString(key), "WorkspaceSpecificBack")==0) {
 181             if (WMIsPLArray(value)) {
 182                 int j;
 183                 WMPropList *texture;
 184
 185                 for (j = 0; j < WMGetPropListItemCount(value); j++) {
 186                     texture = WMGetFromPLArray(value, j);
 187
 188                     if (texture && WMIsPLArray(texture)
 189                         && WMGetPropListItemCount(texture) > 2) {
 190
 191                         hackPathInTexture(texture, prefix);
 192                     }
 193                 }
 194             }
 195         } else {
 196
 197             if (WMIsPLArray(value) && WMGetPropListItemCount(value) > 2) {
 198
 199                 hackPathInTexture(value, prefix);
 200             }
 201         }
 202     }
 203
 204 }
 205
 206
 207 static WMPropList*
 208 getColor(WMPropList *texture)
 209 {
 210     WMPropList *value, *type;
 211     char *str;
 212
 213     type = WMGetFromPLArray(texture, 0);
 214     if (!type)
 215         return NULL;
 216
 217     value = NULL;
 218
 219     str = WMGetFromPLString(type);
 220     if (strcasecmp(str, "solid")==0) {
 221         value = WMGetFromPLArray(texture, 1);
 222     } else if (strcasecmp(str, "dgradient")==0
 223                || strcasecmp(str, "hgradient")==0
 224                || strcasecmp(str, "vgradient")==0) {
 225         WMPropList *c1, *c2;
 226         int r1, g1, b1, r2, g2, b2;
 227         char buffer[32];
 228
 229         c1 = WMGetFromPLArray(texture, 1);
 230         c2 = WMGetFromPLArray(texture, 2);
 231         if (!dpy) {
 232             if (sscanf(WMGetFromPLString(c1), "#%2x%2x%2x", &r1, &g1, &b1)==3
 233                 && sscanf(WMGetFromPLString(c2), "#%2x%2x%2x", &r2, &g2, &b2)==3) {
 234                 sprintf(buffer, "#%02x%02x%02x", (r1+r2)/2, (g1+g2)/2,
 235                         (b1+b2)/2);
 236                 value = WMCreatePLString(buffer);
 237             } else {
 238                 value = c1;
 239             }
 240         } else {
 241             XColor color1;
 242             XColor color2;
 243
 244             XParseColor(dpy, DefaultColormap(dpy, DefaultScreen(dpy)),
 245                         WMGetFromPLString(c1), &color1);
 246             XParseColor(dpy, DefaultColormap(dpy, DefaultScreen(dpy)),
 247                         WMGetFromPLString(c2), &color2);
 248
 249             sprintf(buffer, "#%02x%02x%02x",
 250                     (color1.red+color2.red)>>9,
 251                     (color1.green+color2.green)>>9,
 252                     (color1.blue+color2.blue)>>9);
 253             value = WMCreatePLString(buffer);
 254         }
 255     } else if (strcasecmp(str, "mdgradient")==0
 256                || strcasecmp(str, "mhgradient")==0
 257                || strcasecmp(str, "mvgradient")==0) {
 258
 259         value = WMGetFromPLArray(texture, 1);
 260
 261     } else if (strcasecmp(str, "tpixmap")==0
 262                || strcasecmp(str, "cpixmap")==0
 263                || strcasecmp(str, "spixmap")==0) {
 264
 265         value = WMGetFromPLArray(texture, 2);
 266     }
 267
 268     return value;
 269 }
 270
 271
 272 /*
 273  * since some of the options introduce incompatibilities, we will need
 274  * to do a kluge here or the themes ppl will get real annoying.
 275  * So, treat for the absence of the following options:
 276  * IconTitleColor
 277  * IconTitleBack
 278  */
 279 void
 280 hackStyle(WMPropList *style)
 281 {
 282     WMPropList *keys, *tmp;
 283     int foundIconTitle = 0, foundResizebarBack = 0;
 284     int i;
 285
 286     keys = WMGetPLDictionaryKeys(style);
 287
 288     for (i = 0; i < WMGetPropListItemCount(keys); i++) {
 289         char *str;
 290
 291         tmp = WMGetFromPLArray(keys, i);
 292         str = WMGetFromPLString(tmp);
 293         if (str) {
 294             int j, found;
 295
 296             if (ignoreFonts) {
 297                 for (j = 0, found = 0; FontOptions[j]!=NULL; j++) {
 298                     if (strcasecmp(str, FontOptions[j])==0) {
 299                         WMRemoveFromPLDictionary(style, tmp);
 300                         found = 1;
 301                         break;
 302                     }
 303                 }
 304                 if (found)
 305                     continue;
 306             }
 307             if (ignoreCursors) {
 308                 for (j = 0, found = 0; CursorOptions[j] != NULL; j++) {
 309                     if (strcasecmp(str, CursorOptions[j]) == 0) {
 310                         WMRemoveFromPLDictionary(style, tmp);
 311                         found = 1;
 312                         break;
 313                     }
 314                 }
 315                 if (found)
 316                     continue;
 317             }
 318
 319             if (strcasecmp(str, "IconTitleColor")==0
 320                 || strcasecmp(str, "IconTitleBack")==0) {
 321                 foundIconTitle = 1;
 322             } else if (strcasecmp(str, "ResizebarBack")==0) {
 323                 foundResizebarBack = 1;
 324             }
 325         }
 326     }
 327
 328     if (!foundIconTitle) {
 329         /* set the default values */
 330         tmp = WMGetFromPLDictionary(style, WMCreatePLString("FTitleColor"));
 331         if (tmp) {
 332             WMPutInPLDictionary(style, WMCreatePLString("IconTitleColor"),
 333                                     tmp);
 334         }
 335
 336         tmp = WMGetFromPLDictionary(style, WMCreatePLString("FTitleBack"));
 337         if (tmp) {
 338             WMPropList *value;
 339
 340             value = getColor(tmp);
 341
 342             if (value) {
 343                 WMPutInPLDictionary(style, WMCreatePLString("IconTitleBack"),
 344                                         value);
 345             }
 346         }
 347     }
 348
 349     if (!foundResizebarBack) {
 350         /* set the default values */
 351         tmp = WMGetFromPLDictionary(style, WMCreatePLString("UTitleBack"));
 352         if (tmp) {
 353             WMPropList *value;
 354
 355             value = getColor(tmp);
 356
 357             if (value) {
 358                 WMPropList *t;
 359
 360                 t = WMCreatePLArray(WMCreatePLString("solid"), value,
 361                                             NULL);
 362                 WMPutInPLDictionary(style, WMCreatePLString("ResizebarBack"),
 363                                         t);
 364             }
 365         }
 366     }
 367
 368
 369     if (!WMGetFromPLDictionary(style, WMCreatePLString("MenuStyle"))) {
 370         WMPutInPLDictionary(style, WMCreatePLString("MenuStyle"),
 371                                 WMCreatePLString("normal"));
 372     }
 373 }
 374
 375
 376 void
 377 print_help()
 378 {
 379     printf("Usage: %s [OPTIONS] FILE\n", ProgName);
 380     puts("Reads style/theme configuration from FILE and updates Window Maker.");
 381     puts("");
 382     puts("  --no-fonts          ignore font related options");
 383     puts("  --no-cursors        ignore cursor related options");
 384     puts("  --ignore <option>   ignore changes in the specified option");
 385     puts("  --help              display this help and exit");
 386     /*
 387     puts("  --format <format>   specifies the format of the theme to be converted");
 388      */
 389     puts("  --version           output version information and exit");
 390     /*puts("");
 391     puts("Supported formats: blackbox");*/
 392 }
 393
 394
 395 #define F_BLACKBOX      1
 396
 397 int
 398 main(int argc, char **argv)
 399 {
 400     WMPropList *prop, *style;
 401     char *path;
 402     char *file = NULL;
 403     struct stat statbuf;
 404     int i;
 405     int ignoreCount = 0;
 406     char *ignoreList[MAX_OPTIONS];
 407
 408     dpy = XOpenDisplay("");
 409
 410     ProgName = argv[0];
 411
 412     if (argc<2) {
 413         printf("%s: missing argument\n", ProgName);
 414         printf("Try '%s --help' for more information\n", ProgName);
 415         exit(1);
 416     }
 417
 418     for (i = 1; i < argc; i++) {
 419         if (strcmp("--ignore", argv[i])==0) {
 420             i++;
 421             if (i == argc) {
 422                 printf("%s: missing argument for option --ignore\n", ProgName);
 423                 exit(1);
 424             }
 425             ignoreList[ignoreCount++] = argv[i];
 426
 427         } else if (strcmp("--no-fonts", argv[i])==0) {
 428             ignoreFonts = 1;
 429         } else if (strcmp("--no-cursors", argv[i])==0) {
 430             ignoreCursors = 1;
 431         } else if (strcmp("--version", argv[i])==0) {
 432             puts(PROG_VERSION);
 433             exit(0);
 434         } else if (strcmp("--help", argv[i])==0) {
 435             print_help();
 436             exit(0);
 437 #if 0
 438         } else if (strcmp("--format", argv[i])==0) {
 439             i++;
 440             if (i == argc) {
 441                 printf("%s: missing argument for option --format\n", ProgName);
 442                 exit(1);
 443             }
 444             if (strcasecmp(argv[i], "blackbox")==0) {
 445                 format = F_BLACKBOX;
 446             } else {
 447                 printf("%s: unknown theme format '%s'\n", ProgName, argv[i]);
 448                 exit(1);
 449             }
 450 #endif
 451         } else {
 452             if (file) {
 453                 printf("%s: invalid argument '%s'\n", ProgName, argv[i]);
 454                 printf("Try '%s --help' for more information\n", ProgName);
 455                 exit(1);
 456             }
 457             file = argv[i];
 458         }
 459     }
 460
 461     WMPLSetCaseSensitive(False);
 462
 463     path = defaultsPathForDomain("WindowMaker");
 464
 465     prop = WMReadPropListFromFile(path);
 466     if (!prop) {
 467         perror(path);
 468         printf("%s:could not load WindowMaker configuration file.\n",
 469                ProgName);
 470         exit(1);
 471     }
 472
 473     if (stat(file, &statbuf) < 0) {
 474         perror(file);
 475         exit(1);
 476     }
 477 #if 0
 478     if (format == F_BLACKBOX) {
 479         style = readBlackBoxStyle(file);
 480         if (!style) {
 481             printf("%s: could not open style file\n", ProgName);
 482             exit(1);
 483         }
 484     } else
 485 #endif
 486  {
 487         if (S_ISDIR(statbuf.st_mode)) {
 488             char buffer[4018];
 489             char *prefix;
 490             /* theme pack */
 491
 492             if (*argv[argc-1] != '/') {
 493                 if (!getcwd(buffer, 4000)) {
 494                     printf("%s: complete path for %s is too long\n", ProgName,
 495                            file);
 496                     exit(1);
 497                 }
 498                 if (strlen(buffer) + strlen(file) > 4000) {
 499                     printf("%s: complete path for %s is too long\n", ProgName,
 500                            file);
 501                     exit(1);
 502                 }
 503                 strcat(buffer, "/");
 504             } else {
 505                 buffer[0] = 0;
 506             }
 507             strcat(buffer, file);
 508
 509             prefix = malloc(strlen(buffer)+10);
 510             if (!prefix) {
 511                 printf("%s: out of memory\n", ProgName);
 512                 exit(1);
 513             }
 514             strcpy(prefix, buffer);
 515
 516             strcat(buffer, "/style");
 517
 518             style = WMReadPropListFromFile(buffer);
 519             if (!style) {
 520                 perror(buffer);
 521                 printf("%s:could not load style file.\n", ProgName);
 522                 exit(1);
 523             }
 524
 525             hackPaths(style, prefix);
 526             free(prefix);
 527         } else {
 528             /* normal style file */
 529
 530             style = WMReadPropListFromFile(file);
 531             if (!style) {
 532                 perror(file);
 533                 printf("%s:could not load style file.\n", ProgName);
 534                 exit(1);
 535             }
 536         }
 537     }
 538
 539     if (!WMIsPLDictionary(style)) {
 540         printf("%s: '%s' is not a style file/theme\n", ProgName, file);
 541         exit(1);
 542     }
 543
 544     hackStyle(style);
 545
 546     if (ignoreCount > 0) {
 547         for (i = 0; i < ignoreCount; i++) {
 548             WMRemoveFromPLDictionary(style, WMCreatePLString(ignoreList[i]));
 549         }
 550     }
 551
 552     WMMergePLDictionaries(prop, style, True);
 553
 554     WMWritePropListToFile(prop, path, True);
 555     {
 556         XEvent ev;
 557
 558         if (dpy) {
 559             int i;
 560             char *msg = "Reconfigure";
 561
 562             memset(&ev, 0, sizeof(XEvent));
 563
 564             ev.xclient.type = ClientMessage;
 565             ev.xclient.message_type = XInternAtom(dpy, "_WINDOWMAKER_COMMAND",
 566                                                   False);
 567             ev.xclient.window = DefaultRootWindow(dpy);
 568             ev.xclient.format = 8;
 569
 570             for (i = 0; i <= strlen(msg); i++) {
 571                 ev.xclient.data.b[i] = msg[i];
 572             }
 573             XSendEvent(dpy, DefaultRootWindow(dpy), False,
 574                        SubstructureRedirectMask, &ev);
 575             XFlush(dpy);
 576         }
 577     }
 578
 579     exit(0);
 580 }
 581
 582
 583 #if 0
 584 char*
 585 getToken(char *str, int i, char *buf)
 586 {
 587
 588 }
 589
 590
 591 static WMPropList*
 592 readBlackBoxStyle(char *path)
 593 {
 594     FILE *f;
 595     char buffer[128], char token[128];
 596     WMPropList *style, *p;
 597
 598     f = fopen(path, "rb");
 599     if (!f) {
 600         perror(path);
 601         return NULL;
 602     }
 603
 604     while (1) {
 605         if (!fgets(buffer, 127, f))
 606             break;
 607
 608         if (strncasecmp(buffer, "menu.title:", 11)==0) {
 609
 610         }
 611     }
 612 }
 613 #endif