Changeset 26 in code for trunk/cli/atom.ml

Timestamp:

Nov 16, 2022, 10:02:07 PM (2 years ago)

Author:

fox

Message:

New optional pubdir parameter for txt publish

• Inform about pubdir value and txt.conf

File:

• trunk/cli/atom.ml (modified) (2 diffs)

trunk/cli/atom.ml

@@ -51 +51 @@
         let _i = Str.(search_forward (regexp (protocol ^ "://[^;]*")) locs 0) in
         Str.(matched_string locs)
-        with Not_found -> Printf.eprintf "Missing location for %s" protocol; ""
+        with Not_found -> Printf.eprintf "Missing location for %s, add it to txt.conf\n" protocol; ""
 
 let indices alternate_type c =
@@ -62 +62 @@
         let base_url = base_url c.kv protocol_regexp in
         let self = Filename.concat base_url fname in
-        file fname @@
+        file fname @@ (*TODO: alternate & self per url*)
           {|<?xml version="1.0" encoding="utf-8"?><feed xmlns="http://www.w3.org/2005/Atom" xml:base="|} ^ base_url ^ {|"><title>|}
           ^ title ^ {|</title><link rel="alternate" type="|} ^ alternate_type ^ {|" href="|}