This is an automated email from the ASF dual-hosted git repository.
cmeier pushed a commit to branch clojure-bert-sentence-pair-classification
in repository https://gitbox.apache.org/repos/asf/incubator-mxnet.git
commit 8e89a9c406e88ffb7c1da433a98a94cdf9a0ca21
Author: gigasquid <cme...@gigasquidsoftware.com>
AuthorDate: Sun Apr 14 08:54:35 2019 -0400
util to update roster
---
.../examples/bert-qa/test/bert_qa/roster.clj | 35 ++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/contrib/clojure-package/examples/bert-qa/test/bert_qa/roster.clj
b/contrib/clojure-package/examples/bert-qa/test/bert_qa/roster.clj
new file mode 100644
index 0000000..75843ce
--- /dev/null
+++ b/contrib/clojure-package/examples/bert-qa/test/bert_qa/roster.clj
@@ -0,0 +1,35 @@
+(ns bert-qa.roster
+ (:require [clojure.test :as t]
+ [clojure.string :as string]))
+
+(require '[clojure.xml :as xml]
+ '[clojure.zip :as zip])
+
+;;convenience function, first seen at nakkaya.com later in clj.zip src
+(defn zip-str [s]
+ (zip/xml-zip
+ (xml/parse (java.io.ByteArrayInputStream. (.getBytes s)))))
+
+(def x (zip-str (string/replace (slurp "ppmc-roster.txt") #"\<input
type=\"checkbox\"\>"
+ "<input type=\"checkbox\"></input>")))
+
+
+;;; format
+(def people (->> (first x)
+ :content
+ (map :content)
+ (rest)
+ (first)
+ (map :content)
+ (map (fn [x] [(-> (first x) :content first :content first :attrs :href
(string/split #"\/") last)
+ (-> (nth x 2) :content first :content first)]))
+
+ ))
+
+(defn emit-people [persons]
+ (doseq [[username fullname] persons]
+ (xml/emit-element {:tag :tr :content [{:tag :td,:content ["."]}
+ {:tag :td,:content [username]}
+ {:tag :td,:content [fullname]}]})))
+
+(emit-people people)
