kgem 0.1.0

data/bin/kgem.rb

@@ -0,0 +1,327 @@
+#!/usr/bin/ruby
+#
+#    2010 by ruby.twiddler@gmail.com
+#
+#      Ruby Gem with KDE GUI
+#
+
+$KCODE = 'UTF8'
+require 'ftools'
+
+APP_FILE = File.symlink?(__FILE__) ? File.readlink(__FILE__) : __FILE__
+APP_NAME = File.basename(APP_FILE).sub(/\.rb/, '')
+APP_DIR = File::dirname(File.expand_path(File.dirname(APP_FILE)))
+LIB_DIR = File::join(APP_DIR, "lib")
+APP_VERSION = "0.1.0"
+
+
+# standard libs
+require 'fileutils'
+require 'rubygems'
+require 'rubygems/specification'
+require 'json'
+require 'uri'
+require 'net/http'
+require 'shellwords'
+
+# additional libs
+require 'korundum4'
+require 'ktexteditor'
+
+#
+# my libraries and programs
+#
+$:.unshift(LIB_DIR)
+require "mylibs"
+require "settings"
+require "gemitem"
+require "installedwin"
+require "searchwin"
+require "downloadedwin"
+require "previewwin"
+require "gemcmddlgs"
+require "gemviews"
+require "gemhelpdlg"
+
+#--------------------------------------------------------------------
+#--------------------------------------------------------------------
+#
+#
+#
+class MainWindow < KDE::MainWindow
+    def initialize
+        super(nil)
+        setCaption(APP_NAME)
+
+        @actions = KDE::ActionCollection.new(self)
+        createWidgets
+        createMenu
+        createDlg
+        @actions.readSettings
+        setAutoSaveSettings
+    end
+
+
+    def createMenu
+        # file menu
+        quitAction = @actions.addNew('Quit', self, \
+            { :icon => 'exit', :shortCut => 'Ctrl+Q', :triggered => :close })
+        fileMenu = KDE::Menu.new(i18n('&File'), self)
+        fileMenu.addAction(quitAction)
+
+        # tool menu
+        updateSystemAction = @actions.addNew('Update Gem System', self, \
+            { :icon => 'checkbox', :shortCut => 'F4', \
+              :triggered => [@gemViewer, :updateSystem ] })
+        checkStaleAction = @actions.addNew('Check Stale', self, \
+            { :icon => 'checkbox', :shortCut => 'F7', \
+              :triggered => [@gemViewer, :checkStale] })
+        checkAlienAction = @actions.addNew('Check Alien', self, \
+            { :icon => 'checkbox', :shortCut => 'F8', \
+              :triggered => [@gemViewer, :checkAlien] })
+        cleanUpAction = @actions.addNew('Clean Up', self, \
+            { :icon => 'edit-clear', :shortCut => 'F9', \
+              :triggered => [@gemViewer, :cleanUp] })
+        updateAllAction = @actions.addNew('Update All', self, \
+            { :icon => 'checkbox', :shortCut => 'F10', \
+              :triggered => [@gemViewer, :updateAll] })
+        pristineAllAction = @actions.addNew('Pristine All', self, \
+            { :icon => 'checkbox', :shortCut => 'F11', \
+              :triggered => [@gemViewer, :pristineAll] })
+
+        toolsMenu = KDE::Menu.new(i18n('&Tools'), self)
+        toolsMenu.addAction(updateSystemAction)
+        toolsMenu.addSeparator
+        toolsMenu.addAction(checkStaleAction)
+        toolsMenu.addAction(checkAlienAction)
+        toolsMenu.addSeparator
+        toolsMenu.addAction(cleanUpAction)
+        toolsMenu.addAction(updateAllAction)
+        toolsMenu.addAction(pristineAllAction)
+
+
+        # settings menu
+        configureShortCutAction = @actions.addNew(i18n('Configure Shortcuts'), self, \
+            { :icon => 'configure-shortcuts', :shortCut => 'F3', :triggered => :configureShortCut })
+        configureAppAction = @actions.addNew(i18n('Configure Kgem'), self, \
+            { :icon => 'configure', :shortCut => 'F2', :triggered => :configureApp })
+        detailWinAction = @detailWin.toggleViewAction
+        fileListWinAction = @fileListWin.toggleViewAction
+        termilanWinAction = @terminalWin.toggleViewAction
+
+        settingsMenu = KDE::Menu.new(i18n('&Settings'), self)
+        settingsMenu.addAction(detailWinAction)
+        settingsMenu.addAction(fileListWinAction)
+        settingsMenu.addAction(termilanWinAction)
+        settingsMenu.addSeparator
+        settingsMenu.addAction(configureShortCutAction)
+        settingsMenu.addAction(configureAppAction)
+
+
+        # Help menu
+        aboutDlg = KDE::AboutApplicationDialog.new($about)
+        gemHelpAction = @actions.addNew(i18n('Gem Command Line Help'), self, \
+            { :icon => 'help-about', :shortCut => 'F1', :triggered => :gemCommandHelp })
+        openAboutAction = @actions.addNew(i18n('About kgem'), self, \
+            { :icon => 'help-about', :triggered => [ aboutDlg, :exec ] })
+        openDocUrlAction = @actions.addNew(i18n('Open Document Wiki'), self, \
+            { :icon => 'help-contents', :triggered => :openDocUrl })
+        openReportIssueUrlAction = @actions.addNew(i18n('Report Bug'), self, \
+            { :icon => 'tools-report-bug', :triggered => :openReportIssueUrl })
+        openSourceAction = @actions.addNew(i18n('Open Source Folder'), self, \
+            { :icon => 'document-open-folder', :triggered => :openSource })
+        openRdocAction = @actions.addNew(i18n('Open Rdoc'), self, \
+            { :icon => 'help-contents', :triggered => :openRdoc })
+        envAction = @actions.addNew(i18n('Check Gem Environment'), self, \
+            { :triggered => :checkEnv })
+
+        helpMenu = KDE::Menu.new(i18n('&Help'), self)
+        helpMenu.addAction(openDocUrlAction)
+        helpMenu.addAction(openReportIssueUrlAction)
+        helpMenu.addAction(openRdocAction)
+        helpMenu.addAction(openSourceAction)
+        helpMenu.addAction(envAction)
+        helpMenu.addAction(gemHelpAction)
+        helpMenu.addSeparator
+        helpMenu.addAction(openAboutAction)
+
+
+        # insert menus in MenuBar
+        menu = KDE::MenuBar.new
+        menu.addMenu( fileMenu )
+        menu.addMenu( toolsMenu )
+        menu.addMenu( settingsMenu )
+        menu.addMenu( helpMenu )
+        setMenuBar(menu)
+    end
+
+
+
+    def createWidgets
+        # dockable window
+        @detailWin = DetailWin.new(self)
+        addDockWidget(Qt::BottomDockWidgetArea, @detailWin)
+        @fileListWin = FileListWin.new(self)
+        tabifyDockWidget(@detailWin, @fileListWin)
+        @terminalWin = TerminalWin.new(self)
+        tabifyDockWidget(@fileListWin, @terminalWin)
+
+        @previewWin = PreviewWin.new
+        @gemEnvDlg = GemEnvDlg.new
+
+        # tab windows
+        @gemViewer = DockGemViewer.new(self, @detailWin, @fileListWin, @terminalWin, @previewWin)
+        @installedGemWin = InstalledGemWin.new(self) do |w|
+            w.gemViewer = @gemViewer
+            @gemViewer.addInstallWatcher(w)
+            @gemViewer.setInstallWin(w)
+        end
+        @searchWin = SearchWin.new(self) do |w|
+            w.gemViewer = @gemViewer
+        end
+        @downloadedWin = DownloadedWin.new(self) do |w|
+            w.gemViewer = @gemViewer
+            @gemViewer.addInstallWatcher(w)
+            @gemViewer.addDownloadWatcher(w)
+        end
+
+
+        # layout
+        @mainTab = KDE::TabWidget.new
+        @mainTab.tabBar.movable = true
+        @mainTab.addTab(@searchWin, i18n("Search"))
+        @mainTab.addTab(@installedGemWin, i18n('Installed Gems'))
+        @mainTab.addTab(@downloadedWin, i18n("Downloaded Gems"))
+
+        setCentralWidget(@mainTab)
+    end
+
+    def createDlg
+        @settingsDlg = SettingsDlg.new(self)
+        @gemHelpdlg = GemHelpDlg.new(self)
+    end
+
+
+
+    #------------------------------------
+    #
+    # virtual slot
+    def closeEvent(ev)
+        @actions.writeSettings
+        @searchWin.writeSettings
+        @installedGemWin.writeSettings
+        @downloadedWin.writeSettings
+        @gemHelpdlg.closeEvent(ev)
+        @previewWin.writeSettings
+        super(ev)
+        $config.sync    # important!  qtruby can't invoke destructor properly.
+    end
+
+
+    #------------------------------------
+    #
+    #
+    slots :openDocUrl
+    def openDocUrl
+        openUrlDocument('http://github.com/rubytwiddler/kgem/wiki')
+    end
+
+    slots :openReportIssueUrl
+    def openReportIssueUrl
+        openUrlDocument('http://github.com/rubytwiddler/kgem/issues')
+    end
+
+    slots  :openSource
+    def openSource
+        openDirectory(APP_DIR)
+    end
+
+    slots :openRdoc
+    def openRdoc
+        @gemViewer.viewGemRdoc(GemItem::getGemfromPath(APP_NAME))
+    end
+
+    slots :checkEnv
+    def checkEnv
+        @gemEnvDlg.displayEnv
+    end
+
+    def openUrlDocument(url)
+        cmd= Mime::services('.html').first.exec
+        cmd.gsub!(/%\w+/, url)
+        fork do exec(cmd) end
+    end
+
+    slots :configureShortCut
+    def configureShortCut
+        KDE::ShortcutsDialog.configure(@actions)
+    end
+
+    slots :configureApp
+    def configureApp
+        Settings.updateWidgets(@settingsDlg)
+        @settingsDlg.exec == Qt::Dialog::Accepted
+    end
+
+    slots :gemCommandHelp
+    def gemCommandHelp
+        @gemHelpdlg.show
+    end
+end
+
+
+#------------------------------------------------------------
+#
+#
+class GemEnvDlg < Qt::Dialog
+    def initialize(parent=nil)
+        super(parent)
+        createWidget
+    end
+
+    def createWidget
+        @textEdit = Qt::TextEdit.new
+        @textEdit.readOnly = true
+        @closeBtn = KDE::PushButton.new(KDE::Icon.new('dialog-close'), i18n('Close'))
+        connect(@closeBtn, SIGNAL(:clicked), self, SLOT(:accept))
+
+        # layout
+        lo = Qt::VBoxLayout.new do |l|
+            l.addWidget(@textEdit)
+            l.addWidgets(nil, @closeBtn)
+        end
+        setLayout(lo)
+    end
+
+    def writeEnvData
+        @textEdit.setPlainText( %x{ gem env } )
+        resize(460,440)
+        @wroteEnv = true
+    end
+
+    def displayEnv
+        writeEnvData unless @wroteEnv
+        exec
+    end
+end
+
+
+#------------------------------------------------------------------------------
+#
+#    main start
+#
+
+$about = KDE::AboutData.new(APP_NAME, nil, KDE::ki18n(APP_NAME), APP_VERSION,
+                            KDE::ki18n('Gem Utitlity with KDE GUI.')
+                           )
+$about.addLicenseTextFile(APP_DIR + '/MIT-LICENSE')
+KDE::CmdLineArgs.init(ARGV, $about)
+
+$app = KDE::Application.new
+args = KDE::CmdLineArgs.parsedArgs()
+$config = KDE::Global::config
+win = MainWindow.new
+$app.setTopWidget(win)
+
+win.show
+$app.exec

data/ext/Rakefile

@@ -0,0 +1,65 @@
+#!/usr/bin/ruby
+
+require 'ftools'
+
+APP_DIR = File::dirname(File.expand_path(File.dirname(__FILE__)))
+RES_DIR = File::join(APP_DIR, "pkg_resources")
+
+def install_console_helper(console_helper_name, target_cmd_name)
+    etc_dir = ENV['sysconf_dir'] || ENV['etc_dir'] || '/etc'
+
+    console_helper_link = File.join(APP_DIR, 'bin', console_helper_name)
+    cmd_path = File.join(APP_DIR, 'bin', target_cmd_name)
+    pam_src_path = File.join( RES_DIR, console_helper_name + '.pam' )
+    pam_dst_path = File.join(etc_dir, 'pam.d', console_helper_name)
+    console_app_file = File.join(etc_dir, 'security', 'console.apps', console_helper_name)
+    console_helper_target = %x{ which consolehelper }.strip!
+
+    puts "cp #{pam_src_path} #{pam_dst_path}"
+    puts "ln -s #{console_helper_target}  #{console_helper_link}"
+    puts "write #{console_app_file}"
+
+    File.cp(pam_src_path, pam_dst_path)
+    if File.exist?(console_helper_link) then
+        File.unlink(console_helper_link)
+    end
+    File.symlink(console_helper_target, console_helper_link)
+
+    open(console_app_file, 'w') do |f|
+        f.write(<<-EOF
+USER=root
+PROGRAM=#{cmd_path}
+FALLBACK=false
+SESSION=true
+EOF
+               )
+    end
+end
+
+desc "Install consolehelper files."
+task :install_consolehelper do
+    install_console_helper('gemcmdwin-super.rb', 'gemcmdwin.rb')
+end
+
+desc "Install Application Menu"
+task :install_menu do
+    menuDir = %x{ kde4-config --install xdgdata-apps }.strip
+    menuEntryFile = File.join(menuDir, 'kgem.desktop')
+    open(menuEntryFile,'w') do |f|
+        f.write(<<-EOF
+[Desktop Entry]
+Name=Kgem
+Comment=Ruby Gem Tool with KDE GUI
+Exec=kgem %f
+Icon=kgem
+Terminal=false
+Type=Application
+Categories=Qt;KDE;Utility;
+MimeType=application/x-gem;
+    EOF
+               )
+        %x{ update-menus }
+    end
+end
+
+task :default => [ :install_consolehelper, :install_menu  ]

data/lib/downloadedwin.rb

@@ -0,0 +1,251 @@
+class FetchedGem
+    attr_accessor  :fileName, :directory, :installed
+
+    def filePath
+        File.join(@directory, @fileName)
+    end
+
+    def installed_str
+        @installed ? 'installed' : ''
+    end
+end
+
+#
+#
+#
+class DownloadedTable < Qt::TableWidget
+    #
+    class Item < Qt::TableWidgetItem
+        def initialize(text)
+            super(text)
+            self.flags = Qt::ItemIsSelectable | Qt::ItemIsEnabled
+        end
+    end
+
+    def initialize
+        super(0,3)
+
+        self.windowTitle = i18n('Search Result')
+        setHorizontalHeaderLabels(['file name', 'directory', 'installed'])
+        self.horizontalHeader.stretchLastSection = true
+        self.selectionBehavior = Qt::AbstractItemView::SelectRows
+        self.selectionMode = Qt::AbstractItemView::SingleSelection
+        self.alternatingRowColors = true
+        self.sortingEnabled = true
+        sortByColumn(0, Qt::AscendingOrder)
+        @fetchedGems = {}
+    end
+
+    def addPackage(row, fetchedGem)
+        nameItem = Item.new(fetchedGem.fileName)
+        @fetchedGems[nameItem] = fetchedGem    # 0 column item is hash key.
+        setItem( row, 0, nameItem )
+        setItem( row, 1, Item.new(fetchedGem.directory) )
+        setItem( row, 2, Item.new(fetchedGem.installed_str) )
+    end
+
+    def updateGemList(gemList)
+        sortFlag = self.sortingEnabled
+        self.sortingEnabled = false
+
+        clearContents
+        self.rowCount = gemList.length
+        gemList.each_with_index do |g,r|
+            addPackage(r, g)
+        end
+
+        self.sortingEnabled = sortFlag
+    end
+
+    def gem(item)
+        gemAtRow(item.row)
+    end
+
+    def gemAtRow(row)
+        @fetchedGems[item(row,0)]       # use 0 column item as hash key.
+    end
+
+    def currentGem
+        gemAtRow(currentRow)
+    end
+
+    def showall
+        rowCount.times do |r|
+            showRow(r)
+        end
+    end
+
+    slots 'filterChanged(const QString &)'
+    def filterChanged(text)
+        unless text && !text.empty?
+            showall
+            return
+        end
+
+        regxs = /#{Regexp.escape(text.strip)}/i
+        rowCount.times do |r|
+            txt = item(r,0).text.gsub(/\.gem$/, '')
+            if regxs =~ txt then
+                showRow(r)
+            else
+                hideRow(r)
+            end
+        end
+    end
+end
+
+
+#----------------------------------------------------------------------------
+#
+#
+#
+class DownloadedWin < Qt::Widget
+    def initialize(parent=nil)
+        super(parent)
+
+        createWidget
+        readSettings
+
+        Qt::Timer.singleShot(0, self, SLOT(:updateList))
+    end
+
+    GemDirs = %x{ gem environment gempath }.split(/:/).map! do |dir|
+        File.join(dir.strip, 'cache')
+    end
+
+    def createWidget
+        @gemFileList = DownloadedTable.new
+        @filterLine = KDE::LineEdit.new do |w|
+            connect(w,SIGNAL('textChanged(const QString &)'),
+                    @gemFileList, SLOT('filterChanged(const QString &)'))
+            w.setClearButtonShown(true)
+        end
+
+        @installBtn = KDE::PushButton.new(KDE::Icon.new('run-build-install'), 'Install')
+        @deleteBtn = KDE::PushButton.new(KDE::Icon.new('edit-delete'), 'Delete')
+        @unpackBtn = KDE::PushButton.new('Unpack')
+
+        #
+        connect(@gemFileList, SIGNAL('itemClicked(QTableWidgetItem *)'), self, SLOT('itemClicked(QTableWidgetItem *)'))
+        connect(@installBtn, SIGNAL(:clicked), self, SLOT(:install))
+        connect(@deleteBtn, SIGNAL(:clicked), self, SLOT(:delete))
+        connect(@unpackBtn, SIGNAL(:clicked), self, SLOT(:unpack))
+
+        # layout
+        lo = Qt::VBoxLayout.new
+        lo.addWidgets('Filter:', @filterLine)
+        lo.addWidget(@gemFileList)
+        lo.addWidgets(nil, @installBtn, @unpackBtn, @deleteBtn)
+        setLayout(lo)
+    end
+
+    GroupName = "DownloadedGemWindow"
+    def writeSettings
+        config = $config.group(GroupName)
+        config.writeEntry('Header', @gemFileList.horizontalHeader.saveState)
+    end
+
+    def readSettings
+        config = $config.group(GroupName)
+        @gemFileList.horizontalHeader.restoreState(config.readEntry('Header', @gemFileList.horizontalHeader.saveState))
+    end
+
+
+    slots :updateList
+    def updateList
+        def allFilesInDir(dir)
+            exDir = File.expand_path(dir)
+            return [] unless File.directory?(exDir)
+            Dir.chdir(exDir)
+            files = Dir['*.gem']
+            gems = files.map do |f|
+                fGem = FetchedGem.new
+                fGem.fileName = f
+                fGem.directory = exDir
+                fGem.installed = InstalledGemList.checkVersionGemInstalled(f)
+                fGem
+            end
+        end
+
+        dirs = GemDirs + [ Settings.autoFetchDir.pathOrUrl ]
+        gems = dirs.uniq.inject([]) do |res, dir|
+            res + allFilesInDir(dir)
+        end
+
+        #
+        @gemFileList.updateGemList(gems)
+
+        @filterLine.text = ''
+    end
+
+    def notifyDownload
+        updateList
+    end
+
+    def notifyInstall
+        updateList
+    end
+
+    attr_accessor :gemViewer
+    slots  'itemClicked(QTableWidgetItem *)'
+    def itemClicked(item)
+        fetchedGem = @gemFileList.gem(item)
+        return unless fetchedGem
+        filePath = fetchedGem.filePath
+        return unless File.exist?(filePath)
+
+        @installBtn.enabled =  @deleteBtn.enabled = ! fetchedGem.installed
+        files = %x{ tar xvf #{filePath} data.tar.gz -O | gunzip -c | tar t }.split(/\n/)
+        files.unshift
+        @gemViewer.setFiles(files)
+        gem = GemItem::getGemfromPath(filePath)
+        @gemViewer.setDetail(gem)
+
+        proc = lambda do |item|
+            file = item.text
+            @gemViewer.previewWin.setText( file, %x{ tar xvf #{filePath.shellescape} data.tar.gz -O | gunzip -c | tar x #{file.shellescape} -O } )
+        end
+        @gemViewer.setPreviewProc(proc)
+    end
+
+    slots :install
+    def install
+        fetchedGem = @gemFileList.currentGem
+        return unless fetchedGem and !fetchedGem.installed
+
+        filePath = fetchedGem.filePath
+        gem = GemItem::getGemfromPath(filePath)
+        gem.addLocalPath(filePath)
+        @gemViewer.install(gem, true)   # localFlag = true
+    end
+
+    slots :delete
+    def delete
+        fetchedGem = @gemFileList.currentGem
+        return unless fetchedGem and  !(GemDirs.include?(fetchedGem.directory) \
+                                        and fetchedGem.installed)
+
+        filePath = fetchedGem.filePath
+        if File.writable?(filePath) then
+            File.unlink(filePath)
+            passiveMessage(i18n('Deleted ') + filePath)
+            updateList
+        end
+    end
+
+    slots  :unpack
+    def unpack
+        fetchedGem = @gemFileList.currentGem
+        fileName = fetchedGem.filePath
+        if Settings.autoUnpackFlag then
+            dir = Settings.autoUnpackDir.pathOrUrl
+        else
+            dir = KDE::FileDialog::getExistingDirectory(Settings.autoUnpackDir)
+            return unless dir
+            Settings.autoUnpackDir.setUrl(dir)
+        end
+        puts %Q{ execute: gem unpack #{fileName} --target=#{dir.shellescape} }
+        %x{ gem unpack #{fileName} --target=#{dir.shellescape} }
+    end
+
+end