card 1.99.6 → 1.100.0

data/tmpsets/set/mod026-account/type/role.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "Role" cards
+#
+module Role;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/type/role.rb"; end
+def disabled?
+  Auth.current&.fetch(:disabled_roles)&.item_ids&.include? id
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :link_with_checkbox, cache: :never do
+    role_checkbox
+  end
+
+  def role_checkbox
+    name = card.disabled? ? "add_item" : "drop_item"
+    subformat(Auth.current.field(:disabled_roles, new: {})).card_form :update do
+      [check_box_tag(name, card.id, !card.disabled?, class: "_edit-item"),
+       render_link]
+    end
+  end
+
+  def related_by_content_items
+    super.unshift ["members", :members]
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/type/role.rb ~~

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

@@ -0,0 +1,63 @@
+# -*- 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
+include_set Abstract::Accountable
+
+require_field :account
+
+def default_account_status
+  can_approve? ? "unverified" : "unapproved"
+end
+
+def can_approve?
+  Card.new(type_id: Card.default_accounted_type_id).ok? :create
+end
+
+def activate_accounted
+  self.type_id = Card.default_accounted_type_id
+end
+
+event :auto_approve_with_verification, :validate, on: :create, when: :can_approve? do
+  request_verification
+end
+
+event :approve_with_verification, :validate, on: :update, trigger: :required do
+  approvable { request_verification }
+end
+
+event :approve_without_verification, :validate, on: :update, trigger: :required do
+  # TODO: if validated here, add trigger and activate in storage phase
+  approvable do
+    activate_accounted
+    account_subfield.activate_account
+  end
+end
+
+event :act_as_current_for_integrate_stage, :integrate, on: :create do
+  # needs justification!
+  Auth.current_id = id
+end
+
+def account_subfield
+  subfield(:account) || add_subfield(:account)
+end
+
+def request_verification
+  acct = account_subfield
+  acct.add_subfield :status, content: "unverified"
+  acct.trigger_event! :send_verification_email
+end
+
+def approvable
+  if can_approve?
+    yield
+  else
+    abort :failure, "illegal approval" # raise permission denied?
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/type/signup.rb ~~

data/tmpsets/set/mod026-account/type/signup/views.rb

@@ -0,0 +1,102 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module Signup;
+# Set: All "Signup+Views" cards (Views)
+#
+module Views;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/type/signup/views.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def invitation?
+    Auth.signed_in? && card.can_approve?
+  end
+
+  view :new do
+    voo.title = invitation? ? tr(:invite) : tr(:sign_up)
+    super()
+  end
+
+  view :content_formgroups do
+    [account_formgroups, (card.structure ? edit_slot : "")].join
+  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
+
+  view :core, template: :haml do
+    @lines = [signup_line] + account_lines
+    @body = process_content _render_raw
+  end
+
+  def signup_line
+    ["<strong>#{safe_name}</strong>",
+     ("was" if invited?),
+     "signed up on #{format_date card.created_at}"].compact.join " "
+  end
+
+  def invited?
+    !self_signup?
+  end
+
+  def self_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.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
+    action = card.account.status == "unverified" ? "Resend" : "Send"
+    approval_link "#{action} verification email", :with
+  end
+
+  def approve_without_token_link
+    approval_link "Approve without verification", :without
+  end
+
+  def approval_link text, with_or_without
+    return unless card.can_approve?
+    link_to_card card, text,
+                 path: { action: :update,
+                         card: { trigger: "approve_#{with_or_without}_verification" } }
+  end
+
+  def deny_link
+    return unless card.ok? :delete
+    link_to_card card, "Deny and delete", path: { action: :delete }
+  end
+end
+end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/type/signup/views.rb ~~

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

@@ -0,0 +1,77 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "User" cards
+#
+module User;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/type/user.rb"; end
+include Basic
+include_set Abstract::Accountable
+
+attr_accessor :email
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :setup, unknown: true, perms: ->(_fmt) { Auth.needs_setup? } do
+    with_nest_mode :edit do
+      voo.title = "Your deck is ready to go!" # LOCALIZE
+      voo.show! :help
+      voo.hide! :menu
+      voo.help = haml :setup_help
+      Auth.as_bot { setup_form }
+    end
+  end
+
+  def setup_form
+    frame_and_form :create do
+      [
+        setup_hidden_fields,
+        _render_name_formgroup,
+        account_formgroups,
+        setup_form_buttons
+      ]
+    end
+  end
+
+  def setup_form_buttons
+    button_formgroup { setup_button }
+  end
+
+  def setup_button
+    submit_button text: "Set up", disable_with: "Setting up"
+  end
+
+  def setup_hidden_fields
+    hidden_tags(
+      setup: true,
+      success: "REDIRECT: #{path mark: ''}",
+      "card[type_id]" => Card.default_accounted_type_id
+    )
+  end
+end
+
+def setup?
+  Card::Env.params[:setup]
+end
+
+event :setup_as_bot, before: :check_permissions, on: :create, when: :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: :setup? do
+  add_subcard "signup alert email+*to", content: name
+  add_subfield :roles, content: roles_for_first_user
+end
+
+def roles_for_first_user
+  %i[help_desk shark administrator].map(&:cardname)
+end
+
+event :signin_after_setup, :integrate, on: :create, when: :setup? do
+  Auth.signin id
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/type/user.rb ~~

data/tmpsets/set/mod026-account/type_plus_right/user/email.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class TypePlusRight; module User;
+# Set: All "+Email" cards on "User" cards
+#
+# supports legacy references to <User>+*email
+module Email;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/type_plus_right/user/email.rb"; end
+# (standard representation is now <User>+*account+*email)
+view :raw do
+  card.content_email || card.account_email || ""
+end
+
+def content_email
+  content if real?
+end
+
+def account_email
+  left&.account&.email
+end
+end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/type_plus_right/user/email.rb ~~

data/tmpsets/set/mod027-navbar/abstract/account_dropdown.rb

@@ -0,0 +1,34 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (AccountDropdown)
+#
+module AccountDropdown;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/abstract/account_dropdown.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def link_to_mycard
+    link_to_card Auth.current.name, nil,
+                 id: "my-card-link", class: "nav-link #{classy('my-card')}"
+  end
+
+  def account_dropdown &render_role_item
+    split_button link_to_mycard, nil do
+      [
+        link_to_card([Auth.current, :account_settings], "Account"),
+        (["Roles", role_items(&render_role_item)] if special_roles?)
+      ]
+    end
+  end
+
+  def special_roles?
+    Auth.current_roles.size > 1
+  end
+
+  def role_items
+    Auth.current_roles.map do |role_name|
+      yield role_name
+    end
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/abstract/account_dropdown.rb ~~

data/tmpsets/set/mod027-navbar/abstract/pointer/html_views.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract; module Pointer;
+# Set: Abstract (Pointer, HtmlViews)
+#
+module HtmlViews;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/abstract/pointer/html_views.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :nav_item do
+    nav_dropdown
+  end
+end
+end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/abstract/pointer/html_views.rb ~~

data/tmpsets/set/mod027-navbar/all/navbar_links.rb

@@ -0,0 +1,67 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (NavbarLinks)
+#
+module NavbarLinks;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/all/navbar_links.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :navbar_links, perms: :none do
+    wrap_with :ul, class: "navbar-nav" do
+      navbar_items
+    end
+  end
+
+  # Iterates over all nests and links and renders them as bootstrap navbar items.
+  # Items that are pointer cards become dropdowns
+  def navbar_items view: :nav_item, link_class: "nav-link"
+    process_content nil, chunk_list: :references do |chunk|
+      case chunk
+      when Card::Content::Chunk::Link
+        link = chunk.render_link view: view, explicit_link_opts: { class: link_class }
+        chunk.explicit_link? && view == :nav_item ? wrap_with_nav_item(link) : link
+      when Card::Content::Chunk::Nest
+        content_nest chunk.options.merge view: view
+      else
+        chunk.process_chunk
+      end
+    end
+  end
+
+  # overridden in Abstact::Pointer to render dropdown
+  view :nav_item do
+    wrap_with_nav_item link_view(class: "nav-link")
+  end
+
+  def wrap_with_nav_item content
+    wrap_with(:li, content, class: "nav-item")
+  end
+
+  view :nav_link_in_dropdown do
+    link_to_card card, render_title, class: "dropdown-item"
+  end
+
+  def nav_dropdown
+    wrap_with(:li, class: "nav-item dropdown") do
+      [
+        dropdown_toggle_link,
+        dropdown_menu
+      ]
+    end
+  end
+
+  def dropdown_toggle_link
+    link_to(render_title, href: "#", class: "nav-link dropdown-toggle",
+                          "data-toggle": "dropdown")
+  end
+
+  def dropdown_menu
+    wrap_with :div, dropdown_menu_items, class: "dropdown-menu"
+  end
+
+  def dropdown_menu_items
+    navbar_items view: :nav_link_in_dropdown, link_class: "dropdown-item"
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/all/navbar_links.rb ~~

data/tmpsets/set/mod027-navbar/right/enabled_roles.rb

@@ -0,0 +1,70 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+EnabledRoles" cards
+#
+module EnabledRoles;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/right/enabled_roles.rb"; end
+include_set Abstract::AccountDropdown
+
+def ok_to_read
+  true
+end
+
+def ok_to_update
+  left_id == Auth.current_id
+end
+
+def ok_to_create
+  left_id == Auth.current_id
+end
+
+def ensure_roles
+  self.content = Auth.current_roles.to_pointer_content if content.blank?
+end
+
+event :validate_role_enabling, :validate, on: :save do
+  illegal_roles = item_names - Auth.current_roles
+  return if illegal_roles.empty?
+
+  errors.add :content, "illegal roles: #{illegal_roles.to_sentence}" # LOCALIZE
+end
+
+event :clear_roles_cache, :prepare_to_store, before: :store_in_session do
+  clear_roles
+  Auth.update_always_cache Auth.as_id, nil
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  # permission change compared to super
+  view :edit_inline, perms: :none, unknown: true, cache: :never, wrap: :slot do
+    super()
+  end
+
+  def input_type
+    :checkbox
+  end
+
+  def edit_success
+    { reload: true }
+  end
+
+  def hidden_form_tags _action, opts
+    "#{super} #{hidden_tags card: { type_id: SessionID }}"
+  end
+
+  def checkbox_input
+    card.ensure_roles
+    wrap_with :div, class: "pointer-checkbox-list" do
+      account_dropdown &method(:role_item_checkbox)
+    end
+  end
+
+  def role_item_checkbox role_name
+    haml :role_checkbox, id: "pointer-checkbox-#{role_name.to_name.key}",
+                         checked: card.item_names.include?(role_name),
+                         option_name: role_name
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/right/enabled_roles.rb ~~