card 1.16.1 → 1.16.2

data/tmpsets/set/mod007-05_standard/self/search.rb

@@ -0,0 +1,49 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Self; module Search; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/search.rb ~~~~~~~~~~~
+
+format :html do
+  
+  view :title do |args|
+    vars = root.search_params[:vars]
+    if vars && vars[:keyword]
+       args.merge! :title=> %{Search results for: <span class="search-keyword">#{ vars[:keyword] }</span>}
+    end
+    super args
+  end
+end
+
+
+format :json do
+
+  view :complete do |args|
+    term = params['_keyword']
+    if term =~ /^\+/ && main = params['main']
+      term = main+term
+    end
+
+    exact = Card.fetch term, :new=>{}
+    goto_cards = Card.search goto_wql(term)
+    goto_cards.unshift exact.name if exact.known? && !goto_cards.map{|n| n.to_name.key}.include?(exact.key) 
+
+    {
+      :search => true, # card.ok?( :read ),
+      :add    => (exact.new_card? && exact.cardname.valid? && !exact.virtual? && exact.ok?( :create ) && exact.name),
+      :new    => (exact.type_id==Card::CardtypeID &&
+                  Card.new(:type_id=>exact.type_id).ok?(:create) &&
+                  [exact.name, exact.cardname.url_key]
+                 ),
+      :goto   => goto_cards.map { |name| [name, highlight(name, term), name.to_name.url_key] }
+    }
+  
+  end
+  
+  #hacky.  here for override
+  def goto_wql(term)
+   { :complete=>term, :limit=>8, :sort=>'name', :return=>'name' }
+  end
+  
+end
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/search.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/self/signin.rb

@@ -0,0 +1,130 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Self; module Signin; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/signin.rb ~~~~~~~~~~~
+
+format :html do
+
+  view :open do |args|
+    args.merge! :optional_help=>:show
+    super args
+  end
+
+  def default_title_args args
+    args[:title] ||= 'Sign In'
+  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={}
+    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|
+    account = card.fetch :trait=>:account, :new=>{}
+
+    form_args = {
+      :hidden => { :success=>"REDIRECT: #{interrupted_action || '*previous'}" },
+      :recaptcha => :off
+    }
+
+    with_inclusion_mode :edit do
+      card_form :update, form_args do
+        [
+          Auth.as_bot do
+            subformat(account)._render :content_formgroup, :structure=>true, :items=>{:autocomplete=>'on'}
+          end,
+          _optional_render( :button_formgroup, args )
+        ].join
+      end
+    end
+  end
+
+  #FORGOT PASSWORD
+  view :edit do |args|
+    args.merge!( {
+      :title=>'Forgot Password',
+      :optional_help=>:hide,
+      :buttons => button_tag( 'Reset my password', :situation=>'primary' ),
+      :structure => true,
+      :hidden => {
+        :reset_password => true,
+        :success => { :view => :reset_password_success }
+      }
+    } )
+
+    Auth.as_bot { super args }
+  end
+
+  view :raw do |args|
+    '{{+*email|title:email;type:Phrase}}'
+  end
+
+  view :reset_password_success do |args|
+    frame { 'Check your email for a link to reset your password' }
+  end
+
+end
+
+event :signin, :before=>:approve, :on=>:update do
+  email = subcards["+#{Card[:email   ].name}"]
+  email &&= email['content']
+  pword = subcards["+#{Card[:password].name}"]
+  pword &&= pword['content']
+
+  abort :failure, 'bad signin args' unless email && pword
+
+  if signin_id = Auth.authenticate( email, pword )
+    Auth.signin signin_id
+  else
+    accted = Auth[ email.strip.downcase ]
+    errors.add :signin, case
+      when accted.nil?             ; "Unrecognized email."
+      when !accted.account.active? ; "Sorry, that account is not active."
+      else                         ; "Wrong password"
+      end
+    abort :failure
+  end
+end
+
+event :signin_success, :after=>:signin do
+  abort :success
+end
+
+event :send_reset_password_token, :before=>:signin, :on=>:update, :when=>proc{ |c| Env.params[:reset_password] } do
+  email = subcards["+#{Card[:email].name}"]
+  email &&= email['content']
+
+  if accted = Auth[ email.strip.downcase ] and accted.account.active?
+    accted.account.send_reset_password_token
+    abort :success
+  else
+    if accted
+      errors.add :account, 'not active'
+    else
+      errors.add :email, 'not recognized'
+    end
+    abort :failure
+  end
+end
+
+event :signout, :before=>:approve, :on=>:delete do
+  Auth.signin nil
+  abort :success
+end
+
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/signin.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/self/stats.rb

@@ -0,0 +1,109 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Self; module Stats; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/stats.rb ~~~~~~~~~~~
+
+format :html do
+  view :core do |args|
+    oldmem = session[:memory]
+    session[:memory] = newmem = card.profile_memory
+    stats = %{
+      <table>
+        <tr>
+          <th>Stat</th>
+          <th>Value</th>
+          <th>Action</th>
+        </tr>
+        <tr>
+          <td>cards</td>
+          <td>#{ Card.where(:trash=>false).count }</td>
+          <td></td>
+        </tr>
+        <tr>
+          <td>trashed cards</td>
+          <td>#{ Card.where(:trash=>true).count  }</td>
+          <td>#{link_to 'delete all', card_path( 'update/:all?task=empty_trash' )}</td>
+        </tr>
+        <tr>
+          <td>actions</td>
+          <td>#{ Card::Action.count }</td>
+          <td>#{link_to 'delete old', card_path( 'update/:all?task=delete_old_revisions' ) }</td>
+        </tr>
+          <tr><td>references</td>
+          <td>#{ Card::Reference.count }</td>
+          <td>#{link_to 'repair all', card_path( 'update/:all?task=repair_references' ) }</td>
+        </tr>
+        <tr>
+          <td>sessions</td>
+          <td>#{ ActiveRecord::SessionStore::Session.count }</td>
+          <td>
+            delete older than
+            #{ delete_sessions_link 1 }
+            #{ delete_sessions_link 2 }
+            #{ delete_sessions_link 3 }
+            months
+          </td>
+        </tr>
+        #{
+          if Card.config.view_cache
+            %{
+              <tr>
+                <td>view cache</td>
+                <td>#{ Card::ViewCache.count }</td>
+                <td>#{link_to 'clear view cache',  card_path( 'update/:all?task=clear_view_cache' ) }</td>
+              </tr>
+            }
+          end
+        }
+
+        <tr>
+          <td>memory now</td>
+          <td>#{ newmem }M</td>
+          <td>#{link_to 'clear cache',  card_path( 'update/:all?task=clear_cache' ) }</td>
+        </tr>
+        #{
+          if oldmem
+            %{
+              <tr>
+                <td>memory prev</td>
+                <td>#{ oldmem }M</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>memory diff</td>
+                <td>#{ newmem - oldmem }M</td>
+                <td></td>
+              </tr>
+
+            }
+          end
+        }
+      </table>
+    }
+  end
+
+  def delete_sessions_link months
+    link_to months, card_path( "update/:all?task=delete_old_sessions&months=#{months}")
+  end
+end
+
+
+
+
+def get_current_memory_usage
+  `ps -o rss= -p #{Process.pid}`.to_i
+end
+
+def profile_memory(&block)
+  before = get_current_memory_usage
+  file, line, _ = caller[0].split(':')
+  if block_given?
+    instance_eval(&block)
+    (get_current_memory_usage - before) / 1024
+  else
+    before = 0
+    (get_current_memory_usage - before) / 1024
+  end.to_i
+end
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/stats.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/self/version.rb

@@ -0,0 +1,15 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Self; module Version; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/version.rb ~~~~~~~~~~~
+# -*- encoding : utf-8 -*-
+require_dependency 'card/version'
+
+view :raw do |args|
+  Card::Version.release
+end
+
+view :core, :raw
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/self/version.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/type/basic.rb

@@ -0,0 +1,52 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Type; module Basic; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/basic.rb ~~~~~~~~~~~
+format :html do
+  view :open_content do |args|
+    content = _render_core args
+    table_of_contents(content) || content
+  end
+
+  def table_of_contents content
+    return if @mode==:closed || !content.present?
+    min = card.rule(:table_of_contents).to_i
+    #warn "table_of #{name}, #{min}"
+    return unless min and min > 0
+
+    toc, dep = [], 1
+    content.gsub!( /<(h\d)>(.*?)<\/h\d>/i ) do |match|
+      if $~
+        tag, value = $~[1,2]
+        value = ActionView::Base.new.strip_tags(value).strip
+        next if value.empty?
+        item = { :value => value, :uri => URI.escape(value) }
+        case tag.downcase
+        when 'h1'
+          item[:depth] = dep = 1; toc << item
+        when 'h2'
+          toc << []  if dep == 1
+          item[:depth] = dep = 2; toc.last << item
+        end
+        %{<a name="#{item[:uri]}"></a>#{match}}
+      end
+    end
+
+    if toc.flatten.length >= min
+      content.replace %{ <div class="table-of-contents"> <h5>Table of Contents</h5> } +
+        make_table_of_contents_list(toc) + '</div>'+ content
+    end
+  end
+
+
+  def make_table_of_contents_list(items)
+    list = items.collect do |i|
+      Array === i ? make_table_of_contents_list(i) : %{<li><a href="##{i[:uri]}"> #{i[:value]}</a></li>}
+    end.join("\n")
+    "<ol>" + list + "</ol>"
+  end
+
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/basic.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/type/cardtype.rb

@@ -0,0 +1,78 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Type; module Cardtype; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/cardtype.rb ~~~~~~~~~~~
+
+format :html do
+
+  view :type do |args|
+    args.merge!(:type_class=>'no-edit') if card.cards_of_type_exist?
+    super args
+  end
+
+  view :type_formgroup do |args|
+    if card.cards_of_type_exist?
+      %{<div>Sorry, this card must remain a Cardtype so long as there are <strong>#{ card.name }</strong> cards.</div>}
+    else
+      super args
+    end
+  end
+
+  view :add_link do |args|
+    args[:title] ||= "Add #{card.name}"
+    link_to _render_title(args), _render_add_path(args), :class=>args[:css_class]
+  end
+
+  view :add_button, :view=>:add_link
+  def default_add_button_args args
+    args[:css_class] = 'btn btn-default'
+  end
+
+  view :add_url do |args|
+    card_url _render_add_path(args)
+  end
+
+  view :add_path do |args|
+    path_args = {}
+    if args[:params]
+      context = ((@parent && @parent.card) || card).name
+      Rack::Utils.parse_nested_query(args[:params]).each do |key, value|
+         value = value.to_name.to_absolute(context) if value
+         key   = key.to_name.to_absolute(context)
+         path_args[key] = value
+      end
+    end
+    path_args[:action] = 'new'
+    page_path card.cardname, path_args
+  end
+
+end
+
+
+include Basic
+
+
+def follow_label
+  default_follow_set_card.follow_label
+end
+
+def followed_by? user_id = nil
+  default_follow_set_card.all_members_followed_by? user_id
+end
+
+def default_follow_set_card
+  Card.fetch("#{name}+*type")
+end
+
+
+def cards_of_type_exist?
+  !new_card? and Auth.as_bot { Card.count_by_wql :type_id=>id } > 0
+end
+
+event :check_for_cards_of_type, :after=>:validate_delete do
+  if cards_of_type_exist?
+    errors.add :cardtype, "can't alter this type; #{name} cards still exist"
+  end
+end
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/cardtype.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/type/date.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Type; module Date; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/date.rb ~~~~~~~~~~~
+
+format :html do
+
+  # what is this for?  Can't you just use TYPE-date and editor to match this cas, no special view needed?
+  view :editor do |args|
+    text_field :content, :class=>'date-editor'
+  end
+end
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/date.rb ~~~~~~~~~~~
+end;end;end;end;