wagn 1.12.7

data/mods/standard/sets/self/account_links.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+format :html do
+
+  view :raw do |args|
+    #ENGLISH
+    prefix = "#{ Wagn.config.relative_url_root }/account"
+    %{<span id="logging">#{
+      if Account.logged_in?
+        ucard = Account.current
+        %{
+          #{ link_to ucard.name, "#{ Wagn.config.relative_url_root }/#{ucard.cardname.url_key}", :id=>'my-card-link' }
+          #{
+            if Account.create_ok?
+              link_to 'Invite a Friend', "#{prefix}/invite", :id=>'invite-a-friend-link'
+            end
+          }
+          #{ link_to 'Sign out', "#{prefix}/signout",                                      :id=>'signout-link' }
+        }
+      else
+        %{
+          #{ if Card.new(:type_code=>'account_request').ok? :create
+               link_to 'Sign up', "#{prefix}/signup", :id=>'signup-link'
+             end }
+          #{ link_to 'Sign in', "#{prefix}/signin", :id=>'signin-link' }
+        }
+      end }
+    </span>}
+  end
+
+end

data/mods/standard/sets/self/alerts.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+
+view :raw do |args|
+  '<!-- *alerts is deprecated. please remove from layout -->'
+end
+view :core, :raw

data/mods/standard/sets/self/foot.rb

@@ -0,0 +1,9 @@
+  # -*- encoding : utf-8 -*-
+
+format :html do
+  view :raw do |args|
+    '<!-- *foot is deprecated. please remove from layout -->'
+  end
+
+  view :core, :raw
+end

data/mods/standard/sets/self/head.rb

@@ -0,0 +1,105 @@
+# -*- encoding : utf-8 -*-
+
+format :html do
+
+  view :raw do |args|
+    %(
+      <meta charset="UTF-8">  
+      <meta name="viewport" content="width=device-width, initial-scale=1.0"/>    
+      #{ head_title     }
+      #{ head_buttons     }
+      #{ head_stylesheets }
+      #{ head_javascript  }      
+    )
+  end
+
+  view :core, :raw
+  
+  def head_title
+    title = root.card && root.card.name
+    title = nil if title.blank?
+    title = params[:action] if title=='*placeholder'
+    %(<title>#{title ? "#{title} - " : ''}#{ Card.setting :title }</title>) 
+  end
+  
+  def head_buttons
+    bits = []
+    [:favicon, :logo].each do |name|
+      if c = Card[name] and c.type_id == Card::ImageID and !c.content.blank?
+        bits << %{<link rel="shortcut icon" href="#{ subformat(c)._render_source :size=>:icon }" />}
+        break
+      end
+    end
+
+    #Universal Edit Button
+    if root.card
+      if !root.card.new_record? && root.card.ok?(:update)
+        bits << %{<link rel="alternate" type="application/x-wiki" title="Edit this page!" href="#{ root.path :view=>:edit }"/>}
+      end
+
+      # RSS # move to mods!
+      if root.card.type_id == Card::SearchTypeID
+        opts = { :format => :rss }
+        root.search_params[:vars].each { |key, val| opts["_#{key}"] = val }
+        rss_href = page_path root.card.name, opts
+        bits << %{<link rel="alternate" type="application/rss+xml" title="RSS" href=#{wagn_path rss_href} />}
+      end
+    end
+    bits.join "\n      "
+  end
+  
+  def head_stylesheets
+    manual_style = params[:style]
+    debug        = params[:debug] == 'style'
+    style_rule   = card.rule_card :style
+    
+    if manual_style or debug   
+      path_args = { :format=>:css }
+      path_args[:item] = :import if debug
+      style_cardname = manual_style || (style_rule && style_rule.name)
+      @css_path = page_path style_cardname, path_args
+    elsif style_rule
+      @css_path = wagn_path style_rule.style_path
+    end 
+
+    if @css_path
+      %{<link href="#{@css_path}" media="all" rel="stylesheet" type="text/css" />}
+    end
+  end
+  
+  def head_javascript
+    varvals = [
+      "window.wagn={rootPath:'#{ Wagn.config.relative_url_root }'}",
+      "window.tinyMCEPreInit={base:\"#{wagn_path 'assets/tinymce'}\",query:'3.5.8',suffix:''}" # tinyMCE doesn't load on non-root wagns w/o preinit line
+    ]
+    Wagn::Env[:recaptcha_on]                        and varvals << "wagn.recaptchaKey='#{Wagn.config.recaptcha_public_key}'"
+    c=Card[:double_click] and !Card.toggle c.content and varvals << 'wagn.noDoubleClick=true'
+    @css_path                                        and varvals << "wagn.cssPath='#{@css_path}'"
+    
+    %(#{ javascript_tag do varvals * ';' end  }      
+      #{ javascript_include_tag 'application' }
+      <!--[if lt IE 9]>#{ javascript_include_tag 'html5shiv-printshiv' }<![endif]-->
+      #{ javascript_tag { "wagn.setTinyMCEConfig('#{ escape_javascript Card.setting(:tiny_mce).to_s }')" } }
+      #{ google_analytics_head_javascript })
+  end
+    
+  
+  def google_analytics_head_javascript
+    if ga_key = Card.setting("*google analytics key") #fixme.  escape this?
+      %{
+        <script type="text/javascript">
+          var _gaq = _gaq || [];
+          _gaq.push(['_setAccount', '#{ga_key}']);
+          _gaq.push(['_trackPageview']);
+          (function() {
+            var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
+            ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
+            var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
+          })();
+        </script>
+      }
+    end
+  end
+end
+
+

data/mods/standard/sets/self/navbox.rb

@@ -0,0 +1,28 @@
+# -*- encoding : utf-8 -*-
+
+format :html do
+
+  view :raw do |args|
+    input_args = { :class=>'navbox' }
+    @@placeholder ||= begin
+      p = Card["#{Card[:navbox].name}+*placeholder"] and p.raw_content
+    end
+    
+    input_args[:placeholder] = @@placeholder if @@placeholder
+
+    %{
+      <form action="#{Card.path_setting '/:search'}" method="get" class="navbox-form nodblclick">
+        #{ text_field_tag :_keyword, '', input_args }
+     </form>
+    }
+  end
+
+  view :core, :raw
+end
+
+format do
+  #hacky.  here for override
+  def goto_wql(term)
+   { :complete=>term, :limit=>8, :sort=>'name', :return=>'name' }
+  end
+end

data/mods/standard/sets/self/now.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+
+view :raw do |args|
+  Time.now.strftime '%A, %B %d, %Y %I:%M %p %Z'
+end
+
+view :core, :raw

data/mods/standard/sets/self/recent.rb

@@ -0,0 +1,45 @@
+
+view :title do |args|
+   _final_title args.merge( :title=>'Recent Changes' )
+end
+
+view :card_list do |args|
+  search_vars[:item] ||= :change
+
+  cards_by_day = Hash.new { |h, day| h[day] = [] }
+  search_vars[:results].each do |card|
+    begin
+      stamp = card.updated_at
+      day = Date.new(stamp.year, stamp.month, stamp.day)
+    rescue Exception=>e
+      day = Date.today
+      card.content = "(error getting date)"
+    end
+    cards_by_day[day] << card
+  end
+
+  paging = _optional_render :paging, args
+  %{
+    #{ paging }
+    #{
+      cards_by_day.keys.sort.reverse.map do |day|
+        %{
+          <h2>#{format_date(day, include_time = false) }</h2>
+          <div class="search-result-list">
+            #{
+               cards_by_day[day].map do |card|
+                 %{
+                   <div class="search-result-item item-#{ search_vars[:item] }">
+                    #{ process_inclusion(card, :view=>search_vars[:item]) }
+                  </div>
+                 }
+               end * ' '
+            }
+          </div>
+        }
+      end * "\n"
+    }
+    #{ paging }
+  }
+end
+

data/mods/standard/sets/self/search.rb

@@ -0,0 +1,37 @@
+# -*- encoding : utf-8 -*-
+
+format :html do
+  
+  view :title do |args|
+    if vars = search_params[:vars] and keyword = vars[:keyword]
+       args.merge! :title=> %{Search results for: <span class="search-keyword">#{keyword}</span>}
+    end
+    _final_title 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
+end

data/mods/standard/sets/self/style_functional.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+view :raw do |args|
+  File.read "#{Wagn.gem_root}/mods/standard/lib/stylesheets/functional.scss"
+end
+
+view :editor do |args|
+  "Content is stored in file and can't be edited."
+end

data/mods/standard/sets/self/style_jquery_ui_smoothness.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+view :raw do |args|
+  File.read "#{Wagn.gem_root}/mods/standard/lib/stylesheets/jquery-ui-smoothness.css"
+end
+
+view :editor do |args|
+  "Content is stored in file and can't be edited."
+end

data/mods/standard/sets/self/style_standard.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+view :raw do |args|
+  File.read "#{Wagn.gem_root}/mods/standard/lib/stylesheets/standard.scss"
+end
+
+view :editor do |args|
+  "Content is stored in file and can't be edited."
+end

data/mods/standard/sets/self/version.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+
+view :raw do |args|
+  Wagn::Version.release
+end
+
+view :core, :raw
+

data/mods/standard/sets/type/account_request.rb

@@ -0,0 +1,81 @@
+# -*- encoding : utf-8 -*-
+
+format :html do
+  view :new do |args|
+    #FIXME - make more use of standard new view
+    frame_args = args.merge :title=>'Sign Up', :show_help=>true #, :hide_menu=>true
+    frame_args[:help_text] = case
+      when card.rule_card( :add_help, :fallback=>:help ) ; nil
+      when Account.create_ok?                            ; 'Send us the following, and we\'ll send you a password.' 
+      else                                               ; 'All Account Requests are subject to review.'
+      end
+
+    success = Card.setting "#{ Card[ card.accountable? ? :signup : :request ].name }+#{ Card[ :thanks ].name }"
+    # *signup+*thanks or *request+*thanks
+
+    wrap_frame :signup, frame_args do
+      card_form :create, 'card-form', 'main-success'=>"REDIRECT" do |f|
+        @form = f
+        %{
+          #{ f.hidden_field :type_id }
+          #{ hidden_field_tag :success, success }
+          #{ _render_name_editor :help=>'usually first and last name' }
+          #{ fieldset :email, text_field( 'card[account_args]', :email ), :editor=>'content' }
+          #{ with_inclusion_mode(:new) { edit_slot } if card.structure }
+          <fieldset><div class="button-area">#{ submit_tag 'Submit' }</div></fieldset>
+        }
+      end
+    end
+  end
+
+
+  view :edit do |args|
+    frame_args = { :title=>'Invite', :show_help=>true, :hide_menu=>true,
+      :help_text=>"Accept account request from: #{link_to_page card.name}"
+    }
+  
+    wrap_frame :edit, frame_args do
+      card_form :update, 'card-form autosave' do |f|
+        @form= f
+        %{
+          #{ hidden_field_tag 'card[type_id]', Card.default_accounted_type_id }
+          #{ hidden_field_tag :activate, 'true'                               }
+          #{ _render_invitation_field                                         }        
+        }
+      end
+    end
+  end
+
+  view :core do |args|
+    links = []
+    #ENGLISH
+    if Account.create_ok?
+      links << link_to( "Invite #{card.name}", path(:view=>:edit), :class=>'invitation-link')
+    end
+    if Account.logged_in? && card.ok?(:delete)
+      links << link_to( "Deny #{card.name}", path(:action=>:delete), :class=>'slotter standard-delete', :remote=>true )
+    end
+
+    process_content(_render_raw) +
+    if (card.new_card?); '' else
+      %{<div class="invite-links">
+          <div><strong>#{card.name}</strong> requested an account on #{format_date(card.created_at) }</div>
+          #{%{<div>#{links.join('')}</div> } unless links.empty? }
+      </div>}
+    end
+  end
+end
+
+
+event :auto_approve, :after=>:approve, :on=>:create, :when=>proc { |c| c.accountable? } do
+  self.type_id = Card.default_accounted_type_id unless Wagn::Env[:no_auto_approval]
+end
+
+send_signup_notifications = proc do |c|
+  c.account and c.account.pending? and Card.setting '*request+*to'
+end
+
+event :signup_notifications, :after=>:extend, :on=>:create, :when=>send_signup_notifications do
+  Mailer.signup_alert(self).deliver
+end
+

data/mods/standard/sets/type/basic.rb

@@ -0,0 +1,43 @@
+# -*- encoding : utf-8 -*-
+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
+    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|
+      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
+
+    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

data/mods/standard/sets/type/cardtype.rb

@@ -0,0 +1,32 @@
+# -*- encoding : utf-8 -*-
+
+format :html do
+
+  view :watch do |args|
+    wrap :watch, args do
+      #type_link = card.watching_type? ? "#{watching_type_cards} | " : ""
+      link_args = if card.watching?
+        ["following", :off, "stop sending emails about changes to #{card.cardname}", { :hover_content=> 'unfollow' } ]
+      else
+        ["follow all", :on, "send emails about changes to #{card.cardname}"]
+      end
+      link_args[2] += ' cards'
+      #type_link + 
+      watch_link( *link_args )
+    end
+  end
+end
+
+include Card::Set::Type::Basic
+
+
+
+def cards_of_type_exist?
+  Account.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