card 0.0.1 → 1.15.pre

data/mod/05_standard/set/self/stats.rb

@@ -0,0 +1,91 @@
+
+format :html do
+  view :core do |args|
+    oldmem = session[:memory]
+    session[:memory] = newmem = card.profile_memory
+    stats = %{
+      <table>
+        <tr>
+          <th>Stat</th>
+          <th>Value</th>
+          <th>Action</th>
+        </tr>
+        <tr>
+          <td>cards</td>
+          <td>#{ Card.where(:trash=>false).count }</td>
+          <td></td>
+        </tr>
+        <tr>
+          <td>trashed cards</td>
+          <td>#{ Card.where(:trash=>true).count  }</td>
+          <td>#{link_to 'delete all', card_path( 'update/:all?task=empty_trash' )}</td>
+        </tr>
+        <tr>
+          <td>actions</td>
+          <td>#{ Card::Action.count }</td>
+          <td>#{link_to 'delete old', card_path( 'update/:all?task=delete_old_revisions' ) }</td>
+        </tr>
+          <tr><td>references</td>
+          <td>#{ Card::Reference.count }</td>
+          <td>#{link_to 'repair all', card_path( 'update/:all?task=repair_references' ) }</td>
+        </tr>
+        <tr>
+          <td>sessions</td>
+          <td>#{ ActiveRecord::SessionStore::Session.count }</td>
+          <td>
+            delete older than
+            #{ delete_sessions_link 1 }
+            #{ delete_sessions_link 2 }
+            #{ delete_sessions_link 3 }
+            months
+          </td>
+        </tr>
+        <tr>
+          <td>memory now</td>
+          <td>#{ newmem }M</td>
+          <td>#{link_to 'clear cache',  card_path( 'update/:all?task=clear_cache' ) }</td>
+        </tr>
+        #{
+          if oldmem
+            %{
+              <tr>
+                <td>memory prev</td>
+                <td>#{ oldmem }M</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>memory diff</td>
+                <td>#{ newmem - oldmem }M</td>
+                <td></td>
+              </tr>
+              
+            }
+          end
+        }
+      </table>
+    }
+  end
+  
+  def delete_sessions_link months
+    link_to months, card_path( "update/:all?task=delete_old_sessions&months=#{months}")
+  end
+end
+
+
+
+
+def get_current_memory_usage
+  `ps -o rss= -p #{Process.pid}`.to_i
+end
+
+def profile_memory(&block)
+  before = get_current_memory_usage
+  file, line, _ = caller[0].split(':')
+  if block_given?
+    instance_eval(&block)
+    (get_current_memory_usage - before) / 1024
+  else
+    before = 0
+    (get_current_memory_usage - before) / 1024
+  end.to_i
+end

data/mod/05_standard/set/self/version.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+require_dependency 'card/version'
+
+view :raw do |args|
+  Card::Version.release
+end
+
+view :core, :raw
+

data/mod/05_standard/set/type/basic.rb

@@ -0,0 +1,46 @@
+format :html do
+  view :open_content do |args|
+    content = _render_core args
+    table_of_contents(content) || content
+  end
+
+  def table_of_contents content
+    return if @mode==:closed || !content.present?
+    min = card.rule(:table_of_contents).to_i
+    #warn "table_of #{name}, #{min}"
+    return unless min and min > 0
+
+    toc, dep = [], 1
+    content.gsub!( /<(h\d)>(.*?)<\/h\d>/i ) do |match|
+      if $~
+        tag, value = $~[1,2]
+        value = ActionView::Base.new.strip_tags(value).strip
+        next if value.empty?
+        item = { :value => value, :uri => URI.escape(value) }
+        case tag.downcase
+        when 'h1'
+          item[:depth] = dep = 1; toc << item
+        when 'h2'
+          toc << []  if dep == 1
+          item[:depth] = dep = 2; toc.last << item
+        end
+        %{<a name="#{item[:uri]}"></a>#{match}}
+      end
+    end
+
+    if toc.flatten.length >= min
+      content.replace %{ <div class="table-of-contents"> <h5>Table of Contents</h5> } +
+        make_table_of_contents_list(toc) + '</div>'+ content
+    end
+  end
+
+
+  def make_table_of_contents_list(items)
+    list = items.collect do |i|
+      Array === i ? make_table_of_contents_list(i) : %{<li><a href="##{i[:uri]}"> #{i[:value]}</a></li>}
+    end.join("\n")
+    "<ol>" + list + "</ol>"
+  end
+
+end
+

data/mod/05_standard/set/type/cardtype.rb

@@ -0,0 +1,43 @@
+
+format :html do
+
+  view :type do |args|
+    args.merge!(:type_class=>'no-edit') if card.cards_of_type_exist?
+    super args
+  end
+
+  view :type_fieldset do |args|
+    if card.cards_of_type_exist?
+      %{<div>Sorry, this card must remain a Cardtype so long as there are <strong>#{ card.name }</strong> cards.</div>}
+    else
+      super args
+    end  
+  end
+end
+
+
+include Basic
+
+
+def follow_label
+  default_follow_set_card.follow_label
+end
+
+def followed_by? user_id = nil
+  default_follow_set_card.all_members_followed_by? user_id
+end
+
+def default_follow_set_card
+  Card.fetch("#{name}+*type") 
+end
+
+
+def cards_of_type_exist?
+  !new_card? and Auth.as_bot { Card.count_by_wql :type_id=>id } > 0
+end
+
+event :check_for_cards_of_type, :after=>:validate_delete do
+  if cards_of_type_exist?
+    errors.add :cardtype, "can't alter this type; #{name} cards still exist"
+  end
+end

data/mod/05_standard/set/type/date.rb

@@ -0,0 +1,8 @@
+
+format :html do
+
+  # what is this for?  Can't you just use TYPE-date and editor to match this cas, no special view needed?
+  view :editor do |args|
+    text_field :content, :class=>'date-editor'
+  end
+end

data/mod/05_standard/set/type/file.rb

@@ -0,0 +1,85 @@
+  
+def item_names(args={})  # needed for flexmail attachments.  hacky.
+  [self.cardname]
+end
+
+
+format do
+  view :source do |args|
+    card.attach.url
+  end
+
+  view :core do |args|
+    handle_source args do |source|
+      card_url source
+    end
+  end
+
+  def handle_source args
+    source = _render_source args
+    source ? yield( source ) : ''
+  rescue
+    'File Error'
+  end
+end
+
+
+format :file do
+      
+  view :core do |args|                                    # returns send_file args.  not in love with this...
+    if format = card.attachment_format( params[:format] ) # this means we only support known formats.  dislike.
+      if params[:explicit_file] and r = controller.response
+        r.headers["Expires"] = 1.year.from_now.httpdate
+        #r.headers["Cache-Control"] = "public"            # currently using default "private", because proxy servers could block needed permission checks
+      end
+      
+   
+  #      elsif ![format, 'file'].member? params[:format]  # formerly supported redirecting to correct file format 
+  #        return redirect_to( request.fullpath.sub( /\.#{params[:format]}\b/, '.' + format ) ) #card.attach.url(style) )
+
+      style = _render_style :style=>params[:size]         # fixme, shouldn't be in type file
+      [ card.attach.path( *[style].compact ),             # nil or empty arg breaks 1.8.7
+        {
+          :type => card.attach_content_type,
+          :filename =>  "#{card.cardname.url_key}#{style.blank? ? '' : '-'}#{style}.#{format}",
+          :x_sendfile => true,
+          :disposition => (params[:format]=='file' ? 'attachment' : 'inline' )
+        }
+      ]
+    else
+      _render_not_found
+    end
+  end  
+
+end
+
+
+format :html do
+  
+  view :core do |args|
+    handle_source args do |source|
+      "<a href=\"#{source}\">Download #{ showname args[:title] }</a>"
+    end
+  end
+
+  view :editor do |args|
+    #Rails.logger.debug "editor for file #{card.inspect}"
+    out = '<div class="choose-file">'
+    if !card.new_card?
+      out << %{<div class="attachment-preview" :id="#{card.attach_file_name}-preview"> #{_render_core(args)} </div> }
+    end
+    out << %{
+      <div>#{file_field :attach, :class=>'file-upload slotter'}</div>
+    </div>
+    <div class="chosen-file" style="display:none">
+      <div><label>File chosen:</label> <span class="chosen-filename"></span></div>
+      <div><a class="cancel-upload">Unchoose</a></div>
+    </div>
+      }
+    out
+  end
+  
+end
+
+
+

data/mod/05_standard/set/type/html.rb

@@ -0,0 +1,22 @@
+
+view :editor do |args|
+  text_area :content, :rows=>5, :class=>'card-content'
+end
+
+view :closed_content do |args|
+  ''
+end
+
+def clean_html?
+  false
+end
+
+def diff_args
+ {:format=>:raw}
+end
+
+format do
+  def chunk_list
+    :references
+  end
+end

data/mod/05_standard/set/type/image.rb

@@ -0,0 +1,67 @@
+
+include File
+
+format do
+  
+  include File::Format
+
+  view :closed_content do |args|
+    _render_core :size=>:icon
+  end
+
+  view :source do |args|
+    style = case
+      when @mode==:closed ;  :icon
+      when args[:size]    ;  args[:size]
+      when main?          ;  :large
+      else                ;  :medium
+      end
+    style = :original if style.to_sym == :full
+    card.attach.url style
+  end
+
+end
+
+format :html do
+  include File::HtmlFormat
+
+  view :core do |args|
+    handle_source args do |source|
+      source == 'missing' ? "<!-- image missing #{@card.name} -->" : image_tag(source)
+    end
+  end
+
+
+  view :content_changes do |args|
+    out = ''
+    size = args[:diff_type]==:summary ? :icon : :medium
+    if !args[:hide_diff] and args[:action] and last_change = card.last_change_on(:db_content,:before=>args[:action])
+      card.selected_action_id=last_change.card_action_id
+      out << Card::Diff.render_added_chunk(_render_core(:size=>size))
+    end
+    card.selected_action_id=args[:action].id
+    out <<  Card::Diff.render_deleted_chunk(_render_core(:size=>size))
+    out
+  end
+
+end
+
+format :css do
+  view :core do |args|
+    render_source
+  end
+  
+  view :content do |args|  #why is this necessary?
+    render_core
+  end
+end
+
+format :file do
+  include File::FileFormat
+
+  view :style do |args|  #should this be in model?
+    ['', 'full'].member?( args[:style].to_s ) ? :original : args[:style]
+  end
+    
+end
+

data/mod/05_standard/set/type/layout_type.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+include Html
+
+format do
+  include Html::Format
+end
+
+format :html do
+  view :core do |args|
+    with_inclusion_mode :template do
+      process_content ::CodeRay.scan( _render_raw, :html ).div
+    end
+  end
+end

data/mod/05_standard/set/type/number.rb

@@ -0,0 +1,19 @@
+
+view :editor do |args|
+  text_field :content, :class=>'card-content'
+end
+
+event :validate_number, :after=>:approve do
+  errors.add :content, "'#{content}' is not numeric" unless valid_number?( content )
+end
+
+def valid_number?( string )
+  valid = true
+  begin
+    Kernel.Float( string )
+  rescue ArgumentError, TypeError
+    valid = false
+  end
+  valid
+end
+

data/mod/05_standard/set/type/phrase.rb

@@ -0,0 +1,3 @@
+view :editor do |args|
+  text_field :content, :class=>'card-content'
+end

data/mod/05_standard/set/type/search_type.rb

@@ -0,0 +1,243 @@
+
+
+def item_cards params={}
+  s = query(params)
+  raise("OH NO.. no limit") unless s[:limit]
+  # forces explicit limiting
+  # can be 0 or less to force no limit
+  Card.search( s )
+end
+
+def item_names params={}
+  ## FIXME - this should just alter the query to have it return name rather than instantiating all the cards!!
+  ## (but need to handle prepend/append)
+  Card.search(query(params)).map(&:cardname)
+end
+
+def item_type
+  query[:type]
+end
+
+def count params={}
+  Card.count_by_wql query( params )
+end
+
+def query params={}
+  @query ||= {}
+  @query[params.to_s] ||= get_query(params.clone)
+end
+
+def get_query params={}
+  query = Auth.as_bot do ## why is this a wagn_bot thing?  can't deny search content??
+    query_content = params.delete(:query) || raw_content
+    #warn "get_query #{name}, #{query_content}, #{params.inspect}"
+    raise("Error in card '#{self.name}':can't run search with empty content") if query_content.empty?
+    String === query_content ? JSON.parse( query_content ) : query_content
+  end
+  query.symbolize_keys!.merge! params.symbolize_keys
+  if default_limit = query.delete(:default_limit) and !query[:limit]
+    query[:limit] = default_limit
+  end
+  query[:context] ||= (cardname.junction? ? cardname.left_name : cardname)
+  query
+end
+
+
+
+
+format do
+
+  view :core do |args|
+    search_vars args
+
+    case
+    when e = search_vars[:error]
+      %{#{e.class.to_s} :: #{e.message} :: #{card.raw_content}}
+    when search_vars[:query][:return] =='count'
+      search_vars[:results].to_s
+    when @mode == :template
+      render :raw
+    else
+      _render_card_list args
+    end
+  end
+
+  view :card_list do |args|
+    if search_vars[:results].empty?
+      'no results'
+    else
+      search_vars[:results].map do |c|
+        nest c
+      end.join "\n"
+    end
+  end
+  
+  def search_vars args={}
+    @search_vars ||= begin
+      v = {}
+      v[:query] = card.query search_params
+      v[:item] = set_inclusion_opts args.merge( :query_view=>v[:query][:view] )
+      v[:results]  = card.item_cards search_params  # this is really odd.  the search is called from within the vars???
+      v
+    rescue =>e
+      { :error => e }
+    end
+  end
+  
+  def set_inclusion_opts args
+    @inclusion_defaults = nil
+    @inclusion_opts ||= {}
+    @inclusion_opts[:view] = args[:item] || inclusion_opts[:view] || args[:query_view] || default_item_view
+    # explicit > inclusion syntax > WQL > inclusion defaults
+  end
+
+  
+
+
+
+  def page_link text, page
+    @paging_path_args[:offset] = page * @paging_limit
+    " #{link_to raw(text), path(@paging_path_args), :class=>'card-paging-link slotter', :remote => true} "
+  end
+
+end
+    
+    
+format :data do
+    
+  view :card_list do |args|
+    search_vars[:results].map do |c|
+      nest c
+    end
+  end
+end
+  
+format :csv do
+  view :card_list do |args|
+    items = super args
+    if @depth == 0
+      render_csv_title_row + items
+    else
+      items
+    end
+  end
+end
+    
+format :json do
+  def default_search_params
+    set_default_search_params :default_limit => 0
+  end
+end
+
+format :html do
+    
+  view :card_list do |args|
+    paging = _optional_render :paging, args
+
+    if search_vars[:results].empty?
+      render_no_search_results(args) 
+    else
+      %{
+        #{paging}
+        <div class="search-result-list">
+          #{
+            search_vars[:results].map do |c|
+              %{
+                <div class="search-result-item item-#{ inclusion_defaults[:view] }">
+                  #{ nest c, :size=>args[:size] }
+                </div>
+              }
+            end * "\n"
+          }
+        </div>
+        #{ paging if search_vars[:results].length > 10 }
+      }
+    end
+  end
+
+
+  view :closed_content do |args|
+    if @depth > self.class.max_depth
+      "..."
+    else
+      search_limit = args[:closed_search_limit]
+      search_params[:limit] = search_limit && search_limit < Card.config.closed_search_limit ?
+                                search_limit : Card.config.closed_search_limit
+      _render_core args.merge( :hide=>'paging', :item=>:link )
+      # TODO: if item is queryified to be "name", then that should work.  otherwise use link
+    end
+  end
+
+  view :editor do |args|
+    text_area :content, :rows=>5
+  end
+
+  view :no_search_results do |args|
+    %{<div class="search-no-results"></div>}
+  end
+
+  view :paging do |args|
+    s = card.query search_params
+    offset, limit = s[:offset].to_i, s[:limit].to_i
+    return '' if limit < 1
+    return '' if offset==0 && limit > offset + search_vars[:results].length #avoid query if we know there aren't enough results to warrant paging
+    total = card.count search_params
+    return '' if limit >= total # should only happen if limit exactly equals the total
+
+    @paging_path_args = { :limit => limit, :item=> inclusion_defaults[:view] }
+    @paging_limit = limit
+
+    s[:vars].each { |key, value| @paging_path_args["_#{key}"] = value }
+
+    out = ['<span class="paging">' ]
+
+    total_pages  = ((total-1) / limit).to_i
+    current_page = ( offset   / limit).to_i # should already be integer
+    window = 2 # should be configurable
+    window_min = current_page - window
+    window_max = current_page + window
+
+    if current_page > 0
+      out << page_link( '&laquo; prev', current_page - 1 )
+    end
+
+    out << %{<span class="paging-numbers">}
+    if window_min > 0
+      out << page_link( 1, 0 )
+      out << '...' if window_min > 1
+    end
+
+    (window_min .. window_max).each do |page|
+      next if page < 0 or page > total_pages
+      text = page + 1
+      out <<  ( page==current_page ? text : page_link( text, page ) )
+    end
+
+    if total_pages > window_max
+      out << '...' if total_pages > window_max + 1
+      out << page_link( total_pages + 1, total_pages )
+    end
+    out << %{</span>}
+
+    if current_page < total_pages
+      out << page_link( 'next &raquo;', current_page + 1 )
+    end
+
+    out << %{<span class="search-count">(#{total})</span></span>}
+    out.join
+  end
+  
+  def default_search_params
+    set_default_search_params :default_limit=>20
+  end
+  
+  
+end
+
+
+
+
+
+
+
+