Class ::xowiki::includelet::delicious (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::delicious

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Add a button to submit article to delicious.

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::delicious {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::delicious instproc render {} {
    :get_parameters

    # The following snippet opens a window, where a user can edit the
    # posted info.  However, it seems not possible to add tags this
    # way automatically.  Alternatively, one could use the API as
    # described below; this supports tags, but no editing...
    # http://farm.tucows.com/blog/_archives/2005/3/24/462869.html#adding

    set delicious_link [export_vars -base "http://del.icio.us/post" {
      {v 4}
      {url   $url}
      {title "[string range [${:__including_page} title] 0 79]"}
      {notes "[string range $description 0 199]"}
      tags
    }]
    return "<a class='image-button' href='[ns_quotehtml $delicious_link]'><img src='http://i.i.com.com/cnwk.1d/i/ne05/fmwk/delicious_14x14.gif' width='14' height='14' alt='Add to your del.icio.us' />del.icio.us</a>"
  }
::xowiki::includelet::delicious instparametercmd __decoration
::xowiki::includelet::delicious instparametercmd parameter_declaration
::nsf::relation::set ::xowiki::includelet::delicious superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::delicious
::xowiki::includelet::delicious::slot eval {set :__parameter {
        {__decoration none}
        {parameter_declaration {
          {-description ""}
          {-tags ""}
          {-url}
        }}
      }}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::delicious::slot::parameter_declaration {set :accessor public
   set :configurable true
   set :convert false
   set :default {
          {-description ""}
          {-tags ""}
          {-url}
        }
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::delicious
   set :incremental 0
   set :manager ::xowiki::includelet::delicious::slot::parameter_declaration
   set :methodname parameter_declaration
   set :multiplicity 1..1
   set :name parameter_declaration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::delicious::slot::__decoration {set :accessor public
   set :configurable true
   set :convert false
   set :default none
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::delicious
   set :incremental 0
   set :manager ::xowiki::includelet::delicious::slot::__decoration
   set :methodname __decoration
   set :multiplicity 1..1
   set :name __decoration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle