<commit_before>(ns clojars.tools.upload-repo
  (:require [clojure.java.io :as io]
            [clojars.cloud-files :as cf])
  (:gen-class))

(defn upload-file [conn path file]
  (if (cf/artifact-exists? conn path)
    (println "==> Remote artifact exists, ignoring:" path)
    (cf/put-file conn path file)))

(defn upload-repo [conn repo]
  (->> (file-seq repo)
    (filter (memfn isFile))
    (run! #(upload-file conn
             (cf/remote-path
               (.getAbsolutePath repo)
               (.getAbsolutePath %))
             %))))

(defn -main [& args]
  (if (not= 4 (count args))<commit_msg>Fix typo.<commit_after>(ns clojars.tools.upload-repo
  (:require [clojure.java.io :as io]
            [clojars.cloudfiles :as cf])
  (:gen-class))

(defn upload-file [conn path file]
  (if (cf/artifact-exists? conn path)
    (println "==> Remote artifact exists, ignoring:" path)
    (cf/put-file conn path file)))

(defn upload-repo [conn repo]
  (->> (file-seq repo)
    (filter (memfn isFile))
    (run! #(upload-file conn
             (cf/remote-path
               (.getAbsolutePath repo)
               (.getAbsolutePath %))
             %))))

(defn -main [& args]
  (if (not= 4 (count args))
{'fraction_non_alphanumeric': 0.16126350789692437, 'fraction_numerical': 0.0016625103906899418, 'mean_word_length': 2.401129943502825, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3290616', 'n_tokens_mistral': 424, 'n_tokens_neox': 409, 'n_words': 106}