card 1.91 → 1.92

data/tmpsets/set/mod017-account/self/account_links.rb

@@ -0,0 +1,72 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module AccountLinks; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/account_links.rb ~~
+
+format :html do
+  def item_links args
+    [
+      optional_render(:my_card, args),
+      optional_render(:invite, args),
+      optional_render(:sign_out, args),
+      optional_render(:sign_up, args),
+      optional_render(:sign_in, args)
+    ]
+  end
+
+  view :sign_up, perms: ->(r) { r.show_signup_link? },
+                 denial: :blank do |_args|
+    # 'Sign up'
+    link_to(I18n.t(:sign_up, scope: "mod.standard.set.self.account_links"),
+            card_path("account/signup"), id: "signup-link")
+  end
+
+  view :sign_in, perms: ->(_r) { !Auth.signed_in? },
+                 denial: :blank do |_args|
+    # 'Sign in'
+    link_to(I18n.t(:sign_in, scope: "mod.standard.set.self.account_links"),
+            card_path(":signin"), id: "signin-link")
+  end
+
+  view :invite, perms: ->(r) { r.show_invite_link? },
+                denial: :blank do |_args|
+    # 'Invite'
+    link_to(I18n.t(:invite, scope: "mod.standard.set.self.account_links"),
+            card_path("account/signup"), id: "invite-a-friend-link")
+  end
+
+  view :sign_out, perms: ->(_r) { Auth.signed_in? },
+                  denial: :blank do |_args|
+    # 'Sign out'
+    link_to(I18n.t(:sign_out, scope: "mod.standard.set.self.account_links"),
+            card_path("delete/:signin"), id: "signout-link")
+  end
+
+  view :my_card, perms: ->(_r) { Auth.signed_in? },
+                 denial: :blank do |_args|
+    card_link(Auth.current.cardname, id: "my-card-link")
+  end
+
+  view :raw do |args|
+    item_links(args).join " "
+  end
+
+  view :core do |args|
+    content_tag :span, id: "logging" do
+      render_raw args
+    end
+  end
+
+  def show_signup_link?
+    !Auth.signed_in? && Card.new(type_id: Card::SignupID).ok?(:create)
+  end
+
+  def show_invite_link?
+    Auth.signed_in? &&
+      Card.new(type_id: Card.default_accounted_type_id).ok?(:create)
+  end
+end
+
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/account_links.rb ~~
+end;end;end;end;

data/tmpsets/set/mod017-account/self/signin.rb

@@ -0,0 +1,165 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Signin; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/signin.rb ~~
+
+format :html do
+  view :open do |args|
+    args[:optional_help] = :show
+    super args
+  end
+
+  def default_title_args args
+    args[:title] ||= I18n.t(:sign_in_title, # 'Sign In'
+                            scope: "mod.standard.set.self.signin")
+  end
+
+  view :open_content do |args|
+    # annoying step designed to avoid table of contents.  sigh
+    _render_core(args)
+  end
+
+  view :closed_content do |_args|
+    ""
+  end
+
+  def default_core_args args={}
+    # 'Sign in' '...or sign up!' 'RESET PASSWORD'
+    sign_in, or_sign_up, reset_password =
+      I18n.t([:sign_in, :or_sign_up, :reset_password],
+             scope: "mod.standard.set.self.signin")
+    # since i18n-tasks doesn't understand bulk lookups, tell it keys are used
+    # i18n-tasks-use t(:sign_in, scope: 'mod.standard.set.self.signin')
+    # i18n-tasks-use t(:or_sign_up, scope: 'mod.standard.set.self.signin')
+    # i18n-tasks-use t(:reset_password,
+    #                  scope: 'mod.standard.set.self.signin')
+    args[:buttons] = button_tag sign_in, situation: "primary"
+    if Card.new(type_id: Card::SignupID).ok? :create
+      args[:buttons] += link_to(or_sign_up, card_path("account/signup"))
+    end
+    args[:buttons] += raw(
+      "<div style='float:right'>" \
+      "#{view_link reset_password, :edit,
+                   path_opts: { slot: { hide: :toolbar } }}" \
+      "</div>"
+    ) # FIXME: hardcoded styling
+    args
+  end
+
+  view :core do |args|
+    form_args = {
+      hidden: { success: "REDIRECT: #{Env.interrupted_action || '*previous'}" },
+      recaptcha: :off
+    }
+    with_nest_mode :edit do
+      card_form :update, form_args do
+        [
+          _optional_render(:content_formgroup, args.merge(structure: true)),
+          _optional_render(:button_formgroup, args)
+        ].join
+      end
+    end
+  end
+
+  # FORGOT PASSWORD
+  view :edit do |args|
+    @forgot_password = true
+    args.merge!(
+      title: I18n.t(:forgot_password, # 'Forgot Password'
+                    scope: "mod.standard.set.self.signin"),
+      optional_help: :hide,
+      buttons: button_tag(I18n.t(:reset_my_password, # 'Reset my password'
+                                 scope: "mod.standard.set.self.signin"),
+                          situation: "primary"),
+      structure: true,
+      hidden: {
+        reset_password: true,
+        success: { view: :reset_password_success }
+      }
+    )
+    Auth.as_bot { super args }
+  end
+
+  view :raw do |_args|
+    if @forgot_password
+      "{{+#{Card[:email].name}|title:email;type:Phrase}}"
+    else
+      %(
+        {{+#{Card[:email].name}|titled;title:email}}
+        {{+#{Card[:password].name}|titled;title:password}}
+      )
+    end
+  end
+
+  view :reset_password_success do |_args|
+    # 'Check your email for a link to reset your password'
+    frame { I18n.t(:check_email, scope: "mod.standard.set.self.signin") }
+  end
+end
+
+event :signin, :validate, on: :update do
+  email = subfield :email
+  email &&= email.content
+  pword = subfield :password
+  pword &&= pword.content
+
+  unless email && pword
+    abort :failure, I18n.t(:abort_bad_signin_args, # 'bad signin args'
+                           scope: "mod.standard.set.self.signin")
+  end
+
+  if (account = Auth.authenticate(email, pword))
+    Auth.signin account.left_id
+  else
+    account = Auth.find_account_by_email email
+    error_msg =
+      case
+      when account.nil?     then
+        # 'Unrecognized email.'
+        I18n.t(:error_unknown_email, scope: "mod.standard.set.self.signin")
+      when !account.active? then
+        # 'Sorry, that account is not active.'
+        I18n.t(:error_not_active, scope: "mod.standard.set.self.signin")
+      else
+        # 'Wrong password'
+        I18n.t(:error_wrong_password, scope: "mod.standard.set.self.signin")
+      end
+    errors.add :signin, error_msg
+    abort :failure
+  end
+end
+
+event :signin_success, after: :signin do
+  abort :success
+end
+
+event :send_reset_password_token,
+      before: :signin, on: :update,
+      when: proc { Env.params[:reset_password] } do
+  email = subfield :email
+  email &&= email.content
+
+  account = Auth.find_account_by_email email
+  if account
+    if account.active?
+      account.send_reset_password_token
+      abort :success
+    else
+      errors.add :account, I18n.t(:error_not_active, # 'not active'
+                                  scope: "mod.standard.set.self.signin")
+      abort :failure
+    end
+  else
+    errors.add :email, I18n.t(:error_not_recognized, # 'not recognized'
+                              scope: "mod.standard.set.self.signin")
+    abort :failure
+  end
+end
+
+event :signout, :validate, on: :delete do
+  Auth.signin nil
+  abort :success
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/signin.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,175 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module Signup; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/type/signup.rb ~~
+format :html do
+  def default_new_args args
+    super args
+    args.merge!(
+      optional_help: :show, # , optional_menu: :never
+      buttons: submit_button,
+      account: card.fetch(trait: :account, new: {}),
+      title: "Sign up",
+      hidden: {
+        success: (card.rule(:thanks) || "_self"),
+        "card[type_id]" => card.type_id
+      }
+    )
+    return unless Auth.signed_in? && args[:account].confirm_ok?
+    invite_args args
+  end
+
+  def invite_args args
+    args[:title] = "Invite"
+    args[:buttons] = button_tag("Send Invitation", situation: "primary")
+    args[:hidden][:success] = "_self"
+  end
+
+  view :new do |args|
+    # FIXME: make more use of standard new view?
+
+    frame_and_form :create, args, "main-success" => "REDIRECT" do
+      [
+        _render_name_formgroup(help: "usually first and last name"),
+        _optional_render(:account_formgroups, args),
+        (card.structure ? edit_slot : ""),
+        _optional_render(:button_formgroup, args)
+      ]
+    end
+  end
+
+  view :account_formgroups do |args|
+    sub_args = { structure: true }
+    sub_args[:no_password] = true if Auth.signed_in?
+    Auth.as_bot do
+      subformat(args[:account])._render :content_formgroup, sub_args
+    end # YUCK!!!!
+  end
+
+  view :core do |_args|
+    return if card.new_card? # necessary?
+    headings = []
+    by_anon = card.creator_id == AnonymousID
+    headings << %(
+      <strong>#{card.name}</strong> #{'was' unless by_anon} signed up on
+      #{format_date card.created_at}
+    )
+    if (account = card.account)
+      headings += verification_info account
+    else
+      headings << "ERROR: signup card missing account"
+    end
+    <<-HTML
+      <div class="invite-links">
+        #{headings.map { |h| "<div>#{h}</div>" }.join "\n"}
+      </div>
+      #{process_content render_raw}
+    HTML
+  end
+
+  def verification_info account
+    headings = []
+    token_action = "Send"
+    if account.token.present?
+      headings << "A verification email has been sent " \
+                  "#{"to #{account.email}" if account.email_card.ok? :read}"
+      token_action = "Resend"
+    end
+    links = verification_links account, token_action
+    headings << links * "" if links.any?
+    headings
+  end
+
+  def verification_links account, token_action
+    links = []
+    if account.confirm_ok?
+      links << link_to(
+        "#{token_action} verification email",
+        card_path("update/~#{card.id}?approve_with_token=true")
+      )
+      links << link_to(
+        "Approve without verification",
+        card_path("update/~#{card.id}?approve_without_token=true")
+      )
+    end
+    if card.ok? :delete
+      links << link_to("Deny and delete", card_path("delete/~#{card.id}"))
+    end
+    links
+  end
+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.confirm_ok?
+  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.confirm_ok?
+  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
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/type/signup.rb ~~
+end;end;end;end;

data/tmpsets/set/mod017-account/type/user.rb

@@ -0,0 +1,88 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module User; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/type/user.rb ~~
+
+include Basic
+
+attr_accessor :email
+
+format :html do
+  view :setup, tags: :unknown_ok,
+               perms: ->(_r) { Auth.needs_setup? } do |args|
+    account = card.fetch trait: :account, new: {}
+    Auth.as_bot do
+      frame_and_form :create, args do
+        [
+          _render_name_formgroup(help: "usually first and last name"),
+          subformat(account)._render(:content_formgroup, structure: true),
+          _render_button_formgroup(args)
+        ]
+      end
+    end
+  end
+
+  def default_setup_args args
+    args.merge!(
+      title: "Welcome, Wagneer!",
+      optional_help: :show,
+      optional_menu: :never,
+      help_text: help_text,
+      buttons: setup_button,
+      hidden: {
+        success: "REDIRECT: #{Card.path_setting '/'}",
+        "card[type_id]" => Card.default_accounted_type_id,
+        "setup" => true
+      }
+    )
+  end
+
+  def help_text
+    text = "<h3>To get started, set up an account.</h3>"
+    if Card.config.action_mailer.perform_deliveries == false
+      text += <<-HTML
+        <br>WARNING: Email delivery is turned off.
+        Change settings in config/application.rb to send sign up notifications.'
+      HTML
+    end
+    text
+  end
+
+  def setup_button
+    submit_button text: "Set up", disable_with: "Setting up"
+  end
+end
+
+event :setup_as_bot, before: :check_permissions, on: :create,
+                     when: proc { Card::Env.params[:setup] } do
+  abort :failure unless Auth.needs_setup?
+  Auth.as_bot
+  # we need bot authority to set the initial administrator roles
+  # this is granted and inspected here as a separate event for
+  # flexibility and security when configuring initial setups
+end
+
+event :setup_first_user, :prepare_to_store,
+      on: :create, when: proc { Card::Env.params[:setup] } do
+  add_subcard "signup alert email+*to", content: name
+  add_subfield :roles, content: Card[:administrator].name
+end
+
+event :signin_after_setup, :integrate,
+      on: :create, when: proc { Card::Env.params[:setup] } do
+  Auth.signin id
+end
+
+def follow follow_name, option="*always"
+  return unless
+    (card = Card.fetch follow_name) &&
+    (set_card = card.default_follow_set_card) &&
+    (follow_rule_name = set_card.follow_rule_name(name)) &&
+    (follow_rule = Card.fetch follow_rule_name, new: {})
+  follow_rule.drop_item "*never"
+  follow_rule.add_item option
+  follow_rule.save!
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/type/user.rb ~~
+end;end;end;end;