Changeset bd3f232 for variable.c

Timestamp:

Jun 10, 2003, 3:14:59 PM (22 years ago)

Author:

James M. Kretchmar <kretch@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

f14a7ee

Parents:

6e05655

Message:

Styles implemented
It's still a little buggy ... if a format_msg(); is used in perl admin
  messages (or maybe just the first admin message) are not formatted.

File:

• variable.c (modified) (2 diffs)

variable.c

@@ -198 +198 @@
   OWLVAR_STRING_FULL( "tty" /* %OwlVarStub */, "", "tty name for zephyr location", "",
                       NULL, owl_variable_tty_set, NULL),
-  
+
+  OWLVAR_STRING_FULL( "style" /* %OwlVarStub */, "default", "name of the current formatting style", "",
+                      NULL, owl_variable_style_set, NULL),
+
   OWLVAR_INT(    "edit:maxfillcols" /* %OwlVarStub:edit_maxfillcols */, 70,
                  "maximum number of columns for M-q to fill text to",
@@ -347 +350 @@
   ZInitLocationInfo(owl_global_get_hostname(&g), newval);
   return(owl_variable_string_set_default(v, newval));
+}
+
+int owl_variable_style_set(owl_variable *v, void *newval) {
+  /* Invalidate all message formats first */
+  int ret;
+  owl_style *s;
+
+  s=owl_global_get_style_by_name(&g, newval);
+  if (!s) {
+    /* this message won't get seen, we'll need to deal with that later */
+    owl_function_makemsg("No style named '%s' exists.", newval);
+    return(0);
+  }
+  
+  owl_messagelist_invalidate_formats(owl_global_get_msglist(&g));
+  ret=owl_variable_string_set_default(v, newval);
+  owl_mainwin_redisplay(owl_global_get_mainwin(&g));
+  return(ret);
 }