Changeset 864ed35 for commands.c

Timestamp:

Apr 29, 2008, 1:21:13 AM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

b67ab6b

Parents:

120291c

Message:

Initial step of moving styles from the current mishmash of different
options to a unified object interface.
No backwards-compatibility support yet.

File:

• commands.c (modified) (2 diffs)

commands.c

@@ -101 +101 @@
               "Use 'show keymaps' to see the existing keymaps.\n"
               "Key sequences may be things like M-C-t or NPAGE.\n"),
-
-  OWLCMD_ARGS("style", owl_command_style, OWL_CTX_ANY,
-              "creates a new style",
-              "style <name> perl <function_name>",
-              "Creates a new style for formatting messages.\n"
-              "A style named <name> will be created that will\n"
-              "format messages using the perl function <function_name>.\n\n"
-              "SEE ALSO: show styles, view -s, filter -s\n"),
 
   OWLCMD_ARGS("zwrite", owl_command_zwrite, OWL_CTX_INTERACTIVE,
@@ -1675 +1667 @@
   return NULL;
 }
-
-char *owl_command_style(int argc, char **argv, char *buff) {
-  owl_style *s;
-
-  /* Usage: style <name> perl <function> */
-  if (argc != 4 || strcmp(argv[2], "perl")) {
-    owl_function_makemsg("Usage: style <name> perl <function>");
-    return NULL;
-  }
-  if (!owl_perlconfig_is_function(argv[3])) {
-    owl_function_makemsg("Unable to create style '%s': no perl function '%s'",
-                         argv[1], argv[3]);
-    return NULL;
-  }
-  s=owl_malloc(sizeof(owl_style));
-  owl_style_create_perl(s, argv[1], argv[3], NULL);
-  owl_global_add_style(&g, s);
-
-  return NULL;
-}
-
 
 void owl_command_quit()