Improve script hack compatibility.

[homepage.git] / Rules

diff --git a/Rules b/Rules
index 5473788e31261cfed8b0bbe865e1ba88cf83545e..2460c14ba315339e7e4ca55479480101b97a6de1 100644 (file)
--- a/Rules
+++ b/Rules
@@ -16,10 +16,12 @@
 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 preprocess do
+    system("git", "submodule", "update", "--init")
+
     # Remove dead annex keys from processing
     @items.delete_if do |item|
-      l = File.readlink(item.raw_filename)
-      true if !File.exists?(item.raw_filename) and l =~ %r{/annex/objects/}
+        l = File.readlink(item.raw_filename)
+        true if !File.exists?(item.raw_filename) and l =~ %r{/annex/objects/}
     rescue Errno::EINVAL
     end
 
@@ -36,6 +38,36 @@ preprocess do
             item[:gitrev] = commit if item_source(item)
         end
     end
+
+    @items.find_all('/weblog/*.md').each do |item|
+        item[:kind] ||= 'article'
+    end
+
+    @items.each do |item|
+        item[:created_at] ||=
+            item[:published] || File.stat(item.raw_filename).mtime
+        item[:updated_at] ||=
+            item[:updated] || File.stat(item.raw_filename).mtime
+    end
+
+    archivedirs = {}
+    @items.find_all('/archive/**/*').each do |item|
+        dir = File.dirname(item.identifier)
+        while dir != "/"
+            archivedirs[dir] = true
+            dir = File.dirname(dir)
+        end
+    end
+
+    archivedirs.keys.sort_by{ |s| -s.length }.each do |dir|
+        attrs = {
+            pattern: "#{dir}/*{,/index.lst}",
+            title: "Index of #{dir}",
+            gitrev: commit,
+        }
+
+        @items.create("", attrs, "#{dir}/index.lst")
+    end
 end
 
 postprocess do
@@ -53,6 +85,58 @@ postprocess do
             end
         end
     end
+
+    # Register URLs for git-annex keys
+    unless (uribase = ENV['ANNEX_URI_BASE'].to_s.chomp("/")).empty?
+        Open3.popen2("git", "-c", "core.bare=false", "annex", "registerurl") do
+        |stdin, stdout, result|
+            @items.each do |item|
+                next if item.raw_filename.nil?
+
+                l = File.readlink(item.raw_filename)
+                next unless l =~ %r{/annex/objects/}
+
+                key = File.basename(l)
+
+                # Find output reps corresponding to this key, if any
+                item.reps.each do |rep|
+                    next unless
+                        FileUtils.identical?(item.raw_filename, rep.raw_path)
+
+                    loop do
+                        STDOUT.write(stdout.read_nonblock(100))
+                    rescue EOFError, IO::WaitReadable
+                        break
+                    end
+
+                    stdin.printf("%s %s%s\n", key, uribase, rep.path)
+                end
+            rescue Errno::EINVAL
+            end
+
+            stdin.close
+            loop do
+                STDOUT.write(stdout.readpartial(100))
+            rescue EOFError
+                break
+            end
+
+            unless (rc = result.value).success?
+                printf("git annex registerurl failed: %s\n", rc.to_s)
+            end
+        end
+    end
+end
+
+compile '/**/index.lst' do
+    layout '/listing.xhtml'
+    filter :erb
+    layout '/default.xml'
+    layout '/default.xsl'
+    filter :relativize_paths, type: :xml
+    filter :xhtml_compat
+    filter :remove_wj
+    write item.identifier.without_ext + ".xhtml"
 end
 
 compile '/license/gpl*.md' do
@@ -99,6 +183,23 @@ compile '/license/cc*.xhtml' do
     write to_xhtml
 end
 
+compile '/images/*.jpg', rep: :large do
+    filename = item.identifier.without_ext + '-t1200.' + item.identifier.ext
+    filter :imgresize, width: 1200, height: 1200, cache: filename
+    write filename
+end
+
+compile '/images/*.jpg', rep: :info do
+    filter :imginfo
+    layout '/imginfo.xsl'
+    layout '/default.xml'
+    layout '/default.xsl'
+    filter :relativize_paths, type: :xml
+    filter :xhtml_compat
+    filter :remove_wj
+    write to_xhtml
+end
+
 compile '/**/*.scss' do
     filter :sass, syntax: :scss
     filter :css_source, uribase: \
@@ -111,8 +212,8 @@ compile '/**/*.scss' do
 end
 
 compile '/**/*' do
-  filter :copybin if @item.binary?
-  write @item.identifier.to_s
+    filter :copybin if @item.binary?
+    write @item.identifier.to_s
 end
 
 layout '/**/*.xsl', :xsl