card 1.16.1 → 1.16.2

data/tmpsets/set/mod001-01_core/all/utils.rb

@@ -0,0 +1,162 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Utils; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/01_core/set/all/utils.rb ~~~~~~~~~~~
+
+module ClassMethods
+
+  def empty_trash
+    Card.delete_trashed_files
+    Card.where(:trash=>true).delete_all
+    Card::Action.delete_cardless
+    Card::Reference.repair_missing_referees
+    Card::Reference.delete_missing_referers
+  end
+
+  def delete_trashed_files #deletes any file not associated with a real card.
+    dir = Card.paths['files'].existent.first
+    trashed_card_sql = %{ select id from cards where trash is true }
+    trashed_card_ids = Card.connection.select_all( trashed_card_sql ).map( &:values ).flatten.map &:to_i
+    file_ids = Dir.entries( dir )[2..-1].map( &:to_i )
+    file_ids.each do |file_id|
+      if trashed_card_ids.member?(file_id)
+        raise Card::Error, "Narrowly averted deleting current file" if Card.exists?(file_id) #double check!
+        FileUtils.rm_rf "#{dir}/#{file_id}", :secure => true
+      end
+    end
+  end
+
+  def merge_list attribs, opts={}
+    unmerged = []
+    attribs.each do |row|
+      result = begin
+        merge row['name'], row, opts
+#      rescue => e
+#        Rails.logger.info "merge_list problem: #{ e.message }"
+#        false
+      end
+      unmerged.push row unless result == true
+    end
+
+    if unmerged.empty?
+      Rails.logger.info "successfully merged all!"
+    else
+      unmerged_json = JSON.pretty_generate unmerged
+      if output_file = opts[:output_file]
+        ::File.open output_file, 'w' do |f|
+          f.write unmerged_json
+        end
+      else
+        Rails.logger.info "failed to merge:\n\n#{ unmerged_json }"
+      end
+    end
+    unmerged
+  end
+
+
+  def merge name, attribs={}, opts={}
+    puts "merging #{ name }"
+    card = fetch name, :new=>{}
+
+    if opts[:pristine] && !card.pristine?
+      false
+    else
+      card.attributes = attribs
+      card.save!
+    end
+  end
+
+end
+
+def debug_type
+  "#{type_code||'no code'}:#{type_id}"
+end
+
+def to_s
+  "#<#{self.class.name}[#{debug_type}]#{self.attributes['name']}>"
+end
+
+def inspect
+  "#<#{self.class.name}" + "##{id}" +
+  "###{object_id}" + #"l#{left_id}r#{right_id}" +
+  "[#{debug_type}]" + "(#{self.name})" + #"#{object_id}" +
+  #(errors.any? ? '*Errors*' : 'noE') +
+  (errors.any? ? "<E*#{errors.full_messages*', '}*>" : '') +
+  #"{#{references_expired==1 ? 'Exp' : "noEx"}:" +
+  "{#{trash&&'trash:'||''}#{new_card? &&'new:'||''}#{frozen? ? 'Fz' : readonly? ? 'RdO' : ''}" +
+  "#{@virtual &&'virtual:'||''}#{@set_mods_loaded&&'I'||'!loaded' }:#{references_expired.inspect}}" +
+  '>'
+end
+
+format :html do
+  view :views_by_format do |args|
+    format_views = self.class.ancestors.each_with_object({}) do |format_class, hash|
+      views =
+        format_class.instance_methods.map do |method|
+          if method.to_s.match /^_view_(.+)$/
+            "<li>#{$1}</li>"
+          end
+        end.compact.join "\n"
+      if views.present?
+        format_class.name.match /^Card(::Set)?::(.+?)$/ #::(\w+Format)
+        hash[$2] = views
+      end
+    end
+    accordion_group format_views
+  end
+
+  view :views_by_name do |args|
+    views = methods.map do |method|
+      if method.to_s.match /^_view_(.+)$/
+        $1
+      end
+    end.compact.sort
+    "<ul>
+    #{ wrap_each_with :li, views }
+    </ul>"
+  end
+
+
+
+
+  def accordion_group list, collapse_id=card.cardname.safe_key
+    accordions = ''
+    index = 1
+    list.each_pair do |title, content|
+      accordions << accordion(title, content, "#{collapse_id}-#{index}")
+      index += 1
+    end
+    content_tag :div, accordions.html_safe, :class=>"panel-group", :id=>"accordion-#{collapse_id}", :role=>"tablist", 'aria-multiselectable'=>"true"
+  end
+
+  def accordion title, content, collapse_id=card.cardname.safe_key
+    panel_body =
+      case content
+      when Hash
+        accordion_group accordion(content, collapse_id)
+      when Array
+        content.join "\n"
+      else
+        content
+      end
+    %{
+      <div class="panel panel-default">
+        <div class="panel-heading" role="tab" id="heading-#{collapse_id}">
+          <h4 class="panel-title">
+            <a data-toggle="collapse" data-parent="#accordion-#{collapse_id}" href="##{collapse_id}" aria-expanded="true" aria-controls="#{collapse_id}">
+              #{ title }
+            </a>
+          </h4>
+        </div>
+        <div id="#{collapse_id}" class="panel-collapse collapse" role="tabpanel" aria-labelledby="heading-#{collapse_id}">
+          <div class="panel-body">
+            #{ panel_body }
+          </div>
+        </div>
+      </div>
+      }.html_safe
+  end
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/01_core/set/all/utils.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod001-01_core/all/view_cache.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module ViewCache; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/01_core/set/all/view_cache.rb ~~~~~~~~~~~
+event :clear_view_cache, :after=>:store do
+  Card::ViewCache.reset
+end
+
+format do
+  def view_caching?
+    false
+  end
+end
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/01_core/set/all/view_cache.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod002-01_history/all/actions.rb

@@ -0,0 +1,54 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Actions; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/01_history/set/all/actions.rb ~~~~~~~~~~~
+# -*- encoding : utf-8 -*-
+
+def select_action_by_params params
+  action = find_action_by_params(params) and self.selected_action_id = action.id
+end
+
+def find_action_by_params args
+  if args[:rev]
+    nth_action args[:rev]
+  elsif args[:rev_id] =~ /^\d+$/
+    if action = Action.fetch(args[:rev_id]) and action.card_id == id
+      action
+    end
+  elsif args[:rev_id]  # revision id is probalby a mod (e.g. if you request files/:logo/05_standard.png)
+    last_action
+  end
+end
+
+def nth_action index
+  index = index.to_i
+  if id and index > 0
+    Action.where("draft is not true AND card_id = #{id}").order(:id).limit(1).offset(index-1).first
+  end
+end
+
+def revision action
+  # a "revision" refers to the state of all tracked fields at the time of a given action
+  if action.is_a? Integer
+    action = Card::Action.fetch(action)
+  end
+  action and Card::TRACKED_FIELDS.inject({}) do |attr_changes, field|
+    last_change = action.card_changes.find_by_field_name(field) || last_change_on(field, :not_after=>action)
+    attr_changes[field.to_sym] = (last_change ? last_change.value : self[field])
+    attr_changes
+  end
+end
+
+def delete_old_actions
+  Card::TRACKED_FIELDS.each do |field|
+    # assign previous changes on each tracked field to the last action
+    if (la = last_action) && !la.change_for(field).present? and (last_change = last_change_on(field))
+      last_change = Card::Change.find(last_change.id)   # last_change comes as readonly record
+      last_change.update_attributes!(:card_action_id=>last_action_id)
+    end
+  end
+  actions.where('id != ?', last_action_id ).delete_all
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/01_history/set/all/actions.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod002-01_history/all/content_history.rb

@@ -0,0 +1,140 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module ContentHistory; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/01_history/set/all/content_history.rb ~~~~~~~~~~~
+
+# if these aren't in a nested module, the methods just overwrite the base methods,
+# but we need a distict module so that super will be able to refer to the base methods.
+def content
+  if @selected_action_id
+    @selected_content ||= begin
+      (change = last_change_on( :db_content, :not_after=> @selected_action_id ) and change.value) || db_content
+    end
+  else
+    super
+  end
+end
+
+def content= value
+  @selected_content = nil
+  super
+end
+
+def save_content_draft content
+  super
+  acts.create do |act|
+    act.actions.build(:draft => true, :card_id=>id).card_changes.build(:field=>:db_content, :value=>content)
+  end
+end
+
+def last_change_on(field, opts={})
+  where_sql =  'card_actions.card_id = :card_id AND field = :field AND (draft is not true) '
+  where_sql += if opts[:before]
+    'AND card_action_id < :action_id'
+  elsif opts[:not_after]
+    'AND card_action_id <= :action_id'
+  else
+    ''
+  end
+
+  action_arg = opts[:before] || opts[:not_after]
+  action_id = action_arg.kind_of?(Card::Action) ? action_arg.id : action_arg
+  field_index = Card::TRACKED_FIELDS.index(field.to_s)
+  Change.joins(:action).where( where_sql,
+    {:card_id=>id, :field=>field_index, :action_id=>action_id}
+  ).order(:id).last
+end
+
+def selected_action_id
+  @selected_action_id || (@current_action and @current_action.id) || last_action_id
+end
+
+def selected_action_id= action_id
+  @selected_content = nil
+  @selected_action_id = action_id
+end
+
+def selected_action
+  selected_action_id and Action.fetch(selected_action_id)
+end
+
+def selected_content_action_id
+  @selected_action_id ||
+ (@current_action && (new_card? || @current_action.new_content? || db_content_changed?) && @current_action.id) ||
+  last_content_action_id
+end
+
+def last_action_id
+  la = last_action and la.id
+end
+
+def last_action
+  actions.where('id IS NOT NULL').last
+end
+
+def last_content_action
+  l_c = last_change_on(:db_content) and l_c.action
+end
+
+def last_content_action_id
+  l_c = last_change_on(:db_content) and l_c.card_action_id
+end
+
+def last_actor
+  last_act.actor
+end
+
+def last_act
+  if action = last_action
+    last_act_on_self = acts.last
+    if last_act_on_self and ( action.act==last_act_on_self || last_act_on_self.acted_at>action.act.acted_at )
+      last_act_on_self
+    else
+      action.act
+    end
+  end
+end
+
+def acted_at
+  last_act.acted_at
+end
+
+
+def previous_action action_id
+  if action_id
+    action_index = actions.find_index do |a|
+      a.id == action_id
+    end
+    actions[action_index - 1] if action_index.to_i != 0
+  end
+end
+
+def revised_at
+  (last_action and act=last_action.act and act.acted_at) or Time.now
+end
+
+def creator
+  Card[ creator_id ]
+end
+
+def updater
+  Card[ updater_id ]
+end
+
+def clean_html?
+  true
+end
+
+def draft_acts
+  drafts.created_by(Card::Auth.current_id).map(&:act)
+end
+
+event :detect_conflict, :before=>:approve, :on=>:update, :when=>proc {|c| c.history? } do
+  if last_action_id_before_edit and last_action_id_before_edit.to_i != last_action_id and last_action.act.actor_id != Auth.current_id
+    errors.add :conflict, "changes not based on latest revision"
+  end
+end
+
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/01_history/set/all/content_history.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod002-01_history/all/history.rb

@@ -0,0 +1,341 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module History; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/01_history/set/all/history.rb ~~~~~~~~~~~
+REVISIONS_PER_PAGE = Card.config.revisions_per_page
+
+def history?
+  true
+end
+
+# must be called on all actions and before :set_name, :process_subcards and :validate_delete_children
+event :assign_act,  :before=>:approve, :when=>proc {|c| c.history?}  do
+  @current_act = (@supercard && @supercard.current_act) || Card::Act.create(:ip_address=>Env.ip)
+end
+
+event :assign_action, :after=>:assign_act do
+  @current_action = Card::Action.create(:card_act_id=>@current_act.id, :action_type=>@action, :draft=>(Env.params['draft'] == 'true') )
+  if (@supercard and @supercard !=self)
+    @current_action.super_action = @supercard.current_action
+  end
+end
+
+
+# stores changes in the changes table and assigns them to the current action
+# removes the action if there are no changes
+event :finalize_action, :after =>:stored, :when=>proc {|c| c.history? && c.current_action} do
+  @changed_fields = Card::TRACKED_FIELDS.select{ |f| changed_attributes.member? f }
+  if @changed_fields.present?
+    @changed_fields.each{ |f| Card::Change.create :field => f, :value => self[f], :card_action_id=>@current_action.id }
+    @current_action.update_attributes! :card_id => id
+  elsif @current_action.card_changes(true).empty?
+    @current_action.delete
+    @current_action = nil
+  end
+end
+
+event :finalize_act, :after=>:finalize_action, :when=>proc {|c| c.history? && !c.supercard } do
+  if @current_act.actions(true).empty?
+    @current_act.delete
+    @current_act = nil
+  else
+    @current_act.update_attributes! :card_id=>id
+  end
+end
+
+
+event :rollback_actions, :before=>:approve, :on=>:update, :when=>proc{ |c| c.rollback_request? } do
+  revision = { :subcards => {}}
+  rollback_actions = Env.params['action_ids'].map do |a_id|
+    Action.fetch(a_id) || nil
+  end
+  rollback_actions.each do |action|
+    if action.card_id == id
+      revision.merge!(revision(action))
+    else
+      revision[:subcards][action.card.name] = revision(action)
+    end
+  end
+  Env.params['action_ids'] = nil
+  update_attributes! revision
+  rollback_actions.each do |action|
+    action.card.try :symlink_to, action.id
+  end
+  clear_drafts
+  abort :success
+end
+
+def rollback_request?
+  history? && Env && Env.params['action_ids'] && Env.params['action_ids'].class == Array
+end
+
+# alternative approach to handle act and action that doesn't change the database in the beginning
+# stopped working with Rails 4
+# def build_act_and_action
+#   @current_act = if @supercard
+#     @supercard.current_act || @supercard.acts.build(:ip_address=>Env.ip)
+#   else
+#     acts.build(:ip_address=>Env.ip)
+#   end
+#   @current_action = actions(true).build(:action_type=>@action, :draft=>(Env.params['draft'] == 'true') )
+#   @current_action.act = @current_act
+#
+#   if (@supercard and @supercard !=self)
+#     @current_action.super_action = @supercard.current_action
+#   end
+# end
+
+
+def intrusive_family_acts args={}   # all acts with actions on self and on cards that are descendants of self and included in self
+  @intrusive_family_acts ||= begin
+    Act.find_all_with_actions_on( (included_descendant_card_ids << id), args)
+  end
+end
+
+def intrusive_acts  args={:with_drafts=>true} # all acts with actions on self and on cards included in self
+  @intrusive_acts ||= begin
+    Act.find_all_with_actions_on( (included_card_ids << id), args)
+  end
+end
+
+def current_rev_nr
+  @current_rev_nr ||= begin
+    intrusive_acts.first.actions.last.draft ? @intrusive_acts.size - 1 : @intrusive_acts.size
+  end
+end
+
+def included_card_ids
+  Card::Reference.select(:referee_id).where( :ref_type => 'I', :referer_id=>id ).pluck('referee_id').compact.uniq
+end
+
+def descendant_card_ids parent_ids=[id]
+  more_ids = Card.where('left_id IN (?)', parent_ids).pluck('id')
+
+  if !more_ids.empty?
+    more_ids += descendant_card_ids more_ids
+  end
+  more_ids
+end
+
+def included_descendant_card_ids
+  included_card_ids & descendant_card_ids
+end
+
+format :html do
+  view :history do |args|
+    frame args.merge(:body_class=>"history-slot list-group", :content=>true) do
+      [
+        history_legend,
+        _render_revisions
+      ]
+    end
+  end
+  def default_history_args args
+    args[:optional_toolbar] ||= :show
+  end
+
+  view :revisions do |args|
+    page = params['page'] || 1
+    count = card.intrusive_acts.size+1-(page.to_i-1)*REVISIONS_PER_PAGE
+    card.intrusive_acts.page(page).per(REVISIONS_PER_PAGE).map do |act|
+      count -= 1
+      render_act_summary args.merge(:act=>act,:rev_nr=>count)
+    end.join
+  end
+
+  def history_legend
+    intr = card.intrusive_acts.page(params['page']).per(REVISIONS_PER_PAGE)
+    render_haml :intr=>intr do
+      <<-HAML
+.history-header
+  %span.slotter
+    = paginate intr, :remote=>true, :theme=>'twitter-bootstrap-3'
+  %div.history-legend
+    %span.glyphicon.glyphicon-plus-sign.diff-green
+    %span
+      = Card::Diff.render_added_chunk("Added")
+      |
+    %span.glyphicon.glyphicon-minus-sign.diff-red
+    %span
+      = Card::Diff.render_deleted_chunk("Deleted")
+      HAML
+    end
+  end
+
+  view :act_summary do |args|
+    render_act :summary, args
+  end
+
+  view :act_expanded do |args|
+    render_act :expanded, args
+  end
+
+  def render_act act_view, args
+    act = (params['act_id'] and Card::Act.find(params['act_id'])) || args[:act]
+    rev_nr = params['rev_nr'] || args[:rev_nr]
+    current_rev_nr = params['current_rev_nr'] || args[:current_rev_nr] || card.current_rev_nr
+    hide_diff = (params["hide_diff"]=="true") || args[:hide_diff]
+    wrap( args.merge(:slot_class=>"revision-#{act.id} history-slot list-group-item") ) do
+      render_haml :card=>card, :act=>act, :act_view=>act_view,
+                  :current_rev_nr=>current_rev_nr, :rev_nr=>rev_nr,
+                  :hide_diff=> hide_diff do
+        <<-HAML
+.act{:style=>"clear:both;"}
+  .head
+    .nr
+      = "##{rev_nr}"
+    .title
+      .actor
+        = link_to act.actor.name, card_url( act.actor.cardname.url_key )
+      .time.timeago
+        = time_ago_in_words(act.acted_at)
+        ago
+        - if act.actions.last.draft
+          |
+          %em.info
+            Autosave
+        - if current_rev_nr == rev_nr
+          %em.label.label-info
+            Current
+        - elsif act_view == :expanded
+          = rollback_link act.relevant_actions_for(card, act.actions.last.draft)
+          = show_or_hide_changes_link hide_diff, :act_id=>act.id, :act_view=>act_view, :rev_nr=>rev_nr, :current_rev_nr=>current_rev_nr
+  .toggle
+    = fold_or_unfold_link :act_id=>act.id, :act_view=>act_view, :rev_nr=>rev_nr, :current_rev_nr=>current_rev_nr
+
+  .action-container{:style=>("clear: left;" if act_view == :expanded)}
+    - act.relevant_actions_for(card).each do |action|
+      = send("_render_action_#{ act_view }", :action=>action )
+HAML
+      end
+    end
+  end
+
+  view :action_summary do |args|
+    render_action :summary, args
+  end
+
+  view :action_expanded do |args|
+    render_action :expanded, args
+  end
+
+  def render_action action_view, args
+    action = args[:action] || card.last_action
+    hide_diff = Env.params["hide_diff"]=="true" || args[:hide_diff]
+    name_diff =
+      if action.card == card
+        name_changes(action, hide_diff)
+      else
+        link_to name_changes(action, hide_diff),
+                path(:view=>:related, :related=>{:view=>"history",:name=>action.card.name}),
+                :class=>'slotter label label-default',
+                'data-slot-selector'=>".card-slot.history-view",
+                :remote=>true
+      end
+
+    type_diff =
+        action.new_type? &&
+        type_changes(action, hide_diff)
+
+    content_diff =
+        action.new_content? &&
+        action.card.format.render_content_changes(:action=>action, :diff_type=>action_view, :hide_diff=>hide_diff)
+
+    render_haml :action => action,
+                :action_view => action_view,
+                :name_diff => name_diff,
+                :type_diff => type_diff,
+                :content_diff => content_diff do
+      <<-HAML
+.action
+  .summary
+    %span.ampel
+      = glyphicon 'minus-sign', (action.red? ? 'diff-red' : 'diff-invisible')
+      = glyphicon 'plus-sign', (action.green? ? 'diff-green' : 'diff-invisible')
+    = wrap_diff :name, name_diff
+    = wrap_diff :type, type_diff
+    -if content_diff
+      = glyphicon 'arrow-right', 'arrow'
+      -if action_view == :summary
+        = wrap_diff :content, content_diff
+  -if content_diff and action_view == :expanded
+    .expanded
+      = wrap_diff :content, content_diff
+HAML
+    end
+  end
+
+  def wrap_diff field, content
+    if content.present?
+      %{
+         <span class="#{field}-diff">
+         #{content}
+         </span>
+      }
+    else
+      ''
+    end
+  end
+
+
+  def name_changes action, hide_diff=false
+    old_name = (name = action.old_values[:name] and showname(name).to_s)
+    if action.new_name?
+      new_name = showname(action.new_values[:name]).to_s
+      if hide_diff
+        new_name
+      else
+        Card::Diff.complete(old_name,new_name)
+      end
+    else
+      old_name
+    end
+  end
+
+  def type_changes action, hide_diff=false
+    change = hide_diff ? action.new_values[:cardtype] : action.cardtype_diff
+    "(#{change})"
+  end
+
+
+  view :content_changes do |args|
+    if args[:hide_diff]
+      args[:action].new_values[:content]
+    else
+      args[:action].content_diff(args[:diff_type])
+    end
+  end
+
+  def rollback_link actions
+    not_current = actions.select { |action| action.card.last_action_id != action.id }
+    if card.ok?(:update) && not_current.present?
+      "| " + link_to('Save as current', path(:action=>:update, :view=>:open, :action_ids=>not_current),
+        :class=>'slotter','data-slot-selector'=>'.card-slot.history-view', :remote=>true, :method=>:post, :rel=>'nofollow')
+    end
+  end
+
+  def fold_or_unfold_link args
+    if (args[:act_view] == :expanded)
+      toggled_view = :act_summary
+    else
+      toggled_view = :act_expanded
+    end
+    link_to '', args.merge(:view=>toggled_view),
+              :class=>"slotter revision-#{args[:act_id]} #{ args[:act_view]==:expanded ? "arrow-down" : "arrow-right"}",
+              :remote=>true
+  end
+
+  def show_or_hide_changes_link hide_diff, args
+    "| " +  view_link( (hide_diff ? "Show" : "Hide") + " changes", :act_expanded,
+      :path_opts=>args.merge(:hide_diff=>!hide_diff),
+      :class=>'slotter', :remote=>true )
+  end
+end
+
+def diff_args
+  {:format=>:text}
+end
+
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/01_history/set/all/history.rb ~~~~~~~~~~~
+end;end;end;end;