runeblog 0.3.02

data/bin/blog

@@ -0,0 +1,200 @@
+#!/usr/bin/env ruby
+
+# $LOAD_PATH << "./lib"
+
+require 'runeblog'
+require 'rubytext'
+
+require 'repl'
+
+include RuneBlog::REPL
+
+def yesno(question, noskip=false)
+  puts fx("\n  #{question}", :bold)
+  puts unless noskip
+  STDSCR.yesno
+end
+
+def pick_editor
+  choices = %w[vim emacs vi nano]
+  r, c = STDSCR.rc
+  num, name = STDSCR.menu(r: r, c: c+6, title: "Default editor", items: choices)
+  file = `which #{name}`.chomp
+end
+
+def get_universal
+  univ = "#{@blog.root}/data/universal.lt3"
+  if yesno("Faster initial setup? (no: edit universal.lt3)")
+    author = ask!("    Author name: ")
+    site   = ask!("    Site/domain: ")
+    # Now stash it...
+    str = File.read(univ)
+    str = str.gsub(/AUTHOR/, author)
+    str = str.gsub(/SITE_DOMAIN/, site)
+    File.write(univ, str)
+# STDERR.puts "------ universal ------\n#{`cat #{univ}`}\n------------------------"
+  else
+    vim_params = '-c ":set hlsearch" -c ":hi Search ctermfg=2 ctermbg=6" +/"\(AUTHOR.*\|SITE.*\)"'
+    edit_file(univ, vim: vim_params)
+  end
+end
+
+def get_global
+  if yesno("Faster view setup? (no: edit global.lt3)")
+    view_name = ask!("\n    Filename: ")
+    @blog.create_view(view_name)   # call change_view??
+    title     = ask!("    View title: ")
+    subtitle  = ask!("    Subtitle  : ")
+    domain    = ask!("    Domain    : ")
+
+    vfile = "#{@blog.root}/views/#{view_name}/settings/view.txt"
+    hash = {/VIEW_NAME/     => view_name,
+            /VIEW_TITLE/    => title,
+            /VIEW_SUBTITLE/ => subtitle,
+            /VIEW_DOMAIN/   => domain}
+    @blog.complete_file(vfile, nil, hash)
+  else
+    view_name = ask!("\n    Filename: ")
+    @blog.create_view(view_name)   # call change_view??
+    vim_params = '-c ":set hlsearch" -c ":hi Search ctermfg=2 ctermbg=6" +/"\(VIEW_.*\|SITE.*\)"'
+    edit_file(@blog.view.dir/"themes/standard/global.lt3", vim: vim_params)
+  end
+end
+
+def get_started
+  if yesno("Do you want to qo a quick setup?")
+    puts "      First choose your editor."
+    @blog.editor = pick_editor
+    File.write("#{@blog.root}/data/EDITOR", @blog.editor)
+
+    get_universal
+    # Now create a custom global.lt3
+    @blog._generate_global
+    puts fx("\n  Quick setup complete!", :bold)
+    if yesno("Create your first view now?")
+      get_global
+      puts "\n  View #{@blog.view} created!\n "
+    end
+  end
+
+  puts
+  print fx("  For help", :bold)
+  puts " type h or help."
+  print fx("  Create a view", :bold)
+  puts  " with: new view"
+  print fx("  Create a post", :bold)
+  puts " (within current view): new post"
+end
+
+def mainloop
+  info = @blog.view || "no view"
+  print fx("[#{info}] ", Red, :bold)
+  cmd = STDSCR.gets(history: @cmdhist, tab: @tabcom)
+  cmd_quit(nil) if cmd.nil?   # ^D
+  cmd.chomp!
+  return if cmd.empty?   # CR does nothing
+  meth, params = RuneBlog::REPL.choose_method(cmd)
+  ret, str = send(meth, params)
+rescue => err
+  puts err
+end
+
+def cmdline_preview
+  _need_view
+  local = @blog.view.local_index
+  result = system("open #{local}")
+end
+
+def cmdline_publish
+  abort "Nor implemented yet"
+  _need_view
+end
+
+def cmdline_browse
+  abort "Nor implemented yet"
+  _need_view
+end
+
+def _need_view
+  @view = ARGV[1]
+  abort "Need 'view' parameter" if @view.nil?
+  abort "No such view '#{view}'" unless @blog.view?(@view)
+end
+
+def cmdline_rebuild
+  _need_view
+  print "Generating view... "
+  @blog.generate_view(@view)
+  print "Generating index... "
+  num = @blog.generate_index(@view)
+  puts "#{num} posts\n "
+end
+
+def handle_cmdline
+  cmd = ARGV[0]
+  @blog = RuneBlog.new
+  abort "No blog found" if @blog.nil?
+
+  case cmd
+    when "rebuild"; cmdline_rebuild
+    when "publish"; cmdline_publish
+    when "preview"; cmdline_preview
+    when "browse";  cmdline_browse
+  else
+    puts "Command '#{cmd}' is unknown"
+  end
+  exit
+end
+
+### Main
+
+major, minor = RUBY_VERSION.split(".").values_at(0,1)
+ver = major.to_i*10 + minor.to_i
+unless ver >= 24
+  RubyText.stop
+  abort "Need Ruby 2.4 or greater" 
+end
+
+include RuneBlog::Helpers  # for try_read_config
+
+handle_cmdline unless ARGV.empty?
+
+errfile = File.new("stderr.out", "w")
+STDERR.reopen(errfile)
+
+# read a .rubytext file here?? Call it something else?
+home = ENV['HOME']
+@fg, @bg = Blue, White   ##  FIXME!! try_read_config("#{home}/.rubytext", fg: Blue, bg: White)
+@fg = @fg.downcase.to_sym
+@bg = @bg.downcase.to_sym
+
+RubyText.start(:_echo, :keypad, scroll: true, log: "binblog.txt", fg: @fg, bg: @bg)
+
+
+new_repo = false
+if ! RuneBlog.exist?
+  exit unless yesno("No blog repo found. Create new one?")
+  RuneBlog.create_new_blog_repo
+  puts fx("  Blog repo successfully created.", :bold)
+  new_repo = true
+end
+
+@blog = RuneBlog.new
+get_started if new_repo
+
+print fx("  For help", :bold)
+puts " type h or help.\n "
+
+puts fx("\n  RuneBlog", :bold), fx(" v #{RuneBlog::VERSION}\n", Red)
+
+@cmdhist = []
+@tabcom = RuneBlog::REPL::Patterns.keys.uniq - RuneBlog::REPL::Abbr.keys
+@tabcom.map! {|x| x.sub(/ [\$\>].*/, "") + " " }
+@tabcom.sort!
+  
+loop { mainloop }
+
+system("tput clear")
+sleep 0.2
+puts
+

data/bin/mkwidget

@@ -0,0 +1,164 @@
+#!/usr/bin/env ruby
+
+
+def write_css
+  # Need .lt3 file?
+  File.open("std_widget/card.css", "w") do |f|
+    f.puts <<~LIVE
+      # CSS for sidebar card
+    LIVE
+  end
+  File.open("std_widget/main.css", "w") do |f|
+    f.puts <<~LIVE
+      # CSS for main area page
+    LIVE
+  end
+end
+
+def _make_class_name(app)
+  if app =~ /[-_]/
+    words = app.split(/[-_]/)
+    name = words.map(&:capitalize).join
+  else
+    name = app.capitalize
+  end
+  return name
+end
+
+def write_widget_ruby
+  File.open("std_widget/#@app.rb", "w") do |f|
+    f.puts <<~LIVE
+      # Custom code for '#@app' widget
+
+      class ::RuneBlog::Widget
+        class #{_make_class_name(@app)}
+          Type, Title = "#@app", "#@title"
+
+          def initialize(repo)
+            @blog = repo
+            @datafile = "list.data"
+            @lines = File.exist?(@datafile) ? File.readlines(@datafile) : []
+          end
+
+          def _html_body(file, css = nil)    # FIXME move to common file
+            file.puts "<html>"
+            if css
+              file.puts "    <head>"  
+              file.puts "        <style>\n#{css}\n          </style>"
+              file.puts "    </head>"  
+            end
+            file.puts "  <body>"
+            yield
+            file.puts "  </body>\n</html>"
+          end
+
+          def build
+            # ...insert logic here
+            write_main
+            write_card
+          end
+
+          def write_main
+            tag = Type
+            card_title = Title
+            css = "* { font-family: verdana }"
+            mainfile = "#{tag}-main"
+            File.open("#{mainfile}.html", "w") do |f|
+              _html_body(f, css) do
+                f.puts "<h1>#{card_title}</h1><br><hr>"
+                # ...insert logic here
+              end
+            end
+          end
+
+          def write_card
+            tag = Type
+            url = :widgets/tag/tag+"-main.html"
+            card_title = Title
+            cardfile = "#{tag}-card"
+            File.open("#{cardfile}.html", "w") do |f|
+              f.puts <<-EOS
+                <div class="card mb-3">
+                  <div class="card-body">
+                    <h5 class="card-title">
+                      <button type="button" class="btn btn-primary" data-toggle="collapse" data-target="##{tag}">+</button>
+                      <a href="javascript: void(0)" 
+                         onclick="javascript:open_main('#{url}')" 
+                         style="text-decoration: none; color: black"> #{card_title}</a>
+                    </h5>
+                    <div class="collapse" id="#{tag}">
+              EOS
+              # ...insert logic here
+              f.puts <<-EOS
+                    </div>
+                  </div>
+                </div>
+              EOS
+            end
+          end
+
+          def edit_menu
+          end
+
+          def refresh
+          end
+        end
+      end
+    LIVE
+  end
+end
+
+def write_custom_ruby
+  File.open("std_widget/custom.rb", "w") do |f|
+    f.puts <<~LIVE
+      # This is for specialized livetext add-ons (Ruby methods)
+    LIVE
+  end
+end
+
+def write_README
+  File.open("std_widget/README", "w") do |f|
+    f.puts <<~LIVE
+      This is for a "standard" Runeblog widget
+      Code and docs are a work in progress
+    LIVE
+  end
+end
+
+def safe_copy(src)
+  dst = src.sub(/std_widget/, "empty_view/themes/standard/widgets/#@app")
+  if File.exist?(dst)
+    puts "Skip: #{src}"
+    return 
+  else
+    puts "Copying: #{src}"
+    system("cp #{src}  #{dst}")
+  end
+end
+
+def copy_over
+  here, there = "std_widget", "empty_view/themes/standard/widgets/#@app"
+  slist = Dir["#{here}/*"].reject {|x| File.directory?(x) }
+  slist.each {|src| safe_copy(src) }
+
+  here, there = "std_widget/pieces", "empty_view/themes/standard/widgets/#@app/pieces"
+  system("mkdir #{there}") unless Dir.exist?(there)
+  slist = Dir["#{here}/*"]
+  slist.each {|src| safe_copy(src) }
+end
+
+
+### "Main"
+
+abort 'Need app, "title..."' if ARGV.empty?
+@app, @title = *ARGV
+
+system("rm -rf std_widget")
+system("mkdir -p std_widget/pieces")
+
+write_css
+write_widget_ruby
+write_custom_ruby
+write_README
+
+copy_over

data/data/EDITOR

@@ -0,0 +1 @@
+/usr/local/bin/vim

data/data/ROOT

@@ -0,0 +1 @@
+/FULL/PATH/.blogs

data/data/VIEW

@@ -0,0 +1 @@
+[no view]

data/data/features.txt

@@ -0,0 +1,18 @@
+# 0 = disabled (installed but disabled)
+# 1 = enabled (implies installed)
+# x = excluded (not installed; does it even exist?)
+
+reddit     1   # autopost, embed thread after blog post
+facebook   0   # reader-like, reader post, autopost?
+twitter    0   # reader-tweet, reader-follow, autotweet?
+
+links      1   # widget: external links
+news       1   # widget: news (external)
+pages      1   # widget: internal pages
+pinned     1   # widget: pinned posts
+
+ad         x   # widget: embed advertising 
+bydates    x   # widget: browse posts by date
+search     x   # widget: search posts
+sitemap    x   # widget: site map
+tag_cloud  x   # widget: tag cloud (clickable)

data/data/global.lt3

@@ -0,0 +1,20 @@
+. --------------------------------------------------
+. Global settings are stored here in the form       
+.   <variable>  <value>                             
+. --------------------------------------------------
+
+.variables view     ../../settings/view.txt
+
+.variables recent   ../../settings/recent.txt
+
+.variables publish  ../../settings/publish.txt
+
+.variables
+host        http://SITE
+charset     utf-8
+url         http://SITE
+locale      en_US
+
+font.family       verdana
+.end
+

data/data/universal.lt3

@@ -0,0 +1,18 @@
+. "Universal" settings -- new defaults for global.lt3
+. work in progress - defaults for each global.lt3
+
+. --------------------------------------------------
+. Global settings are stored here in the form       
+.   <variable>  <value>                             
+. --------------------------------------------------
+.nopara
+
+.variables
+univ.author        AUTHOR
+univ.site          SITE_DOMAIN
+
+font.family   verdana
+
+charset       utf-8
+locale        en_US
+.end

data/empty_view/config/exper/2svg.lt3

@@ -0,0 +1,38 @@
+.nopara
+.variables
+blog          Around Austin
+blog.desc     The view from downtown
+
+viewbox.wide  550
+viewbox.high  90
+
+rect.wide     550
+rect.high     90
+rect.fill     blue
+
+title.font    bold 58px sans-serif
+title.fill    white
+title.xoff    280
+title.yoff    55
+
+subtitle.font italic 24px sans-serif
+subtitle.fill lightblue
+subtitle.xoff 280
+subtitle.yoff 80
+.end
+
+<svg width=$viewbox.wide height=$viewbox.high 
+     viewBox="0 0 $viewbox.wide $viewbox.high" 
+     xmlns="http://www.w3.org/2000/svg">
+  <style>
+    .subtitle { font: $subtitle.font; fill: $subtitle.fill }
+    .title    { font: $title.font; fill: $title.fill }
+  </style>
+
+<rect x="0" y="0" rx="10" ry="10" width="$rect.wide" height="$rect.high" fill="$rect.fill"/>
+
+<text text-anchor="middle" x=$title.xoff y=$title.yoff class=title>$blog</text>
+<text text-anchor="middle" x=$subtitle.xoff y=$subtitle.yoff class=subtitle>$blog.desc</text>
+</svg>
+<br>
+Here we are