card 0.0.1 → 1.15.pre

data/mod/05_standard/set/all/comment.rb

@@ -0,0 +1,39 @@
+event :add_comment, :after=>:approve, :on=>:save, :when=> proc {|c| c.comment } do
+  self.content = %{
+    #{ content }
+    #{ '<hr>' unless content.blank? }
+    #{ comment.split(/\n/).map {|line| "<p>#{line.strip.empty? ? '&nbsp;' : line}</p>"} * "\n" }
+    <div class="w-comment-author">--#{
+      if Auth.signed_in?
+        "[[#{Auth.current.name}]]"
+      else
+        Env.session[:comment_author] = comment_author if Env.session
+        "#{ comment_author } (Not signed in)"
+      end
+    }.....#{Time.now}</div>
+  }
+end
+
+view( :comment_box, :denial=>:blank, :tags=>:unknown_ok, :perms=>lambda { |r| r.card.ok? :comment } ) do |args|
+  
+  
+  %{<div class="comment-box nodblclick"> #{
+    card_form :update do
+      %{
+        #{ hidden_field_tag( 'card[name]', card.name ) if card.new_card? 
+        # FIXME wish we had more generalized solution for names.  without this, nonexistent cards will often take left's linkname.  (needs test)
+        }
+        #{ text_area :comment, :rows=>3 }
+        <div class="comment-buttons">
+          #{
+            unless Auth.signed_in?
+              card.comment_author= (session[:comment_author] || params[:comment_author] || "Anonymous") #ENGLISH
+              %{<label>My Name is:</label> #{ text_field :comment_author }}
+            end
+          }
+          <input type="submit" value="Comment"/>
+        </div>
+      }
+    end}
+  </div>}
+end

data/mod/05_standard/set/all/error.rb

@@ -0,0 +1,214 @@
+
+
+format do
+  view :closed_missing, :perms=>:none, :closed=>true do |args|
+    ''
+  end
+  
+  view :missing, :perms=>:none do |args|
+    ''
+  end
+
+  view :not_found, :perms=>:none, :error_code=>404 do |args|
+    %{ Could not find #{card.name.present? ? %{"#{card.name}"} : 'the card requested'}. }
+  end
+
+  view :server_error, :perms=>:none, :error_code=>500 do |args|
+    %{ Wagn Hitch!  Server Error. Yuck, sorry about that.\n}+
+    %{ To tell us more and follow the fix, add a support ticket at http://wagn.org/new/Support_Ticket }
+  end
+
+  view :denial, :perms=>:none, :error_code=>403 do |args|
+    focal? ? 'Permission Denied' : ''
+  end
+
+  view :bad_address, :perms=>:none, :error_code=>404 do |args|
+    %{ 404: Bad Address }
+  end
+
+  view :too_deep, :perms=>:none, :closed=>true do |args|
+    %{ Man, you're too deep.  (Too many levels of inclusions at a time) }
+  end
+
+  view :too_slow, :perms=>:none, :closed=>true do |args|
+    %{ Timed out! #{ showname } took too long to load. }
+  end 
+end
+
+
+format :html do
+  def view_for_unknown view, args
+    case
+    when focal? && ok?( :create )   ;  :new
+    when commentable?( view, args ) ;  view
+    else                               super
+    end
+  end
+  
+  def commentable? view, args
+    self.class.tagged view, :comment                                   and 
+    show_view? :comment_box, args.merge( :default_visibility=>:hide )  and #developer or wagneer has overridden default
+    ok? :comment
+  end
+  
+  def rendering_error exception, view
+    details = if Auth.always_ok?
+                card_link(error_cardname, :class=>'render-error-link') +
+                    alert('warning', :dismissible=>true, :alert_class=>"render-error-message errors-view admin-error-message") do
+                      %{
+                        <h3>Error message (visible to admin only)</h3>
+                        <p><strong>#{ exception.message }</strong></p>
+                        <div>
+                          #{exception.backtrace * "<br>\n"}
+                        </div>
+                        </div>
+                      }
+                  end
+              else
+                error_cardname
+              end
+                 
+    content_tag :span, :class=>'render-error' do
+      [
+        'error rendering',
+        details,
+        "(#{view} view)"
+      ].join "\n"
+    end
+  end
+
+  def unsupported_view view
+    "<strong>view <em>#{view}</em> not supported for <em>#{error_cardname}</em></strong>"
+  end
+  
+  view :message, :perms=>:none, :tags=>:unknown_ok do |args|
+    frame args do
+      params[:message]
+    end
+  end
+
+
+  view :missing do |args|
+    return '' unless card.ok? :create  # should this be moved into ok_view?
+
+    opts = { :remote=>true, :class=>"slotter missing-#{ args[:denied_view] || args[:home_view]}" }
+    opts[:path_opts] = { :type=> args[:type] } if args[:type]
+
+    wrap args do
+      view_link "Add #{ fancy_title args[:title] }", :new, opts
+    end
+  end
+
+  view :closed_missing, :perms=>:none do |args|
+    %{<span class="faint"> #{ showname } </span>}
+  end
+  
+  
+  
+  view :conflict, :error_code=>409 do |args|
+    # FIXME: hack to get the conflicted update as a proper act for the diff view
+    card.current_act.save
+    action = card.actions.last  # the unsaved action with the new changes
+    action.card_act_id = card.current_act.id
+    action.draft = true
+    action.save
+    card.store_changes  # deletes action if there are no changes 
+
+    # as a consequence card.current_act.actions can be empty when both users made exactly the same changes
+    # but an act is always supposed to have at least one action, so we have to delete the act to avoid bad things
+    card.current_act.reload
+    if card.current_act.actions.empty?
+      card.current_act.delete
+      card.current_act = nil
+    end
+
+    wrap args.merge( :slot_class=>'error-view' ) do  #ENGLISH below
+      alert 'warning' do
+        %{<strong>Conflict!</strong><span class="new-current-revision-id">#{card.last_action_id}</span>
+          <div>#{ card_link card.last_action.act.actor.cardname } has also been making changes.</div>
+          <div>Please examine below, resolve above, and re-submit.</div>
+          #{ wrap do |args|
+              if card.current_act
+                _render_act_expanded :act=>card.current_act, :current_rev_nr => 0
+              else
+                "No difference between your changes and #{card.last_action.act.actor.name}'s version."
+              end
+            end
+           } 
+        }
+      end
+    end
+  end
+  
+  view :errors, :perms=>:none do |args|
+    if card.errors.any?
+      title = %{ Problems #{%{ with #{card.name} } unless card.name.blank?} }
+      frame args.merge(:slot_class=>"panel panel-warning", :title=>title, :hide=>'menu' ) do
+        card.errors.map do |attrib, msg|
+          msg = "<strong>#{attrib.to_s.upcase}:</strong> #{msg}" unless attrib == :abort
+          alert 'warning', :dismissible=>true, :alert_class=>'card-error-msg' do
+            msg
+          end
+        end  
+      end
+    end
+  end
+
+  view :not_found do |args| #ug.  bad name.
+    sign_in_or_up_links = if !Auth.signed_in?
+      %{<div>
+        #{ card_link :signin, :text=>'Sign in' } or
+        #{ link_to 'Sign up', card_path('new/:signup') } to create it.
+       </div>}
+    end
+    frame args.merge(:title=>'Not Found', :optional_menu=>:never) do
+      %{
+        <h2>Could not find #{card.name.present? ? "<em>#{card.name}</em>" : 'that'}.</h2>
+        #{sign_in_or_up_links}
+      }
+    end
+  end
+
+  view :denial do |args|
+    to_task = if task = args[:denied_task]
+      %{to #{task} this.}
+    else
+      'to do that.'
+    end
+    if !focal?
+      %{<span class="denied"><!-- Sorry, you don't have permission #{to_task} --></span>}
+    else
+      frame args do #ENGLISH below
+        message = case
+        when task != :read && Card.config.read_only
+          "We are currently in read-only mode.  Please try again later."
+        when Auth.signed_in?
+          "You need permission #{to_task}"
+        else
+          or_signup = if Card.new(:type_id=>Card::SignupID).ok? :create
+            "or #{ link_to 'sign up', card_url('new/:signup') }"
+          end
+          save_interrupted_action(request.env['REQUEST_URI'])
+          "You have to #{ link_to 'sign in', card_url(':signin') } #{or_signup} #{to_task}"
+        end
+
+        %{<h1>Sorry!</h1>\n<div>#{ message }</div>}
+      end
+    end
+  end
+
+
+  view :server_error do |args|
+    %{
+    <body>
+      <div class="dialog">
+        <h1>Wagn Hitch :(</h1>
+        <p>Server Error. Yuck, sorry about that.</p>
+        <p><a href="http://www.wagn.org/new/Support_Ticket">Add a support ticket</a>
+            to tell us more and follow the fix.</p>
+      </div>
+    </body>
+    }
+  end
+  
+end

data/mod/05_standard/set/all/event_viz.rb

@@ -0,0 +1,62 @@
+#~~~~~~~~~~~~~~~~
+# EXPERIMENTAL
+# the following methods are for visualing card events
+#  not ready for prime time!
+
+def events action
+  @action = action
+  root = _validate_callbacks + _save_callbacks
+  events = [ events_tree(:validation), events_tree(:save)]
+  @action = nil
+  puts_events events
+end
+
+private
+
+def puts_events events, prefix='', depth=0
+  r = ''
+  depth += 1
+  events.each do |e|
+    space = ' ' * (depth * 2)
+
+    #FIXME - this is not right.  before and around callbacks are processed in declaration order regardless of kind.
+    # not all befores then all arounds
+    
+    if e[:before]
+      r += puts_events( e[:before], space+'v  ', depth)
+    end
+    if e[:around]
+      r += puts_events( e[:around], space+'vv ', depth )
+    end
+    
+    
+    output = "#{prefix}#{e[:name]}"
+    #warn output
+    r+= "#{output}\n"
+    
+    if e[:after]
+      r += puts_events( e[:after ].reverse, space+'^  ', depth )
+    end
+  end
+  r
+end
+
+def events_tree filt
+  hash = {:name => filt }
+  if respond_to? "_#{filt}_callbacks"
+    send( "_#{filt}_callbacks" ).each do |callback|
+      next unless callback.applies? self
+      hash[callback.kind] ||= []    
+      hash[callback.kind] << events_tree( callback.filter )
+    end
+  end
+  hash
+end
+#FIXME - this doesn't belong here!!
+
+class ::ActiveSupport::Callbacks::Callback
+  def applies? object
+    object.send :eval, "value=nil;halted=false;!!(#{@compiled_options})"
+  end
+end
+

data/mod/05_standard/set/all/links.rb

@@ -0,0 +1,110 @@
+
+
+format do
+
+  # link is called by web_link, card_link, and view_link
+  # (and is overridden in other formats)
+  def link_to text, href, opts={}
+    href = interpret_href href
+    
+    if text and href != text
+      "#{text}[#{href}]"
+    else
+      href
+    end
+  end
+
+  # link to a specific url or path
+  def web_link href, opts={}
+    text = opts.delete(:text) || href
+    new_class = case href
+      when /^https?:/                      ; 'external-link'
+      when /^mailto:/                      ; 'email-link'
+      when /^([a-zA-Z][\-+\.a-zA-Z\d]*):/  ; $1 + '-link'
+      when /^\//
+        href = internal_url href[1..-1]    ; 'internal-link'
+      else
+        return card_link href, opts
+      end
+    add_class opts, new_class        
+    link_to text, href, opts
+  end
+
+  # link to a specific card
+  def card_link name_or_card, opts={}
+    text = (opts.delete(:text) || name_or_card).to_name.to_show @context_names
+    name = case name_or_card
+           when Symbol then Card.fetch( name_or_card, :skip_modules=>true ).cardname
+           when Card   then name_or_card.cardname
+           else             name_or_card
+           end
+    
+    path_opts = opts.delete( :path_opts ) || {}
+    path_opts[:name ] = name
+    path_opts[:known] = opts[:known].nil? ? Card.known?(name) : opts.delete(:known) 
+    add_class opts, ( path_opts[:known] ? 'known-card' : 'wanted-card' )
+    link_to text, path_opts, opts
+  end
+
+
+  # link to a specific view (defaults to current card)
+  # this is generally used for ajax calls
+  def view_link text, view, opts={}
+    path_opts = opts.delete( :path_opts ) || {}
+    path_opts[:view] = view unless view == :home
+    opts[:remote] = true
+    opts[:rel] = 'nofollow'
+    
+    link_to text, path_opts, opts
+  end
+
+  def path opts={}
+    name = opts.delete(:name) || card.name
+    base = opts[:action] ? "card/#{ opts.delete :action }/" : ''
+    
+    opts[:no_id] = true if [:new, :create].member? opts[:action]
+    #generalize. dislike hardcoding views/actions here
+    
+    linkname = name.to_name.url_key
+    unless name.empty? || opts.delete(:no_id)
+      base += ( opts[:id] ? "~#{ opts.delete :id }" : linkname )
+    end
+    
+    opts[:card] = {}
+    opts[:card][:name] = name if opts.delete(:known)==false && name.present? && name.to_s != linkname
+    
+    if type = opts.delete(:type) and Card.known?( type )
+      opts[:card][:type] = type
+    end
+    opts.delete(:card) if opts[:card].empty?
+    
+    query = opts.empty? ? '' : "?#{opts.to_param}"
+    internal_url( base + query )
+  end
+
+  def internal_url relative_path
+    card_path relative_path
+  end
+  
+  def interpret_href href
+    Hash===href ? path(href) : href
+  end
+    
+end
+
+format :html do
+  
+  
+  def link_to text, href, opts={}
+    href = interpret_href href
+
+    [:remote, :method].each do |key|
+      if val = opts.delete(key)
+        opts["data-#{key}"] = val
+      end
+    end
+    
+    content_tag :a, raw(text), opts.merge(:href=>href)
+  end
+  
+end

data/mod/05_standard/set/all/rich_html/content.rb

@@ -0,0 +1,173 @@
+
+format :html do
+
+  def show view, args
+    if Env.ajax?
+      view ||= args[:home_view] || :open
+      @inclusion_opts = args.delete(:items)
+      render view, args
+    else
+      args.merge! :view=>view if view
+      @main_opts = args
+      self.render :layout
+    end
+  end
+
+  view :layout, :perms=>:none do |args|
+    process_content get_layout_content, :content_opts=>{ :chunk_list=>:references }
+  end
+
+  view :content do |args|
+    wrap args.merge(:slot_class=>'card-content') do
+      [
+        _optional_render( :menu, args, :hide ),
+        _render_core( args )
+      ]
+    end
+  end
+
+  view :titled, :tags=>:comment do |args|
+    wrap args do   
+      [
+        _render_header( args.reverse_merge :optional_menu=>:hide ),
+        wrap_body( :content=>true ) { _render_core args },
+        optional_render( :comment_box, args )
+      ]
+    end
+  end
+
+  view :labeled do |args|
+    wrap args do
+      [
+        _optional_render( :menu, args ),
+        "<label>#{ _render_title args }</label>",
+        wrap_body( :body_class=>'closed-content', :content=>true ) do
+          _render_closed_content args
+        end
+      ]
+    end
+  end
+
+  view :title do |args|
+    title = fancy_title args[:title]
+    title = _optional_render( :title_link, args.merge( :title_ready=>title ), :hide ) || title
+    add_name_context
+    title
+  end
+
+  view :title_link do |args|
+    card_link card.cardname, :text=>( args[:title_ready] || showname(args[:title]) )
+  end
+
+  view :open, :tags=>:comment do |args|
+    args[:optional_toggle] ||= main? ? :hide : :show
+    frame args.merge(:content=>true) do
+      [
+        _render_open_content( args ),
+        optional_render( :comment_box, args )
+      ]
+    end
+  end
+
+  
+  
+=begin  
+  view :anchor, :perms=>:none, :tags=>:unknown_ok do |args|
+    %{ <a id="#{card.cardname.url_key}" name="#{card.cardname.url_key}"></a> }
+  end
+=end  
+
+  view :type do |args|
+    klasses = ['cardtype']
+    klass = args[:type_class] and klasses << klass
+    card_link card.type_card.name, :class=>klasses
+  end
+
+  view :closed do |args|
+    frame args.reverse_merge(:content=>true, :body_class=>'closed-content', :toggle_mode=>:close, :optional_toggle=>:show ) do
+      _optional_render :closed_content, args
+    end
+  end
+
+
+  view :change do |args|
+    args[:optional_title_link] = :show
+    wrap args do
+      [
+        _optional_render( :title, args       ),
+        _optional_render( :menu, args, :hide ),
+        _optional_render( :last_action, args )
+      ]
+    end
+  end
+
+  view :options, :tags=>:unknown_ok do |args|
+    current_set = Card.fetch( params[:current_set] || card.related_sets[0][0] )
+
+    frame args do
+      subformat( current_set ).render_content
+    end
+  end
+
+
+  view :related do |args|
+    if rparams = params[:related]
+      rcardname = rparams[:name].to_name.to_absolute_name( card.cardname)
+      rcard = Card.fetch rcardname, :new=>{}
+
+      nest_args = {
+        :view          => ( rparams[:view] || :open ),
+        :optional_toggle => :hide,
+        :optional_help => :show,
+        :optional_menu => :show
+      }
+      
+      nest_args[:optional_comment_box] = :show if rparams[:name] == '+discussion' #fixme.  yuck!
+
+      frame args do
+        nest rcard, nest_args
+      end
+    end
+  end
+  
+  view :help, :tags=>:unknown_ok do |args|
+    text = if args[:help_text]
+      args[:help_text]
+    else
+      setting = card.new_card? ? [ :add_help, { :fallback => :help } ] : :help
+      if help_card = card.rule_card( *setting ) and help_card.ok? :read
+        with_inclusion_mode :normal do
+          process_content _render_raw( args.merge :structure=>help_card.name ), :content_opts=>{ :chunk_list=>:references }
+          # render help card with current card's format so current card's context is used in help card inclusions
+        end
+      end
+    end
+    %{<div class="instruction">#{raw text}</div>} if text
+  end
+
+  
+  view :last_action do |args|
+    action_type = case ( action = card.last_act.action_on(card.id) and action.action_type )
+    when :create then 'added'
+    when :delete then 'deleted'
+    else
+      link_to('edited', path(:view=>:history), :class=>'last-edited', :rel=>'nofollow')
+    end
+    %{
+      <span class="last-update">
+        #{ action_type }
+        #{ _render_acted_at }
+        ago by
+        #{ subformat(card.last_actor)._render_link }
+      </span> 
+    }
+  end
+
+  private
+
+  def fancy_title title=nil
+    raw %{<span class="card-title">#{ showname(title).to_name.parts.join %{<span class="joint">+</span>} }</span>}
+  end
+end
+
+