whisperblog 0.6

data/share/whisper/config.yaml

@@ -0,0 +1,53 @@
+## Whisper configuration file.
+##
+## This is a YAML-ified hash with symbol keys.  If you don't understand what
+## that means, just know that lines starting with a '#' are comments, and lines
+## starting with : are settings.
+
+## blog title
+:title: my fancy new whisper blog
+
+## blog tagline
+:tagline: the internet is my internet
+
+## page size, for pagination purposes. max number of entries per page.
+:page_size: 10
+
+## the underlying web server you'd like to use. I suggest "Thin". Other values
+## might work but are untested!
+:rack_handler: Thin
+
+## the base path for the site. used for making relative links.
+:root: "/"
+
+## the public, full URL for the site.
+:public_url_root: "http://YOUR-SITE.HERE"
+
+## the email address that comments should be sent from
+:from_email_address: comments@YOUR-SITE.HERE
+
+## the location of the mbox file that holds email sent to the address in
+## :from_email_address:.
+:comment_mbox: /var/mail/comments
+
+## the sendmail command
+#:sendmail: /usr/sbin/sendmail -oem -ti
+
+## the development port to listen on, if not set with --port
+#:development_port: 9292
+
+## the production port to listen on, if not set with --port
+#:port: 80
+
+## the path to use with X-Accel-Redirect headers, if using nginx.  Only active
+## in production mode. Should be coupled with an nginx configuration block like
+## this:
+## 
+##    location /static-internal/ {
+##      internal;
+##      root /var/www/YOUR-SITE.HERE/static;
+##    }
+## which gives the actual location of those static files.
+#:x_accel_redirect: "/static-internal/"
+
+## and that's it!

data/share/whisper/entry-email.rtxt

@@ -0,0 +1,35 @@
+From: <%= author.email_name %> (on <%= blog_title %>) <<%= from_address %>>
+To: <%= to_address %>
+Subject: [<%= blog_title %>] <%= entry.title(:email) %>
+Date: <%= Time.now %>
+Message-Id: <<%= message_id %>>
+
+<% if web_request -%>
+; Hi there! This is an email containing the original post or a reply from
+; <%= full_url_for :route => :entry, :id => entry.id %>. Someone (hopefully you!)
+; requested this email.
+;
+; To reply, simply reply to this message, quoting as normal.
+; You can use Textile markup: http://hobix.com/textile/
+; DO NOT top-post: http://en.wikipedia.org/wiki/Top-posting#Top-posting
+;
+; Future replies may also be sent to you via email, depending on
+; the setting below.
+;
+; SETTINGS:
+;
+; Lines starting with a ;, like these, will be stripped out, even if quoted.
+; Lines starting with a !, like those below, allow you to configure settings.
+; Just edit them in place and leave them in your reply (quoted is fine).
+;
+! <%= Comment::RESEND_SETTING %>: <%= settings["send future comments to me"] || "all" %>
+;   (one of "all", "replies-only", or "none")
+! <%= Comment::URL_SETTING %>: <%= settings["my url"] || "" %>
+;   (a url to link your name to)
+;
+<% else -%>
+; A reply to this message will be posted at <%= full_url_for :route => :entry, :id => entry.id %>
+; and emailed to any subscribers to this thread.
+<% end -%>
+
+<%= entry.body :email %>

data/share/whisper/entry.rhtml

@@ -0,0 +1,88 @@
+<h2><%= link_to_current entry.title(:html) %></h2>
+
+<% unless entry.labels.empty? %>
+  <div class="labels">
+    Topics:
+    <ul class="label-list">
+      <% entry.labels.each do |x| %>
+        <li class='label'><%= link_to x, :route => :label, :label => x %></li>
+      <% end %>
+    </ul>
+  </div>
+<% end %>
+
+<div class="byline">
+  <div style="float: left">
+    <span class="author-name">
+      <%= link_to entry.author.email_name, :route => :author, :author => entry.author.obfuscated_name, :html_opts => { :class => "author-name" } %>
+    </span>
+  </div>
+  <div style="float: right">
+    <span class="date" title="<%= pretty_time_diff entry.published %>"><%= entry.published.strftime "%B %e, %Y %l:%M%P" %></span>
+  </div>
+  <div style="clear: both;"></div>
+</div>
+
+<div class="entry">
+  <%= entry.body :html %>
+</div>
+
+<a name="comments"></a>
+
+<ul class="comment-tree">
+<% thread_to_html_nested_list(comments) do |prefix, c| %>
+  <%= prefix %>
+  <% next unless c %>
+  <a name="<%= c.id.escape %>"></a>
+  <div class="comment-body">
+    <div class="byline">
+      <div style="float: left">
+        <span class="author-name"><%= author_link c.author, author_info %></span>
+      </div>
+      <div style="float: right">
+        <span class="date" title="<%= pretty_time_diff c.published %>">
+          <a href="#<%= c.id.escape %>"><%= c.published.strftime "%B %e, %Y %l:%M%P" %></a>
+        </span>
+      </div>
+      <div style="clear: both"></div>
+    </div>
+    <%= c.body :html %>
+    <div class="reply-to-outer">
+      <div class="reply-to-header"><a href="#" class="reply-to-link">reply</a></div>
+      <div class="reply-to-box" id="reply-to-<%= entry.id %>-<%= c.id %>" >
+        <span class="comment-instructions">To reply, enter your email address. A copy of the comment will be sent to you via email.</span>
+        <%= start_comment_form entry, c %>
+          <%= textfield "email" %>
+          <%= submit_button "email me" %>
+        <%= end_comment_form entry, c %>
+      </div>
+    </div>
+  </div>
+<% end %>
+</ul>
+
+<p class="comment-instructions">To reply to the article, enter your email
+address. A copy of the article will be sent to you via email.</p>
+<%= start_comment_form entry %>
+  <%= textfield "email" %>
+  <%= submit_button "email me" %>
+<%= end_comment_form entry %>
+
+<%= comment_form_script %>
+
+<script type="text/javascript">
+/* <![CDATA[ */
+$$('.reply-to-link').each(function(link, i) {
+  var box = link.getParent().getParent().getElement('.reply-to-box');
+  var oldHeight = box.getStyle("height");
+  box.setStyle("height", 0);
+  box.setStyle("opacity", 0);
+  link.addEvent('click', function(e) {
+    e.stop();
+    box.setStyle("opacity", 1);
+    box.setStyle("height", oldHeight);
+    box.getElement("input").focus();
+  });
+});
+/* ]]> */
+</script>

data/share/whisper/entry.rtxt

@@ -0,0 +1,19 @@
+<%= entry.title(:txt) %>
+<%= "-" * entry.title(:txt).size %>
+  Date: <%= entry.published.strftime "%B %e, %Y %l:%M%P" %>
+Author: <%= entry.author.email_name %>
+<% unless entry.labels.empty? -%>
+Labels: <%= entry.labels.join(", ") %>
+<% end -%>
+   URL: <%= full_url_for_current %>
+
+<%= entry.body :txt %>
+<% unless comments.empty? -%>
+
+Replies
+--------
+<% thread_to_text_nested_list(comments) do |c, prefix|%>
+<%= prefix %><%= c.author.email_name %>, on <%= c.published.strftime "%B %e, %Y %l:%M%P" %>:
+<%= c.body :email, :prefix => prefix + "| "%>
+<% end -%>
+<% end -%>

data/share/whisper/formatter.rb

@@ -0,0 +1,52 @@
+### here is the default set of formatting plugins provided by whisper. feel free
+### to add your own!
+###
+### these allow you to pull out regions of the post and do arbitrary stuff to
+### them, based on the format.
+
+## format quoted regions (typically in comments, but can be in posts too)
+## Note that format_quote is special and different from all the other handlers.
+## (In particular, it is the only nested formatter.)
+Whisper::Text.format_quote do |format, body, attribution|
+  case format
+  when :html
+    [ attribution ? "<div class='comment-quote' title=\"#{attribution.escape}\">" : "<div class='comment-quote'>",
+      body,
+      "</div>"
+    ].join
+  when :txt
+    (attribution ? "#{attribution}\n" : "") + body.lines.map { |l| "> " + l }
+  end
+end
+
+### the rest of these are generic user-defined handlers
+
+## format pre blocks as html pre blocks (very exciting)
+Whisper::Text.format "<pre>", "</pre>" do |format, body, smatch, ematch|
+  case format
+  when :html; "<pre>#{body}</pre>"
+  end
+end
+
+## format poem blocks with some fancy html
+Whisper::Text.format /<poem(\s+title\s*=\s*"(.*?)"\s*)?>/, "</poem>" do |format, body, smatch, ematch|
+  title = smatch[2]
+  case format
+  when :html, :rss
+    (title ? "<div class='poem-title'>#{title.escape}</div>" : "") +
+      "<pre class='poem'>#{body}</pre>"
+  end
+end
+
+## format <ruby> blocks with some nice markup
+require 'syntax/convertors/html'
+Whisper::Text.format "<ruby>", "</ruby>" do |format, body, smatch, ematch|
+  case format
+  when :html
+    x = Syntax::Convertors::HTML.for_syntax("ruby").convert body
+    x.sub!(/\A<pre>\n+/, "<pre class=\"ruby\">")
+    "<code>#{x}</code>"
+  when :rss
+    "<pre>" + body + "</pre>"
+  end
+end

data/share/whisper/helper.rb

@@ -0,0 +1,147 @@
+def labels_and_counts
+  entryset.entries_by_label.sort_by { |k, v| -v.flatten.size }.map do |k, v|
+    [k, v.flatten.size]
+  end
+end
+
+def authors_and_counts
+  entryset.entries_by_author.sort_by { |k, v| -v.flatten.size }.map do |k, v|
+    [k, v.flatten.size]
+  end
+end
+
+def author_link author, author_info
+  link = author_info[author.email_address]["my url"]
+  if link.nil? || link.empty?
+    author.email_name
+  else
+    "<a href=\"#{link.escape.gsub('"', "")}\">#{author.email_name}</a>"
+  end
+end
+
+def pretty_time_diff t, from=Time.now
+  d = (from - t).to_i
+  ad = d.abs
+  num, word = if ad < 60; [ad, "second"]
+  elsif ad < 60*60; [ad/60, "minute"]
+  elsif ad < 60*60*24; [ad/60/60, "hour"]
+  elsif ad < 60*60*24*7; [ad/60/60/24, "day"]
+  elsif ad < 60*60*24*7*10; [ad/60/60/24/7, "week"]
+  else [ad/60/60/24/30, "month"]
+  end
+
+  s = [num.nicenice, " ", word, (num == 1 ? "" : "s")].join
+  d > 0 ? s + " ago" : "in " + s
+end
+
+def textfield name; "<input type='text' name='#{name}' id='textfield-#{name}'/>" end
+def submit_button label; "<input type='submit' value='#{label}' id='submit-#{label}'/>" end
+def radio_button label, name, value, selected=false
+  id = [name, value].join "-"
+  "<input type='radio' id='#{id}' name='#{name}' value='#{value}' #{selected ? "checked='checked'" : ""}/><label for='#{id}'>#{label}</label>"
+end
+
+def start_comment_form entry, comment=nil
+  id = entry.id
+  id += "-#{comment.id}" if comment
+  url = url_for :route => :comment, :id => entry.id
+  "<form id='comment-form-#{id}' action='#{url}' method='post' class='comment-form'>"
+end
+
+def end_comment_form entry, comment=nil
+  id, stuff = if comment
+    ["#{entry.id}-#{comment.id.escape}",
+     "<input type='hidden' name='comment-id' value='#{comment.id.escape}'/>\n"]
+  else
+    [entry.id, ""]
+  end
+  stuff + <<EOS
+  <span class="form-result" id="form-result-#{id}"><!-- spanna --></span>
+</form>
+EOS
+end
+
+def thread_to_nested_list t # t the output of a Enumerable#thread
+  return if t.empty?
+
+  s = ""
+  stack = [:root]
+  level = 0
+
+  until stack.empty?
+    case(el = stack.pop)
+    when :end_item
+      yield :end_item, level
+      next
+    when :end_nest
+      level -= 1
+      yield :end_nest, level
+      next
+    when :root
+      # nothin
+    else
+      yield :start_item, level
+      yield :item, level, el
+    end
+
+    children = t[el]
+    if children.nil? || children.empty?
+      yield :end_item, level
+    else
+      unless el == :root
+        level += 1
+        yield :start_nest, level
+        stack << :end_item
+        stack << :end_nest
+      end
+      stack += children
+    end
+  end
+end
+
+def thread_to_html_nested_list t
+  prefix = ""
+  thread_to_nested_list(t) do |what, level, obj|
+    case what
+    when :start_item; prefix << "<li>"
+    when :start_nest; prefix << "<ul>"
+    when :end_item; prefix << "</li>"
+    when :end_nest; prefix << "</ul>"
+    when :item
+      yield prefix, obj
+      prefix = ""
+    end
+  end
+
+  yield prefix, nil
+end
+
+def thread_to_text_nested_list t, spaces=2
+  thread_to_nested_list(t) do |what, level, obj|
+    next unless what == :item
+    prefix = " " * spaces * level
+    yield obj, prefix 
+  end
+end
+
+def comment_form_script
+  <<EOS
+<script type="text/javascript">
+/* <![CDATA[ */
+$$('.comment-form').addEvent('submit', function(e) {
+  e.stop();
+  var el = this.getElement('.form-result');
+  var result = el.empty().addClass('ajax-loading');
+  this.set('send', {
+    method: 'post',
+    onComplete: function(response) { 
+      result.removeClass('ajax-loading');
+      result.set('html', response);
+    },
+  });
+  this.send();
+});
+/* ]]> */
+</script>
+EOS
+end

data/share/whisper/list.rhtml

@@ -0,0 +1,51 @@
+<% entries.each do |e, comments| %>
+  <h2><%= link_to e.title(:html), :route => :entry, :id => e.id %></h2>
+
+  <% unless e.labels.empty? %>
+    <div class="labels">
+      <ul class="label-list">
+      Topics:
+        <% e.labels.each do |x| %>
+          <li class='label'><%= link_to x, :route => :label, :label => x %></li>
+        <% end %>
+      </ul>
+    </div>
+  <% end %>
+
+  <div class="byline">
+    <div style="float: left">
+      <span class="author-name">
+        <%= link_to e.author.email_name, :route => :author, :author => e.author.obfuscated_name, :html_opts => { :class => "author-name" } %>
+      </span>
+    </div>
+    <div style="float: right">
+      <span class="date" title="<%= pretty_time_diff e.published %>"><%= e.published.strftime "%B %e, %Y %l:%M%P" %></span>
+    </div>
+    <div style="clear: both;"></div>
+  </div>
+
+  <div class="entry">
+    <%= e.body :html %>
+  </div>
+  <div class="comment-link">
+    <% authors = comments.map { |c| c.author.email_name.escape }.uniq.sort_by { rand }
+       title = comments.size.pluralize("reply").capitalize + case authors.size
+       when 0; ""
+       when 1; " by <b>#{authors[0]}</b>"
+       when 2; " by <b>#{authors[0]}</b> and <b>#{authors[1]}</b>"
+       else " by <b>#{authors[0]}</b> and #{(authors.size - 1).pluralize 'other'}"
+       end
+    %>
+    <%= link_to title, :route => :entry, :id => e.id, :anchor => "comments" %>.
+  </div>
+<% end %>
+
+<% if pages > 1 %>
+  <div class="pageblock">
+  <% if page > 0 %> <%= link_to_current "prev", :page => (page - 1), :html_opts => { :class => "pageword" } %>&nbsp;<% end %>
+  <% for i in 0...pages %>
+    <% if i == page %><span class="currentpagelink"><%= sprintf "%2d", i %></span><% else %><%= link_to_current sprintf("%2d", i), :page => i, :html_opts => { :class => "pagelink" } %><% end %>
+  <% end %>
+  <% if page < pages - 1 %>&nbsp;<%= link_to_current "next", :page => (page + 1), :html_opts => { :class => "pageword" } %><% end %>
+  </div>
+<% end %>