card 1.101.7 → 1.102.0

data/tmpsets/set/mod010-card-mod-account/abstract/accountable.rb

@@ -1,62 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (Accountable)
-#
-module Accountable;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card-mod-account/set/abstract/accountable.rb"; end
-def account
-  fetch :account, new: {}
-end
-
-def default_account_status
-  "active"
-end
-
-def current_account?
-  id && Auth.current_id == id
-end
-
-module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  def default_bridge_tab
-    card.current_account? ? :account_tab : super
-  end
-
-  view :account_tab do
-    bridge_pill_sections "Account" do
-      [["Settings", account_details_items],
-       ["Content", account_content_items]]
-    end
-  end
-
-  def show_account_tab?
-    card.account.real?
-  end
-
-  def account_formgroups
-    Auth.as_bot do
-      subformat(card.account)._render :content_formgroups, structure: true
-    end
-  end
-
-  def account_details_items
-    [
-      ["Email and Password", :account,
-       { path: { slot: { hide: %i[help_link bridge_link] } } }],
-      ["Roles", :roles,
-       { path:  { view: :content_with_edit_button } }],
-      ["Notifications", :follow],
-      ["API", :account,
-       { path: { view: :api_key,
-                 items: { view: :content },
-                 slot: { hide: %i[help_link bridge_link] } } }]
-    ]
-  end
-
-  def account_content_items
-    [["Created", :created],
-     ["Edited", :edited]]
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card-mod-account/set/abstract/accountable.rb ~~

data/tmpsets/set/mod010-card-mod-account/all/account.rb

@@ -1,115 +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
-    UserID
-  end
-end
-
-def account
-  fetch :account
-end
-
-def parties
-  @parties ||= (all_enabled_roles << id).flatten.reject(&:blank?)
-end
-
-def among? ok_ids
-  ok_ids.any? do |ok_id|
-    ok_id == AnyoneID ||
-      (ok_id == AnyoneWithRoleID && all_enabled_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 ||= fetch_read_rules
-end
-
-def read_rules_hash
-  @read_rules_hash ||= read_rules.each_with_object({}) { |id, h| h[id] = true }
-end
-
-def fetch_read_rules
-  return [] if id == WagnBotID # always_ok, so not needed
-
-  ([AnyoneID] + parties).each_with_object([]) do |party_id, rule_ids|
-    next unless (cache = Card::Rule.read_rule_cache[party_id])
-
-    rule_ids.concat cache
-  end
-end
-
-def clear_roles
-  @parties = @all_roles = @all_active_roles = @read_rules = nil
-end
-
-def with_clear_roles
-  a = @parties
-  b = @all_roles
-  c = @all_active_roles
-  d = @read_rules
-  yield
-ensure
-  @parties = a
-  @all_roles = b
-  @all_active_roles = c
-  @read_rules = d
-end
-
-def all_enabled_roles
-  @all_active_roles ||= (id == AnonymousID ? [] : enabled_role_ids)
-end
-
-def all_roles
-  @all_roles ||= (id == AnonymousID ? [] : fetch_roles)
-end
-
-def enabled_role_ids
-  with_enabled_roles do |enabled|
-    enabled.virtual? ? enabled.item_ids : fetch_roles
-  end
-end
-
-def with_enabled_roles
-  Auth.as_bot do
-    Card::Codename.exists?(:enabled_roles) ? yield(enabled_roles_card) : fetch_roles
-  end
-end
-
-def enabled_roles_card
-  fetch :enabled_roles, eager_cache: true, new: { type_id: SessionID }
-end
-
-def fetch_roles
-  [AnyoneSignedInID] + role_ids_from_roles_trait
-end
-
-def role_ids_from_roles_trait
-  Auth.as_bot do
-    role_trait = fetch :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/mod010-card-mod-account/right/account.rb

@@ -1,62 +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
-
-card_accessor :email
-card_accessor :password
-card_accessor :salt
-card_accessor :status
-
-require_field :email
-
-def accounted
-  left
-end
-
-def accounted_id
-  left_id
-end
-
-def ok_to_read
-  own_account? || super
-end
-
-# allow account owner to update account field content
-def ok_to_update
-  return true if own_account? && !name_changed? && !type_id_changed?
-
-  super
-end
-
-def changes_visible? act
-  act.actions_affecting(act.card).each do |action|
-    return true if action.card.ok? :read
-  end
-  false
-end
-
-def send_account_email email_template
-  ecard = Card[email_template]
-  unless ecard&.type_id == EmailTemplateID
-    raise Card::Error, "invalid email template: #{email_template}"
-  end
-
-  ecard.deliver self, to: email
-end
-
-def method_missing method, *args
-  return super unless args.empty? && (matches = method.match(/^(?<status>.*)\?$/))
-
-  status == matches[:status]
-end
-
-def respond_to_missing? method, _include_private=false
-  method.match?(/\?$/) ? true : super
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card-mod-account/set/right/account.rb ~~

data/tmpsets/set/mod010-card-mod-account/right/account/events.rb

@@ -1,108 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Account;
-# Set: All "+Account+Events" cards (Events)
-#
-#### ON CREATE
-module Events;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card-mod-account/set/right/account/events.rb"; end
-
-event :set_default_salt, :prepare_to_validate, on: :create do
-  add_subfield(:salt).generate
-end
-
-event :set_default_status, :prepare_to_validate, on: :create do
-  add_subfield :status, content: (accounted&.try(:default_account_status) || "active")
-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
-  verifying_token :reset_password_success, :reset_password_failure
-end
-
-event :verify_and_activate, :prepare_to_validate, on: :update, trigger: :required do
-  activatable do
-    verifying_token :verify_and_activate_success, :verify_and_activate_failure
-    add_subcard(accounted)&.try :activate_accounted
-  end
-end
-
-event :password_redirect, :finalize, on: :update, when: :password_redirect? do
-  success << { id: name, view: "edit" }
-end
-
-# INTEGRATION
-
-%i[password_reset_email verification_email welcome_email].each do |email|
-  event "send_#{email}".to_sym, :integrate, trigger: :required do
-    send_account_email email
-  end
-end
-
-## EVENT HELPERS
-
-def activatable
-  abort :failure, "no field manipulation mid-activation" if subcards.present?
-  # above is necessary because activation uses super user (Decko Bot),
-  # so allowing subcards would be unsafe
-  yield
-end
-
-# NOTE: this only works in the context of an action.
-# if run independently, it will not activate an account
-event :activate_account do
-  add_subfield :status, content: "active"
-  trigger_event! :send_welcome_email
-end
-
-def verifying_token success, failure
-  requiring_token do |token|
-    result = Auth::Token.decode token
-    if result.is_a?(String)
-      send failure, result
-    else
-      send success
-    end
-  end
-end
-
-def requiring_token
-  if !(token = Env.params[:token])
-    errors.add :token, "is required"
-  else
-    yield token
-  end
-end
-
-def password_redirect?
-  Auth.current_id == accounted_id && password.blank?
-end
-
-def verify_and_activate_success
-  Auth.signin accounted_id
-  Auth.as_bot # use admin permissions for rest of action
-  activate_account
-  success << ""
-end
-
-def verify_and_activate_failure error_message
-  send_verification_email
-  errors.add :content,
-             "Sorry, #{error_message}. Please check your email for a new activation link."
-end
-
-def reset_password_success
-  Auth.signin accounted_id
-  success << { id: name, view: :edit }
-  abort :success
-end
-
-def reset_password_failure error_message
-  Auth.as_bot { send_password_reset_email }
-  errors.add :content, t(:account_sorry_email_reset, error_msg: error_message)
-end
-end;end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card-mod-account/set/right/account/events.rb ~~

data/tmpsets/set/mod010-card-mod-account/right/account/views.rb

@@ -1,74 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Account;
-# Set: All "+Account+Views" cards (Views)
-#
-module Views;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card-mod-account/set/right/account/views.rb"; end
-module Format; module_parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
-  view :verify_url, cache: :never do
-    raise Error::PermissionDenied unless card.ok?(:create) || card.action
-
-    token_url :verify_and_activate, anonymous: true
-  end
-
-  view :reset_password_url do
-    raise Error::PermissionDenied unless card.password_card.ok? :update
-
-    token_url :reset_password
-  end
-
-  view :token_expiry do
-    "(#{token_expiry_sentence}"
-  end
-
-  view :token_days do
-    Card.config.token_expiry / 1.day
-  end
-
-  # DEPRECATED
-  view :verify_days, :token_days
-  view :reset_password_days, :token_days
-
-  def token_url trigger, extra_payload={}
-    card_url path(action: :update,
-                  card: { trigger: trigger },
-                  token: new_token(extra_payload))
-  end
-
-  def token_expiry_sentence
-    "Link will expire in #{render_token_days} days"
-  end
-
-  def new_token extra_payload
-    Auth::Token.encode card.accounted_id, extra_payload
-  end
-end
-
-module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :core do
-    [account_field_nest(:email, "email"),
-     account_field_nest(:password, "password")]
-  end
-
-  def account_field_nest field, title
-    field_nest field, title: title, view: :labeled
-    # edit: :inline, hide: [:help_link, :bridge_link]
-  end
-
-  before :content_formgroups do
-    voo.edit_structure = [[:email, "email"], [:password, "password"]]
-  end
-
-  view :token_expiry do
-    "<p><em>#{token_expiry_sentence}</em></p>"
-  end
-end
-
-module EmailHtmlFormat; module_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;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card-mod-account/set/right/account/views.rb ~~

data/tmpsets/set/mod010-card-mod-account/right/email.rb

@@ -1,56 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+Email" cards
-#
-# -*- encoding : utf-8 -*-
-module Email;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card-mod-account/set/right/email.rb"; end
-
-include_set Abstract::AccountField
-
-event :validate_email, :validate, on: :save do
-  return unless content?
-
-  self.content = content.strip
-  return if content.match?(/^([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})$/i)
-
-  errors.add :content, t(:account_error_invalid_address)
-end
-
-event :validate_unique_email, after: :validate_email, on: :save do
-  if content.present?
-    Auth.as_bot do
-      cql = { right_id: EmailID, eq: content, return: :id }
-      cql[:not] = { id: id } if id
-      cql_comment = t(:account_search_email_duplicate, content: content)
-      if Card.search(cql, cql_comment).first
-        errors.add :content, t(:account_error_not_unique)
-      end
-    end
-  end
-end
-
-event :downcase_email, :prepare_to_validate, on: :save do
-  return if !content || content == content.downcase
-
-  self.content = content.downcase
-end
-
-def email_required?
-  !left.system?
-end
-
-def ok_to_read
-  if own_email? || Auth.always_ok?
-    true
-  else
-    deny_because t(:account_deny_email_restricted)
-  end
-end
-
-def own_email?
-  name.part_names[0].key == Auth.as_card.key
-end
-end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card-mod-account/set/right/email.rb ~~