wee-pm 0.1

data/README

@@ -0,0 +1,60 @@
+= Presentation Maker
+
+Copyright (c) 2005, 2007 by Michael Neumann (mneumann@ntecs.de).
+All rights reserved.
+
+== Dependencies
+
+* ruby 1.8.x
+* Wee 0.10.0 (gem install wee)
+* vim (for colorizing sources)
+* html2ps (for creating the Postscript output)
+* ps2pdf (for creating the PDF output)
+
+== Start
+
+  cd directory-where-all-your-presentation-related-files-reside
+  wee-pm presentation-file
+
+Then point your browser to: http://localhost:2000/
+
+== Navigation
+
+* Page-Up/-Down: Previous/Next slide/overlay.
+
+* Key 's': toggle slide/overlay mode. 
+
+* Key 'e': enter edit mode.
+
+* Next overlay/slide: Click with the mouse on the slide-title. 
+
+* Switch to edit-mode: Position the mouse into the top-left corner of the
+  frame, you'll notice a hover-effect. Then click. 
+
+== Presentation file format
+
+Pure rdoc! Each level-one heading ("=") generates a slide.
+
+== RDoc extensions
+
+To colorize sourcecode, use a verbatim block like this:
+
+  !!colorize:ruby
+  def method_a
+  end
+
+Note that you'll need +vim+ to be installed on your system.
+
+== Generating PDF
+
+  wee-pm-pdf presentation-file > pdf-file
+
+You can tweak the generated PDF file, by editing bin/wee-pm-pdf.  For
+example, if you want to have a PDF that is not intended for printing and
+as such could ommit the URLs to be shown as text, set SHOW_URL to false
+in bin/wee-pm-pdf.
+
+If you need Postscript, then have a look at bin/wee-pm-pdf, and remove
+the "| ps2pdf - -"  part in the IO.popen line. But you generally don't 
+want this, as the PDF output allows easier navigating, and the links are 
+clickable (if you use AcroRead).

data/TODO

@@ -0,0 +1,9 @@
+* Show message box after save.
+
+* Enable/Disable !!exec.  
+
+* Disable edit mode (read-only).
+
+* Write a HTML generator.
+
+* A S5 converter (http://www.meyerweb.com/eric/tools/s5/)

data/bin/wee-pm

@@ -0,0 +1,114 @@
+#!/usr/local/bin/ruby
+
+begin
+  require 'rubygems'
+rescue LoadError
+end
+
+require 'wee'
+require 'wee/pageless'
+require 'wee/utils/helper'
+require 'wee/utils/cache'
+require 'wee/utils/autoreload'
+require 'wee/adaptors/webrick'
+begin
+  require 'wee-pm/presentation_maker'
+rescue LoadError
+  $LOAD_PATH << File.join(File.dirname(__FILE__), '../lib')
+end
+require 'wee-pm/presentation_maker'
+
+# Overrides for Wee 0.10.0 to get be able to mount
+# an application as "/".
+class Wee::Request
+  def initialize(app_path, path, headers, fields, cookies)
+    unless app_path == '/'
+      raise ArgumentError, app_path if app_path[-1] == ?/
+    end
+    @app_path, @path, @headers, @cookies = app_path, path, headers, cookies
+    parse_fields(fields)
+    parse_path
+  end
+
+  def build_url(hash={})
+    default = {
+      :request_handler_id => self.request_handler_id,
+      :page_id => self.page_id,
+      :info => self.info
+    }
+    hash = default.update(hash)
+
+    request_handler_id = hash[:request_handler_id]
+    page_id = hash[:page_id]
+    callback_id = hash[:callback_id]
+    info = hash[:info]
+
+    raise ArgumentError if request_handler_id.nil? and not page_id.nil?
+    if not pageless?
+      raise ArgumentError if page_id.nil? and not callback_id.nil?
+    end
+
+    # build request path, e.g. /___/req-id/page-id
+    req_path = make_request_path(request_handler_id, page_id)
+
+    # build the whole url
+    if @app_path == '/'
+      url = "" 
+      if info
+        url << '/'
+        url << info
+      end
+      url << req_path 
+
+      url << '/' if info.nil? and req_path.empty? 
+
+      url << ('?' + callback_id) if callback_id
+    else
+      url = ""
+      url << @app_path
+
+      raise if url[-1] == ?/  # sanity check
+
+      if info
+        url << '/'
+        url << info
+      end
+      url << req_path 
+
+      url << '/' if info.nil? and req_path.empty? 
+
+      url << ('?' + callback_id) if callback_id
+    end
+
+    return url
+  end
+end
+
+class DispatchHandler < WEBrick::HTTPServlet::AbstractServlet 
+  def initialize(server, application, file_dir)
+    super(server)
+    @app_handler = Wee::WEBrickAdaptor.new(server, '/', application, Wee::PagelessRequest)
+    @file_handler = WEBrick::HTTPServlet::FileHandler.new(server, file_dir)
+  end
+
+  def do_GET(req, res)
+    (req.path == '/' ? @app_handler : @file_handler).do_GET(req, res)
+  end
+
+  def do_POST(req, res)
+    (req.path == '/' ? @app_handler : @file_handler).do_POST(req, res)
+  end
+end
+
+def run(presentation_file)
+  comp = proc { PresentationMaker.new(presentation_file) };
+  def comp.new; call end
+  app = Wee::Utils.app_for(comp,
+    :session => Wee::PagelessSession,
+    :application => Wee::PagelessApplication)
+  Wee::WEBrickAdaptor.
+    mount('/', DispatchHandler, app, '.').
+    start
+end
+
+run(ARGV[0])

data/bin/wee-pm-pdf

@@ -0,0 +1,49 @@
+#!/usr/local/bin/ruby
+
+begin
+  require 'rubygems'
+rescue LoadError
+end
+
+begin
+  require 'wee-pm/presentation' 
+rescue LoadError
+  $LOAD_PATH << File.join(File.dirname(__FILE__), '../lib')
+end
+
+require 'wee-pm/presentation' 
+require 'wee-pm/converter'
+require 'tempfile'
+
+SHOW_URL = true
+
+pres = Presentation.from_string(File.read(ARGV[0]))
+
+rc = Tempfile.new('html2psrc')
+rc << <<EOS 
+@html2ps { showurl: #{ SHOW_URL ? 1 : 0 }; seq-number: 1; }
+titlepage { content: "<div align=center><h1><big>$[title]</big></h1><h3>$[author]</h3><h4>$[email]</h4></div>" } 
+EOS
+rc.close(false)
+
+io = IO.popen("/usr/bin/perl /usr/local/bin/html2ps --toc hb -f #{ rc.path } --titlepage --hyphenate --underline --web b --colour --frame --landscape | ps2pdf - -", 'w+')
+io << "<html><head><title>#{ pres.title }</title>\n"
+io << %[<meta name="Title" content="#{pres.title}"/>]
+io << %[<meta name="Author" content="#{pres.author}"/>]
+io << %[<meta name="Email" content="#{pres.email}"/>]
+io << "</head><body>"
+io << pres.style || ""
+pres.slides.each do |slide|
+  slide.converter = PsHtmlConverter
+  io << slide.style || ""
+  io << "<h1>#{ slide.title }</h1>\n"
+  slide.render_on(io, slide.number_of_overlays)
+  unless slide.annotations.strip.empty?
+    io << "<hr>"
+    slide.render_annotations_on(io)
+  end
+  io << "<!--NewPage-->\n"
+end
+io << "</body></html>\n"
+io.close_write
+puts io.read

data/lib/wee-pm/colorize.rb

@@ -0,0 +1,475 @@
+#!/usr/local/bin/ruby
+
+# Colorize Source Code using Vim
+#
+# by Michael Neumann (mneumann@ntecs.de)
+#
+# Freeware.
+
+# Use --terminal=xterm-color for coloring output when called by a CGI script (Apache).
+#
+# TODO:
+#   - Make sure caching works with --headers and --mode option.
+#     Currently it's assumed that caching is used with the same options
+#     all the time except --lang or --strip-ws
+#   - remove too old entries in the cache? 
+
+require "getopts"
+require "tempfile"
+require "md5"
+
+def usage
+  STDERR.puts "USAGE: #{ $0 } 
+  [--mode=gui|text]                        (default: text)
+  [--lang=vim_lang]                        (default: __auto__)
+  [--strip-ws] 
+  [--cache [--cache-prefix=prefix]]        (default: cache-prefix=/tmp/_colorize)
+  [--headers] 
+  [--terminal=...]                         (default: __none__; which terminal to use for vim)
+  [input-file [output-file]]               (default: stdin stdout) 
+  [--help]"
+  exit 1
+end
+
+# remove leading and trailing empty lines
+def strip_ws(str)
+  # find first non-empty line
+  first_non_empty = 0 
+  str.each_with_index do |line, i|
+    if line.strip != ""
+      first_non_empty = i
+      break
+    end
+  end
+
+  # find last non-empty line
+  last_non_empty = 0 
+  str.each_with_index do |line, i|
+    if line.strip != ""
+      last_non_empty = i
+    end
+  end
+
+  return str.to_a[first_non_empty..last_non_empty].join("")
+end
+
+def gen_cache_name(content, lang)
+  md5 = MD5.new(content)
+  $OPT["cache-prefix"] + ".#{ md5 }.#{ lang }"
+end
+
+getopts(nil, "mode:text", "lang:__auto__", "headers", "terminal:xterm",
+        "strip-ws", "cache", "cache-prefix:/tmp/_colorize", "help")
+
+if ARGV.size > 2 or $OPT["help"]
+  usage
+else
+
+  # generate temporary 2html_michael.vim file
+  f = Tempfile.new("2html_michael.vim")
+  f << DATA.read 
+  f.close(false)
+
+  input_file, output_file = ARGV
+
+  if input_file.nil?
+    # read input from STDIN
+    inp = Tempfile.new("input")
+    inp << STDIN.read
+    inp.close(false)
+    input_file = inp.path
+  end
+
+  if output_file.nil?
+    of = Tempfile.new("colorize") 
+    of.close(false)
+    output_file = of.path 
+  else
+    of = nil
+  end
+
+  vim = 
+  case $OPT["mode"]
+  when "gui"
+    '/usr/local/bin/gvim -f'
+  when "text"
+    if $OPT["terminal"] == "__none__" or $OPT["terminal"].empty?
+      '/usr/local/bin/vim'
+    else
+      "/usr/local/bin/vim -T #{ $OPT['terminal'] }"
+    end
+  else
+    raise
+  end
+
+  lang = 
+  case $OPT["lang"]
+  when "__auto__"
+    ""
+  else
+    %{ +"setf #{ $OPT['lang'] }" }
+  end
+
+  headers =
+  if $OPT["headers"] then
+    ""
+  else
+    %{ +"let html_no_header=''" }
+  end
+  
+
+
+
+  vim_command = %{#{ vim } +"syn on" +"set nonumber" #{ headers } #{ lang } +"set runtimepath=#{ File.dirname f.path } " +"run #{ File.basename f.path }" +"w! #{ output_file }" +"q!" +"q!" #{ input_file } > /dev/null 2> /dev/null}
+
+  if $OPT["cache"] then
+    # TODO: doesn't work together with --headers
+    cn = gen_cache_name(File.readlines(input_file).to_s, $OPT["lang"])
+    if File.exists? cn
+      # result is in cache
+      `cp #{ cn } #{ output_file }`
+    else
+      # generate we have to generate the cache file 
+      `#{ vim_command }`
+      `cp #{ output_file } #{ cn }`
+    end
+  else
+    # no caching
+    `#{ vim_command }`
+  end
+    
+  if of != nil
+    str = File.readlines(output_file).to_s
+    STDOUT << 
+    if $OPT["strip-ws"]
+      strip_ws(str)
+    else
+      str
+    end
+  else
+    if $OPT["strip-ws"]
+      str = File.readlines(output_file).to_s
+      File.open(output_file, "w+") {|f| f << strip_ws(str) }
+    end
+  end
+end
+
+
+__END__
+" Vim syntax support file
+" Maintainer: Bram Moolenaar <Bram@vim.org>
+" Last Change: 2002 Jul 10
+"	       (modified by David Ne\v{c}as (Yeti) <yeti@physics.muni.cz>)
+"              (modified by Michael Neumann <mneumann@ntecs.de>)
+
+" Transform a file into HTML, using the current syntax highlighting.
+
+" Number lines when explicitely requested or when `number' is set
+if exists("html_number_lines")
+  let s:numblines = html_number_lines
+else
+  let s:numblines = &number
+endif
+
+" When not in gui we can only guess the colors.
+if has("gui_running")
+  let s:whatterm = "gui"
+else
+  let s:whatterm = "cterm"
+  if &t_Co == 99999  " to active this section, use == 8
+    let s:cterm_color0  = "#808080"
+    let s:cterm_color1  = "#ff6060"
+    let s:cterm_color2  = "#00ff00"
+    let s:cterm_color3  = "#ffff00"
+    let s:cterm_color4  = "#8080ff"
+    let s:cterm_color5  = "#ff40ff"
+    let s:cterm_color6  = "#00ffff"
+    let s:cterm_color7  = "#ffffff"
+  else
+    let s:cterm_color0  = "#000000"
+    let s:cterm_color1  = "#c00000"
+    let s:cterm_color2  = "#008000"
+    let s:cterm_color3  = "#804000"
+    let s:cterm_color4  = "#0000c0"
+    let s:cterm_color5  = "#c000c0"
+    let s:cterm_color6  = "#008080"
+    let s:cterm_color7  = "#c0c0c0"
+    let s:cterm_color8  = "#808080"
+    let s:cterm_color9  = "#ff6060"
+    let s:cterm_color10 = "#00ff00"
+    let s:cterm_color11 = "#ffff00"
+    let s:cterm_color12 = "#8080ff"
+    let s:cterm_color13 = "#ff40ff"
+    let s:cterm_color14 = "#00ffff"
+    let s:cterm_color15 = "#ffffff"
+  endif
+endif
+
+" Return good color specification: in GUI no transformation is done, in
+" terminal return RGB values of known colors and empty string on unknown
+if s:whatterm == "gui"
+  function! s:HtmlColor(color)
+    return a:color
+  endfun
+else
+  function! s:HtmlColor(color)
+    if exists("s:cterm_color" . a:color)
+      execute "return s:cterm_color" . a:color
+    else
+      return ""
+    endif
+  endfun
+endif
+
+if !exists("html_use_css")
+  " Return opening HTML tag for given highlight id
+  function! s:HtmlOpening(id)
+    let a = ""
+    if synIDattr(a:id, "inverse")
+      " For inverse, we always must set both colors (and exchange them)
+      let x = s:HtmlColor(synIDattr(a:id, "fg#", s:whatterm))
+      let a = a . '<span style="background-color: ' . ( x != "" ? x : s:fgc ) . '">'
+      let x = s:HtmlColor(synIDattr(a:id, "bg#", s:whatterm))
+      let a = a . '<font color="' . ( x != "" ? x : s:bgc ) . '">'
+    else
+      let x = s:HtmlColor(synIDattr(a:id, "bg#", s:whatterm))
+      if x != "" | let a = a . '<span style="background-color: ' . x . '">' | endif
+      let x = s:HtmlColor(synIDattr(a:id, "fg#", s:whatterm))
+      if x != "" | let a = a . '<font color="' . x . '">' | endif
+    endif
+    if synIDattr(a:id, "bold") | let a = a . "<b>" | endif
+    if synIDattr(a:id, "italic") | let a = a . "<i>" | endif
+    if synIDattr(a:id, "underline") | let a = a . "<u>" | endif
+    return a
+  endfun
+
+  " Return closing HTML tag for given highlight id
+  function s:HtmlClosing(id)
+    let a = ""
+    if synIDattr(a:id, "underline") | let a = a . "</u>" | endif
+    if synIDattr(a:id, "italic") | let a = a . "</i>" | endif
+    if synIDattr(a:id, "bold") | let a = a . "</b>" | endif
+    if synIDattr(a:id, "inverse")
+      let a = a . '</font></span>'
+    else
+      let x = s:HtmlColor(synIDattr(a:id, "fg#", s:whatterm))
+      if x != "" | let a = a . '</font>' | endif
+      let x = s:HtmlColor(synIDattr(a:id, "bg#", s:whatterm))
+      if x != "" | let a = a . '</span>' | endif
+    endif
+    return a
+  endfun
+endif
+
+" Return CSS style describing given highlight id (can be empty)
+function! s:CSS1(id)
+  let a = ""
+  if synIDattr(a:id, "inverse")
+    " For inverse, we always must set both colors (and exchange them)
+    let x = s:HtmlColor(synIDattr(a:id, "bg#", s:whatterm))
+    let a = a . "color: " . ( x != "" ? x : s:bgc ) . "; "
+    let x = s:HtmlColor(synIDattr(a:id, "fg#", s:whatterm))
+    let a = a . "background-color: " . ( x != "" ? x : s:fgc ) . "; "
+  else
+    let x = s:HtmlColor(synIDattr(a:id, "fg#", s:whatterm))
+    if x != "" | let a = a . "color: " . x . "; " | endif
+    let x = s:HtmlColor(synIDattr(a:id, "bg#", s:whatterm))
+    if x != "" | let a = a . "background-color: " . x . "; " | endif
+  endif
+  if synIDattr(a:id, "bold") | let a = a . "font-weight: bold; " | endif
+  if synIDattr(a:id, "italic") | let a = a . "font-style: italic; " | endif
+  if synIDattr(a:id, "underline") | let a = a . "text-decoration: underline; " | endif
+  return a
+endfun
+
+" Set some options to make it work faster.
+" Expand tabs in original buffer to get 'tabstop' correctly used.
+" Don't report changes for :substitute, there will be many of them.
+let s:old_title = &title
+let s:old_icon = &icon
+let s:old_et = &l:et
+let s:old_report = &report
+let s:old_search = @/
+set notitle noicon
+setlocal et
+set report=1000000
+
+" Split window to create a buffer with the HTML file.
+if expand("%") == ""
+  new Untitled.html
+else
+  new %.html
+endif
+set modifiable
+%d
+let s:old_paste = &paste
+set paste
+
+" The DTD
+if exists("html_use_css")
+  exe "normal a<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n    \"http://www.w3.org/TR/html4/strict.dtd\">\n\e"
+endif
+
+" HTML header, with the title and generator ;-). Left free space for the CSS,
+" to be filled at the end.
+if !exists("html_no_header")
+  exe "normal a<html>\n<head>\n<title>\e"
+  exe "normal a" . expand("%:p:~") . "</title>\n\e"
+  exe "normal a<meta name=\"Generator\" content=\"Vim/" . version/100 . "." . version %100 . "\">\n\e"
+  if exists("html_use_css")
+    exe "normal a<style type=\"text/css\">\n<!--\n-->\n</style>\n\e"
+  endif
+  exe "normal a</head>\n<body>\n<pre>\n\e"
+endif
+
+wincmd p
+
+" List of all id's
+let s:idlist = ","
+
+let s:expandedtab = ' '
+while strlen(s:expandedtab) < &ts
+  let s:expandedtab = s:expandedtab . ' '
+endwhile
+
+" Loop over all lines in the original text
+let s:end = line("$")
+let s:lnum = 1
+while s:lnum <= s:end
+
+  " Get the current line
+  let s:line = getline(s:lnum)
+  let s:len = strlen(s:line)
+  let s:new = ""
+
+  if s:numblines
+    let s:new = '<span class="lnr">' . strpart('        ', 0, strlen(line("$")) - strlen(s:lnum)) . s:lnum . '</span>  '
+  endif
+
+  " Loop over each character in the line
+  let s:col = 1
+  while s:col <= s:len
+    let s:startcol = s:col " The start column for processing text
+    let s:id = synID(s:lnum, s:col, 1)
+    let s:col = s:col + 1
+    " Speed loop (it's small - that's the trick)
+    " Go along till we find a change in synID
+    while s:col <= s:len && s:id == synID(s:lnum, s:col, 1) | let s:col = s:col + 1 | endwhile
+
+    " Output the text with the same synID, with class set to c{s:id}
+    let s:id = synIDtrans(s:id)
+    let s:new = s:new . '<span class="c' . s:id . '">' . substitute(substitute(substitute(substitute(substitute(strpart(s:line, s:startcol - 1, s:col - s:startcol), '&', '\&amp;', 'g'), '<', '\&lt;', 'g'), '>', '\&gt;', 'g'), '"', '\&quot;', 'g'), "\x0c", '<hr class="PAGE-BREAK">', 'g') . '</span>'
+    " Add the class to class list if it's not there yet
+    if stridx(s:idlist, "," . s:id . ",") == -1
+      let s:idlist = s:idlist . s:id . ","
+    endif
+
+    if s:col > s:len
+      break
+    endif
+  endwhile
+
+  " Expand tabs
+  let s:pad=0
+  let s:start = 0
+  let s:idx = stridx(s:line, "\t")
+  while s:idx >= 0
+    let s:i = &ts - ((s:start + s:pad + s:idx) % &ts)
+    let s:new = substitute(s:new, '\t', strpart(s:expandedtab, 0, s:i), '')
+    let s:pad = s:pad + s:i - 1
+    let s:start = s:start + s:idx + 1
+    let s:idx = stridx(strpart(s:line, s:start), "\t")
+  endwhile
+
+  exe "normal \<C-W>pa" . strtrans(s:new) . "\n\e\<C-W>p"
+  let s:lnum = s:lnum + 1
+  +
+endwhile
+" Finish with the last line
+if !exists("html_no_header")
+  exe "normal \<C-W>pa</pre>\n</body>\n</html>\e"
+else
+  exe "normal \<C-W>p"
+end
+
+" Now, when we finally know which, we define the colors and styles
+if exists("html_use_css")
+  8
+endif
+
+" Find out the background and foreground color.
+let s:fgc = s:HtmlColor(synIDattr(highlightID("Normal"), "fg#", s:whatterm))
+let s:bgc = s:HtmlColor(synIDattr(highlightID("Normal"), "bg#", s:whatterm))
+if s:fgc == ""
+  let s:fgc = ( &background == "dark" ? "#ffffff" : "#000000" )
+endif
+if s:bgc == ""
+  let s:bgc = ( &background == "dark" ? "#000000" : "#ffffff" )
+endif
+
+" Normal/global attributes
+" For Netscape 4, set <body> attributes too, though, strictly speaking, it's
+" incorrect.
+if exists("html_use_css")
+  execute "normal A\npre { color: " . s:fgc . "; background-color: " . s:bgc . "; }\e"
+  yank
+  put
+  execute "normal ^cwbody\e"
+else
+  execute '%s:<body>:<body ' . 'bgcolor="' . s:bgc . '" text="' . s:fgc . '">'
+endif
+
+" Line numbering attributes
+if s:numblines
+  if exists("html_use_css")
+    execute "normal A\n.lnr { " . s:CSS1(highlightID("LineNr")) . "}\e"
+  else
+    execute '%s+<span class="lnr">\([^<]*\)</span>+' . s:HtmlOpening(highlightID("LineNr")) . '\1' . s:HtmlClosing(highlightID("LineNr")) . '+g'
+  endif
+endif
+
+" Gather attributes for all other classes
+let s:idlist = strpart(s:idlist, 1)
+while s:idlist != ""
+  let s:attr = ""
+  let s:col = stridx(s:idlist, ",")
+  let s:id = strpart(s:idlist, 0, s:col)
+  let s:idlist = strpart(s:idlist, s:col + 1)
+  let s:attr = s:CSS1(s:id)
+  " If the class has some attributes, export the style, otherwise DELETE all
+  " its occurences to make the HTML shorter
+  if s:attr != ""
+    if exists("html_use_css")
+      execute "normal A\n.c" . s:id . " { " . s:attr . "}"
+    else
+      execute '%s+<span class="c' . s:id . '">\([^<]*\)</span>+' . s:HtmlOpening(s:id) . '\1' . s:HtmlClosing(s:id) . '+g'
+    endif
+  else
+    execute '%s+<span class="c' . s:id . '">\([^<]*\)</span>+\1+g'
+    8
+  endif
+endwhile
+
+" Cleanup
+%s:\s\+$::e
+
+" Restore old settings
+let &report = s:old_report
+let &title = s:old_title
+let &icon = s:old_icon
+let &paste = s:old_paste
+let @/ = s:old_search
+wincmd p
+let &l:et = s:old_et
+wincmd p
+
+" Save a little bit of memory (worths doing?)
+unlet s:old_et s:old_paste s:old_icon s:old_report s:old_title s:old_search
+unlet s:whatterm s:idlist s:lnum s:end s:fgc s:bgc
+unlet! s:col s:id s:attr s:len s:line s:new s:did_retab s:numblines
+delfunc s:HtmlColor
+delfunc s:CSS1
+if !exists("html_use_css")
+  delfunc s:HtmlOpening
+  delfunc s:HtmlClosing
+endif