Graphiclious 0.1.0

data/lib/graphiclious/dot_attributes.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+#$Id: dot_attributes.rb,v 1.1 2005/04/13 21:16:14 wsdng Exp $
+
+class DotAttributes
+  attr_accessor(:node_attributes,
+		:edge_attributes, 
+		:graph_attributes)
+  
+  def initialize
+    @node_attributes = {
+      'shape' => 'box',
+      'style' => 'filled',
+      'height' => '0.2',
+      'width' => '1',
+      #'fixedsize' => 'true',
+      'fontname' => 'Arial',
+      'fontsize' => '10',
+      'fontcolor' => 'blue',
+      'color' => 'orange',
+      'fillcolor' => 'orange'
+    }
+    @edge_attributes = {}
+    @graph_attributes = {
+      'bgcolor' => 'firebrick',
+      'rankdir' => 'LR',
+      'ranksep' => '0.2',
+      'nodesep' => '0.1',
+      'orientation' => 'portrait',
+      'labelloc' => 'top',
+      'label' => 'Tag Relations',
+      'name' => 'UrlGraph' 
+    }   
+  end
+end
+

data/lib/graphiclious/environment.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+
+# Require this file will set GRAPHICLIOUS_PATH to an appropriate value.
+#
+# The standard method is to find the installed gem and let
+# GRAPHICLIOUS_PATH point to the gem's installation directory.
+#
+# If the gem isn't found, we assume that Graphiclious has been started
+# from within the graphiclious directory itself and therefore set
+# GRAPHICLIOUS_PATH = '.'. (This is often the case during development.)
+#
+# Note that GRAPHICLIOUS_PATH uses the Ruby notation of the path.
+#
+# So, what ist this good for? We need to find the style directories
+# provided with the gem to make those styles availiable without any
+# additional user interaction. We might use the path for finding icons
+# or other user-independent ressource files, too.
+
+begin
+  require 'rubygems'
+  require 'graphiclious/version.rb'
+  
+  # Try to find lib directory of this specific Graphiclious gem version
+  def findGraphicliousDirectory
+    graphicliousGemDir = "Graphiclious-#{Graphiclious.version}"
+    all = Gem::path.collect { |gempath|
+      File.join(gempath, 'gems', graphicliousGemDir)
+    }.select { |f|
+      File.directory?(f)
+    }
+    all.empty? ? '.' : all.first
+  end
+  GRAPHICLIOUS_PATH = findGraphicliousDirectory
+rescue LoadError
+  GRAPHICLIOUS_PATH = '.'
+end

data/lib/graphiclious/gui.rb

@@ -0,0 +1,260 @@
+#!/usr/bin/env ruby
+#$Id: gui.rb,v 1.18 2006/03/08 20:28:47 wsdng Exp $
+
+require 'graphiclious/require_fox'
+require 'graphiclious/delicious2yaml'
+require 'graphiclious/yaml-links2html' 
+
+class GraphicliousMainWindow < Fox::FXMainWindow
+  include Fox
+  include Responder
+  
+  def initialize(app, user=nil, password=nil, style=nil)
+    super(app, "Graphiclious")
+    @user = user
+    @password = password
+    @style = style
+    @stylesFolder = YamlLinksToHtml::STYLES_FOLDER
+    @workingDir = Dir.getwd
+    initView
+    updateUserList
+    updateStylesList
+    setOptionDelicious(false)
+    connect(SEL_CLOSE, method(:onCmdQuit))
+  end
+  
+  def newButton(frame, txt)
+    b = FXButton.new(frame, txt)
+    b.setLayoutHints(LAYOUT_LEFT)
+    b.width = 100
+    b.height = 24
+    b
+  end
+  
+  def newCheckBox(frame, txt)
+    cbFlags = ICON_BEFORE_TEXT|LAYOUT_SIDE_TOP
+    cb = FXCheckButton.new(frame, txt, nil, 0, cbFlags)
+    cb.setCheck(true)
+    cb
+  end
+  
+  def newFrame(frame)
+    frame.setFrameStyle(FRAME_NONE)
+    frame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X)
+    frame
+  end
+  
+  def noPaddingForFrame(frame)
+    frame.padBottom = 0
+    frame.padLeft = 0
+    frame.padRight = 0
+    frame.padTop = 0
+  end
+  
+  def initView
+    basicFrame = newFrame(FXVerticalFrame.new(self))
+    basicFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # input user
+    userAndPasswordFrame = newFrame(FXMatrix.new(basicFrame, 2, MATRIX_BY_COLUMNS))
+    userAndPasswordFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(userAndPasswordFrame, "Working directory:")
+    wdFrame = newFrame(FXHorizontalFrame.new(userAndPasswordFrame))
+    wdFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    noPaddingForFrame(wdFrame)
+    @workingDirTextField = FXTextField.new(wdFrame,
+                                           32, nil, 0,
+                                           TEXTFIELD_NORMAL)
+    @workingDirTextField.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    @workingDirTextField.setText(@workingDir)
+    wdChooseButton = newButton(wdFrame, '..')
+    wdChooseButton.connect(SEL_COMMAND, method(:onChooseWorkingDir))
+    
+    FXLabel.new(userAndPasswordFrame, "Enter User:")
+    @userTextField = newCombobox(userAndPasswordFrame, 32,
+                                 10.size,
+                                 nil, 0, COMBOBOX_INSERT_LAST)
+    @userTextField.setFrameStyle(FRAME_SUNKEN|FRAME_THICK)
+    @userTextField.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    
+    # input password
+    FXLabel.new(userAndPasswordFrame, "Password:")
+    @passwordTextField = FXTextField.new(userAndPasswordFrame,
+                                         32, nil, 0,
+                                         TEXTFIELD_NORMAL|TEXTFIELD_PASSWD)
+    @passwordTextField.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    @passwordTextField.setText(@password) if @password
+    
+    # input style
+    FXLabel.new(userAndPasswordFrame, "Style:")
+    @styleTextField = newCombobox(userAndPasswordFrame, 32,
+                                  10,
+                                  nil, 0, COMBOBOX_INSERT_LAST)
+    @styleTextField.setFrameStyle(FRAME_SUNKEN|FRAME_THICK)
+    @styleTextField.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    
+    # set actions
+    
+    optionsFrame = newFrame(FXMatrix.new(basicFrame, 2, MATRIX_BY_COLUMNS))
+    optionsFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    
+    @checkFetch = newCheckBox(optionsFrame, 'Fetch links from del.icio.us')
+    fetchFrame = newFrame(FXVerticalFrame.new(optionsFrame))
+    noPaddingForFrame(fetchFrame)
+    fetchFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    
+    @fetchMode = newCombobox(fetchFrame, 10,
+                             Delicious2Yaml::MODES.size,
+                             nil, 0, COMBOBOX_STATIC)
+    @fetchMode.setFrameStyle(FRAME_SUNKEN|FRAME_THICK)
+    modeKeys = Delicious2Yaml::MODES.keys.sort {|m1, m2| m1.to_s <=> m2.to_s}
+    modeKeys.each { |m| @fetchMode.appendItem(Delicious2Yaml::MODES[m]) }
+    @fetchMode.setText(Delicious2Yaml::MODES[modeKeys.first])
+    @fetchMode.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    
+    @checkGenerate = newCheckBox(optionsFrame, 'Generate HTML')
+    generateFrame = newFrame(FXVerticalFrame.new(optionsFrame))
+    noPaddingForFrame(generateFrame)
+    generateFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    
+    @checkDelicious = newCheckBox(generateFrame, 'Link to del.icio.us')
+    @checkBundles = newCheckBox(generateFrame, 'Include bundles')
+    @checkGraphViews = newCheckBox(generateFrame, 'Include graph views')
+    @checkGraphThumbs = newCheckBox(generateFrame, 'Graph thumbnails')
+    includePrivateFrame = newFrame(FXHorizontalFrame.new(generateFrame))
+    noPaddingForFrame(includePrivateFrame)
+    includePrivateFrame.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    @checkIncludePrivate = newCheckBox(includePrivateFrame, 'Include private?')
+    @checkReallyIncludePrivate = newCheckBox(includePrivateFrame, 'Really?')
+    @checkIncludePrivate.setCheck(false)
+    @checkReallyIncludePrivate.setCheck(false)
+    
+    # buttons
+    buttonFrame = newFrame(FXHorizontalFrame.new(basicFrame))
+    buttonFrame.setPackingHints(PACK_UNIFORM_WIDTH)
+    okButton = newButton(buttonFrame, 'Ok')
+    okButton.connect(SEL_COMMAND, method(:onCmdOk))
+    cancelButton = newButton(buttonFrame, 'Cancel')
+    cancelButton.connect(SEL_COMMAND, method(:onCmdQuit))
+    
+    @cmdOutput = FXText.new(basicFrame, nil, 0,
+                            TEXT_READONLY|TEXT_WORDWRAP|TEXT_SHOWACTIVE)
+    @cmdOutput.setLayoutHints(LAYOUT_LEFT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  end
+  
+  def setOptionFetch(bool)
+    @checkFetch.setCheck(bool ? true : false)
+  end
+  
+  def setOptionGenerate(bool)
+    @checkGenerate.setCheck(bool ? true : false)
+  end
+  
+  def setOptionDelicious(bool)
+    @checkDelicious.setCheck(bool ? true : false)
+  end
+  
+  def setOptionBundles(bool)
+    @checkBundles.setCheck(bool ? true : false)
+  end
+  
+  def setOptionGraphViews(bool)
+    @checkGraphViews.setCheck(bool ? true : false)
+  end
+  
+  def setOptionGraphThumbs(bool)
+    @checkGraphThumbs.setCheck(bool ? true : false)
+  end
+  
+  def create
+    resize(340, 400)
+    place(PLACEMENT_SCREEN)
+    super
+    show
+  end
+  
+  def appendText(txt)
+    @cmdOutput.appendText(txt, true)
+    @cmdOutput.makePositionVisible(@cmdOutput.text.size)
+    @cmdOutput.repaint
+  end
+  
+  def updateUserList
+    cachedUsers = YamlLinksToHtml.guess_users_within(@workingDir).collect {
+      |userDir|
+      File.basename(userDir)
+    }
+    @userTextField
+    cachedUsers.each { |m| @userTextField.appendItem(m) }
+    @userTextField.setText(@user ? @user : cachedUsers.first)
+  end
+  
+  def updateStylesList
+    @styleTextField.clearItems
+    [@workingDir, @stylesFolder].each do
+      |folder|
+      YamlLinksToHtml.guess_styles_within(folder).each do
+        |styleDir|
+        @styleTextField.appendItem(styleDir)
+      end
+    end
+    @styleTextField.setText(@style ? @style : "")
+  end
+  
+  def onChooseWorkingDir(sender, sel, ptr)
+    newFolder = FXDirDialog.getOpenDirectory(self, "Choose working directory", @workingDir)
+    return if newFolder.nil?
+    @workingDir = newFolder.gsub(/\\/, File::SEPARATOR)
+    @workingDirTextField.setText(@workingDir)
+    updateUserList
+    updateStylesList
+  end
+  
+  def onCmdOk(sender, sel, ptr)
+    @user = @userTextField.getText
+    @password = @passwordTextField.getText
+    @style = @styleTextField.getText
+    @workingDir = @workingDirTextField.getText
+    mode = Delicious2Yaml::MODES.index(@fetchMode.getText)
+    outputBlock = proc { |line| appendText("#{line}\n") }
+    appendText("-Start-\n")
+    begin
+      getApp.beginWaitCursor
+      if @checkFetch.checked?
+        appendText("-Start import-\n")
+        importer = Delicious2Yaml.new(@user, @password)
+        importer.set_protocol_block(outputBlock)
+        importer.set_working_dir(@workingDir)
+        importer.set_mode(mode)
+        importer.run
+        setOptionFetch(false)
+        appendText("-Done import-\n")
+      end
+      if @checkGenerate.checked?
+        appendText("-Start generation-\n")
+        exporter = YamlLinksToHtml.new
+        exporter.set_protocol_block(outputBlock)
+        exporter.set_working_dir(@workingDir)
+        exporter.set_user(@user)
+        exporter.set_style(@style)
+        exporter.link_to_delicious_if_possible = @checkDelicious.checked?
+        exporter.use_bundles = @checkBundles.checked?
+        exporter.build_graph_thumbs = @checkGraphThumbs.checked?
+        exporter.include_graph_views = @checkGraphViews.checked?
+        exporter.include_private = @checkIncludePrivate.checked? && @checkReallyIncludePrivate.checked?
+        exporter.run
+        appendText("-Done generation-\n")
+      end
+      appendText("-Done-\n")
+    rescue StandardError => bang
+      appendText("Fatal error: " + bang + "\n-\n")
+    ensure
+      getApp.endWaitCursor
+    end
+    
+  end
+  
+  def onCmdQuit(sender, sel, ptr)
+    getApp.exit(0)
+  end
+end

data/lib/graphiclious/help.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+#$Id: help.rb,v 1.3 2005/11/26 14:26:21 wsdng Exp $
+
+module Graphiclious
+  def self.help
+    h = String.new
+    h <<
+      "Commandline options:\n" <<
+      "--bundles/-b include bundles\n" <<
+      "--delicious/-d prefer links to del.icio.us\n" <<
+      "--gui/-g will start a graphical user interface\n" <<
+      "--help/-h will display this text\n" <<
+      "--noupdate/-l do not connect to del.icio.us\n" <<
+      "--nohtml/-o ommit html generation\n" <<
+      "--password/-p specify password for given user\n" <<
+      "--user/-u specify a del.icio.us user\n" <<
+      "--version/-v prints actual version\n" <<
+      "Without gui option you'll need to specify user and\n" <<
+      "password."
+    h
+  end
+end

data/lib/graphiclious/require_fox.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require_gem 'fxruby', '>= 1.2'
+
+def newCombobox(p1, p2, p3, p4, p5, p6)
+  box = Fox::FXComboBox.new(p1, p2, p4, p5, p6)
+  box.setNumVisible(p3)
+  box
+end
+
+

data/lib/graphiclious/url_graph.rb

@@ -0,0 +1,135 @@
+#!/usr/bin/env ruby
+#$Id: url_graph.rb,v 1.8 2006/03/09 22:57:52 wsdng Exp $
+
+begin
+  require 'rubygems'
+  require_gem 'rgl'
+rescue LoadError
+end
+require 'rgl/adjacency'
+require 'rgl/dot'
+require 'rgl/implicit'
+require 'graphiclious/dot_attributes'
+
+# UrlGraph models relations between tags
+
+class UrlGraph < RGL::ImplicitGraph
+
+  attr_accessor(:fixed_dot_attributes, :filter_set)
+
+  def initialize
+    @fixed_dot_attributes = DotAttributes.new
+    @wrapped_graph = RGL::AdjacencyGraph.new
+    @filter = proc { |v| @filter_set.nil? || @filter_set.include?(v) }
+    @filter_set = nil
+    super { |g|
+        g.vertex_iterator { |b|
+          @wrapped_graph.each_vertex { |v| b.call(v) if @filter.call(v) }
+        }
+        g.adjacent_iterator { |v, b|
+          @wrapped_graph.each_adjacent(v) { |u| b.call(u) if @filter.call(u) }
+        }
+     }
+  end
+  
+  def add_vertex(vertex)
+    @wrapped_graph.add_vertex(vertex)
+  end
+  
+  def add_edge(tag, otherTag)
+    @wrapped_graph.add_edge(tag, otherTag)
+  end
+  
+  # some characters are not allowed in filenames and need to be replaced
+  def self.tag2file(tag)
+    # Windows: \/:*?"<>|
+    # Linux: ()
+    # Call to Graphviz: Space 
+    tag.gsub(/[\\\/:*?"<>|() ]/, '_')
+  end
+
+  def self.ankor(url, name)
+    "<a class=\"extern\" href=\"#{url}\" target=\"_top\">#{name}</a>"
+  end
+
+  def self.intern_ankor(url, name, style=nil)
+    link = "<a href=\"#{tag2file(url)}\">#{name}</a>"
+    link = "<span class=\"#{style}\">#{link}</span>" unless style.nil?
+    link
+  end
+
+  def self.node_url(tag)
+    "#{tag2file(tag)}.htm"
+  end
+  
+  def self.node_ankor(tag, style=nil)
+    intern_ankor(node_url(tag), tag, style)
+  end
+  
+  def self.edge_name(tag1, tag2)
+    if tag1 <= tag2
+      tag1 + '-' + tag2
+    else
+      tag2 + '-' + tag1    
+    end
+  end
+
+  def self.edge_url(tag1, tag2)
+    node_url(edge_name(tag1, tag2))
+  end
+  
+  def self.edge_ankor(tag1, tag2, style=nil)
+    intern_ankor(edge_url(tag1, tag2), edge_name(tag1, tag2), style)
+  end
+
+  def fixed_dot_node_attributes
+    fixed_dot_attributes.node_attributes
+  end
+
+  def fixed_dot_edge_attributes
+    fixed_dot_attributes.edge_attributes
+  end
+
+  def fixed_dot_graph_attributes
+    fixed_dot_attributes.graph_attributes
+  end
+
+  def d_quote(string)
+    "\"#{string}\""
+  end
+  
+  def to_dot_graph(params = {})
+    fixed_dot_graph_attributes.each { |k, v|
+      params[k] ||= v
+    }
+    graph = (directed? ? DOT::DOTDigraph : DOT::DOTSubgraph).new(params)
+    edge_class = directed? ? DOT::DOTDirectedEdge : DOT::DOTEdge
+    dot_node_attributes = fixed_dot_node_attributes.clone
+    each_vertex do |v|
+      name = v.to_s
+      dot_node_attributes['name'] = d_quote(name)
+      dot_node_attributes['URL'] = d_quote(UrlGraph.node_url(name))
+      dot_node_attributes['label'] = name
+      graph << DOT::DOTNode.new(dot_node_attributes)
+    end
+    dot_edge_attributes = fixed_dot_edge_attributes.clone
+    each_edge do |u,v|
+      tag1 = u.to_s
+      tag2 = v.to_s
+      dot_edge_attributes['from'] = d_quote(tag1)
+      dot_edge_attributes['to'] = d_quote(tag2)
+      dot_edge_attributes['URL'] = d_quote(UrlGraph.edge_url(tag1, tag2))
+      graph << edge_class.new(dot_edge_attributes)
+    end
+    graph
+  end
+
+  # Output the DOT-graph to a file.
+
+  def print_dotted_on_file(filename = 'graph.dot', params = {})
+    File.open(filename, "w") {|f|
+      print_dotted_on(params, f)
+    }
+  end
+end
+