Changeset 216c734 for commands.c

Timestamp:

Oct 24, 2006, 12:40:02 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

0138478

Parents:

4211f50b

Message:

Adding my getstyle patch, which I rely on from perl right now for a
number of my "modules".

File:

• commands.c (modified) (2 diffs)

commands.c

@@ -703 +703 @@
               "returns the value of a variable",
               "getvar <varname>", ""),
+
+  OWLCMD_ARGS("getstyle", owl_command_getstyle, OWL_CTX_INTERACTIVE,
+              "returns the name of the style for the current view",
+              "", ""),
 
   OWLCMD_ARGS("search", owl_command_search, OWL_CTX_INTERACTIVE,
@@ -2395 +2399 @@
 }
 
+char *owl_command_getstyle(int argc, char **argv, char *buff)
+{
+  char *stylename;
+  if (argc != 1) {
+    owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
+    return NULL;
+  }
+  stylename = owl_view_get_style_name(owl_global_get_current_view(&g));
+  if (stylename) stylename = owl_strdup(stylename);
+  return stylename;
+}
+
 /*********************************************************************/
 /************************** EDIT SPECIFIC ****************************/