themactep-grumblr 2.0.0

data/.gitignore

@@ -0,0 +1 @@
+nbproject

data/LICENSE

@@ -0,0 +1,13 @@
+== Grumblr
+
+Copyright (c) 2009, Paul Philippov
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
+* Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
+* Neither the name of the Paul Philippov nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

data/README

@@ -0,0 +1,42 @@
+== Grumblr ==
+
+Grumblr is a tool to post messages to your Tumblr blog from GNOME.
+
+=== Licence ===
+
+  New BSD License
+
+
+=== Requirements: ===
+
+  * Ruby
+    http://www.ruby-lang.org/
+
+  * GTK+
+    http://www.mozilla.org/
+
+  * Ruby Gtk2 bindings and Ruby/GTK bindings for Mozilla
+    from Ruby-GNOME2 Project
+    http://ruby-gnome2.sourceforge.jp/
+
+  * LibXml Ruby
+    http://libxml.rubyforge.org/
+
+  * REST Client
+    http://github.com/adamwiggins/rest-client/
+
+
+=== Installation ===
+
+  $ sudo gem source -a http://gems.github.com/
+  $ sudo gem install themactep-grumblr
+
+
+=== Homepage ===
+
+  http://github.com/themactep/grumblr
+
+
+=== Authors ===
+
+  Paul Philippov <themactep@gmail.com>

data/Rakefile

@@ -0,0 +1,19 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gemspec|
+    gemspec.name = "grumblr"
+    gemspec.summary = "Tumblr companion for GNOME"
+    gemspec.description = "Grumblr is a message poster to Tumblr blogs from GNOME."
+    gemspec.email = "themactep@gmail.com"
+    gemspec.homepage = "http://github.com/themactep/grumblr"
+    gemspec.authors = ["Paul Philippov"]
+    gemspec.add_dependency "libxml-ruby"
+    gemspec.add_dependency "rest-client"
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end

data/VERSION

@@ -0,0 +1 @@
+2.0.0

data/bin/grumblr

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# $Id: grumblr.rb 2009/08/09 21:48:53 EET paul Exp $ 
+# 
+=begin
+  Grumblr - Tumblr companion for GNOME.
+
+  Copyright (c) 2009, Paul Philippov <paul@ppds.ws>
+
+  This software is released under the BSD License.
+  http://creativecommons.org/licenses/BSD/
+=end
+
+app_file = File.symlink?(__FILE__) ? File.readlink(__FILE__) : __FILE__
+APP_ROOT = File.expand_path(File.dirname(app_file))
+Dir.glob(APP_ROOT + '/../**/').reverse.each { |d| $:.unshift d }
+
+begin
+  require 'rubygems'
+rescue LoadError
+  nil
+end
+
+require 'grumblr/core'
+
+Grumblr::Core.new
+Thread.new { Grumblr::StatusIcon.new }
+$app.main

data/data/grumblr.desktop

@@ -0,0 +1,9 @@
+[Desktop Entry]
+Name=Grumblr
+Comment=Tumblr companion for GNOME
+Exec=grumblr
+Icon=grumblr
+StartupNotify=true
+Terminal=false
+Type=Application
+Categories=Network;

data/grumblr.gemspec

@@ -0,0 +1,66 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{grumblr}
+  s.version = "2.0.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Paul Philippov"]
+  s.date = %q{2009-08-22}
+  s.default_executable = %q{grumblr}
+  s.description = %q{Grumblr is a message poster to Tumblr blogs from GNOME.}
+  s.email = %q{themactep@gmail.com}
+  s.executables = ["grumblr"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README"
+  ]
+  s.files = [
+    ".gitignore",
+     "LICENSE",
+     "README",
+     "Rakefile",
+     "VERSION",
+     "bin/grumblr",
+     "data/grumblr.desktop",
+     "grumblr.gemspec",
+     "images/audio.bmp",
+     "images/chat.bmp",
+     "images/grumblr.svg",
+     "images/link.bmp",
+     "images/photo.bmp",
+     "images/quote.bmp",
+     "images/spinner.gif",
+     "images/text.bmp",
+     "images/video.bmp",
+     "lib/grumblr/core.rb",
+     "lib/grumblr/ui.rb",
+     "lib/ppds/class_factory.rb",
+     "lib/ppds/config.rb",
+     "lib/ppds/tumblr.rb"
+  ]
+  s.homepage = %q{http://github.com/themactep/grumblr}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{Tumblr companion for GNOME}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<libxml-ruby>, [">= 0"])
+      s.add_runtime_dependency(%q<rest-client>, [">= 0"])
+    else
+      s.add_dependency(%q<libxml-ruby>, [">= 0"])
+      s.add_dependency(%q<rest-client>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<libxml-ruby>, [">= 0"])
+    s.add_dependency(%q<rest-client>, [">= 0"])
+  end
+end

data/images/grumblr.svg

@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!-- Created with Inkscape (http://www.inkscape.org/) -->
+
+<svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   width="512"
+   height="512"
+   id="svg6643"
+   version="1.1"
+   inkscape:version="0.47pre1 r21720"
+   sodipodi:docname="grumblr.svg"
+   inkscape:output_extension="org.inkscape.output.svg.inkscape">
+  <defs
+     id="defs6645">
+    <inkscape:perspective
+       sodipodi:type="inkscape:persp3d"
+       inkscape:vp_x="0 : 32 : 1"
+       inkscape:vp_y="0 : 1000 : 0"
+       inkscape:vp_z="64 : 32 : 1"
+       inkscape:persp3d-origin="32 : 21.333333 : 1"
+       id="perspective6651" />
+    <inkscape:perspective
+       id="perspective6631"
+       inkscape:persp3d-origin="0.5 : 0.33333333 : 1"
+       inkscape:vp_z="1 : 0.5 : 1"
+       inkscape:vp_y="0 : 1000 : 0"
+       inkscape:vp_x="0 : 0.5 : 1"
+       sodipodi:type="inkscape:persp3d" />
+  </defs>
+  <sodipodi:namedview
+     id="base"
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1.0"
+     inkscape:pageopacity="0.0"
+     inkscape:pageshadow="2"
+     inkscape:zoom="0.97227183"
+     inkscape:cx="255.53213"
+     inkscape:cy="255.7224"
+     inkscape:current-layer="layer1"
+     showgrid="false"
+     inkscape:document-units="px"
+     inkscape:grid-bbox="true"
+     inkscape:window-width="1440"
+     inkscape:window-height="825"
+     inkscape:window-x="0"
+     inkscape:window-y="25"
+     inkscape:window-maximized="1">
+    <inkscape:grid
+       type="xygrid"
+       id="grid2823"
+       empspacing="5"
+       visible="true"
+       enabled="true"
+       snapvisiblegridlinesonly="true" />
+  </sodipodi:namedview>
+  <metadata
+     id="metadata6648">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title />
+      </cc:Work>
+    </rdf:RDF>
+  </metadata>
+  <g
+     id="layer1"
+     inkscape:label="Layer 1"
+     inkscape:groupmode="layer"
+     transform="translate(0,448)">
+    <g
+       id="g2820"
+       transform="matrix(0.99800965,0,0,0.99800965,0.1055055,-2.036518)">
+      <path
+         id="path3605"
+         d="m 256.54485,-440.84091 c -138.2071,0 -250.6386,112.43141 -250.6386,250.6386 0,138.207112 112.4315,250.35856 250.6386,250.35856 138.2071,0 250.35856,-112.151448 250.35856,-250.35856 0,-138.20719 -112.15146,-250.6386 -250.35856,-250.6386 z"
+         style="font-size:medium;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;text-indent:0;text-align:start;text-decoration:none;line-height:normal;letter-spacing:normal;word-spacing:normal;text-transform:none;direction:ltr;block-progression:tb;writing-mode:lr-tb;text-anchor:start;color:#000000;fill:#000000;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;marker:none;visibility:visible;display:inline;overflow:visible;enable-background:accumulate;font-family:Bitstream Vera Sans;-inkscape-font-specification:Bitstream Vera Sans" />
+      <path
+         id="path8-7-6"
+         d="m 256.53616,-410.78108 c -121.94187,0 -220.57008,98.62809 -220.57008,220.57003 0,121.941854 98.62821,220.30747 220.57008,220.30747 86.47283,0 154.49575,-36.9921661 190.59612,-109.260948 -58.46055,-11.134087 -137.96685,-4.693712 -227.88298,14.376441 -2.13629,0.856345 -4.64884,0.716097 -6.67656,-0.372685 -2.02771,-1.088783 -5.0478,-4.419462 -5.0478,-14.003756 0,-9.584293 1.16361,-10.670758 2.59282,-12.474768 1.42921,-1.804009 3.67982,-2.929738 5.98054,-2.991394 46.4443,-9.85029 91.86095,-16.03896 133.39239,-18.11825 41.5314,-2.0793 79.20574,-0.24608 110.28502,6.03941 0.17498,-0.006 0.35015,-0.006 0.52514,0 10.52606,-25.756 16.54273,-53.89965 16.54273,-83.50152 0,-121.94194 -98.3656,-220.57003 -220.30746,-220.57003 l 4e-5,0 z"
+         style="font-size:medium;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;text-indent:0;text-align:start;text-decoration:none;line-height:normal;letter-spacing:normal;word-spacing:normal;text-transform:none;direction:ltr;block-progression:tb;writing-mode:lr-tb;text-anchor:start;color:#000000;fill:#ffa500;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;marker:none;visibility:visible;display:inline;overflow:visible;enable-background:accumulate;font-family:Bitstream Vera Sans;-inkscape-font-specification:Bitstream Vera Sans"
+         sodipodi:nodetypes="cssccssscsccscc" />
+      <path
+         id="path10-5"
+         style="fill:#ffffff;stroke:none"
+         d="m 363.80317,-207.45687 c 0,33.53488 -24.97949,60.7203 -55.79328,60.7203 -30.81378,0 -55.79331,-27.18542 -55.79331,-60.7203 0,-33.5349 24.97953,-60.72031 55.79331,-60.72031 30.81379,0 55.79328,27.18541 55.79328,60.72031 z" />
+      <path
+         id="path14-3"
+         style="fill:#ffffff;stroke:none"
+         d="m 467.85013,-212.31538 c 0,29.39149 -20.48895,53.21798 -45.76332,53.21798 -25.27436,0 -45.76332,-23.82649 -45.76332,-53.21798 0,-29.39149 20.48896,-53.21804 45.76332,-53.21804 25.27437,0 45.76332,23.82655 45.76332,53.21804 z" />
+      <path
+         id="path16-3"
+         style="fill:#000000"
+         d="m 316.30525,-183.79454 c 0,9.97261 -8.32793,18.05695 -18.60095,18.05695 -10.273,0 -18.60092,-8.08434 -18.60092,-18.05695 0,-9.97252 8.32792,-18.05686 18.60092,-18.05686 10.27302,0 18.60095,8.08434 18.60095,18.05686 z" />
+      <path
+         id="path18-1"
+         style="fill:#000000"
+         d="m 421.37793,-193.1727 c 0,8.1655 -7.05731,14.78492 -15.76289,14.78492 -8.70565,0 -15.76292,-6.61942 -15.76292,-14.78492 0,-8.1655 7.05727,-14.78489 15.76292,-14.78489 8.70558,0 15.76289,6.61939 15.76289,14.78489 z" />
+    </g>
+  </g>
+</svg>

data/lib/grumblr/core.rb

@@ -0,0 +1,38 @@
+require 'ppds/config'
+require 'ppds/tumblr'
+require 'grumblr/ui'
+require 'gtk2'
+
+module Grumblr
+  IMAGE_ROOT = File.expand_path(File.join(APP_ROOT, '..', 'images'))
+
+  class Core
+    attr_accessor :blog
+
+    def initialize
+      $app = self
+
+      $cfg = Ppds::Config.new 'grumblr'
+
+      $gui = Grumblr::UI.new
+      $gui.show_all
+
+      $api = Ppds::Tumblr.new
+      if $api.authenticate($cfg.get(:email), $cfg.get(:password))
+        $gui.add Grumblr::Dashboard.new
+      else
+        $gui.add Grumblr::SettingsFrame.new
+      end
+    end
+
+    def main
+      Gtk::main
+    end
+
+    def quit
+      Gtk::main_quit
+    ensure
+      $cfg.save
+    end
+  end
+end

data/lib/grumblr/ui.rb

@@ -0,0 +1,598 @@
+require 'gtk2'
+
+module Grumblr
+  class UI < Gtk::Window
+
+    attr_accessor :logo
+
+    def initialize
+      super Gtk::Window::TOPLEVEL
+
+      filename = File.join(Grumblr::IMAGE_ROOT, 'grumblr.svg')
+      self.logo = Gdk::Pixbuf.new filename, 128, 128
+
+      self.set_size_request 480, 360
+      self.set_allow_shrink false
+      self.set_title 'Grumblr'
+
+      self.set_icon self.logo
+      self.set_default_width $cfg.get(:window_width).to_i
+      self.set_default_height $cfg.get(:window_height).to_i
+      self.move $cfg.get(:window_x_pos).to_i, $cfg.get(:window_y_pos).to_i
+      self.signal_connect(:destroy) { quit }
+      self.signal_connect(:delete_event) { minimize }
+      self.signal_connect(:check_resize) do |widget|
+        x, y = widget.position
+        w, h = widget.size
+        $cfg.set :window_x_pos, x
+        $cfg.set :window_y_pos, y
+        $cfg.set :window_width, w
+        $cfg.set :window_height, h
+      end
+      signal_connect(:window_state_event) do |widget, e|
+        case e.event_type
+        when Gdk::Event::WINDOW_STATE
+          minimize if e.changed_mask.iconified? and e.new_window_state.iconified?
+        end
+      end
+      show
+    end
+
+    def minimize
+      self.hide
+    end
+  end
+
+  class Dashboard < Gtk::VBox
+    def initialize
+      super false, 4
+
+      ##
+      ### Statusbar
+      ##
+      @statusbar = Gtk::Statusbar.new
+
+      ##
+      ### Notebook
+      ##
+      @notebook = Gtk::Notebook.new
+      @notebook.set_homogeneous true
+      @notebook.set_tab_pos Gtk::POS_LEFT
+
+      #
+      # Text page
+      #
+      @text_title = Gtk::Entry.new
+
+      @format = Gtk::CheckButton.new '_markdown'
+      @format.set_active $cfg.get(:format_markdown)
+      @format.signal_connect(:toggled) do |widget|
+        $cfg.set :format_markdown, widget.active?
+      end
+
+      label = Gtk::Label.new 'Body'
+
+      box = Gtk::HBox.new false, 8
+      box.pack_start label, false
+      box.pack_start @format, false
+
+      page = Gtk::VBox.new false, 4
+      page.set_border_width 8
+      page.pack_with_label 'Title (optional)', @text_title
+      page.pack_start box, false
+      page.pack_start multiline_entry(:text_body), true
+
+      @notebook.add_page_with_tab page, 'Text'
+
+      #
+      # Link page
+      #
+      @link_url = Gtk::Entry.new
+      @link_name = Gtk::Entry.new
+      link_description = multiline_entry :link_description
+
+      page = Gtk::VBox.new false, 4
+      page.set_border_width 8
+      page.pack_with_label 'URL', @link_url
+      page.pack_with_label 'Name (optional)', @link_name
+      page.pack_with_label'Description (optional)', link_description, true
+
+      @notebook.add_page_with_tab page, 'Link'
+
+      #
+      # Chat page
+      #
+      @chat_title = Gtk::Entry.new
+      chat_conversation = multiline_entry :chat_conversation
+
+      page = Gtk::VBox.new false, 4
+      page.set_border_width 8
+      page.pack_with_label 'Title (optional)', @chat_title
+      page.pack_with_label 'Conversation', chat_conversation, true
+
+      @notebook.add_page_with_tab page, 'Chat'
+
+      #
+      # Quote page
+      #
+      @quote_source = Gtk::Entry.new
+      quote_quote = multiline_entry :quote_quote
+
+      page = Gtk::VBox.new false, 4
+      page.set_border_width 8
+      page.pack_with_label 'Quote', quote_quote, true
+      page.pack_with_label 'Source (optional)', @quote_source
+
+      @notebook.add_page_with_tab page, 'Quote'
+
+      #
+      # Photo page
+      #
+      filter = Gtk::FileFilter.new
+      filter.set_name "Images"
+      filter.add_mime_type "image/*"
+
+      @photo_source = Gtk::Entry.new
+      @photo_click_through_url = Gtk::Entry.new
+      photo_data = file_chooser_button :photo_data, filter
+      photo_caption = multiline_entry :photo_caption
+
+      page = Gtk::VBox.new false, 4
+      page.set_border_width 8
+      page.pack_with_label 'File', photo_data
+      page.pack_with_label 'Source', @photo_source
+      page.pack_with_label 'Caption', photo_caption, true
+      page.pack_with_label 'Link (optional)', @photo_click_through_url
+
+      @notebook.add_page_with_tab page, 'Photo'
+
+      #
+      # Audio page
+      #
+      if $api.user.can_upload_audio == '1'
+        filter = Gtk::FileFilter.new
+        filter.set_name "Audio"
+        filter.add_mime_type "audio/*"
+
+        audio_data = file_chooser_button :audio_data, filter
+        audio_caption = multiline_entry :audio_caption
+
+        page = Gtk::VBox.new false, 4
+        page.set_border_width 8
+        page.pack_with_label 'File', audio_data
+        page.pack_with_label 'Caption (optional)', audio_caption, true
+
+        @notebook.add_page_with_tab page, 'Audio'
+      end
+
+      #
+      # Video page
+      #
+      @video_embed = Gtk::Entry.new
+      video_caption = multiline_entry :video_caption
+
+      page = Gtk::VBox.new false, 4
+      page.set_border_width 8
+
+      if $api.user.can_upload_video == '1'
+        filter = Gtk::FileFilter.new
+        filter.set_name "Video"
+        filter.add_mime_type "video/*"
+
+        video_data = file_chooser_button :video_data, filter
+        @video_title = Gtk::Entry.new
+
+        page.pack_with_label 'File', video_data
+        page.pack_with_label 'Title (optional)', @video_title
+      end
+
+      page.pack_with_label 'Embed code / YouTube link', @video_embed
+      page.pack_with_label 'Caption (optional)', video_caption, true
+
+      @notebook.add_page_with_tab page, 'Video'
+
+      ##
+      ### Toolbar
+      ##
+
+      toolbar = Gtk::Toolbar.new
+      toolbar.icon_size = Gtk::IconSize::MENU
+
+      icon = Gtk::Image.new Gtk::Stock::HOME, Gtk::IconSize::MENU
+      item = Gtk::ToolButton.new icon, 'Tumblelog'
+      item.signal_connect(:clicked) do
+        Thread.new { system('xdg-open "%s"' % $app.blog.url) }
+      end
+      toolbar.insert 0, item
+
+      icon = Gtk::Image.new Gtk::Stock::PREFERENCES, Gtk::IconSize::MENU
+      item = Gtk::ToolButton.new icon, 'Dashboard'
+      item.signal_connect(:clicked) do
+        Thread.new { system('xdg-open "http://www.tumblr.com/tumblelog/%s"' % $app.blog.name) }
+      end
+      toolbar.insert 1, item
+
+      combo = Gtk::ComboBox.new
+      active_blog = $cfg.get(:active_blog) || nil
+      active_blog_idx = nil
+      $api.blogs.each_with_index do |blog, idx|
+        combo.append_text blog.title
+        active_blog_idx = idx if blog.name.eql?(active_blog)
+        active_blog_idx = idx if active_blog_idx.nil? and blog.is_primary == "yes"
+      end
+      combo.signal_connect(:changed) do |widget|
+        $app.blog = $api.blogs[widget.active]
+        $cfg.set :active_blog, $app.blog.name
+        @statusbar.push 0, $app.blog.title
+      end
+      combo.set_active(active_blog_idx)
+      item =  Gtk::ToolItem.new
+      item.set_expand true
+      item.add combo
+      toolbar.insert 2, item
+
+      icon = Gtk::Image.new Gtk::Stock::QUIT, Gtk::IconSize::MENU
+      item = Gtk::ToolButton.new icon, 'Quit'
+      item.set_homogeneous false
+      item.signal_connect(:clicked) do
+        $app.quit
+      end
+      toolbar.insert 3, item
+
+      ##
+      ### Buttons
+      ##
+      clear_button = Gtk::Button.new 'Clear'
+      clear_button.set_focus_on_click false
+      clear_button.signal_connect(:clicked) do |widget|
+        page = @notebook.get_nth_page @notebook.page
+        message_type = @notebook.get_menu_label_text page
+        reset_form message_type.downcase
+      end
+
+      @private_button = Gtk::ToggleButton.new 'Private'
+      @private_button.signal_connect(:toggled) do |widget|
+        $cfg.set :private, widget.active?
+      end
+      @private_button.set_active $cfg.get(:private)
+
+      submit_button = Gtk::Button.new 'Send'
+      submit_button.signal_connect(:released) do |widget|
+        post
+      end
+
+      button_box = Gtk::HBox.new false, 4
+      button_box.pack_start clear_button, false
+      button_box.pack_start @private_button, false
+      button_box.pack_start submit_button
+
+      ##
+      ### Layout
+      ##
+      pack_start toolbar, false
+      pack_start @notebook
+      pack_start button_box, false
+      pack_start @statusbar, false
+      show_all
+    end
+
+    def post
+      page = @notebook.get_nth_page @notebook.page
+      message_type = @notebook.get_menu_label_text(page).downcase
+
+      mandatory_data = collect_data_for Ppds::Tumblr::MANDATORY_FIELDS, message_type
+      concurent_data = collect_data_for Ppds::Tumblr::CONCURENT_FIELDS, message_type
+      optional_data  = collect_data_for Ppds::Tumblr::OPTIONAL_FIELDS,  message_type
+
+      mandatory_data.each do |key, value|
+        raise "Mandatory field %s is not set!" % key if not value or value.empty?
+      end unless Ppds::Tumblr::MANDATORY_FIELDS[message_type].empty?
+
+      unless Ppds::Tumblr::CONCURENT_FIELDS[message_type].empty?
+        concurent_data.delete_if { |x,y| y == "" or y.nil? }
+        raise "None of fields %s is set!" % Ppds::Tumblr::CONCURENT_FIELDS[message_type].join(", ") if concurent_data.empty?
+      end
+
+      optional_data.delete_if { |x,y| y == "" or y.nil? }
+
+      data = {
+        :generator  => 'Grumblr',
+        :email      => $cfg.get(:email),
+        :password   => $cfg.get(:password),
+        :channel_id => $app.blog.name,
+        :group      => $app.blog.name + '.tumblr.com',
+        :type       => message_type,
+        :format     => @format.active? ? 'markdown' : 'html',
+        :private    => @private_button.active? ? 1 : 0
+      }
+
+      data.merge! mandatory_data
+      data.merge! concurent_data
+      data.merge! optional_data
+
+      data.update({:data => File.read(data['data'])}) if data.has_key?('data') and data['data'] != ""
+
+      $api.query 'write', data
+      MessageDialog.new "Message posted", Gtk::Stock::DIALOG_INFO
+      reset_form message_type
+    rescue Exception
+      MessageDialog.new $!
+    end
+
+    def collect_data_for(fieldset, message_type)
+      data = {}
+      for key in fieldset[message_type]
+        name = "@#{message_type}_#{key.gsub(/-/,'_')}"
+        if var = instance_variable_get(name)
+          value = var.get_value
+          data.merge!({ key => value })
+        end
+      end
+      data
+    end
+
+    def file_chooser_button(name, filter = nil)
+      button = Gtk::FileChooserButton.new('Open', Gtk::FileChooser::ACTION_OPEN)
+      if filter
+        button.add_filter(filter)
+        button.set_filter(filter)
+      end
+      button.signal_connect(:selection_changed) do |widget|
+        puts widget.filename
+      end
+      button.show_all
+      instance_variable_set "@#{name}", button
+    end
+
+    def multiline_entry(name)
+      instance_variable_set "@#{name}", Gtk::TextBuffer.new
+
+      view = Gtk::TextView.new
+      view.set_buffer instance_variable_get("@#{name}")
+      view.set_wrap_mode Gtk::TextTag::WRAP_WORD
+      view.set_right_margin 5
+      view.set_left_margin 5
+
+      window = Gtk::ScrolledWindow.new
+      window.set_shadow_type Gtk::SHADOW_IN
+      window.set_policy Gtk::POLICY_AUTOMATIC, Gtk::POLICY_AUTOMATIC
+      window.add view
+      window.show_all
+    end
+
+    def reset_fields_for(fieldset, message_type)
+      for key in fieldset[message_type]
+        name = "@#{message_type}_#{key.gsub(/-/,'_')}"
+        var = instance_variable_get(name)
+        var.clear if var
+      end
+    end
+
+    def reset_form(message_type)
+      [ Ppds::Tumblr::MANDATORY_FIELDS,
+        Ppds::Tumblr::CONCURENT_FIELDS,
+        Ppds::Tumblr::OPTIONAL_FIELDS ].each do |fieldset|
+        reset_fields_for(fieldset, message_type)
+      end
+    end
+  end
+
+  class MessageDialog < Gtk::Dialog
+    def initialize(text, stock = Gtk::Stock::DIALOG_ERROR)
+      super "Attention!", $gui, Gtk::Dialog::MODAL
+
+      message = Gtk::Label.new text
+      icon = Gtk::Image.new stock, Gtk::IconSize::DIALOG
+
+      hbox = Gtk::HBox.new false, 20
+      hbox.set_border_width 20
+      hbox.pack_start icon, false
+      hbox.pack_start message, true
+
+      self.add_button Gtk::Stock::OK, Gtk::Dialog::RESPONSE_NONE
+      self.signal_connect(:response) { self.destroy }
+      self.vbox.add hbox
+      self.show_all
+      self.run
+    end
+  end
+
+  class SettingsFrame < Gtk::HBox
+    def initialize
+      super false, 40
+      self.set_border_width 40
+
+      @label = Gtk::Label.new
+      @label.set_markup '<b>Fill-in Tumblr credentials</b>'
+
+      @text_e = Gtk::Entry.new
+      @text_e.set_text $cfg.get(:email).to_s
+
+      @text_p = Gtk::Entry.new
+      @text_p.set_visibility false
+      @text_p.set_text $cfg.get(:password).to_s
+
+      hbox = Gtk::HBox.new
+
+      button = Gtk::Button.new 'Cancel'
+      button.signal_connect(:released) { $app.quit }
+      hbox.pack_start button
+
+      button = Gtk::Button.new 'Sign in'
+      button.signal_connect(:released) { login }
+      hbox.pack_start button
+
+      header = Gtk::Label.new
+      header.set_alignment 0.0, 0.8
+      header.set_markup '<big><big><b>Grumblr 2.0</b></big></big>'
+
+      vbox = Gtk::VBox.new false, 4
+      vbox.pack_start header
+      vbox.pack_with_label '_Email', @text_e
+      vbox.pack_with_label '_Password', @text_p
+      vbox.pack_start @label
+      vbox.pack_start hbox, false
+
+      logo = Gtk::Image.new $gui.logo
+
+      self.pack_start logo
+      self.pack_start vbox
+      self.show_all
+    end
+
+    def login
+      email = @text_e.text.strip
+      password = @text_p.text.strip
+      if $api.authenticate(email, password)
+        $cfg.set :email, email
+        $cfg.set :password, password
+        self.destroy
+        @dashboard = Dashboard.new
+        $gui.add @dashboard
+      else
+        raise "Authentication failed"
+      end
+    rescue Exception
+      MessageDialog.new $!
+    end
+  end
+
+
+  class AboutDialog < Gtk::AboutDialog
+    def initialize
+      Gtk::AboutDialog.set_email_hook do |dialog, email|
+        system("xdg-email #{email}")
+      end
+      Gtk::AboutDialog.set_url_hook do |dialog, url|
+        system("xdg-open #{url}")
+      end
+      super
+      self.logo          = $gui.logo
+      self.program_name  = 'Grumblr'
+      self.version       = '2.0'
+      self.copyright     = "Copyright (c)2009, Paul Philippov"
+      self.comments      = "Tumblr companion for GNOME"
+      self.license       = "New BSD License.\nhttp://creativecommons.org/licenses/BSD/"
+      self.website       = "http://grumblr.googlecode.com/"
+      self.website_label = "grumblr.googlecode.com"
+      self.authors       = ['Paul Philippov <paul@ppds.ws>']
+      self.run
+      self.destroy
+    end
+  end
+
+  class StatusIcon < Gtk::StatusIcon
+    def initialize
+      super
+      self.file = File.join(Grumblr::IMAGE_ROOT, 'grumblr.svg')
+      self.tooltip = "Application Name Goes Here"
+      self.signal_connect(:activate) do
+        if $gui.visible?
+          $gui.minimize
+        else
+          $gui.move $cfg.get(:window_x_pos), $cfg.get(:window_y_pos)
+          $gui.show.present
+        end
+      end
+      self.signal_connect(:popup_menu) do |icon, button, time|
+        menu.popup nil, nil, button, time
+      end
+    end
+
+    def menu
+      menu = Gtk::Menu.new
+      for item in [ ontop, sep, destroy_account, sep, about, sep, quit ]
+        menu.append item
+      end
+      menu.show_all
+    end
+
+    def sep
+      Gtk::SeparatorMenuItem.new
+    end
+
+    ##
+    ## Destroy Config
+    ##
+    def destroy_account
+      icon = Gtk::ImageMenuItem.new 'Destroy account'
+      icon.set_image Gtk::Image.new(Gtk::Stock::STOP, Gtk::IconSize::MENU)
+      icon.signal_connect(:activate) do
+        $cfg.destroy
+      end
+      icon.show
+    end
+
+    def about
+      icon = Gtk::ImageMenuItem.new Gtk::Stock::ABOUT
+      icon.signal_connect(:activate) do
+        AboutDialog.new
+      end
+      icon.show
+    end
+
+    def ontop
+      icon = Gtk::CheckMenuItem.new 'Always on top'
+      icon.signal_connect(:toggled) do |widget|
+        $gui.keep_above = widget.active?
+      end
+      icon.show
+    end
+
+    def quit
+      icon = Gtk::ImageMenuItem.new Gtk::Stock::QUIT
+      icon.signal_connect(:activate) do
+        $app.quit
+      end
+      icon.show
+    end
+  end
+end
+
+class Gtk::Box
+  def pack_with_label(text, widget, expand = false)
+    label = Gtk::Label.new text, true
+    label.set_alignment 0.0, 0.5
+    label.set_mnemonic_widget widget
+    self.pack_start label, false
+    self.pack_start widget, expand
+  end
+end
+
+class Gtk::Entry
+  alias :get_value :text
+  def clear
+    self.set_text ''
+  end
+end
+
+module Gtk::FileChooser
+  alias :get_value :filename
+  alias :clear :unselect_all
+end
+
+class Gtk::Notebook
+  def add_page_with_tab(page, text)
+    filename = File.join(Grumblr::IMAGE_ROOT, '%s.bmp' % text.downcase)
+    icon = Gtk::Image.new filename
+    icon.set_padding 2, 4
+
+    label = Gtk::Label.new '_' + text, true
+    label.set_alignment 0.0, 0.5
+    label.set_padding 4, 2
+
+    box = Gtk::HBox.new false, 4
+    box.pack_start icon, false
+    box.pack_start label, true
+    box.show_all
+
+    self.append_page_menu page, box, label
+  end
+end
+
+class Gtk::TextBuffer
+  alias :get_value :get_text
+  def clear
+    self.set_text ''
+  end
+end

data/lib/ppds/class_factory.rb

@@ -0,0 +1,17 @@
+module Ppds
+  class ClassFactory
+    def initialize(data=[])
+      for att in data
+        set(att.name.gsub(/-/,'_'), att.value)
+      end
+    end
+
+    def get(name)
+      instance_variable_get("@#{name}")
+    end
+
+    def set(name, value)
+      instance_variable_set("@#{name}", value)
+    end
+  end
+end

data/lib/ppds/config.rb

@@ -0,0 +1,47 @@
+require 'gconf2'
+
+module Ppds
+  class Config
+    @@gconf = GConf::Client.default
+
+    def gconf
+      @@gconf
+    end
+
+    def initialize(app)
+      @root = '/apps/%s' % app
+      gconf.add_dir(@root)
+    end
+
+    def name_from_key(key)
+      key.split('/').last
+    end
+
+    def key_from_name(name)
+      [ @root, name ].join("/")
+    end
+
+    def all
+      gconf.all_entries(@root)
+    end
+
+    def get(name)
+      gconf[key_from_name(name)]
+    end
+
+    def set(name, value)
+      gconf[key_from_name(name)] = value
+    end
+
+    def save
+      gconf.suggest_sync
+    end
+
+    def destroy
+      for one in all
+        gconf.unset(one.key)
+      end
+      save
+    end
+  end
+end

data/lib/ppds/tumblr.rb

@@ -0,0 +1,85 @@
+require 'ppds/class_factory'
+require 'rest_client'
+require 'xml'
+
+module Ppds
+  class User < ClassFactory
+    attr_accessor :default_post_format, :can_upload_audio, :can_upload_aiff,
+                  :can_upload_video, :vimeo_login_url, :max_video_bytes_uploaded
+  end
+
+  class Blog < ClassFactory
+    attr_accessor :type, :title, :name, :url, :avatar_url,
+                  :is_primary, :private_id
+  end
+
+  class Tumblr
+    attr_accessor :user, :blogs
+
+    MANDATORY_FIELDS = {
+      'text'  => ['body'],
+      'link'  => ['url'],
+      'chat'  => ['conversation'],
+      'quote' => ['quote'],
+      'photo' => [],
+      'video' => [],
+      'audio' => ['data']
+    }
+
+    CONCURENT_FIELDS = {
+      'text'  => [],
+      'link'  => [],
+      'chat'  => [],
+      'quote' => [],
+      'photo' => ['source', 'data'],
+      'video' => ['embed', 'data'],
+      'audio' => []
+    }
+
+    OPTIONAL_FIELDS  = {
+      'text'  => ['title'],
+      'link'  => ['name', 'description'],
+      'chat'  => ['title'],
+      'quote' => ['source'],
+      'photo' => ['caption','click-through-url'],
+      'video' => ['caption'], # 'title'
+      'audio' => ['caption']
+    }
+
+    API_URL = 'http://www.tumblr.com/api/'
+
+    def initialize
+      self.user = nil
+      self.blogs = []
+    end
+
+    def query(action, data)
+      RestClient.post(API_URL + action, data)
+    rescue RestClient::RequestFailed
+      raise 'Query failed: %s' % $!
+    rescue RestClient::RequestTimeout
+      raise 'Timeout occured'
+    rescue Exception
+      raise $!
+    end
+
+    def authenticate(email, password)
+      data = {
+        :email    => email,
+        :password => password
+      }
+      xml = query('authenticate', data)
+      @xml = XML::Parser.string(xml).parse
+
+      self.user  = User.new(@xml.find_first('//tumblr/user').attributes) if @xml
+      self.blogs = @xml.find('//tumblr/tumblelog').map do |node|
+        Blog.new(node.attributes)
+      end
+
+      true
+
+    rescue Exception
+      false
+    end
+  end
+end

metadata

@@ -0,0 +1,95 @@
+--- !ruby/object:Gem::Specification 
+name: themactep-grumblr
+version: !ruby/object:Gem::Version 
+  version: 2.0.0
+platform: ruby
+authors: 
+- Paul Philippov
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-22 00:00:00 -07:00
+default_executable: grumblr
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: libxml-ruby
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: rest-client
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: Grumblr is a message poster to Tumblr blogs from GNOME.
+email: themactep@gmail.com
+executables: 
+- grumblr
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README
+files: 
+- .gitignore
+- LICENSE
+- README
+- Rakefile
+- VERSION
+- bin/grumblr
+- data/grumblr.desktop
+- grumblr.gemspec
+- images/audio.bmp
+- images/chat.bmp
+- images/grumblr.svg
+- images/link.bmp
+- images/photo.bmp
+- images/quote.bmp
+- images/spinner.gif
+- images/text.bmp
+- images/video.bmp
+- lib/grumblr/core.rb
+- lib/grumblr/ui.rb
+- lib/ppds/class_factory.rb
+- lib/ppds/config.rb
+- lib/ppds/tumblr.rb
+has_rdoc: false
+homepage: http://github.com/themactep/grumblr
+licenses: 
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Tumblr companion for GNOME
+test_files: []
+