card 1.99.2 → 1.100.0

data/tmpsets/set/{mod025-account → mod026-account}/type/user.rb

@@ -5,17 +5,18 @@ class Card; module Set; class Type
 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 = "Welcome, Shark!" # LOCALIZE
+      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
@@ -24,8 +25,8 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     frame_and_form :create do
       [
         setup_hidden_fields,
-        _render_name_formgroup(help: "usually first and last name"),
-        account_formgroup,
+        _render_name_formgroup,
+        account_formgroups,
         setup_form_buttons
       ]
     end
@@ -35,11 +36,6 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     button_formgroup { setup_button }
   end
 
-  def account_formgroup
-    account = card.fetch trait: :account, new: {}
-    subformat(account)._render :content_formgroup, structure: true
-  end
-
   def setup_button
     submit_button text: "Set up", disable_with: "Setting up"
   end
@@ -51,21 +47,13 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
       "card[type_id]" => Card.default_accounted_type_id
     )
   end
+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?
+  Card::Env.params[:setup]
 end
 
-event :setup_as_bot, before: :check_permissions, on: :create,
-                     when: proc { Card::Env.params[:setup] } do
+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
@@ -73,15 +61,16 @@ event :setup_as_bot, before: :check_permissions, on: :create,
   # flexibility and security when configuring initial setups
 end
 
-event :setup_first_user, :prepare_to_store,
-      on: :create, when: proc { Card::Env.params[:setup] } do
+event :setup_first_user, :prepare_to_store, on: :create, when: :setup? do
   add_subcard "signup alert email+*to", content: name
-  add_subfield :roles,
-               content: %i[help_desk shark administrator].map(&:cardname)
+  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: proc { Card::Env.params[:setup] } do
+event :signin_after_setup, :integrate, on: :create, when: :setup? do
   Auth.signin id
 end
 end;end;end;end;

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 ~~

data/tmpsets/set/{mod025-account → mod027-navbar}/self/account_links.rb

@@ -4,7 +4,9 @@ class Card; module Set; class Self
 #
 module AccountLinks;
 extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/account/set/self/account_links.rb"; end
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/self/account_links.rb"; end
+include_set Abstract::AccountDropdown
+
 def ok_to_read
   true
 end
@@ -12,16 +14,21 @@ end
 module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
   view :core, cache: :never do
     status_class = Auth.signed_in? ? "logged-in" : "logged-out"
-    wrap_with :span, id: "logging", class: status_class do
-      item_links.join " "
+    wrap_with :div, id: "logging", class: status_class do
+      navbar_items.join "\n"
     end
   end
 
-  def item_links _args=nil
+  def navbar_items
     # removed invite for now
-    %i[my_card sign_out sign_up sign_in].map do |link_view|
-      render link_view
-    end.compact
+    links =
+      %i[my_card sign_out sign_up sign_in].map do |link_view|
+        render(link_view)
+      end.compact
+
+    links.map do |link|
+      wrap_with_nav_item link
+    end
   end
 
   def self.link_options opts={}
@@ -54,19 +61,29 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
   end
 
   view(:my_card, link_options { Auth.signed_in? }) do
-    link = link_to_card Auth.current.name, nil,
-                        id: "my-card-link",
-                        class: nav_link_class("my-card")
-    split_button link, nil do
-      [
-        link_to_card([Auth.current, :account_settings], "Account"),
-        ["Roles", roles.map(&method(:link_to_card))]
-      ]
-    end
+    can_disable_roles? ? interactive_roles_dropdown : simple_roles_dropdown
+  end
+
+  def interactive_roles_dropdown
+    nest(enabled_roles_card,
+         view: :edit_inline, hide: %i[edit_inline_buttons name_formgroup])
+  end
+
+  def simple_roles_dropdown
+    account_dropdown(&method(:link_to_card))
+  end
+
+  def enabled_roles_card
+    Auth.current.fetch :enabled_roles, new: { type_id: SessionID }
+  end
+
+  def role_list
+    Auth.current_roles.map(&method(:link_to_card))
   end
 
-  def roles
-    [Card[:eagle], Auth.current.fetch(trait: :roles)&.item_names].flatten.compact
+  def can_disable_roles?
+    Auth.current_roles.size > 1 &&
+      Card::Codename.exists?(:enabled_roles) # workaround for broken migrations
   end
 
   def account_link_text purpose
@@ -79,7 +96,7 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
   end
 
   def show_signup_link?
-    !Auth.signed_in? && Card.new(type_id: Card::SignupID).ok?(:create)
+    !Auth.signed_in? && Card.new(type_id: SignupID).ok?(:create)
   end
 
   def show_invite_link?
@@ -88,4 +105,4 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
   end
 end
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/account/set/self/account_links.rb ~~
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/self/account_links.rb ~~

data/tmpsets/set/mod027-navbar/self/dropdown_divider.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "DropdownDivider"
+#
+module DropdownDivider;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/self/dropdown_divider.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :nav_item do
+    wrap_with :div, "", class: "dropdown-divider"
+  end
+
+  view :nav_link_in_dropdown do
+    wrap_with :div, "", class: "dropdown-divider"
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/self/dropdown_divider.rb ~~

data/tmpsets/set/mod027-navbar/self/navbox.rb

@@ -0,0 +1,45 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Navbox"
+#
+module Navbox;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/self/navbox.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :navbox, cache: :never do
+    select_tag "query[keyword]", "", class: "_navbox navbox form-control w-100",
+                                     placeholder: navbar_placeholder
+  end
+
+  view :navbar do
+    # FIXME: not bootstrap class here.
+    class_up "navbox-form", "form-inline"
+    render_core
+  end
+
+  view :core do
+    form_tag path(mark: :search), method: "get", role: "search",
+                                  class: classy("navbox-form", "nodblclick") do
+      wrap_with :div, class: "form-group w-100" do
+        render_navbox
+      end
+    end
+  end
+
+  # def initial_options
+  #   return "" unless (keyword = params.dig :query, :keyword)
+  #   options_for_select [keyword]
+  # end
+
+  # TODO: the more natural placeholder would be the content of the navbox card, no?
+  # Also, the forced division of "raw" and "core" should probably be replaced
+  # with a single haml template (for core view)
+  def navbar_placeholder
+    @@placeholder ||= begin
+                        holder_card = Card["#{Card[:navbox].name}+*placeholder"]
+                        holder_card ? holder_card.content : "Search"
+                      end
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/self/navbox.rb ~~

data/tmpsets/set/mod027-navbar/type/html.rb

@@ -0,0 +1,23 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "Html" cards
+#
+module Html;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/navbar/set/type/html.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  # deprecated; here to support old "*main menu" html cards in existing decks
+  view :navbar_links, perms: :none do
+    wrap_with :ul, class: "navbar-nav" do
+      item_links.map do |link|
+        wrap_with(:li, class: "nav-item") { link }
+      end.join "\n"
+    end
+  end
+
+  def item_links _args={}
+    raw(render_core).split(/[,\n]/)
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/navbar/set/type/html.rb ~~