RubyGems - runeblog - Versions diffs - 0.2.12 → 0.2.14 - Mend

runeblog 0.2.12 → 0.2.14

Files changed (514) hide show

@@ -1,757 +0,0 @@
-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