You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdeaddons/kate/insertcommand/plugin_kateinsertcommand.cpp

418 lines
14 KiB

/***************************************************************************
plugin_kateinsertcommand.cpp - description
-------------------
begin : THU Apr 19 2001
copyright : (C) 2001 by Anders Lund
email : anders@alweb.dk
***************************************************************************/
/***************************************************************************
* *
* 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 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
//BEGIN includes
#include "plugin_kateinsertcommand.h"
#include "plugin_kateinsertcommand.moc"
#include <tqbuttongroup.h>
#include <tqcheckbox.h>
#include <tqdir.h>
#include <tqfile.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <tqradiobutton.h>
#include <tqspinbox.h>
#include <tqstringlist.h>
#include <tqwhatsthis.h>
#include <tqwidget.h>
#include <kaction.h>
#include <kanimwidget.h>
#include <kconfig.h>
#include <kdebug.h>
#include <kfiledialog.h>
#include <kiconloader.h>
#include <klocale.h>
#include <kmessagebox.h>
#include <kprocess.h>
#include <kstandarddirs.h>
#include <kgenericfactory.h>
#include <kapplication.h>
//END includes
K_EXPORT_COMPONENT_FACTORY( kateinsertcommandplugin, KGenericFactory<PluginKateInsertCommand>( "kateinsertcommand" ) )
//BEGIN obligatory stuff
class PluginView : public KXMLGUIClient
{
friend class PluginKateInsertCommand;
public:
Kate::MainWindow *win;
};
//END
//BEGIN PluginKateInsertCommand
PluginKateInsertCommand::PluginKateInsertCommand( TQObject* tqparent, const char* name, const TQStringList& )
: Kate::Plugin ( (Kate::Application *)tqparent, name ),
kv ( 0 ),
sh ( 0 )
{
config = new KConfig("kateinsertcommandpluginrc");
cmdhist = config->readListEntry("Command History");
wdlg = 0;
workingdir = TQDir::currentDirPath();
}
PluginKateInsertCommand::~PluginKateInsertCommand()
{
// write config file
config->writeEntry("Command History", cmdhist);
config->writeEntry("Dialog Settings", dialogSettings);
config->sync();
delete config;
delete sh;
}
void PluginKateInsertCommand::addView(Kate::MainWindow *win)
{
// TODO: doesn't this have to be deleted?
PluginView *view = new PluginView ();
(void) new KAction ( i18n("Insert Command..."), "", 0, this,
TQT_SLOT( slotInsertCommand() ), view->actionCollection(),
"edit_insert_command" );
view->setInstance (new KInstance("kate"));
view->setXMLFile("plugins/kateinsertcommand/ui.rc");
win->guiFactory()->addClient (view);
view->win = win;
m_views.append (view);
}
void PluginKateInsertCommand::removeView(Kate::MainWindow *win)
{
for (uint z=0; z < m_views.count(); z++)
if (m_views.at(z)->win == win)
{
PluginView *view = m_views.at(z);
m_views.remove (view);
win->guiFactory()->removeClient (view);
delete view;
}
}
void PluginKateInsertCommand::slotInsertCommand()
{
if (!kapp->authorize("shell_access")) {
KMessageBox::sorry(0,i18n("You are not allowed to execute arbitrary external applications. If you want to be able to do this, contact your system administrator."),i18n("Access Restrictions"));
return;
}
if ( sh && sh->isRunning() ) {
KMessageBox::sorry (0, i18n("A process is currently being executed."),
i18n("Error"));
return;
}
if (!application()->activeMainWindow() || !application()->activeMainWindow()->viewManager()->activeView())
return;
kv = application()->activeMainWindow()->viewManager()->activeView();
TQString dir = workingdir;
TQString docdir;
KURL docurl = kv->getDoc()->url();
if (docurl.isLocalFile())
docdir = docurl.directory();
TQString lwd( config->readPathEntry("Last WD") );
switch ( (int)config->readNumEntry("Start In", 0) )
{
case 1:
if ( ! docdir.isEmpty() ) dir = docdir;
break;
case 2:
if ( ! lwd.isEmpty() ) dir = lwd;
break;
default:
break;
}
dialogSettings = config->readNumEntry("Dialog Settings", 0);
CmdPrompt *d = new CmdPrompt((TQWidget*)kv, 0, cmdhist, dir,
docdir, dialogSettings);
if ( d->exec() && ! d->command().isEmpty() ) {
if ( ! sh ) {
sh = new KShellProcess;
connect ( sh, TQT_SIGNAL(receivedStdout(KProcess*, char*, int)),
this, TQT_SLOT(slotReceivedStdout(KProcess*, char*, int)) );
connect ( sh, TQT_SIGNAL(receivedStderr(KProcess*, char*, int)),
this, TQT_SLOT(slotReceivedStderr(KProcess*, char*, int)) );
connect ( sh, TQT_SIGNAL(processExited(KProcess*)),
this, TQT_SLOT(slotProcessExited(KProcess*)) ) ;
}
sh->clearArguments();
bInsStdErr = d->insertStdErr();
if ( d->printCmd() ) {
if ( ! d->wd().isEmpty() )
kv->insertText( d->wd() + ": ");
kv->insertText( d->command()+":\n" );
}
if ( ! d->wd().isEmpty() ) {
*sh << "cd" << d->wd() << "&&";
config->writePathEntry("Last WD", d->wd());
}
*sh << TQFile::encodeName(d->command()).data();
sh->start( KProcess::NotifyOnExit, KProcess::All );
// add command to history
if ( cmdhist.contains( d->command() ) ) {
cmdhist.remove( d->command() );
}
cmdhist.prepend( d->command() );
int cmdhistlen = config->readNumEntry("Command History Length", 20);
while ( (int)cmdhist.count() > cmdhistlen )
cmdhist.remove( cmdhist.last() );
// save dialog state
dialogSettings = 0;
if ( d->insertStdErr() )
dialogSettings += 1;
if ( d->printCmd() )
dialogSettings += 2;
cmd = d->command();
delete d;
// If process is still running, display a dialog to cancel...
slotShowWaitDlg();
config->writeEntry("Dialog Settings", dialogSettings);
config->sync();
}
}
void PluginKateInsertCommand::slotAbort()
{
if ( sh->isRunning() )
if (! sh->kill() )
KMessageBox::sorry(0, i18n("Could not kill command."), i18n("Kill Failed"));
}
void PluginKateInsertCommand::slotShowWaitDlg()
{
if ( sh->isRunning() ) {
wdlg = new WaitDlg( (TQWidget*)kv, i18n(
"Executing command:\n%1\n\nPress 'Cancel' to abort.").tqarg(cmd) );
connect(wdlg, TQT_SIGNAL(cancelClicked()), this, TQT_SLOT(slotAbort()) );
}
if ( sh->isRunning() ) // we may have finished while creating the dialog.
wdlg->show();
else if (wdlg) { // process may have exited before the WaitDlg constructor returned.
delete wdlg;
wdlg = 0;
}
}
void PluginKateInsertCommand::slotReceivedStdout( KProcess* /*p*/, char* text,
int len )
{
TQString t = TQString::fromLocal8Bit ( text );
t.truncate(len);
kv->insertText( t );
}
void PluginKateInsertCommand::slotReceivedStderr( KProcess* p, char* text,
int len )
{
if ( bInsStdErr )
slotReceivedStdout( p, text, len );
}
void PluginKateInsertCommand::slotProcessExited( KProcess* p )
{
if (wdlg) {
wdlg->hide();
delete wdlg;
wdlg = 0;
}
if ( ! p->normalExit() )
KMessageBox::sorry(0, i18n("Command exited with status %1").
arg( p->exitStatus()), i18n("Oops!"));
kv->setFocus();
}
//END PluginKateInsertCommand
//BEGIN PluginConfigPage
Kate::PluginConfigPage* PluginKateInsertCommand::configPage (uint,
TQWidget *w, const char */*name*/)
{
InsertCommandConfigPage* p = new InsertCommandConfigPage(this, w);
initConfigPage( p );
connect( p, TQT_SIGNAL(configPageApplyRequest(InsertCommandConfigPage*)),
this, TQT_SLOT(applyConfig(InsertCommandConfigPage*)) );
return (Kate::PluginConfigPage*)p;
}
void PluginKateInsertCommand::initConfigPage( InsertCommandConfigPage *p )
{
p->sb_cmdhistlen->setValue( config->readNumEntry("Command History Length", 20) );
p->rg_startin->setButton( config->readNumEntry("Start In", 0) );
}
void PluginKateInsertCommand::applyConfig( InsertCommandConfigPage *p )
{
config->writeEntry( "Command History Length", p->sb_cmdhistlen->value() );
// truncate the cmd hist if nessecary?
config->writeEntry( "Start In", p->rg_startin->id(p->rg_startin->selected()) );
config->sync();
}
//END PluginConfigPage
//BEGIN CmdPrompt
// This is a simple dialog to retrieve a command and decide if
// stdErr should be included in the text inserted.
CmdPrompt::CmdPrompt(TQWidget* tqparent,
const char* name,
const TQStringList& cmdhist,
const TQString& dir,
const TQString& /*docdir*/,
int settings)
: KDialogBase (tqparent, name, true, i18n("Insert Command"), Ok|Cancel, Ok, true)
{
TQWidget *page = new TQWidget( this );
setMainWidget(page);
TQVBoxLayout *lo = new TQVBoxLayout( page, 0, spacingHint() );
TQLabel *l = new TQLabel( i18n("Enter &command:"), page );
lo->addWidget( l );
cmb_cmd = new KHistoryCombo(true, page);
cmb_cmd->setHistoryItems(cmdhist, true);
cmb_cmd->setCurrentItem(0);
cmb_cmd->lineEdit()->setSelection(0, cmb_cmd->currentText().length());
l->setBuddy(cmb_cmd);
cmb_cmd->setFocus();
lo->addWidget(cmb_cmd);
connect( cmb_cmd->lineEdit(),TQT_SIGNAL(textChanged ( const TQString & )),
this, TQT_SLOT( slotTextChanged(const TQString &)));
TQLabel *lwd = new TQLabel( i18n("Choose &working folder:"), page );
lo->addWidget( lwd );
wdreq = new KURLRequester( page );
if ( ! dir.isEmpty() )
wdreq->setURL( dir );
wdreq->setMode( static_cast<KFile::Mode>(KFile::Directory|KFile::LocalOnly|KFile::ExistingOnly) );
lwd->setBuddy( wdreq );
lo->addWidget( wdreq );
//kdDebug()<<"settings: "<<settings<<endl;
cb_insStdErr = new TQCheckBox( i18n("Insert Std&Err messages"), page );
cb_insStdErr->setChecked(settings & 1);
lo->addWidget( cb_insStdErr );
cb_printCmd = new TQCheckBox( i18n("&Print command name"), page );
cb_printCmd->setChecked(settings & 2);
lo->addWidget( cb_printCmd );
TQWhatsThis::add( cmb_cmd, i18n(
"Enter the shell command, the output of which you want inserted into your "
"document. Feel free to use a pipe or two if you wish.") );
TQWhatsThis::add( wdreq, i18n(
"Sets the working folder of the command. The command executed is 'cd <dir> "
"&& <command>'") );
TQWhatsThis::add( cb_insStdErr, i18n(
"Check this if you want the error output from <command> inserted as well.\n"
"Some commands, such as locate, print everything to STDERR") );
TQWhatsThis::add( cb_printCmd, i18n(
"If you check this, the command string will be printed followed by a "
"newline before the output.") );
slotTextChanged(cmb_cmd->lineEdit()->text());
}
CmdPrompt::~CmdPrompt() {}
void CmdPrompt::slotTextChanged(const TQString &text)
{
enableButtonOK( !text.isEmpty());
}
//END CmdPrompt
//BEGIN WaitDlg implementation
// This is a dialog that is displayed while a command is running,
// with a cancel button to allow the user to kill the command
WaitDlg::WaitDlg(TQWidget* tqparent, const TQString& text, const TQString& title)
: KDialogBase( tqparent, "wait dialog", true, title, Cancel, Cancel, true )
{
TQWidget *page = new TQWidget( this );
setMainWidget( page );
TQHBoxLayout *lo = new TQHBoxLayout( page, 0, spacingHint() );
KAnimWidget *aw = new KAnimWidget( TQString::tqfromLatin1("kde"), 48, page );
lo->addWidget(aw);
TQLabel *l = new TQLabel( text, page );
lo->addWidget( l );
aw->start();
}
WaitDlg::~WaitDlg()
{
}
//END WaitDlg
//BEGIN InsertCommandConfigPage
// This is the config page for this plugin.
InsertCommandConfigPage::InsertCommandConfigPage(TQObject* /*tqparent*/,
TQWidget *parentWidget)
: Kate::PluginConfigPage( parentWidget )
{
TQVBoxLayout* lo = new TQVBoxLayout( this );
lo->setSpacing(KDialogBase::spacingHint());
// command history length
TQHBox *hb1 = new TQHBox( this );
hb1->setSpacing(KDialogBase::spacingHint());
(void) new TQLabel( i18n("Remember"), hb1 );
sb_cmdhistlen = new TQSpinBox( hb1 );
TQLabel *l1 = new TQLabel( sb_cmdhistlen, i18n("Co&mmands"), hb1);
hb1->setStretchFactor(l1, 1);
lo->addWidget( hb1 );
// dir history length
// initial dir choice
rg_startin = new TQButtonGroup( 1, Qt::Horizontal, i18n("Start In"), this );
rg_startin->setRadioButtonExclusive( true );
(void) new TQRadioButton( i18n("Application &working folder"), rg_startin);
(void) new TQRadioButton( i18n("&Document folder"), rg_startin);
(void) new TQRadioButton( i18n("&Latest used working folder"), rg_startin);
lo->addWidget( rg_startin );
// other?
lo->addStretch(1); // look nice
// Be helpfull!
TQWhatsThis::add( sb_cmdhistlen, i18n(
"Sets the number of commands to remember. The command history is saved "
"over sessions.") );
TQWhatsThis::add( rg_startin, i18n(
"<qt><p>Decides what is suggested as <em>working folder</em> for the "
"command.</p><p><strong>Application Working Folder (default):</strong> "
"The folder from which you launched the application hosting the plugin, "
"usually your home folder.</p><p><strong>Document Folder:</strong> The "
"folder of the document. Used only for local documents.</p><p><strong>"
"Latest Working Folder:</strong> The folder used last time you used this "
"plugin.</p></qt>") );
}
void InsertCommandConfigPage::apply()
{
emit configPageApplyRequest( this );
}
//END InsertCommandConfigPage
// kate: space-indent on; indent-width 2; replace-tabs on;