irecorder 0.0.4-linux

data/lib/logwin.rb

@@ -0,0 +1,119 @@
+#
+#  Log Window
+#
+class LogWindow < Qt::Widget
+
+    def initialize()
+        super
+
+        # create widgets
+        @textWidget = KDE::TextEdit.new
+        @textWidget.setReadOnly(true)
+        clearBtn = KDE::PushButton.new( KDE::Icon.new('edit-clear'), i18n("C&lear") )
+        connect(clearBtn, SIGNAL(:clicked)) do
+            @textWidget.clear
+        end
+
+        # layout
+        layout = Qt::VBoxLayout.new
+        layout.addWidget(@textWidget)
+        layout.addWidgetAtLeft(clearBtn)
+        setLayout(layout)
+    end
+
+    public
+    def write(text)
+        puts text
+        @textWidget.append(text)
+    end
+
+end
+
+class MyLogger
+    MISC = 0
+    CODE = 1
+    DEBUG = 2
+    INFO = 3
+    WARN = 4
+    ERROR = 5
+    FATAL = 6
+    UNKNOWN = 7
+
+    attr_accessor   :level
+
+    def initialize(logDevice)
+        @logdev = logDevice
+        @level = 0
+    end
+
+    public
+    def misc(msg = nil, &block)
+        add(MISC, msg, &block)
+    end
+
+    def code(msg = nil, &block)
+        add(CODE, msg, &block)
+    end
+
+    def debug(msg = nil, &block)
+        add(DEBUG, msg, &block)
+    end
+
+    def info(msg = nil, &block)
+        add(INFO, msg, &block)
+    end
+
+    def warn(msg = nil, &block)
+        add(WARN, msg, &block)
+    end
+
+    def error(msg = nil, &block)
+        add(ERROR, msg, &block)
+    end
+
+    def fatal(msg = nil, &block)
+        add(FATAL, msg, &block)
+    end
+
+
+    protected
+    def add(lvl, msg, &block)
+        return if lvl < @level
+        if msg.nil? then
+            if block_given? then
+                msg = yield
+                return if msg.nil?
+            else
+                return
+            end
+        end
+
+        msgs = formatMessages(lvl, msg)
+        msgs.each do |m|
+            @logdev.write(m.chomp)
+        end
+    end
+    alias   log add
+
+
+    def formatMessages(lvl, msg)
+        a = msg2a(msg)
+        a.map do |m|
+            "%-5s:%s" % [%w(MISC CODE DEBUG INFO WARN ERROR FATAL ANY)[lvl], m]
+        end
+    end
+
+    def msg2a(msg)
+        case msg
+        when ::String
+            [ msg ]
+        when ::Array
+            msg
+        when ::Exception
+            [ msg.class.to_s + ': ' + msg.message ] + [ msg ] +
+                (msg.backtrace || []).map do |m| '  from ' + m end
+        else
+            [ msg.inspect ]
+        end
+    end
+end

data/lib/mylibs.rb

@@ -0,0 +1,279 @@
+#
+#  My library
+#
+#   Qt & other miscs
+
+require 'singleton'
+require 'korundum4'
+
+#
+class Qt::HBoxLayout
+    def addWidgets(*w)
+        w.each do |i|
+            if i then
+                e = i.kind_of?(String) ? Qt::Label.new(i) : i
+                addWidget(e)
+            else
+                addStretch
+            end
+        end
+    end
+end
+
+class Qt::VBoxLayout
+    def addWidgetWithNilStretch(*w)
+        addLayout(
+            Qt::HBoxLayout.new do |l|
+                l.addWidgets(*w)
+            end
+        )
+    end
+    alias :addWidgets :addWidgetWithNilStretch
+
+    def addWidgetAtCenter(*w)
+        w.unshift(nil)
+        addWidgetWithNilStretch(*w)
+    end
+
+    def addWidgetAtRight(*w)
+        w.unshift(nil)
+        addWidgetWithNilStretch(*w)
+    end
+
+    def addWidgetAtLeft(*w)
+        w.push(nil)
+        addWidgetWithNilStretch(*w)
+    end
+end
+
+
+#
+class VBoxLayoutWidget < Qt::Widget
+    def initialize(parent=nil)
+        @layout = Qt::VBoxLayout.new
+        super(parent)
+        setLayout(@layout)
+    end
+
+    def addLayout(l)
+        @layout.addLayout(l)
+    end
+
+    def addWidget(w)
+        @layout.addWidget(w)
+    end
+
+    def addWidgetWithNilStretch(*w)
+        @layout.addWidgetWithNilStretch(*w)
+    end
+    alias :addWidgets :addWidgetWithNilStretch
+
+    def addWidgetAtRight(*w)
+        @layout.addWidgetAtRight(*w)
+    end
+
+    def addWidgetAtCenter(*w)
+        @layout.addWidgetAtCenter(*w)
+    end
+
+    def layout
+        @layout
+    end
+end
+
+class HBoxLayoutWidget < Qt::Widget
+    def initialize(parent=nil)
+        @layout = Qt::HBoxLayout.new
+        super(parent)
+        setLayout(@layout)
+    end
+
+    def addLayout(l)
+        @layout.addLayout(l)
+    end
+
+    def addWidget(w)
+        @layout.addWidget(w)
+    end
+
+    def addWidgets(*w)
+        @layout.addWidgets(*w)
+    end
+
+    def layout
+        @layout
+    end
+end
+
+#--------------------------------------------------------------------------
+#
+#
+class SettingsBase < KDE::ConfigSkeleton
+    include Singleton
+
+    public
+    # @sym : instance symbol to be added.
+    def addBoolItem(sym, default=true)
+        name = sym.to_s
+        defineItem(sym, 'value', ItemBool, default)
+    end
+
+    def addStringItem(sym, default="")
+        defineItem(sym, 'toString', ItemString, default)
+    end
+
+    def addUrlItem(sym, default=KDE::Url.new)
+        if default.kind_of? String then
+            default = KDE::Url.new(default)
+        end
+        defineItem(sym, 'value', ItemUrl, default)
+    end
+
+    def addStringListItem(sym, default="")
+        defineItem(sym, 'value', ItemStringList, default)
+    end
+
+    def addChoiceItem(name, list, default=0)
+        choices = makeChoices(list)
+        defineItemProperty(name, 'value')
+        item = ItemEnum.new(currentGroup, name.to_s, default, choices, default)
+        addItem(item)
+    end
+
+    def [](name)
+        findItem(name)
+    end
+
+    protected
+    def makeChoices(list)
+        choices = []
+        list.each do |i|
+            c = ItemEnum::Choice.new
+            c.name = i
+            choices << c
+        end
+        choices
+    end
+
+    def defineItem(name, valueMethod, itemClass, default)
+        defineItemProperty(name, valueMethod)
+        item = itemClass.new(currentGroup, name.to_s, default, default)
+        addItem(item)
+    end
+
+    def defineItemProperty(name, valueMethod)
+        self.class.class_eval %Q{
+            def #{name}
+                findItem('#{name}').property.#{valueMethod}
+            end
+
+            def self.#{name}
+                s = self.instance
+                s.#{name}
+            end
+
+            def set#{name}(v)
+                item = findItem('#{name}')
+                unless item.immutable?
+                    item.property = @#{name} = Qt::Variant.fromValue(v)
+                end
+            end
+
+            def self.set#{name}(v)
+                s = self.instance
+                s.set#{name}(v)
+            end
+
+            def #{name}=(v)
+                set#{name}(v)
+            end
+
+            def self.#{name}=(v)
+                self.set#{name}(v)
+            end
+        }
+    end
+end
+
+
+
+#--------------------------------------------------------------------------
+#
+#
+
+module Enumerable
+    class Proxy
+        instance_methods.each { |m| undef_method(m) unless m.match(/^__/) }
+        def initialize(enum, method=:map)
+            @enum, @method = enum, method
+        end
+        def method_missing(method, *args, &block)
+            @enum.__send__(@method) {|o| o.__send__(method, *args, &block) }
+        end
+    end
+
+    def every
+        Proxy.new(self)
+    end
+end
+
+#
+class Hash
+    alias   old_blaket []
+    def [](key)
+        unless key.kind_of?(Regexp)
+            return old_blaket(key)
+        end
+
+        retk, retv = self.find { |k,v| k =~ key }
+        retv
+    end
+end
+
+class Qt::Action
+    def setVData(data)
+        setData(Qt::Variant.new(data))
+    end
+
+    def vData
+        self.data.toString
+    end
+end
+
+module Mime
+    def self.services(url)
+        mimeType = KDE::MimeType.findByUrl(KDE::Url.new(url))
+        mime = mimeType.name
+        services = KDE::MimeTypeTrader.self.query(mime)
+    end
+end
+
+#
+#
+#
+class String
+    def double_quote
+        '"' + self + '"'
+    end
+    alias   :dquote :double_quote
+
+    def single_quote
+        "'" + self + "'"
+    end
+    alias   :squote :single_quote
+
+    def _chomp_null
+        gsub(/\0.*/, '')
+    end
+
+    def sql_quote
+        str = _chomp_null
+        return 'NULL' if str.empty?
+        "'#{str.sql_escape}'"
+    end
+
+    def sql_escape
+        str = _chomp_null
+        str.gsub(/\\/, '\&\&').gsub(/'/, "''")    #'
+    end
+end

data/lib/settings.rb

@@ -0,0 +1,386 @@
+#
+#    2007 by ruby.twiddler@gmail.com
+#
+require 'kio'
+require "mylibs.rb"
+
+
+#--------------------------------------------------------------------------
+#
+# select from traders, system menu, arbitarary file.
+#
+class KDE::ListWidget
+end
+
+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.
+        addUrlItem(:rawDownloadDir, Qt::Dir::tempPath + '/RadioRaw')
+        addUrlItem(: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 = KDE::UrlRequester.new(KDE::Url.new(KDE::GlobalSettings.downloadPath))
+        @rawFileDirLine.mode = KDE::File::Directory | KDE::File::LocalOnly
+
+        @downloadDirLine = KDE::UrlRequester.new(KDE::Url.new(KDE::GlobalSettings.downloadPath))
+        @downloadDirLine.mode = KDE::File::Directory | KDE::File::LocalOnly
+
+        @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)
+        puts "web player:" + IRecSettings.webPlayerCommand.to_s
+        puts "direct player:" +  IRecSettings.directPlayerCommand.to_s
+
+
+        @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