card 1.16.1 → 1.16.2

data/tmpsets/set/mod007-05_standard/all/comment.rb

@@ -0,0 +1,45 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Comment; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/comment.rb ~~~~~~~~~~~
+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
+          }
+          #{ button_tag 'Comment', :type=>:submit, :disable_with=>"Commenting" }
+        </div>
+      }
+    end}
+  </div>}
+end
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/comment.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/all/error.rb

@@ -0,0 +1,198 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Error; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/error.rb ~~~~~~~~~~~
+
+
+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>
+                      }
+                  end
+              else
+                error_cardname
+              end
+
+    content_tag :span, :class=>'render-error alert alert-danger' 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|
+    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|
+              _render_act_expanded :act=>card.last_action.act, :current_rev_nr => 0
+            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(:panel_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'])
+          "Please #{ 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
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/error.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/all/event_viz.rb

@@ -0,0 +1,75 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module EventViz; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/event_viz.rb ~~~~~~~~~~~
+# the events method is a developer's tool for visualizing the event order for a given card.
+# For example, from a console you might run
+#
+#   puts mycard.events :update
+#
+# to see the order of events that will be executed on mycard.
+# The indention and arrows (^v) indicate event dependencies.
+#
+# Note: as of yet, the functionality is a bit rough.  It does not display events
+# that are called directly from within other events (like :stored), and certain event
+# requirements (like the presence of a "current_act") may prevent events from showing
+# up in the tree.
+def events action
+  @action = action
+  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
+
+
+class ::ActiveSupport::Callbacks::Callback
+  def applies? object
+    conditions_lambdas.all? { |c| c.call(object, nil) }
+  end
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/event_viz.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/all/links.rb

@@ -0,0 +1,153 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Links; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/links.rb ~~~~~~~~~~~
+
+
+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 url, view, card or related card
+  #
+  def smart_link link_text, target, html_args={}
+    if (view = target.delete(:view))
+      view_link link_text, view, html_args.merge(:path_opts=>target)
+    elsif (page = target.delete(:card))
+      card_link page, html_args.merge(:path_opts=>target, :text=>link_text)
+    elsif target[:related]
+      if target[:related].kind_of? String
+        target[:related] = {:name=>"+#{target[:related]}"}
+      end
+      view_link link_text, :related, html_args.merge(:path_opts=>target)
+    elsif target[:web]
+    else
+      link_to link_text, target, html_args
+    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={}
+    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
+    text = (opts.delete(:text) || name).to_name.to_show @context_names
+
+    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 related_link name_or_card, opts={}
+    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
+   opts[:path_opts] ||= {:view=>:related}
+   opts[:path_opts][:related] = {:name=>"+#{name}"}
+   opts[:path_opts][:related].merge! opts[:related_opts] if opts[:related_opts]
+   view_link( opts[:text] || name, :related, opts)
+  end
+
+
+
+  def path opts={}
+    if opts[:action] == :new && opts[:type] && !(opts[:name] || opts[:card] || opts[:id])
+      opts.delete(:action)
+      base = "new/#{opts.delete(:type)}"
+    else
+      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?
+    end
+
+    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
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/links.rb ~~~~~~~~~~~
+end;end;end;end;