RubyGems - runeblog - Versions diffs - 0.1.98 → 0.2.5 - Mend

runeblog 0.1.98 → 0.2.5

Files changed (505) hide show

@@ -0,0 +1,757 @@
+require 'ostruct'
+require 'pp'
+require 'date'
+require 'livetext'
+require 'runeblog'
+errfile = File.new("/tmp/liveblog.out", "w")
+STDERR.reopen(errfile)
+def init_liveblog    # FIXME - a lot of this logic sucks
+  log!(enter: __method__)
+  here = Dir.pwd
+  dir = here
+  loop { dir = Dir.pwd; break if File.exist?("config"); Dir.chdir("..") }
+  Dir.chdir(here)
+  log!(str: "Calling RuneBlog.new")
+  @blog = $_blog = RuneBlog.new(dir)
+  @root = @blog.root
+  @view = @blog.view
+  @view_name = @blog.view.name
+  @vdir = @blog.view.dir
+  @version = RuneBlog::VERSION
+  @theme = @vdir + "/themes/standard/"
+end
+# FIXME - stale? and livetext are duplicated from helpers-blog
+  def stale?(src, dst)
+    log!(enter: __method__, args: [src, dst])
+    return true unless File.exist?(dst)
+    return true if File.mtime(src) > File.mtime(dst)
+    return false
+  end
+  def livetext(src, dst=nil)
+    log!(enter: __method__, args: [src, dst])
+    src += ".lt3" unless src.end_with?(".lt3")
+    if dst
+      dst += ".html" unless dst.end_with?(".html")
+    else
+      dst = src.sub(/.lt3$/, "")
+    end
+    return unless stale?(src, dst)
+    system("livetext #{src} >#{dst}")
+  end
+def post
+  log!(enter: __method__)
+  @meta = OpenStruct.new
+  @meta.num = _args[0]
+  _out "  <!-- Post number #{@meta.num} -->\n "
+end
+def quote
+  log!(enter: __method__)
+  _passthru "<blockquote>"
+  _passthru _body
+  _passthru "</blockquote>"
+  _optional_blank_line
+end
+def categories   # does nothing right now
+  log!(str: "Does nothing yet", enter: __method__)
+end
+def style
+  log!(enter: __method__)
+  fname = _args[0]
+  _passthru %[<link rel="stylesheet" href="???/etc/#{fname}')">]
+end
+# Move elsewhere later!
+def h1; _passthru "<h1>#{@_data}</h1>"; end
+def h2; _passthru "<h2>#{@_data}</h2>"; end
+def h3; _passthru "<h3>#{@_data}</h3>"; end
+def h4; _passthru "<h4>#{@_data}</h4>"; end
+def h5; _passthru "<h5>#{@_data}</h5>"; end
+def h6; _passthru "<h6>#{@_data}</h6>"; end
+def hr; _passthru "<hr>"; end
+def list
+  log!(enter: __method__)
+  _out "<ul>"
+  _body {|line| _out "<li>#{line}</li>" }
+  _out "</ul>"
+  _optional_blank_line
+end
+def list!
+  log!(enter: __method__)
+  _out "<ul>"
+  lines = _body.each
+  loop do
+    line = lines.next
+    line = _format(line)
+    if line[0] == " "
+      _out line
+    else
+      _out "<li>#{line}</li>"
+    end
+  end
+  _out "</ul>"
+  _optional_blank_line
+end
+def _html_body(file)
+  log!(enter: __method__, args: [file])
+  file.puts "<html>\n  <body>"
+  yield
+  file.puts "  </body>\n</html>"
+end
+def _write_card(cardfile, mainfile, pairs, card_title, tag, relative: true)
+  # HTML for sidebar card
+  log!(str: "Creating #{cardfile}.html", pwd: true)
+  File.open("#{cardfile}.html", "w") do |f|
+    f.puts <<-EOS
+      <div class="card mb-3">
+        <div class="card-body">
+          <h5 class="card-title">
+            <a href="javascript: void(0)"
+               onclick="javascript:open_main('widgets/#{tag}/#{mainfile}.html')"
+               style="text-decoration: none; color: black">#{card_title}</a>
+          </h5>
+<!--          <ul class="list-group list-group-flush"> -->
+    EOS
+    log!(str: "Writing data pairs to #{cardfile}.html", pwd: true)
+    top = relative ? "widgets/#{tag}/" : ""
+    pairs.each do |file, title|
+      f.puts <<-EOS
+        <li class="list-group-item"> <a href="javascript: void(0)"
+        onclick="javascript:open_main('#{top}#{file}')">#{title}</a> </li>
+      EOS
+    end
+    f.puts <<-EOS
+<!--          </ul> -->
+        </div>
+      </div>
+    EOS
+end
+def _write_main(mainfile, pairs, card_title)
+  # HTML for main area (iframe)
+  log!(str: "Creating #{mainfile}.html", pwd: true)
+  File.open("#{mainfile}.html", "w") do |f|
+    _html_body(f) do
+      f.puts "<h1>#{card_title}</h1>"
+      pairs.each do |file, title|
+        f.puts %[<a style="text-decoration: none; font-size: 24px" href="#{file}">#{title}</a> <br>]
+      end
+    end
+  end
+end
+def make_main_links
+  log!(enter: __method__)
+  # FIXME remember strings may not be safe
+  line = _data.chomp
+  tag, card_title = *line.split(" ", 2)
+  cardfile, mainfile = "card-#{tag}", "main-#{tag}"
+  input = "list.data"
+  log!(str: "Reading #{input}", pwd: true)
+  pairs = File.readlines(input).map {|line| line.chomp.split(",", 2) }
+  _write_main(mainfile, pairs, card_title)
+  widget_relative = (tag != "news")  # FIXME kludge!!!
+  _write_card(cardfile, mainfile, pairs, card_title, tag, relative: widget_relative)
+  end
+  log!(str: "...returning from method", pwd: true)
+end
+### inset
+def inset
+  log!(enter: __method__)
+  lines = _body
+  box = ""
+  lines.each do |line|
+    line = line.dup
+    if line[0] == "/"  # Only into inset
+      line[0] = ' '
+      box << line.dup + " "
+      line.replace(" ")
+    end
+    if line[0] == "|"  # Into inset and body
+      line[0] = ' '
+      box << line.dup + " "
+    end
+    _passthru(line)
+  end
+  lr = _args.first
+  wide = _args[1] || "25"
+  _passthru "<div style='float:#{lr}; width: #{wide}%; padding:8px; padding-right:12px; font-family:verdana'>"
+  _passthru '<b><i>'
+  _passthru box
+  _passthru_noline '</i></b></div>'
+  _optional_blank_line
+end
+def _errout(*args)
+  log!(str: args.join(" "), enter: __method__)
+  ::STDERR.puts *args
+end
+def _passthru(line)
+  log!(enter: __method__, args: [line])
+  return if line.nil?
+  line = _format(line)
+  _out line + "\n"
+  _out "<p>" if line.empty? && ! @_nopara
+end
+def _passthru_noline(line)
+  log!(enter: __method__, args: [line])
+  return if line.nil?
+  line = _format(line)
+  _out line
+  _out "<p>" if line.empty? && ! @_nopara
+end
+def title
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  title = @_data.chomp
+  @meta.title = title
+  setvar :title, title
+  _out %[<h1 class="post-title">#{title}</h1><br>]
+  _optional_blank_line
+end
+def pubdate
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  _debug "data = #@_data"
+  # Check for discrepancy?
+  match = /(\d{4}).(\d{2}).(\d{2})/.match @_data
+  junk, y, m, d = match.to_a
+  y, m, d = y.to_i, m.to_i, d.to_i
+  @meta.date = ::Date.new(y, m, d)
+  @meta.pubdate = "%04d-%02d-%02d" % [y, m, d]
+  _optional_blank_line
+end
+def image   # primitive so far
+  log!(enter: __method__)
+  _debug "img: huh? <img src=#{_args.first}></img>"
+  fname = _args.first
+  path = "assets/#{fname}"
+  _out "<img src=#{path}></img>"
+  _optional_blank_line
+end
+def tags
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  _debug "args = #{_args}"
+  @meta.tags = _args.dup || []
+  _optional_blank_line
+end
+def views
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  _debug "data = #{_args}"
+  @meta.views = _args.dup
+  _optional_blank_line
+end
+def pin
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  _debug "data = #{_args}"
+  # verify only already-specified views?
+  @meta.pinned = _args.dup
+  _optional_blank_line
+end
+def write_post
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  save = Dir.pwd
+  @postdir.gsub!(/\/\//, "/")  # FIXME unneeded?
+  Dir.mkdir(@postdir) unless Dir.exist?(@postdir) # FIXME remember assets!
+  Dir.chdir(@postdir)
+  @meta.views = @meta.views.join(" ") if @meta.views.is_a? Array
+  @meta.tags  = @meta.tags.join(" ") if @meta.tags.is_a? Array
+  File.write("teaser.txt", @meta.teaser)
+  fields = [:num, :title, :date, :pubdate, :views, :tags]
+  fname2 = "metadata.txt"
+  f2 = File.open(fname2, "w") do |f2|
+    fields.each {|fld| f2.puts "#{fld}: #{@meta.send(fld)}" }
+  end
+  Dir.chdir(save)
+rescue => err
+  puts "err = #{err}"
+  puts err.backtrace.join("\n")
+end
+def teaser
+  log!(enter: __method__)
+  raise "'post' was not called" unless @meta
+  @meta.teaser = _body_text
+  setvar :teaser, @meta.teaser
+  _out @meta.teaser + "\n"
+  # FIXME
+end
+def finalize
+  log!(enter: __method__)
+  unless @meta
+    puts @live.body
+    return
+  end
+  if @blog.nil?
+    return @meta
+  end
+  @slug = @blog.make_slug(@meta)
+  slug_dir = @slug
+  @postdir = @blog.view.dir + "/posts/#{slug_dir}"
+  STDERR.puts "--- finalize: pwd = #{Dir.pwd} postdir = #@postdir"
+  write_post
+  @meta
+end
+$Dot = self   # Clunky! for dot commands called from Functions class
+# Find a better way to do this?
+class Livetext::Functions
+  def br(n="1")
+    # Thought: Maybe make a way for functions to "simply" call the
+    #   dot command of the same name?? Is this trivial??
+    n = n.empty? ? 1 : n.to_i
+    "<br>"*n
+  end
+  def h1(param); "<h1>#{param}</h1>"; end
+  def h2(param); "<h2>#{param}</h2>"; end
+  def h3(param); "<h3>#{param}</h3>"; end
+  def h4(param); "<h4>#{param}</h4>"; end
+  def h5(param); "<h5>#{param}</h5>"; end
+  def h6(param); "<h6>#{param}</h6>"; end
+  def hr(param=nil)
+    $Dot.hr
+  end
+  def image(param)
+    "<img src='#{param}'></img>"
+  end
+end
+###### experimental...
+class Livetext::Functions
+  def _var(name)
+    ::Livetext::Vars[name] || "[:#{name} is undefined]"
+  end
+  def link
+    file, cdata = self.class.param.split("||", 2)
+    %[<link type="application/atom+xml" rel="alternate" href="#{_var(:host)}#{file}" title="#{_var(:title)}">]
+  end
+end
+###
+def _var(name)  # FIXME scope issue!
+  ::Livetext::Vars[name] || "[:#{name} is undefined]"
+end
+def head  # Does NOT output <head> tags
+  log!(enter: __method__)
+  args = _args
+  args.each do |inc|
+    self.data = inc
+    _include
+  end
+  # Depends on vars: title, desc, host
+  defaults = {}
+  defaults = { "charset"        => %[<meta charset="utf-8">],
+               "http-equiv"     => %[<meta http-equiv="X-UA-Compatible" content="IE=edge">],
+               "title"          => %[<title>\n  #{_var(:blog)} | #{_var("blog.desc")}\n  </title>],
+               "generator"      => %[<meta name="generator" content="Runeblog v #@version">],
+               "og:title"       => %[<meta property="og:title" content="#{_var(:blog)}">],
+               "og:locale"      => %[<meta property="og:locale" content="#{_var(:locale)}">],
+               "description"    => %[<meta name="description" content="#{_var("blog.desc")}">],
+               "og:description" => %[<meta property="og:description" content="#{_var("blog.desc")}">],
+               "linkc"          => %[<link rel="canonical" href="#{_var(:host)}">],
+               "og:url"         => %[<meta property="og:url" content="#{_var(:host)}">],
+               "og:site_name"   => %[<meta property="og:site_name" content="#{_var(:blog)}">],
+               "style"          => %[<link rel="stylesheet" href="etc/blog.css">],
+               "feed"           => %[<link type="application/atom+xml" rel="alternate" href="#{_var(:host)}/feed.xml" title="#{_var(:blog)}">],
+               "favicon"        => %[<link rel="shortcut icon" type="image/x-icon" href="../etc/favicon.ico">\n <link rel="apple-touch-icon" href="../etc/favicon.ico">]
+             }
+  result = {}
+  lines = _body
+  lines.each do |line|
+    line.chomp
+    word, remain = line.split(" ", 2)
+    case word
+      when "viewport"
+        result["viewport"] = %[<meta name="viewport" content="#{remain}">]
+      when "script"  # FIXME this is broken
+        file = remain
+        text = File.read(file)
+        result["script"] = Livetext.new.transform(text)
+      when "style"
+        result["style"] = %[<link rel="stylesheet" href="('/etc/#{remain}')">]
+      # Later: allow other overrides
+      when ""; break
+    else
+STDERR.puts "-- got '#{word}'; old value = #{result[word].inspect}"
+      if defaults[word]
+        result[word] = %[<meta property="#{word}" content="#{remain}">]
+STDERR.puts "-- new value = #{result[word].inspect}"
+      else
+        puts "Unknown tag '#{word}'"
+      end
+    end
+  end
+  hash = defaults.dup.update(result)  # FIXME collisions?
+# _out "<!-- "; _out hash.inspect; _out "--> "
+  hash.each_value {|x| _out "  " + x }
+  _out "<body>"
+end
+########## newer stuff...
+def meta
+  log!(enter: __method__)
+  args = _args
+  enum = args.each
+  str = "<meta"
+  arg = enum.next
+  loop do
+    if arg.end_with?(":")
+      str << " " << arg[0..-2] << "="
+      a2 = enum.next
+      str << %["#{a2}"]
+    else
+      STDERR.puts "=== meta error?"
+    end
+    arg = enum.next
+  end
+  str << ">"
+  _out str
+end
+def recent_posts    # side-effect
+  log!(enter: __method__)
+  _out %[<div class="col-lg-9 col-md-9 col-sm-9 col-xs-12">]
+  all_teasers
+  _out %[</div>]
+end
+def sidebar
+  log!(enter: __method__)
+  _out %[<div class="col-lg-3 col-md-3 col-sm-3 col-xs-12">]
+  _args do |token|
+    tag = token.chomp.strip.downcase
+    # FIXME will someone please refactor this horrible code??
+    # Think of the children!!
+    case tag[0]
+      when "."    # Only in sidebar, special code
+        tag = tag[1..-1]
+        Dir.chdir("widgets/#{tag}") do
+          name = tag + ".lt3"
+          log!(str: "DOT About to do:  livetext #{name} in #{Dir.pwd}", dir: true)
+          livetext tag + ".lt3", "card-#{tag}"
+          log!(str: "DOT after livetext call", pwd: true, dir: true)
+          _include_file "card-#{tag}.html"
+        end
+      when ":"    # Card AND main, but still special
+        tag = tag[1..-1]
+        Dir.chdir("widgets/#{tag}") do
+          name = tag + ".lt3"
+          log!(str: "COL About to do:  livetext #{name} in #{Dir.pwd}", dir: true)
+          livetext tag + ".lt3", "card-#{tag}"
+          system("card-#{tag}.html main-#{tag}.html")  # FIXME HTML will be wrong??
+          log!(str: "COL after livetext call", pwd: true, dir: true)
+          _include_file "card-#{tag}.html"
+        end
+    else
+      Dir.chdir("widgets/#{tag}") do
+        name = tag + ".lt3"
+        log!(str: "NRM About to do:  livetext #{name} in #{Dir.pwd}", dir: true)
+        livetext tag + ".lt3"
+        log!(str: "NRM after livetext call", pwd: true, dir: true)
+        _include_file "card-#{tag}.html"
+      end
+    end
+  end
+  _out %[</div>]
+end
+def stylesheet
+  log!(enter: __method__)
+  lines = _body
+  url = lines[0]
+  integ = lines[1]
+  cross = lines[2] || "anonymous"
+  _out %[<link rel="stylesheet" href="#{url}" integrity="#{integ}" crossorigin="#{cross}"></link>]
+end
+def script
+  log!(enter: __method__)
+  lines = _body
+  url = lines[0]
+  integ = lines[1]
+  cross = lines[2] || "anonymous"
+  _out %[<script src="#{url}" integrity="#{integ}" crossorigin="#{cross}"></script>]
+end
+### How this next bit works:
+###
+###   all_teasers will call _find_recent_posts
+###
+###   _find_recent_posts will search higher in the directory structure
+###   for where the posts are (0001, 0002, ...) NOTE: This implies you
+###   must be in some specific place when this code is run.
+###   It returns the 20 most recent posts.
+###
+###   all_teasers will then pick a small number of posts and call _teaser
+###   on each one. (The code in _teaser really belongs in a small template
+###   somewhere.)
+###
+def _find_recent_posts
+  log!(enter: __method__)
+  @vdir = _var(:FileDir).match(%r[(^.*/views/.*?)/])[1]
+  posts = nil
+  dir_posts = @vdir + "/posts"
+  entries = Dir.entries(dir_posts)
+  posts = entries.grep(/^\d\d\d\d/).map {|x| dir_posts + "/" + x }
+  posts.select! {|x| File.directory?(x) }
+  # directories that start with four digits
+  posts = posts.sort {|a, b| b.to_i <=> a.to_i }  # sort descending
+  posts[0..19]  # return 20 at most
+end
+def all_teasers
+  log!(enter: __method__)
+  open = <<-HTML
+      <section class="posts">
+  HTML
+  close = <<-HTML
+      </section>
+  HTML
+  text = <<-HTML
+    <html>
+    <head><link rel="stylesheet" href="etc/blog.css"></head>
+    <body>
+  HTML
+  posts = _find_recent_posts
+  wanted = [5, posts.size].min  # estimate how many we want?
+  enum = posts.each
+  wanted.times do
+    postid = File.basename(enum.next)
+    postid = postid.to_i
+    text << _teaser(postid)    # side effect! calls _out
+  end
+  text << "</body></html>"
+  File.write("recent.html", text)
+  _out %[<iframe id="main" style="width: 100vw; height: 100vh; position: relative;" src='recent.html' width=100% frameborder="0" allowfullscreen></iframe>]
+end
+def _post_lookup(postid)    # side-effect
+  log!(enter: __method__, args: [postid])
+  # .. = templates, ../.. = views/thisview
+  slug = title = date = teaser_text = nil
+  dir_posts = @vdir + "/posts"
+  posts = Dir.entries(dir_posts).grep(/^\d\d\d\d/).map {|x| dir_posts + "/" + x }
+  posts.select! {|x| File.directory?(x) }
+  post = posts.select {|x| File.basename(x).to_i == postid }
+  raise "Error: More than one post #{postid}" if post.size > 1
+  postdir = post.first
+  vp = RuneBlog::ViewPost.new(@blog.view, postdir)
+  vp
+end
+def _interpolate(str, context)   # FIXME move this later
+  log!(str: "Duplicated method?", enter: __method__, args: [str, context])
+  wrapped = "%[" + str.dup + "]"  # could fail...
+  eval(wrapped, context)
+end
+def _teaser(slug)
+  log!(enter: __method__, args: [slug])
+  id = slug.to_i
+  text = nil
+  post_entry_name = @theme + "blog/post_entry.lt3"
+  @_post_entry ||= File.read(post_entry_name)
+  vp = _post_lookup(id)
+  nslug, aslug, title, date, teaser_text =
+    vp.nslug, vp.aslug, vp.title, vp.date, vp.teaser_text
+  path = vp.path
+  url = "#{path}/#{aslug}.html"    # Should be relative to .blogs!! FIXME
+    date = Date.parse(date)
+    date = date.strftime("%B %e<br>%Y")
+    text = _interpolate(@_post_entry, binding)
+  text
+end
+def _card_generic(card_title:, middle:, extra: "")
+  log!(enter: __method__, args: [card_title, middle, extra])
+  front = <<-HTML
+    <div class="card #{extra} mb-3">
+      <div class="card-body">
+        <h5 class="card-title">#{card_title}</h5>
+  HTML
+  tail = <<-HTML
+      </div>
+    </div>
+  HTML
+  text = front + middle + tail
+  _out text + "\n "
+end
+def card_iframe
+  log!(enter: __method__)
+  title, lines = _data, _body
+  lines.map!(&:chomp)
+  url = lines[0].chomp
+  stuff = lines[1..-1].join(" ")  # FIXME later
+  middle = <<-HTML
+    <iframe src="#{url}" #{stuff}
+            style="border: 0" #{stuff}
+            frameborder="0" scrolling="no">
+    </iframe>
+  HTML
+  _card_generic(card_title: title, middle: middle, extra: "bg-dark text-white")
+end
+def _main(url)
+  log!(enter: __method__, args: [url])
+  %[href="javascript: void(0)" onclick="javascript:open_main('#{url}')"]
+end
+def card1
+  log!(enter: __method__)
+  title, lines = _data, _body
+  lines.map!(&:chomp)
+  card_text = lines[0]
+  url, classname, cdata = lines[1].split(",", 4)
+  main = _main(url)
+  middle = <<-HTML
+    <p class="card-text">#{card_text}</p>
+    <a #{main} class="#{classname}">#{cdata}</a>
+  HTML
+  _card_generic(card_title: title, middle: middle, extra: "bg-dark text-white")
+end
+def card2
+  log!(enter: __method__)
+  str = _data
+  file, card_title = str.chomp.split(" ", 2)
+  card_title = %[<a #{_main(file)} style="text-decoration: none; color: black">#{card_title}</a>]
+# FIXME is this wrong??
+  open = <<-HTML
+    <div class="card mb-3">
+      <div class="card-body">
+        <h5 class="card-title">#{card_title}</h5>
+      <ul class="list-group list-group-flush">
+  HTML
+  _out open
+  _body do |line|
+    url, cdata = line.chomp.split(",", 3)
+    main = _main(url)
+    _out %[<li class="list-group-item"><a #{main}}">#{cdata}</a> </li>]
+  end
+  close = %[       </ul>\n    </div>\n  </div>]
+  _out close
+end
+def tag_cloud
+  log!(enter: __method__)
+  title = _data
+  title = "Tag Cloud" if title.empty?
+  open = <<-HTML
+        <div class="card mb-3">
+          <div class="card-body">
+            <h5 class="card-title">#{title}</h5>
+  HTML
+  _out open
+  _body do |line|
+    line.chomp!
+    url, classname, cdata = line.split(",", 4)
+    main = _main(url)
+    _out %[<a #{main} class="#{classname}">#{cdata}</a>]
+  end
+  close = %[       </div>\n  </div>]
+  _out close
+end
+def navbar
+  log!(enter: __method__)
+  title = _var(:blog)
+  open = <<-HTML
+    <nav class="navbar navbar-expand-lg navbar-light bg-light">
+      <a class="navbar-brand" href="index.html">#{title}</a>
+      <button class="navbar-toggler"
+              type="button"
+              data-toggle="collapse"
+              data-target="#navbarSupportedContent"
+              aria-controls="navbarSupportedContent"
+              aria-expanded="false"
+              aria-label="Toggle navigation">
+        <span class="navbar-toggler-icon"></span>
+      </button>
+      <div class="collapse navbar-collapse pull-right"
+           id="navbarSupportedContent">
+        <ul class="navbar-nav mr-auto">
+  HTML
+  close = <<-HTML
+        </ul>
+      </div>
+    </nav>
+  HTML
+  first = true
+  _out open
+  _body do |line|
+    href, cdata = line.chomp.strip.split(" ", 2)
+    main = _main(href)
+    if first
+      first = false
+      _out %[<li class="nav-item active"> <a class="nav-link" href="#{href}">#{cdata}<span class="sr-only">(current)</span></a> </li>]
+    else
+      main = _main("navbar/#{href}")
+      _out %[<li class="nav-item"> <a class="nav-link" #{main}>#{cdata}</a> </li>]
+    end
+  end
+  _out close
+end