card 0.0.1 → 1.15.pre

data/mod/02_basic_types/format/css_format.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+class Card
+  Format.register :css
+  class CssFormat < Card::Format
+  end
+end

data/mod/02_basic_types/format/csv_format.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+class Card
+  Format.register :csv
+  class CsvFormat < TextFormat
+  end
+end

data/mod/02_basic_types/format/file_format.rb

@@ -0,0 +1,3 @@
+# -*- encoding : utf-8 -*-
+class Card::FileFormat < Card::Format
+end

data/mod/02_basic_types/format/js_format.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+class Card
+  Format.register :js
+  class JsFormat < Format
+  end
+end

data/mod/02_basic_types/format/json_format.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+class Card
+  Format.register :json
+  class JsonFormat < DataFormat
+  end
+end

data/mod/02_basic_types/format/rss_format.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+class Card
+  Format.register :rss
+
+  class RssFormat < HtmlFormat
+
+    def internal_url relative_path
+      card_url relative_path
+    end
+  end
+end

data/mod/02_basic_types/format/xml_format.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+class Card
+  Format.register :xml
+  class XmlFormat < DataFormat
+  end
+end

data/mod/02_basic_types/set/all/all_css.rb

@@ -0,0 +1,42 @@
+    
+format :css do
+
+  def get_inclusion_defaults
+    { :view => :content }
+  end
+
+  def show view, args
+    view ||= :content
+    render view, args
+  end
+  
+  view :titled do |args|
+    major_comment( %{ Style Card: "#{ card.name }" } ) +
+    _render_core( args )
+  end
+  
+  view :content do |args|
+   _render_core( args )
+  end
+  
+  view :missing do |args|
+    major_comment "MISSING Style Card: #{card.name}"
+  end
+  
+  view :import do |args|
+    %{\n@import url("#{ _render_url :item=>:import }");\n}
+  end
+  
+  view :url, :perms=>:none do |args|
+    page_path card.cardname, :format=>:css, :item=>args[:item]
+#    card_url _render_linkname
+  end
+
+  def major_comment comment, char='-'
+    edge = %{/* #{ char * ( comment.length+4 ) } */}
+    main = %{/* #{ char } #{ comment } #{ char } */}
+    "#{edge}\n#{main}\n#{edge}\n\n"
+  end
+
+
+end

data/mod/02_basic_types/set/all/all_csv.rb

@@ -0,0 +1,52 @@
+require 'csv'
+
+format :csv  do
+  def get_inclusion_defaults
+    { :view => :core }
+  end
+  
+  def default_item_view 
+    @depth == 0 ? :csv_row : :name
+  end
+
+  
+  view :csv_row do |args|
+    array = _render_raw.scan( /\{\{[^\}]*\}\}/ ).map do |inc|
+      process_content( inc ).strip
+    end
+    
+    CSV.generate_line(array).strip
+    #strip is because search already joins with newlines
+  end
+
+  view :missing do |args|
+    ''
+  end
+
+  view :csv_title_row do |args|
+    #NOTE: assumes all cards have the same structure!
+    begin
+      card1 = search_vars[:results].first  
+    
+      parsed_content = Card::Content.new card1.raw_content, self
+      unless String === parsed_content.__getobj__
+        titles = parsed_content.map do |chunk|
+          next if chunk.class != Card::Chunk::Include
+          opts = chunk.options
+          if ['name','link'].member? opts[:view]
+            opts[:view]
+          else
+            opts[:inc_name].to_name.tag
+          end
+        end.compact.map {|title| title.to_s.upcase }
+        CSV.generate_line titles
+        
+      else
+        ''
+      end
+    rescue
+      ''
+    end
+  end
+
+end

data/mod/02_basic_types/set/all/all_js.rb

@@ -0,0 +1,7 @@
+    
+format :js do
+  view :include_tag do |args|
+    %{\n#{javascript_include_tag page_path(card.cardname) }\n }
+  end
+  
+end

data/mod/02_basic_types/set/all/base.rb

@@ -0,0 +1,122 @@
+
+format do
+  def show view, args
+    view ||= :core
+    render view, args
+  end
+
+  # NAME VIEWS
+                                                                              
+  view :name,     :closed=>true, :perms=>:none do |args| card.name                           end
+  view :key,      :closed=>true, :perms=>:none do |args| card.key                            end
+  view :title,    :closed=>true, :perms=>:none do |args| args[:title] || card.name           end
+
+  view :linkname, :closed=>true, :perms=>:none do |args| card.cardname.url_key               end
+  view :url,      :closed=>true, :perms=>:none do |args| card_url _render_linkname           end
+  view :url_link, :closed=>true, :perms=>:none do |args| web_link card_url(_render_linkname) end
+
+  view :link, :closed=>true, :perms=>:none do |args|
+    card_link( card.name,
+      :text=>showname( args[:title] ),
+      :known=>card.known?,
+      :path_opts=>{ :type=>args[:type] }
+    )
+  end
+        
+  view :codename, :closed=>true do |args| card.codename.to_s  end  
+  view :id,       :closed=>true do |args| card.id             end
+  view :type,     :closed=>true do |args| card.type_name      end
+
+
+  # DATE VIEWS
+
+  view :created_at, :closed=>true do |args| time_ago_in_words card.created_at end
+  view :updated_at, :closed=>true do |args| time_ago_in_words card.updated_at end
+  view :acted_at,   :closed=>true do |args| time_ago_in_words card.acted_at   end
+
+
+  # CONTENT VIEWS
+
+  view :raw do |args|
+    scard = args[:structure] ? Card[ args[:structure] ] : card
+    scard ? scard.raw_content : _render_blank
+  end
+
+  view :core do |args|
+    process_content _render_raw(args)
+  end
+
+  view :content do |args|
+    _render_core args
+  end
+
+  view :open_content do |args|
+    _render_core args
+  end
+
+  view :closed_content, :closed=>true do |args|
+    Card::Content.truncatewords_with_closing_tags _render_core(args) #{ yield }
+  end
+
+  view :blank, :closed=>true, :perms=>:none do |args|
+    ''
+  end
+
+
+  # note: content and open_content may look like they should be aliased to core, but it's important that they render
+  # core explicitly so that core view overrides work.  the titled and labeled views below, however, are not intended
+  # for frequent override, so this shortcut is fine.
+
+
+  # NAME + CONTENT VIEWS
+
+  view :titled do |args|
+    "#{ card.name }\n\n#{ _render_core args }"
+  end
+  view :open, :titled
+
+  view :labeled do |args|
+    "#{ card.name }: #{ _render_closed_content args }"
+  end
+  view :closed, :labeled
+
+
+  # SPECIAL VIEWS
+
+  view :array do |args|
+    card.item_cards(:limit=>0).map do |item_card|
+      subformat(item_card)._render_core(args)
+    end.inspect
+  end
+
+
+
+  #none of the below belongs here!!
+
+
+  view :template_rule, :tags=>:unknown_ok do |args|
+    #FIXME - relativity should be handled in smartname
+  
+    name = args[:inc_name] or return ''
+    regexp = /\b_(left|right|whole|self|user|main|\d+|L*R?)\b/
+    absolute = name !~ regexp && name !~ /^\+/
+    
+    tname = name.gsub regexp, ''
+    if tname !~ /^\+/ and !absolute
+      "{{#{args[:inc_syntax]}}}"
+    else
+      set_name = if absolute # find the most appropriate set to use as prototype for inclusion
+        "#{name}+#{Card[:self].name}"
+      else
+        tmpl_set_name = parent.card.cardname.trunk_name
+        if tmpl_set_class_name = tmpl_set_name.tag_name and Card[tmpl_set_class_name].codename == 'type'
+          "#{tmpl_set_name.left_name}#{name}+#{Card[:type_plus_right].name}"  # *type plus right
+        else
+          "#{tname.gsub /^\+/,''}+#{Card[:right].name}"                                      # *right
+        end
+      end
+    
+      subformat( Card.fetch(set_name) ).render_template_link args
+    end
+  end
+end

data/mod/02_basic_types/set/all/file.rb

@@ -0,0 +1,13 @@
+
+format :file do
+
+  view :core do |args|
+    'File rendering of this card not yet supported'
+  end
+  
+    
+  view :style do |args|
+    nil
+  end
+  
+end

data/mod/02_basic_types/set/all/json.rb

@@ -0,0 +1,66 @@
+
+format :json do
+
+  def get_inclusion_defaults
+    { :view=>:atom }
+  end
+
+  def default_item_view
+    params[:item] || :atom
+  end
+  
+  def max_depth
+    params[:max_depth] || 1
+  end
+  
+  def show view, args
+    view ||= :content
+    raw = render view, args
+    case
+    when String === raw    ;  raw
+    when params[:compress] ;  JSON( raw )
+    else                   ;  JSON.pretty_generate raw
+    end
+  end
+
+  view :name_complete do |args|
+    card.item_cards :complete=>params['term'], :limit=>8, :sort=>'name', :return=>'name', :context=>''
+  end
+  
+  view :status, :tags=>:unknown_ok, :perms=>:none do |args|
+    status = case
+    when !card.known?       ;  :unknown
+# do we want the following to prevent fishing?  of course, they can always post...        
+    when !card.ok?(:read)   ;  :unknown
+    when card.real?         ;  :real
+    when card.virtual?      ;  :virtual
+    else                    ;  :wtf
+    end
+    
+    hash = { :key=>card.key, :url_key=>card.cardname.url_key, :status=>status }
+    hash[:id] = card.id if status == :real
+     
+    hash
+  end
+
+  view :content do |args|
+    req = controller.request
+    {
+      :url       => (req && req.original_url),
+      :timestamp => Time.now.to_s,
+      :card      => _render_atom
+    }
+  end
+  
+  view :atom do |args|
+    h = {
+      :name    => card.name,
+      :type    => card.type_name
+    }
+    h[:content]  = card.content  unless card.structure
+    h[:codename] = card.codename     if card.codename
+    h[:value]    = _render_core args if @depth < max_depth
+    h
+  end
+
+end

data/mod/02_basic_types/set/all/rss.rb

@@ -0,0 +1,72 @@
+
+format :rss do
+  
+  attr_accessor :xml
+  
+  def initialize card, args
+    super
+    @xml = @parent.xml if @parent
+  end
+
+  def show view, args
+    @xml = Builder::XmlMarkup.new
+    view ||= :feed
+    render view, args
+  end
+
+  # FIXME: integrate this with common XML features when it is added
+  view :feed do |args|
+    begin
+      @xml.instruct! :xml, :version => "1.0"
+      @xml.rss :version => "2.0" do
+        @xml.channel do
+          @xml.title       render_feed_title
+          @xml.description render_feed_description
+          @xml.link        render_url
+          render_feed_item_list
+        end
+      end
+    rescue =>e
+      @xml.error "\n\nERROR rendering RSS: #{e.inspect}\n\n #{e.backtrace}"
+    end
+  end
+  
+  view :feed_item_list do |args|
+    items = if card.type_id == Card::SearchTypeID  #FIXME! yuck.
+      card.item_cards( search_params.merge(:default_limit => 25) )
+    else
+      [card]
+    end
+    items.each do |item|
+      @xml.item do
+        subformat(item).render_feed_item :view_changes=>(card.id==RecentID)  #FIXME! yuck.
+      end
+    end
+  end
+  
+  
+  view :feed_title do |args|
+    Card.setting(:title) + " : " + card.name.gsub(/^\*/,'')
+  end
+  
+  view :feed_item do |args|
+    @xml.title card.name
+    add_name_context
+    @xml.description render((args[:view_changes] ? :change : :open_content))
+    @xml.pubDate card.revised_at.to_s(:rfc822)  #updated_at fails on virtual cards, because not all to_s's take args (just actual dates)
+    @xml.link render_url
+    @xml.guid render_url
+  end
+
+
+  view :feed_description do |args| '' end
+  view :comment_box      do |args| '' end
+  view :menu             do |args| '' end
+    
+  
+  view :open,         { :view=>:titled, :mod=>All::Base::Format }
+  view :content,      { :view=>:core,   :mod=>All::Base::Format }
+  view :open_content, { :view=>:core,   :mod=>All::Base::Format }
+  view :closed,       { :view=>:link,   :mod=>All::Base::Format }
+
+end

data/mod/02_basic_types/set/all/text.rb

@@ -0,0 +1,8 @@
+
+format :text do
+
+  view :core do |args|
+    HTMLEntities.new.decode "#{ strip_tags( super args ) }" #need this string method to get out of html_safe mode
+  end
+
+end