irecorder 0.0.7

data/lib/programmewin.rb

@@ -0,0 +1,185 @@
+
+#---------------------------------------------------------------------------------------------
+#
+#
+class ProgrammeTableWidget < Qt::TableWidget
+    #
+    #
+    class Programme
+        attr_reader :titleItem, :categoriesItem, :updatedItem
+        attr_reader :content, :link
+
+        def initialize(title, categories, updated, content, link)
+            @titleItem = Item.new(title)
+            @categoriesItem = Item.new(categories)
+            @updatedItem = Item.new(updated)
+            @content = content
+            @link = link
+        end
+
+        def title
+            @titleItem.text
+        end
+
+        def categories
+            @categoriesItem.text
+        end
+
+        def updated
+            @updatedItem.text
+        end
+    end
+
+    #
+    #
+    class Item < Qt::TableWidgetItem
+        def initialize(text)
+            super(text)
+            self.flags = Qt::ItemIsSelectable | Qt::ItemIsEnabled
+            self.toolTip = text
+        end
+    end
+
+
+    #------------------------------------------------------------------------
+    #
+    #
+
+    def initialize()
+        super(0, 3)
+
+        setHorizontalHeaderLabels(['Title', 'Category', 'Updated'])
+        self.horizontalHeader.stretchLastSection = true
+        self.selectionBehavior = Qt::AbstractItemView::SelectRows
+        self.alternatingRowColors = true
+        self.sortingEnabled = true
+        sortByColumn(2, Qt::DescendingOrder )
+
+
+        # Hash table : key column_0_item  => Programme entry.
+        @table = Hash.new
+    end
+
+    def addEntry( row, title, categories, updated, content, link )
+        entry = Programme.new(title, categories, updated, content, link)
+        setItem( row, 0, entry.titleItem )
+        setItem( row, 1, entry.categoriesItem )
+        setItem( row, 2, entry.updatedItem )
+        @table[entry.titleItem] = entry
+    end
+
+    # return Programme object.
+    def [](row)
+        @table[item(row,0)]
+    end
+
+
+    #
+    # slot : called when filterLineEdit text is changed.
+    #
+    public
+    slots   'filterChanged(const QString &)'
+    def filterChanged(text)
+        return unless text
+
+        regxs = text.split(/[,\s]+/).map do |w|
+                    /#{Regexp.escape(w.strip)}/i
+        end
+        rowCount.times do |r|
+            i0 = item(r,0)
+            i1 = item(r,1)
+            i2 = item(r,2)
+            txt = ((i0 && i0.text) || '') + ((i1 && i1.text) || '') + ((i2 && i2.text) || '')
+            if regxs.all? do |rx| rx =~ txt end then
+                showRow(r)
+            else
+                hideRow(r)
+            end
+        end
+    end
+
+    GroupName = "ProgrammeTable"
+    def writeSettings
+        config = $config.group(GroupName)
+        config.writeEntry('Header', horizontalHeader.saveState)
+    end
+
+    def readSettings
+        config = $config.group(GroupName)
+        horizontalHeader.restoreState(config.readEntry('Header', horizontalHeader.saveState))
+    end
+
+    protected
+    def contextMenuEvent(e)
+        prog = self[itemAt(e.pos).row]
+        menu = createPopup
+        action = menu.exec(e.globalPos)
+        action and execPopup(action, prog)
+        menu.deleteLater
+    end
+
+    def createPopup()
+        menu = Qt::Menu.new
+        a = menu.addAction(KDE::Icon.new('search'), i18n('Search Same Programme'))
+        a.setVData('searchSame@')
+        a = menu.addAction(KDE::Icon.new('search'), i18n('Search Same Category tags'))
+        a.setVData('searchSameTags@')
+        menu.addSeparator
+        insertPlayerActions(menu)
+        menu
+    end
+
+    def execPopup(action, item)
+        $log.code { "execute : '#{action.vData}'" }
+        cmd, exe = action.vData.split(/@/, 2)
+        $log.code { "cmd(#{cmd}), exe(#{exe})" }
+        if cmd == 'play'
+            playMedia(exe, item)
+        elsif self.respond_to?(cmd)
+            self.method(cmd).call(item)
+        else
+            $log.warn { "No method #{cmd} in contextmenu." }
+        end
+    end
+
+    def insertPlayerActions(menu)
+        Mime::services('.wma').each do |s|
+            exeName = s.exec[/\w+/]
+            a = menu.addAction(KDE::Icon.new(exeName), 'Play with ' + exeName)
+            a.setVData('play@' + s.exec)
+        end
+    end
+
+    def playMedia(exe, prog)
+        begin
+            url = prog.content[UrlRegexp]       # String[] method extract only 1st one.
+
+            $log.info { "episode Url : #{url}" }
+            minfo = BBCNet::MetaInfo.get(url).update
+            url = minfo.wma.url
+
+            cmd, args = exe.split(/\s+/, 2)
+            args = args.split(/\s+/).map do |a|
+                a.gsub(/%\w/, url)
+            end
+            $log.debug { "execute cmd '#{cmd}', args '#{args.inspect}'" }
+            proc = Qt::Process.new(self)
+            proc.start(cmd, args)
+
+        rescue => e
+            $log.error { e }
+            KDE::MessageBox::information(self, i18n("There is not direct stream for this programme."))
+        end
+    end
+
+    signals  'filterRequest(const QString &)'
+    def searchSame(prog)
+        emit filterRequest( prog.title.sub(/:.*/, '') )
+    end
+
+    def searchSameTags(prog)
+        emit filterRequest( prog.categories )
+    end
+end
+
+

data/lib/settings.rb

@@ -0,0 +1,376 @@
+#
+#    2007 by ruby.twiddler@gmail.com
+#
+require "mylibs.rb"
+
+
+#--------------------------------------------------------------------------
+#
+# select from traders, system menu, arbitarary file.
+#
+class SelectServiceDlg < KDE::Dialog
+    def initialize(parent, defaultName=nil)
+        super(parent)
+        @message = i18n('Select Application')
+        userInitialize
+        self.windowTitle = @message
+        @selectedName = @services[0].name
+        createWidget
+        setSelected(defaultName)
+    end
+
+    def userInitialize
+        @message = i18n('Select Application for .html file.')
+        @services = Mime.services('.html')
+    end
+
+    def name
+        @selectedName
+    end
+
+    def iconName
+        SelectServiceDlg.exeName2IconName(serviceFromName(name).exec)
+    end
+
+    def accept
+        @selectedName = @serviceList.selectedItems.first.text
+        super
+    end
+
+    def commandFromName(name)
+        i = serviceFromName(name)
+        i && i.exec
+    end
+
+    def serviceFromName(name)
+        name.gsub!(/&/, '')
+        return nil if @services.size == 0
+        service = @services.find(@services[0]) do |s| s.name == name end
+    end
+
+    def setSelected(name)
+        return unless name
+        name.gsub!(/&/, '')
+        return if @services.size == 0
+        unless name then
+            @serviceList.takeItem(0).setSelected(true)
+        else
+            items = @serviceList.findItems(name, Qt::MatchExactly)
+            if items.size > 0 then
+                items[0].setSelected(true)
+            end
+        end
+    end
+
+    def self.exeName2IconName(exeName)
+        iconName = exeName.gsub(%r{[^ ]*/}, '')[/([-_\w\d])+/] .
+            gsub(/(dragon)/, '\1player').gsub(/kfmclient/, 'konqueror')
+    end
+
+    protected
+    def createWidget
+        mainWidget = VBoxLayoutWidget.new
+        mainWidget.addWidget(Qt::Label.new(@message))
+        @serviceList = KDE::ListWidget.new
+        @services.each do |s|
+            iconName = SelectServiceDlg.exeName2IconName(s.exec)
+            @serviceList.addItem( Qt::ListWidgetItem.new(KDE::Icon.new(iconName), s.name) )
+        end
+        @selectFromMenu = KDE::PushButton.new(i18n('Select Other from Menu'))
+        mainWidget.addWidget(@serviceList)
+#         mainWidget.addWidget(@selectFromMenu)
+
+        setMainWidget(mainWidget)
+    end
+end
+
+
+class SelectWebPlayerDlg < SelectServiceDlg
+    def userInitialize
+        @message = i18n('Select Web Player for iPlayer page.')
+        @services = Mime.services('.html').select do |s|
+            s.name !~ /office/i and
+            s.serviceTypes.find do |st|
+                st =~ /application\//
+            end
+        end
+    end
+end
+
+class SelectDirectPlayerDlg < SelectServiceDlg
+    def userInitialize
+        @message = i18n('Select Direct Stream Player.')
+        @services = Mime.services('.wma')
+    end
+end
+
+
+
+
+#--------------------------------------------------------------------------
+#
+# IRecorder Settings
+#
+class IRecSettings < SettingsBase
+    def initialize
+        super()
+
+        setCurrentGroup("Preferences")
+
+        # meta programed version.
+        addStringItem(:rawDownloadDir, Qt::Dir::tempPath + '/RadioRaw')
+        addStringItem(:downloadDir, KDE::GlobalSettings.musicPath)
+        addBoolItem(:dirAddMediaName, true)
+        addBoolItem(:dirAddChannelName, false)
+        addBoolItem(:dirAddGenreName, true)
+        addStringItem(:fileAddHeadStr, 'BBC ')
+        addBoolItem(:fileAddMediaName, true)
+        addBoolItem(:fileAddChannelName, false)
+        addBoolItem(:fileAddGenreName, true)
+        addBoolItem(:leaveRawFile, false)
+
+        addBoolItem(:playerTypeSmall, false)
+        addBoolItem(:playerTypeBeta, true)
+
+        addBoolItem(:useInnerPlayer, true)
+        addBoolItem(:useWebPlayer, false)
+        addStringItem(:webPlayerName, 'Konqueror')
+        addBoolItem(:useDirectPlayer, false)
+        addStringItem(:directPlayerName, 'KMPlayer')
+    end
+
+    def webPlayerCommand
+        @webPlayerCnv.commandFromName(self.webPlayerName)
+    end
+
+    def self.webPlayerCommand
+        self.instance.webPlayerCommand
+    end
+
+    def directPlayerCommand
+        @directPlayerCnv.commandFromName(self.directPlayerName)
+    end
+
+    def self.directPlayerCommand
+        self.instance.directPlayerCommand
+    end
+
+    def regConverter(webPlayerCnv, directPlayerCnv)
+        @webPlayerCnv = webPlayerCnv
+        @directPlayerCnv = directPlayerCnv
+    end
+end
+
+
+#--------------------------------------------------------------------------
+#
+#
+class SettingsDlg < KDE::ConfigDialog
+    def initialize(parent)
+        super(parent, "Settings", IRecSettings.instance)
+        addPage(FolderSettingsPage.new, i18n("Folder"), 'folder', i18n('Folder and File Name'))
+        addPage(PlayerSettingsPage.new, i18n("Player"), 'internet-web-browser', i18n('Player and web Browser'))
+    end
+end
+
+
+#--------------------------------------------------------------------------
+#
+#
+class FolderSettingsPage < Qt::Widget
+    def initialize(parent=nil)
+        super(parent)
+        createWidget
+    end
+
+    protected
+
+    def createWidget
+        @rawFileDirLine = FolderSelectorLineEdit.new(KDE::GlobalSettings.downloadPath)
+        @downloadDirLine = FolderSelectorLineEdit.new(KDE::GlobalSettings.downloadPath)
+
+        @dirSampleLabel = Qt::Label.new('Example) ')
+        @dirAddMediaName = Qt::CheckBox.new(i18n('Add media directory'))
+        @dirAddChannelName = Qt::CheckBox.new(i18n('Add channel directory'))
+        @dirAddGenreName = Qt::CheckBox.new(i18n('Add genre directory'))
+        [ @dirAddMediaName, @dirAddChannelName, @dirAddGenreName ].each do |w|
+            w.connect(SIGNAL('stateChanged(int)')) do |s| updateSampleDirName end
+        end
+
+        @fileSampleLabel = Qt::Label.new('Example) ')
+        @fileAddHeadStr = KDE::LineEdit.new do |w|
+            w.connect(SIGNAL('textChanged(const QString&)')) do |t| updateSampleFileName end
+        end
+        @fileAddMediaName = Qt::CheckBox.new(i18n('Add media name'))
+        @fileAddChannelName = Qt::CheckBox.new(i18n('Add channel name'))
+        @fileAddGenreName = Qt::CheckBox.new(i18n('Add genre name'))
+
+        [ @fileAddMediaName, @fileAddChannelName, @fileAddGenreName ].each do |w|
+            w.connect(SIGNAL('stateChanged(int)')) do |s| updateSampleFileName end
+        end
+        @leaveRawFile = Qt::CheckBox.new(i18n('Leave raw file.(don\'t delete it)'))
+
+        # set objectNames
+        #  'kcfg_' + class Settings's instance name.
+        @rawFileDirLine.objectName = 'kcfg_rawDownloadDir'
+        @downloadDirLine.objectName = 'kcfg_downloadDir'
+        @dirAddMediaName.objectName = 'kcfg_dirAddMediaName'
+        @dirAddChannelName.objectName = 'kcfg_dirAddChannelName'
+        @dirAddGenreName.objectName = 'kcfg_dirAddGenreName'
+        @fileAddHeadStr.objectName = 'kcfg_fileAddHeadStr'
+        @fileAddMediaName.objectName = 'kcfg_fileAddMediaName'
+        @fileAddChannelName.objectName = 'kcfg_fileAddChannelName'
+        @fileAddGenreName.objectName = 'kcfg_fileAddGenreName'
+        @leaveRawFile.objectName = 'kcfg_leaveRawFile'
+
+
+        # layout
+        lo = Qt::VBoxLayout.new do |l|
+            l.addWidget(Qt::Label.new(i18n('Download Directory')))
+            l.addWidgets('  ', @downloadDirLine)
+            l.addWidget(Qt::Label.new(i18n('Temporary Raw File Download Directory')))
+            l.addWidgets('  ', @rawFileDirLine)
+            l.addWidget(Qt::GroupBox.new(i18n('Generating directory')) do |g|
+                            vbx = Qt::VBoxLayout.new do |vb|
+                                vb.addWidget(@dirSampleLabel)
+                                vb.addWidget(@dirAddMediaName)
+#                                 vb.addWidget(@dirAddChannelName)
+                                vb.addWidget(@dirAddGenreName)
+                            end
+                            g.setLayout(vbx)
+                        end
+                        )
+            l.addWidget(Qt::GroupBox.new(i18n('Generating file name')) do |g|
+                            vbx = Qt::VBoxLayout.new do |vb|
+                                vb.addWidget(@fileSampleLabel)
+                                vb.addWidgets(i18n('Head Text'), @fileAddHeadStr)
+                                vb.addWidget(@fileAddMediaName)
+#                                 vb.addWidget(@fileAddChannelName)
+                                vb.addWidget(@fileAddGenreName)
+                            end
+                            g.setLayout(vbx)
+                        end
+                        )
+            l.addWidget(@leaveRawFile)
+            l.addStretch
+        end
+
+        setLayout(lo)
+    end
+
+    def updateSampleFileName
+        @fileSampleLabel.text = 'Example) ' + getSampleFileName
+    end
+
+    def checkState(checkBox)
+        checkBox.checkState== Qt::Checked
+    end
+
+    def getSampleFileName
+        head = @fileAddHeadStr.text
+        head += 'Radio ' if checkState(@fileAddMediaName)
+        head += 'Radio 7 ' if checkState(@fileAddChannelName)
+        head += 'Drama '  if checkState(@fileAddGenreName)
+        head += "- " unless head.empty?
+        baseName = head  + 'Space Hacks Lost in Space Ship.mp3'
+        baseName.gsub(%r{[\/]}, '-')
+    end
+
+
+    def updateSampleDirName
+        @dirSampleLabel.text = 'Example) ... /' + getSampleDirName
+    end
+
+    def getSampleDirName
+        dir = []
+        dir << 'Radio' if checkState(@dirAddMediaName)
+        dir << 'Radio 7' if checkState(@dirAddChannelName)
+        dir << 'Drama' if checkState(@dirAddGenreName)
+        File.join(dir.compact)
+    end
+
+end
+
+#--------------------------------------------------------------------------
+#
+#
+class PlayerSettingsPage < Qt::Widget
+    def initialize(parent=nil)
+        super(parent)
+        createWidget
+    end
+
+    protected
+
+    def createWidget
+        @SelectWebPlayerDlg = SelectWebPlayerDlg.new(self, IRecSettings.webPlayerName)
+        @SelectDirectPlayerDlg = SelectDirectPlayerDlg.new(self, IRecSettings.directPlayerName)
+        IRecSettings.instance.regConverter(@SelectWebPlayerDlg, @SelectDirectPlayerDlg)
+
+        @playerTypeSmall = Qt::RadioButton.new(i18n('small iplayer'))
+        @playerTypeBeta = Qt::RadioButton.new(i18n('beta iplayer'))
+
+        @innerPlayer = Qt::RadioButton.new(i18n('inner Player'))
+        @webPlayer = Qt::RadioButton.new(i18n('Web Player'))
+        @directPlayer = Qt::RadioButton.new(i18n('Direnct Stream Player'))
+
+        @webPlayerName = KDE::PushButton.new('Konqueror')
+        @webPlayerName.connect(SIGNAL(:pressed)) do
+            @SelectWebPlayerDlg.setSelected(@webPlayerName.text)
+            if @SelectWebPlayerDlg.exec == Qt::Dialog::Accepted then
+                @webPlayerName.text = @SelectWebPlayerDlg.name
+#                 @webPlayerName.setIcon(KDE::Icon.new(@SelectWebPlayerDlg.iconName))
+                @webPlayer.checked = true
+            end
+        end
+        @webPlayerName.setProperty("kcfg_property", Qt::Variant.new("text"))
+
+        @directPlayerName = KDE::PushButton.new('KMPlayer')
+        @directPlayerName.connect(SIGNAL(:pressed)) do
+            @SelectDirectPlayerDlg.setSelected(@directPlayerName.text)
+            if @SelectDirectPlayerDlg.exec == Qt::Dialog::Accepted then
+                @directPlayerName.text = @SelectDirectPlayerDlg.name
+#                 @directPlayerName.setIcon(KDE::Icon.new(@SelectDirectPlayerDlg.iconName))
+                @directPlayer.checked = true
+            end
+        end
+        @directPlayerName.setProperty("kcfg_property", Qt::Variant.new("text"))
+
+        # set objectNames
+        #  'kcfg_' + class Settings's instance name.
+        @playerTypeSmall.objectName = 'kcfg_playerTypeSmall'
+        @playerTypeBeta.objectName = 'kcfg_playerTypeBeta'
+        @innerPlayer.objectName = 'kcfg_useInnerPlayer'
+        @webPlayer.objectName = 'kcfg_useWebPlayer'
+        @directPlayer.objectName = 'kcfg_useDirectPlayer'
+        @webPlayerName.objectName = 'kcfg_webPlayerName'
+        @directPlayerName.objectName = 'kcfg_directPlayerName'
+
+
+        # layout
+        lo = Qt::VBoxLayout.new do |l|
+            l.addWidget(Qt::GroupBox.new(i18n('iPlayer Type')) do |g|
+                            vbx = Qt::VBoxLayout.new do |vb|
+                                vb.addWidget(@playerTypeSmall)
+                                vb.addWidget(@playerTypeBeta)
+                            end
+                            g.setLayout(vbx)
+                        end
+                        )
+            l.addWidget(Qt::GroupBox.new(i18n('Player')) do |g|
+                            vbx = Qt::VBoxLayout.new do |vb|
+                                vb.addWidget(@innerPlayer)
+                                vb.addWidget(@webPlayer)
+                                vb.addWidgets('  ', @webPlayerName, nil)
+                                vb.addWidget(@directPlayer)
+                                vb.addWidgets('  ', @directPlayerName, nil)
+                            end
+                            g.setLayout(vbx)
+                       end
+                       )
+            l.addStretch
+        end
+
+        setLayout(lo)
+    end
+end