- changecase \

- changecase \

-# changecase plugin

-plugindir = $(PLUMA_PLUGINS_LIBS_DIR)

-

-AM_CPPFLAGS = \

- -I$(top_srcdir) \

- $(PLUMA_CFLAGS) \

- $(WARN_CFLAGS)

-

-plugin_LTLIBRARIES = libchangecase.la

-

-libchangecase_la_SOURCES = \

- pluma-changecase-plugin.h \

- pluma-changecase-plugin.c

-

-libchangecase_la_LDFLAGS = $(PLUGIN_LIBTOOL_FLAGS)

-libchangecase_la_LIBADD = $(PLUMA_LIBS)

-

-uidir = $(PLUMA_PLUGINS_DATA_DIR)/changecase

-ui_DATA =

-

-plugin_in_files = changecase.plugin.desktop.in

-plugin_DATA = $(plugin_in_files:.plugin.desktop.in=.plugin)

-

-$(plugin_DATA): $(plugin_in_files)

- $(AM_V_GEN) $(MSGFMT) --keyword=Name --keyword=Description --desktop --template $< -d $(top_srcdir)/po -o $@

-

-EXTRA_DIST = $(ui_DATA) $(plugin_in_files)

-

-CLEANFILES = $(plugin_DATA)

-DISTCLEANFILES = $(plugin_DATA)

-

-

--include $(top_srcdir)/git.mk

-# Change case Plugin

-

-The Change Case plugin changes the case of the selected text, like uppercase to lowercase and vice versa. To know more, see the **Plugins** section of the pluma user manual. \ No newline at end of file

-[Plugin]

-Module=changecase

-IAge=2

-Name=Change Case

-Description=Changes the case of selected text.

-Authors=Paolo Borelli <[email protected]>

-Copyright=Copyright © 2004-2005 Paolo Borelli

-Website=https://mate-desktop.org

-/*

- * pluma-changecase-plugin.c

- *

- * Copyright (C) 2004-2005 - Paolo Borelli

- *

- * This program is free software; you can redistribute it and/or modify

- * it under the terms of the GNU General Public License as published by

- * the Free Software Foundation; either version 2, or (at your option)

- * any later version.

- *

- * This program is distributed in the hope that it will be useful,

- * but WITHOUT ANY WARRANTY; without even the implied warranty of

- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

- * GNU General Public License for more details.

- *

- * You should have received a copy of the GNU General Public License

- * along with this program; if not, write to the Free Software

- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.

- *

- * $Id$

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-

-#include "pluma-changecase-plugin.h"

-

-#include <glib/gi18n-lib.h>

-#include <gmodule.h>

-#include <libpeas/peas-activatable.h>

-

-#include <pluma/pluma-window.h>

-#include <pluma/pluma-debug.h>

-

-static void peas_activatable_iface_init (PeasActivatableInterface *iface);

-

-struct _PlumaChangecasePluginPrivate

-{

- GtkWidget *window;

-

- GtkActionGroup *action_group;

- guint ui_id;

-};

-

-G_DEFINE_DYNAMIC_TYPE_EXTENDED (PlumaChangecasePlugin,

- pluma_changecase_plugin,

- PEAS_TYPE_EXTENSION_BASE,

- 0,

- G_ADD_PRIVATE_DYNAMIC (PlumaChangecasePlugin)

- G_IMPLEMENT_INTERFACE_DYNAMIC (PEAS_TYPE_ACTIVATABLE,

- peas_activatable_iface_init))

-

-enum {

- PROP_0,

- PROP_OBJECT

-};

-

-typedef enum {

- TO_UPPER_CASE,

- TO_LOWER_CASE,

- INVERT_CASE,

- TO_TITLE_CASE,

-} ChangeCaseChoice;

-

-static void

-do_upper_case (GtkTextBuffer *buffer,

- GtkTextIter *start,

- GtkTextIter *end)

-{

- GString *s = g_string_new (NULL);

-

- while (!gtk_text_iter_is_end (start) &&

- !gtk_text_iter_equal (start, end))

- {

- gunichar c, nc;

-

- c = gtk_text_iter_get_char (start);

- nc = g_unichar_toupper (c);

- g_string_append_unichar (s, nc);

-

- gtk_text_iter_forward_char (start);

- }

-

- gtk_text_buffer_delete_selection (buffer, TRUE, TRUE);

- gtk_text_buffer_insert_at_cursor (buffer, s->str, s->len);

-

- g_string_free (s, TRUE);

-}

-

-static void

-do_lower_case (GtkTextBuffer *buffer,

- GtkTextIter *start,

- GtkTextIter *end)

-{

- GString *s = g_string_new (NULL);

-

- while (!gtk_text_iter_is_end (start) &&

- !gtk_text_iter_equal (start, end))

- {

- gunichar c, nc;

-

- c = gtk_text_iter_get_char (start);

- nc = g_unichar_tolower (c);

- g_string_append_unichar (s, nc);

-

- gtk_text_iter_forward_char (start);

- }

-

- gtk_text_buffer_delete_selection (buffer, TRUE, TRUE);

- gtk_text_buffer_insert_at_cursor (buffer, s->str, s->len);

-

- g_string_free (s, TRUE);

-}

-

-static void

-do_invert_case (GtkTextBuffer *buffer,

- GtkTextIter *start,

- GtkTextIter *end)

-{

- GString *s = g_string_new (NULL);

-

- while (!gtk_text_iter_is_end (start) &&

- !gtk_text_iter_equal (start, end))

- {

- gunichar c, nc;

-

- c = gtk_text_iter_get_char (start);

- if (g_unichar_islower (c))

- nc = g_unichar_toupper (c);

- else

- nc = g_unichar_tolower (c);

- g_string_append_unichar (s, nc);

-

- gtk_text_iter_forward_char (start);

- }

-

- gtk_text_buffer_delete_selection (buffer, TRUE, TRUE);

- gtk_text_buffer_insert_at_cursor (buffer, s->str, s->len);

-

- g_string_free (s, TRUE);

-}

-

-static void

-do_title_case (GtkTextBuffer *buffer,

- GtkTextIter *start,

- GtkTextIter *end)

-{

- GString *s = g_string_new (NULL);

-

- while (!gtk_text_iter_is_end (start) &&

- !gtk_text_iter_equal (start, end))

- {

- gunichar c, nc;

-

- c = gtk_text_iter_get_char (start);

- if (gtk_text_iter_starts_word (start))

- nc = g_unichar_totitle (c);

- else

- nc = g_unichar_tolower (c);

- g_string_append_unichar (s, nc);

-

- gtk_text_iter_forward_char (start);

- }

-

- gtk_text_buffer_delete_selection (buffer, TRUE, TRUE);

- gtk_text_buffer_insert_at_cursor (buffer, s->str, s->len);

-

- g_string_free (s, TRUE);

-}

-

-static void

-change_case (PlumaWindow *window,

- ChangeCaseChoice choice)

-{

- PlumaDocument *doc;

- GtkTextIter start, end;

-

- pluma_debug (DEBUG_PLUGINS);

-

- doc = pluma_window_get_active_document (window);

- g_return_if_fail (doc != NULL);

-

- if (!gtk_text_buffer_get_selection_bounds (GTK_TEXT_BUFFER (doc),

- &start, &end))

- {

- return;

- }

-

- gtk_text_buffer_begin_user_action (GTK_TEXT_BUFFER (doc));

-

- switch (choice)

- {

- case TO_UPPER_CASE:

- do_upper_case (GTK_TEXT_BUFFER (doc), &start, &end);

- break;

- case TO_LOWER_CASE:

- do_lower_case (GTK_TEXT_BUFFER (doc), &start, &end);

- break;

- case INVERT_CASE:

- do_invert_case (GTK_TEXT_BUFFER (doc), &start, &end);

- break;

- case TO_TITLE_CASE:

- do_title_case (GTK_TEXT_BUFFER (doc), &start, &end);

- break;

- default:

- g_return_if_reached ();

- }

-

- gtk_text_buffer_end_user_action (GTK_TEXT_BUFFER (doc));

-}

-

-static void

-upper_case_cb (GtkAction *action,

- PlumaWindow *window)

-{

- change_case (window, TO_UPPER_CASE);

-}

-

-static void

-lower_case_cb (GtkAction *action,

- PlumaWindow *window)

-{

- change_case (window, TO_LOWER_CASE);

-}

-

-static void

-invert_case_cb (GtkAction *action,

- PlumaWindow *window)

-{

- change_case (window, INVERT_CASE);

-}

-

-static void

-title_case_cb (GtkAction *action,

- PlumaWindow *window)

-{

- change_case (window, TO_TITLE_CASE);

-}

-

-static const GtkActionEntry action_entries[] =

-{

- { "ChangeCase", NULL, N_("C_hange Case") },

- { "UpperCase", NULL, N_("All _Upper Case"), NULL,

- N_("Change selected text to upper case"),

- G_CALLBACK (upper_case_cb) },

- { "LowerCase", NULL, N_("All _Lower Case"), NULL,

- N_("Change selected text to lower case"),

- G_CALLBACK (lower_case_cb) },

- { "InvertCase", NULL, N_("_Invert Case"), NULL,

- N_("Invert the case of selected text"),

- G_CALLBACK (invert_case_cb) },

- { "TitleCase", NULL, N_("_Title Case"), NULL,

- N_("Capitalize the first letter of each selected word"),

- G_CALLBACK (title_case_cb) }

-};

-

-const gchar submenu[] =

-"<ui>"

-" <menubar name='MenuBar'>"

-" <menu name='EditMenu' action='Edit'>"

-" <placeholder name='EditOps_6'>"

-" <menu action='ChangeCase'>"

-" <menuitem action='UpperCase'/>"

-" <menuitem action='LowerCase'/>"

-" <menuitem action='InvertCase'/>"

-" <menuitem action='TitleCase'/>"

-" </menu>"

-" </placeholder>"

-" </menu>"

-" </menubar>"

-"</ui>";

-

-

-static void

-pluma_changecase_plugin_init (PlumaChangecasePlugin *plugin)

-{

- pluma_debug_message (DEBUG_PLUGINS, "PlumaChangecasePlugin initializing");

-

- plugin->priv = pluma_changecase_plugin_get_instance_private (plugin);

-}

-

-static void

-pluma_changecase_plugin_dispose (GObject *object)

-{

- PlumaChangecasePlugin *plugin = PLUMA_CHANGECASE_PLUGIN (object);

-

- pluma_debug_message (DEBUG_PLUGINS, "PlumaChangecasePlugin disposing");

-

- if (plugin->priv->window != NULL)

- {

- g_object_unref (plugin->priv->window);

- plugin->priv->window = NULL;

- }

-

- if (plugin->priv->action_group != NULL)

- {

- g_object_unref (plugin->priv->action_group);

- plugin->priv->action_group = NULL;

- }

-

- G_OBJECT_CLASS (pluma_changecase_plugin_parent_class)->dispose (object);

-}

-

-static void

-pluma_changecase_plugin_set_property (GObject *object,

- guint prop_id,

- const GValue *value,

- GParamSpec *pspec)

-{

- PlumaChangecasePlugin *plugin = PLUMA_CHANGECASE_PLUGIN (object);

-

- switch (prop_id)

- {

- case PROP_OBJECT:

- plugin->priv->window = GTK_WIDGET (g_value_dup_object (value));

- break;

-

- default:

- G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

- break;

- }

-}

-

-static void

-pluma_changecase_plugin_get_property (GObject *object,

- guint prop_id,

- GValue *value,

- GParamSpec *pspec)

-{

- PlumaChangecasePlugin *plugin = PLUMA_CHANGECASE_PLUGIN (object);

-

- switch (prop_id)

- {

- case PROP_OBJECT:

- g_value_set_object (value, plugin->priv->window);

- break;

-

- default:

- G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

- break;

- }

-}

-

-static void

-update_ui (PlumaChangecasePluginPrivate *data)

-{

- PlumaWindow *window;

- GtkTextView *view;

- GtkAction *action;

- gboolean sensitive = FALSE;

-

- pluma_debug (DEBUG_PLUGINS);

-

- window = PLUMA_WINDOW (data->window);

- view = GTK_TEXT_VIEW (pluma_window_get_active_view (window));

-

- if (view != NULL)

- {

- GtkTextBuffer *buffer;

-

- buffer = gtk_text_view_get_buffer (view);

- sensitive = (gtk_text_view_get_editable (view) &&

- gtk_text_buffer_get_has_selection (buffer));

- }

-

- action = gtk_action_group_get_action (data->action_group,

- "ChangeCase");

- gtk_action_set_sensitive (action, sensitive);

-}

-

-static void

-pluma_changecase_plugin_activate (PeasActivatable *activatable)

-{

- PlumaChangecasePluginPrivate *data;

- PlumaWindow *window;

- GtkUIManager *manager;

- GError *error = NULL;

-

- pluma_debug (DEBUG_PLUGINS);

-

- data = PLUMA_CHANGECASE_PLUGIN (activatable)->priv;

- window = PLUMA_WINDOW (data->window);

-

- manager = pluma_window_get_ui_manager (window);

-

- data->action_group = gtk_action_group_new ("PlumaChangecasePluginActions");

- gtk_action_group_set_translation_domain (data->action_group,

- GETTEXT_PACKAGE);

- gtk_action_group_add_actions (data->action_group,

- action_entries,

- G_N_ELEMENTS (action_entries),

- window);

-

- gtk_ui_manager_insert_action_group (manager, data->action_group, -1);

-

- data->ui_id = gtk_ui_manager_add_ui_from_string (manager,

- submenu,

- -1,

- &error);

- if (data->ui_id == 0)

- {

- g_warning ("%s", error->message);

- return;

- }

-

- update_ui (data);

-}

-

-static void

-pluma_changecase_plugin_deactivate (PeasActivatable *activatable)

-{

- PlumaChangecasePluginPrivate *data;

- PlumaWindow *window;

- GtkUIManager *manager;

-

- pluma_debug (DEBUG_PLUGINS);

-

- data = PLUMA_CHANGECASE_PLUGIN (activatable)->priv;

- window = PLUMA_WINDOW (data->window);

-

- manager = pluma_window_get_ui_manager (window);

-

- gtk_ui_manager_remove_ui (manager, data->ui_id);

- gtk_ui_manager_remove_action_group (manager, data->action_group);

-}

-

-static void

-pluma_changecase_plugin_update_state (PeasActivatable *activatable)

-{

- pluma_debug (DEBUG_PLUGINS);

-

- update_ui (PLUMA_CHANGECASE_PLUGIN (activatable)->priv);

-}

-

-static void

-pluma_changecase_plugin_class_init (PlumaChangecasePluginClass *klass)

-{

- GObjectClass *object_class = G_OBJECT_CLASS (klass);

-

- object_class->dispose = pluma_changecase_plugin_dispose;

- object_class->set_property = pluma_changecase_plugin_set_property;

- object_class->get_property = pluma_changecase_plugin_get_property;

-

- g_object_class_override_property (object_class, PROP_OBJECT, "object");

-}

-

-static void

-pluma_changecase_plugin_class_finalize (PlumaChangecasePluginClass *klass)

-{

- /* dummy function - used by G_DEFINE_DYNAMIC_TYPE_EXTENDED */

-}

-

-static void

-peas_activatable_iface_init (PeasActivatableInterface *iface)

-{

- iface->activate = pluma_changecase_plugin_activate;

- iface->deactivate = pluma_changecase_plugin_deactivate;

- iface->update_state = pluma_changecase_plugin_update_state;

-}

-

-G_MODULE_EXPORT void

-peas_register_types (PeasObjectModule *module)

-{

- pluma_changecase_plugin_register_type (G_TYPE_MODULE (module));

-

- peas_object_module_register_extension_type (module,

- PEAS_TYPE_ACTIVATABLE,

- PLUMA_TYPE_CHANGECASE_PLUGIN);

-}

-/*

- * pluma-changecase-plugin.h

- *

- * Copyright (C) 2004-2005 - Paolo Borelli

- *

- * This program is free software; you can redistribute it and/or modify

- * it under the terms of the GNU General Public License as published by

- * the Free Software Foundation; either version 2, or (at your option)

- * any later version.

- *

- * This program is distributed in the hope that it will be useful,

- * but WITHOUT ANY WARRANTY; without even the implied warranty of

- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

- * GNU General Public License for more details.

- *

- * You should have received a copy of the GNU General Public License

- * along with this program; if not, write to the Free Software

- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.

- *

- * $Id$

- */

-

-#ifndef __PLUMA_CHANGECASE_PLUGIN_H__

-#define __PLUMA_CHANGECASE_PLUGIN_H__

-

-#include <glib.h>

-#include <glib-object.h>

-#include <libpeas/peas-extension-base.h>

-#include <libpeas/peas-object-module.h>

-

-G_BEGIN_DECLS

-

-/*

- * Type checking and casting macros

- */

-#define PLUMA_TYPE_CHANGECASE_PLUGIN (pluma_changecase_plugin_get_type ())

-#define PLUMA_CHANGECASE_PLUGIN(o) (G_TYPE_CHECK_INSTANCE_CAST ((o), PLUMA_TYPE_CHANGECASE_PLUGIN, PlumaChangecasePlugin))

-#define PLUMA_CHANGECASE_PLUGIN_CLASS(k) (G_TYPE_CHECK_CLASS_CAST((k), PLUMA_TYPE_CHANGECASE_PLUGIN, PlumaChangecasePluginClass))

-#define PLUMA_IS_CHANGECASE_PLUGIN(o) (G_TYPE_CHECK_INSTANCE_TYPE ((o), PLUMA_TYPE_CHANGECASE_PLUGIN))

-#define PLUMA_IS_CHANGECASE_PLUGIN_CLASS(k) (G_TYPE_CHECK_CLASS_TYPE ((k), PLUMA_TYPE_CHANGECASE_PLUGIN))

-#define PLUMA_CHANGECASE_PLUGIN_GET_CLASS(o) (G_TYPE_INSTANCE_GET_CLASS ((o), PLUMA_TYPE_CHANGECASE_PLUGIN, PlumaChangecasePluginClass))

-

-/* Private structure type */

-typedef struct _PlumaChangecasePluginPrivate PlumaChangecasePluginPrivate;

-

-/*

- * Main object structure

- */

-typedef struct _PlumaChangecasePlugin PlumaChangecasePlugin;

-

-struct _PlumaChangecasePlugin

-{

- PeasExtensionBase parent_instance;

-

- /*< private >*/

- PlumaChangecasePluginPrivate *priv;

-};

-

-/*

- * Class definition

- */

-typedef struct _PlumaChangecasePluginClass PlumaChangecasePluginClass;

-

-struct _PlumaChangecasePluginClass

-{

- PeasExtensionBaseClass parent_class;

-};

-

-/*

- * Public methods

- */

-GType pluma_changecase_plugin_get_type (void) G_GNUC_CONST;

-

-/* All the plugins must implement this function */

-G_MODULE_EXPORT void peas_register_types (PeasObjectModule *module);

-

-G_END_DECLS

-

-#endif /* __PLUMA_CHANGECASE_PLUGIN_H__ */