Changeset 6 in code for trunk/cli

Timestamp:

Jun 16, 2022, 9:59:30 PM (3 years ago)

Author:

fox

Message:

txt publish <id>; file and convert to standard dirs

Location:

trunk/cli

Files:

• dune (modified) (1 diff)
• file.ml (modified) (2 diffs)
• publish.ml (added)
• txt.ml (modified) (1 diff)

trunk/cli/dune

@@ -2 +2 @@
  (name txt)
  (public_name txt)
- (modules txt authors convert conversion file index last listing new topics html atom gemini pull)
+ (modules txt authors convert conversion file index last listing new topics html atom gemini publish pull)
  (libraries text_parse.converter text_parse.parsers logarion msgpck curl str cmdliner))

trunk/cli/file.ml

@@ -1 @@
-let split_filetypes files =
-        let acc (dirs, files) x = if Sys.is_directory x
-                then (x::dirs, files) else (dirs, x::files) in
-        List.fold_left acc ([],[]) files
-
 open Logarion
 let file files =
-        let dirs, files = split_filetypes files in
+        let dirs, files = File_store.split_filetypes files in
         let _link_as_named dir file = Unix.link file (Filename.concat dir file) in
         let link_with_id dir file =
@@ -15 +10 @@
 
 let unfile files =
-        let dirs, files = split_filetypes files in
+        let dirs, files = File_store.split_filetypes files in
         let unlink dir file = try Unix.unlink (Filename.concat dir file)
                 with Unix.(Unix_error(ENOENT,_,_))-> () in

trunk/cli/txt.ml

@@ -15 +15 @@
         Listing.term;
         New.term;
+        Publish.term;
         Pull.term;
         Topics.term;