2011-12-21 06:28:51 +00:00
/*
* Copyright ( c ) 2011 Tamas Krutki < ktamasw @ gmail . com >
2012-02-18 09:38:23 +00:00
* Copyright ( c ) 2012 Martin Gräßlin < mgraesslin @ kde . org >
2011-12-21 06:28:51 +00:00
*
* 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 .
*
* 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 Street , Fifth Floor , Boston , MA 02110 - 1301 , USA .
*/
# include "module.h"
# include "ui_module.h"
# include <QtCore/QStringList>
# include <KDE/KAboutData>
# include <KDE/KPluginFactory>
# include <KDE/KStandardDirs>
# include <KDE/KMessageBox>
# include <KDE/KFileDialog>
# include <KDE/KMessageWidget>
2012-02-18 09:38:23 +00:00
# include <KDE/KPluginInfo>
# include <KDE/KServiceTypeTrader>
# include <KDE/Plasma/Package>
2011-12-21 06:28:51 +00:00
# include "version.h"
K_PLUGIN_FACTORY_DECLARATION ( KcmKWinScriptsFactory ) ;
Module : : Module ( QWidget * parent , const QVariantList & args ) :
KCModule ( KcmKWinScriptsFactory : : componentData ( ) , parent , args ) ,
2012-02-18 09:38:23 +00:00
ui ( new Ui : : Module ) ,
m_kwinConfig ( KSharedConfig : : openConfig ( " kwinrc " ) )
2011-12-21 06:28:51 +00:00
{
KAboutData * about = new KAboutData ( " kwin-scripts " , 0 ,
ki18n ( " KWin Scripts " ) ,
global_s_versionStringFull ,
ki18n ( " Configure KWin scripts " ) ,
KAboutData : : License_GPL_V2 ) ;
about - > addAuthor ( ki18n ( " Tamás Krutki " ) ) ;
setAboutData ( about ) ;
ui - > setupUi ( this ) ;
2012-02-18 09:38:23 +00:00
connect ( ui - > scriptSelector , SIGNAL ( changed ( bool ) ) , this , SLOT ( changed ( ) ) ) ;
2011-12-21 06:28:51 +00:00
connect ( ui - > importScriptButton , SIGNAL ( clicked ( ) ) , SLOT ( importScript ( ) ) ) ;
// We have no help and defaults and apply buttons.
setButtons ( buttons ( ) ^ KCModule : : Help ^ KCModule : : Default ^ KCModule : : Apply ) ;
updateListViewContents ( ) ;
}
Module : : ~ Module ( )
{
delete ui ;
}
2012-02-18 09:38:23 +00:00
void Module : : importScript ( )
2011-12-21 06:28:51 +00:00
{
2012-02-18 09:38:23 +00:00
QString path = KFileDialog : : getOpenFileName ( KUrl ( ) , " *.kwinscript|KWin scripts (*.kwinscript) " ) ;
if ( path . isNull ( ) ) {
return ;
2011-12-21 06:28:51 +00:00
}
2012-02-18 09:38:23 +00:00
if ( ! Plasma : : Package : : installPackage ( path , componentData ( ) . dirs ( ) - > saveLocation ( " data " , " kwin/scripts/ " ) , " kwin-script- " ) ) {
KMessageWidget * msgWidget = new KMessageWidget ;
msgWidget - > setText ( ki18n ( " Cannot import selected script: maybe a script already exists with the same name or there is a permission problem. " ) . toString ( ) ) ;
msgWidget - > setMessageType ( KMessageWidget : : Error ) ;
ui - > verticalLayout2 - > insertWidget ( 0 , msgWidget ) ;
msgWidget - > animatedShow ( ) ;
}
// TODO: reload list after successful import
2011-12-21 06:28:51 +00:00
}
2012-02-18 09:38:23 +00:00
void Module : : updateListViewContents ( )
2011-12-21 06:28:51 +00:00
{
2012-03-01 09:41:17 +00:00
KService : : List offers = KServiceTypeTrader : : self ( ) - > query ( " KWin/Script " , " not (exist [X-KWin-Exclude-Listing]) or [X-KWin-Exclude-Listing] == false " ) ;
2012-02-18 09:38:23 +00:00
QList < KPluginInfo > scriptinfos = KPluginInfo : : fromServices ( offers ) ;
ui - > scriptSelector - > addPlugins ( scriptinfos , KPluginSelector : : ReadConfigFile , QString ( ) , QString ( ) , m_kwinConfig ) ;
2011-12-21 06:28:51 +00:00
}
2012-02-18 09:38:23 +00:00
void Module : : defaults ( )
2011-12-21 06:28:51 +00:00
{
2012-02-18 09:38:23 +00:00
ui - > scriptSelector - > defaults ( ) ;
2011-12-21 06:28:51 +00:00
}
2012-02-18 09:38:23 +00:00
void Module : : load ( )
2011-12-21 06:28:51 +00:00
{
2012-02-18 09:38:23 +00:00
updateListViewContents ( ) ;
ui - > scriptSelector - > load ( ) ;
emit changed ( false ) ;
2011-12-21 06:28:51 +00:00
}
2012-02-18 09:38:23 +00:00
void Module : : save ( )
2011-12-21 06:28:51 +00:00
{
2012-02-18 09:38:23 +00:00
ui - > scriptSelector - > save ( ) ;
// TODO: reload scripts in KWin
2011-12-21 06:28:51 +00:00
2012-02-18 09:38:23 +00:00
emit changed ( false ) ;
2011-12-21 06:28:51 +00:00
}