card 1.99.2 → 1.100.0

data/tmpsets/set/mod023-edit/all/nest_image.rb

@@ -1,46 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (NestImage)
-#
-module NestImage;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/edit/set/all/nest_image.rb"; end
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :nest_image, wrap: { modal: { footer: "" } } do
-    nest card.autoname(card.name.field("image01")), view: :new_image, type: :image
-  end
-
-  view :new_image, perms: :create, unknown: true, cache: :never do
-    new_view_frame_and_form new_image_form_opts
-  end
-
-  def new_image_form_opts
-    { buttons: new_image_buttons,
-      success: { view: :open_nest_editor, format: :js,
-                 tinymce_id: Env.params[:tinymce_id] },
-      "data-slotter-mode": "silent-success" }
-  end
-
-  def new_image_buttons
-    button_formgroup do
-      [standard_save_and_close_button(no_origin_update: true),
-       modal_close_button("Cancel", class: "btn-sm")]
-    end
-  end
-end
-
-module JsFormat; parent.send :register_set_format, Card::Format::JsFormat, self; extend Card::Set::AbstractFormat
-  view :open_nest_editor do
-    tm_id = if Env.params[:tinymce_id].present?
-              "\"#{Env.params[:tinymce_id]}\""
-            else
-              '$(".tinymce-textarea").attr("id")'
-            end
-    <<-JAVASCRIPT.strip_heredoc
-      tm = tinymce.get(#{tm_id});
-      nest.insertNest(tm, "{{+#{card.name.tag}|size: medium}}");
-    JAVASCRIPT
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/edit/set/all/nest_image.rb ~~

data/tmpsets/set/mod025-account/all/account.rb

@@ -1,78 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (Account)
-#
-module Account;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/all/account.rb"; end
-module ClassMethods
-  def default_accounted_type_id
-    Card::UserID
-  end
-end
-
-def account
-  fetch trait: :account
-end
-
-def accountable?
-  Card.toggle(rule(:accountable))
-end
-
-def parties
-  @parties ||= (all_roles << id).flatten.reject(&:blank?)
-end
-
-def among? ok_ids
-  ok_ids.any? do |ok_id|
-    ok_id == Card::AnyoneID ||
-      (ok_id == Card::AnyoneWithRoleID && all_roles.size > 1) ||
-      parties.member?(ok_id)
-  end
-end
-
-def own_account?
-  # card is +*account card of signed_in user.
-  name.part_names[0].key == Auth.as_card.key &&
-    name.part_names[1].key == Card[:account].key
-end
-
-def read_rules
-  @read_rules ||= begin
-    rule_ids = []
-    unless id == Card::WagnBotID # always_ok, so not needed
-      ([Card::AnyoneID] + parties).each do |party_id|
-        if (rule_ids_for_party = self.class.read_rule_cache[party_id])
-          rule_ids += rule_ids_for_party
-        end
-      end
-    end
-    rule_ids
-  end
-end
-
-def all_roles
-  @all_roles ||= (id == Card::AnonymousID ? [] : fetch_roles)
-end
-
-def fetch_roles
-  [Card::AnyoneSignedInID] + role_ids_from_roles_trait
-end
-
-def role_ids_from_roles_trait
-  Auth.as_bot do
-    role_trait = fetch trait: :roles
-    role_trait ? role_trait.item_ids : []
-  end
-end
-
-event :generate_token do
-  Digest::SHA1.hexdigest "--#{Time.zone.now.to_f}--#{rand 10}--"
-end
-
-event :set_stamper, :prepare_to_validate do
-  self.updater_id = Auth.current_id
-  self.creator_id = updater_id if new_card?
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/all/account.rb ~~

data/tmpsets/set/mod025-account/right/account.rb

@@ -1,199 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+Account" cards
-#
-# -*- encoding : utf-8 -*-
-module Account;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/right/account.rb"; end
-
-include All::Permissions::Accounts
-
-card_accessor :email
-card_accessor :password
-card_accessor :salt
-card_accessor :status
-card_accessor :token
-
-#### ON CREATE
-
-# legal to add +*account card
-event :validate_accountability, :prepare_to_validate, on: :create do
-  errors.add :content, tr(:error_not_allowed) unless left&.accountable?
-end
-
-event :require_email, :prepare_to_validate,
-      after: :validate_accountability, on: :create do
-  errors.add :email, "required" unless subfield(:email)
-end
-
-event :set_default_salt, :prepare_to_validate, on: :create do
-  salt = Digest::SHA1.hexdigest "--#{Time.zone.now}--"
-  Env[:salt] = salt # HACK!!! need viable mechanism to get this to password
-  add_subfield :salt, content: salt
-end
-
-event :set_default_status, :prepare_to_validate, on: :create do
-  default_status = left&.try(:default_account_status) || "active"
-  add_subfield :status, content: default_status
-end
-
-event :generate_confirmation_token,
-      :prepare_to_store, on: :create, when: :can_approve? do
-  add_subfield :token, content: generate_token
-end
-
-event :send_account_verification_email, :integrate,
-      on: :create, when: proc { |c| c.token.present? } do
-  Card[:verification_email].deliver self, to: email
-end
-
-# ON UPDATE
-
-# reset password emails contain a link to update the +*account card
-# and trigger this event
-event :reset_password, :prepare_to_validate, on: :update, trigger: :required do
-  reset_password_with_token Env.params[:token]
-end
-
-# STANDALONE EVENTS
-# only triggered when called directly (as methods)
-
-event :reset_token do
-  token = generate_token
-  Auth.as_bot { token_card.update! content: token }
-  token
-end
-
-event :send_welcome_email do
-  welcome = Card[:welcome_email]
-  welcome.deliver self, to: email if welcome&.type_code == :email_template
-end
-
-event :send_reset_password_token do
-  Auth.as_bot do
-    token_card.update! content: generate_token
-  end
-  Card[:password_reset_email].deliver self, to: email
-end
-
-def active?
-  status == "active"
-end
-
-def blocked?
-  status == "blocked"
-end
-
-def built_in?
-  status == "system"
-end
-
-def pending?
-  status == "pending"
-end
-
-def validate_token! test_token
-  tcard = token_card
-  tcard.validate! test_token
-  copy_errors tcard
-  errors.empty?
-end
-
-def reset_password_with_token token
-  aborting do
-    if !token
-      errors.add :token, "is required"
-    elsif !validate_token!(token)
-      # FIXME: isn't this an error??
-      success << reset_password_try_again
-    else
-      success << reset_password_success
-    end
-  end
-end
-
-def refreshed_token
-  if token_card.id
-    token_card.refresh(true).db_content # TODO: explain why refresh is needed
-  else # eg when viewing email template
-    "[token]"
-  end
-end
-
-def can_approve?
-  Card.new(type_id: Card.default_accounted_type_id).ok? :create
-end
-
-def ok_to_read
-  own_account? ? true : super
-end
-
-def reset_password_success
-  token_card.used!
-  Auth.signin left_id
-  { id: name,
-    view: :edit }
-end
-
-def reset_password_try_again
-  send_reset_password_token
-  { id: "_self",
-    view: "message",
-    message: tr(:sorry_email_reset, error_msg: errors.first.last) }
-end
-
-# FIXME: explain or remove.
-def edit_password_success_args; end
-
-def changes_visible? act
-  act.actions_affecting(act.card).each do |action|
-    return true if action.card.ok? :read
-  end
-  false
-end
-
-module Format; parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
-  view :verify_url, cache: :never do
-    card_url path(token_path_opts.merge(mark: card.name.left))
-  end
-
-  view :verify_days, cache: :never do
-    (Card.config.token_expiry / 1.day).to_s
-  end
-
-  view :reset_password_url do
-    card_url path(token_path_opts.merge(card: { trigger: :reset_password }))
-  end
-
-  view :reset_password_days do
-    (Card.config.token_expiry / 1.day).to_s
-  end
-
-  def token_path_opts
-    { action: :update, live_token: true, token: card.refreshed_token }
-  end
-end
-
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :raw do
-    # FIXME: use field_nest instead of parsing content
-    # Problem: when you do that then the fields are missing in the sign up form:
-    # output( [field_nest(:email, view: :titled, title: "email"),
-    #          field_nest(:password, view: :titled, title: "password")])
-    %({{+#{:email.cardname}|labeled;title:email;edit:inline}}
-      {{+#{:password.cardname}|labeled;title:password;edit:inline}})
-  end
-
-  before :content_formgroup do
-    voo.edit_structure = [[:email, "email"], [:password, "password"]]
-  end
-end
-
-module EmailHtmlFormat; parent.send :register_set_format, Card::Format::EmailHtmlFormat, self; extend Card::Set::AbstractFormat
-  def mail context, fields
-    super context, fields.reverse_merge(to: card.email)
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/right/account.rb ~~

data/tmpsets/set/mod025-account/right/token.rb

@@ -1,63 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+Token" cards
-#
-module Token;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/right/token.rb"; end
-include All::Permissions::Accounts
-
-DURATIONS = "second|minute|hour|day|week|month|year".freeze
-
-card_accessor :expiration
-
-def history?
-  false
-end
-
-view :raw do
-  tr :private_data
-end
-
-def validate! token
-  error =
-    case
-    when !real?           then [:token_not_found, tr(:error_token_not_found)]
-    when expired?         then [:token_expired, tr(:error_token_expired)]
-    when content != token then [:incorrect_token, tr(:error_incorrect_token)]
-    end
-  errors.add *error if error
-end
-
-def expired?
-  !permanent? && updated_at <= term.ago
-end
-
-def permanent?
-  term == "permanent"
-end
-
-def used!
-  # immediate deletion was causing problems.  commenting for now
-  # Auth.as_bot { delete! } unless permanent?
-end
-
-def term
-  @term ||=
-    if expiration.present?
-      term_from_string expiration
-    else
-      Card.config.token_expiry
-    end
-end
-
-def term_from_string string
-  string.strip!
-  return "permanent" if string == "none"
-  re_match = /^(\d+)[\.\s]*(#{DURATIONS})s?$/.match(string)
-  number, unit = re_match.captures if re_match
-  raise Card::Open::Error, tr(:exception_bad_expiration, example: '2 days') unless unit
-  number.to_i.send unit
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/right/token.rb ~~

data/tmpsets/set/mod025-account/type/signup.rb

@@ -1,191 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Type
-# Set: All "Signup" cards
-#
-module Signup;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/type/signup.rb"; end
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  def invitation?
-    return @invitation unless @invitation.nil?
-    @invitation = Auth.signed_in? &&
-                  (card.fetch trait: :account, new: {}).can_approve?
-    # consider making account a card_accessor?
-  end
-
-  view :new do
-    voo.title = invitation? ? tr(:invite) : tr(:sign_up)
-    super()
-  end
-
-  before :name_formgroup do
-    voo.help = tr :first_last_help
-  end
-
-  view :content_formgroup do
-    [account_formgroups, (card.structure ? edit_slot : "")].join
-  end
-
-  def hidden_success override=nil
-    override = card.rule(:thanks) unless invitation?
-    super override
-  end
-
-  view :new_buttons do
-    button_formgroup do
-      [standard_create_button, invite_button].compact
-    end
-  end
-
-  def invite_button
-    return unless invitation?
-    button_tag "Send Invitation", situation: "primary"
-  end
-
-  def account_formgroups
-    account = card.fetch trait: :account, new: {}
-    Auth.as_bot do
-      subformat(account)._render :content_formgroup, structure: true
-    end
-  end
-
-  view :core, template: :haml do
-    @lines = [signup_line] + account_lines
-    @body = process_content _render_raw
-  end
-
-  def signup_line
-    [ "<strong>#{safe_name}</strong>",
-      ("was" unless anonymous_signup?),
-      "signed up on #{format_date card.created_at}"
-    ].compact.join " "
-  end
-
-  def anonymous_signup?
-    card.creator_id == AnonymousID
-  end
-
-  def account_lines
-    if card.account
-      verification_lines
-    else
-      [tr(:missing_account)]
-    end
-  end
-
-  def verification_lines
-    [ verification_sent_line, verification_link_line].compact
-  end
-
-  def verification_sent_line
-    account = card.account
-    return unless account.token.present? && account.email_card.ok?(:read)
-    "A verification email has been sent to #{account.email}"
-  end
-
-  def verification_link_line
-    links = verification_links
-    return if links.empty?
-    links.join " "
-  end
-
-  def verification_links
-    [approve_with_token_link, approve_without_token_link, deny_link].compact
-  end
-
-  def approve_with_token_link
-    return unless card.account.can_approve?
-    token_action = card.account.token.present? ? "Resend" : "Send"
-    link_to_card card, "#{token_action} verification email",
-                 path: { action: :update, approve_with_token: true }
-  end
-
-  def approve_without_token_link
-    return unless card.account.can_approve?
-    link_to_card card, "Approve without verification",
-                 path: { action: :update, approve_without_token: true }
-  end
-
-  def deny_link
-    return unless card.ok? :delete
-    link_to_card card, "Deny and delete", path: { action: :delete }
-  end
-end
-
-def default_account_status
-  "pending"
-end
-
-event :activate_by_token, :validate, on: :update,
-                                     when: proc { |c| c.has_token? } do
-  abort :failure, "no field manipulation mid-activation" if subcards.present?
-  # necessary because this performs actions as Wagn Bot
-  abort :failure, "no account associated with #{name}" unless account
-
-  account.validate_token! @env_token
-
-  if account.errors.empty?
-    account.token_card.used!
-    activate_account
-    Auth.signin id
-    Auth.as_bot # use admin permissions for rest of action
-    success << ""
-  else
-    resend_activation_token
-    abort :success
-  end
-end
-
-def has_token?
-  @env_token = Env.params[:token]
-end
-
-event :activate_account do
-  # FIXME: -- sends email before account is fully activated
-  add_subfield :account
-  subfield(:account).add_subfield :status, content: "active"
-  self.type_id = Card.default_accounted_type_id
-  account.send_welcome_email
-end
-
-event :approve_with_token, :validate,
-      on: :update,
-      when: proc { Env.params[:approve_with_token] } do
-  abort :failure, "illegal approval" unless account.can_approve?
-  account.reset_token
-  account.send_account_verification_email
-end
-
-event :approve_without_token, :validate,
-      on: :update,
-      when: proc { Env.params[:approve_without_token] } do
-  abort :failure, "illegal approval" unless account.can_approve?
-  activate_account
-end
-
-event :resend_activation_token do
-  account.reset_token
-  account.send_account_verification_email
-  message = "Please check your email for a new password reset link."
-  if account.errors.any?
-    message = "Sorry, #{account.errors.first.last}. #{message}"
-  end
-  success << { id: "_self", view: "message", message: message }
-end
-
-def signed_in_as_me_without_password?
-  Auth.signed_in? && Auth.current_id == id && account.password.blank?
-end
-
-event :redirect_to_edit_password, :finalize,
-      on: :update,
-      when: proc { |c| c.signed_in_as_me_without_password? } do
-  Env.params[:success] = account.edit_password_success_args
-end
-
-event :act_as_current_for_integrate_stage, :integrate,
-      on: :create do
-  Auth.current_id = id
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/type/signup.rb ~~