138 lines
6.0 KiB
Plaintext
138 lines
6.0 KiB
Plaintext
;; This buffer is for Clojure experiments and evaluation.
|
|
|
|
;; Press C-j to evaluate the last expression.
|
|
|
|
;; You can also press C-u C-j to evaluate the expression and pretty-print its result.
|
|
|
|
(def in
|
|
"Sushi Con - CB Quarterly/ Prepayments Ashlee
|
|
Sushi Con - SJ Quarterly/ Prepayments Ashlee
|
|
SC Morgan Hill LP Quarterly/ Prepayments Ashlee
|
|
Lous Coffee Monthly Return Ashlee
|
|
Breakfast Club - MORGAN HILL Quarterly/Prepayments Ashlee
|
|
Bills Fremont LLC Quarterly/ Prepayments Ashlee
|
|
MT Boxes 2 LLC - Bill's Café PA Quarterly/ Prepayments Ashlee
|
|
MT Boxes LLC - Philz Coffee Quarterly/ Prepayments Ashlee
|
|
NTG - Fountains/Roseville Quarterly/ Prepayments Ashlee
|
|
NTG - Fremont Quarterly/ Prepayments Ashlee
|
|
NTG - ELk Grove Quarterly/ Prepayments Ashlee
|
|
NTG Roseville Quarterly/ Prepayments Ashlee
|
|
NTG - San Carlos Gyro House Quarterly/ Prepayments Ashlee
|
|
NTG - Wellborne TX Due on 20th Quarterly/ Prepayments Ashlee
|
|
NTG - Visalia Quarterly/ Prepayments Ashlee
|
|
NTG - University TX Due on 20th Quarterly/ Prepayments Ashlee
|
|
NTG - St George Quarterly/ Prepayments (do restuarant tax quarterly) Ashlee
|
|
NTG - Danville Quarterly/ Prepayments Ashlee
|
|
NTG - Dublin - Dublin Greek Eats Quarterly/ Prepayments Ashlee
|
|
NTG - Vacaville Greek Eats Quarterly/ Prepayments Ashlee
|
|
NTG - Pacific Greek Eats Quarterly/ Prepayments Ashlee
|
|
NTG Concord Quarterly/ Prepayments Ashlee
|
|
NTG Davis Quarterly/ Prepayments Ashlee
|
|
NTG Walnut Creek Quarterly/ Prepayments Ashlee
|
|
NTG Oyster Point Quarterly/ Prepayments Ashlee
|
|
NTG - Clayton Quarterly/Prepayments Ashlee
|
|
NTG - Fort Apache Nevada: Monthly file and pay Ashlee
|
|
NTG - Henderson Nevada: Monthly file and pay Ashlee
|
|
Monstera Plant Lounge Quarterly Only Ben for now
|
|
NTG State Line Monthly Return Gina
|
|
NTG Olathe (Kansas State Sales Tax) Monthly Return Gina
|
|
NTG - Union City - ENTG1 LLC Quarterly/ Prepayments Gina
|
|
NTG Santa Rosa Quarterly/ Prepayments Gina
|
|
Elia Quarterly/ Prepayments Gina
|
|
Sultan's Kebab - A&F Quarterly/ Prepayments Gina
|
|
Sultan's Kebab - Ulas Inc Quarterly/ Prepayments Gina
|
|
Bagel Box (New, Ben did July's prepayment) Quarterly/ Prepayments Gina
|
|
NTG - San Mateo - Lakonia Ltd LLC Quarterly/ Prepayments Gina
|
|
NTG Fullerton Quarterly/ Prepayments Gina
|
|
NTG - Bridgepoint Harvester Quarterly/ Prepayments Gina
|
|
NTG Daly City - Harvester Quarterly/ Prepayments Gina
|
|
NTG Gellert - Harvester Quarterly/ Prepayments Gina
|
|
NTG San Francisco Quarterly/ Prepayments Gina
|
|
Akiko LLC - NTG Quarterly/ Prepayments Gina
|
|
NTG - Gilroy Quarterly/ Prepayments Gina
|
|
NTG - Monterey Quarterly/ Prepayments Gina
|
|
NTG - Fresno - Gyros in Motion Quarterly/ Prepayments Gina
|
|
NTG - VGZ Burgers Quarterly/ Prepayments Gina
|
|
NTG Vallejo Quarterly/ Prepayments Gina
|
|
NTG - Newport - KSHRIG LLC Quarterly/ Prepayments Gina
|
|
NTG Brentwood KTMM Quarterly/ Prepayments Gina
|
|
NTG Brentwood LLC Quarterly/ Prepayments Gina
|
|
NTG SLO Quarterly/ Prepayments Gina
|
|
NTG San Diego - Enzo Quarterly/ Prepayments Gina
|
|
Odeum Quarterly/ Prepayments Gina
|
|
Penolope's CT Quarterly/ Prepayments Gina
|
|
Penelope's Spear Quarterly/ Prepayments Gina
|
|
Sandwich Monkey Quarterly/ Prepayments Gina
|
|
NTG - UCLA/westwood - Aphrodite One LLC Quarterly/ Prepayments Ashlee
|
|
NTG - Zero To Sixty Quarterly/ Prepayments Ashlee
|
|
NTG Santa Monica Quarterly/ Prepayments Ashlee
|
|
NTG Westlake Quarterly/ Prepayments Ashlee
|
|
NTG Woodland Hills Quarterly/ Prepayments Ashlee
|
|
NTG Phoenix Monthly Return Kyle
|
|
NTG Hayward Quarterly/ Prepayments Kyle
|
|
NTG Hollywood Quarterly/ Prepayments Kyle
|
|
NTG Novato SamZee LLC Quarterly/ Prepayments Kyle
|
|
NTG San Leandro Quarterly/ Prepayments Kyle
|
|
NTG Castro Valley Quarterly/ Prepayments Kyle
|
|
NTG Livermore Giannos Gyros Quarterly/ Prepayments Kyle
|
|
NTG River Bank Giannos Gyros Quarterly/ Prepayments Kyle
|
|
MDB21 Inc dba Naschmarkt Quarterly/ Prepayments Kyle
|
|
MDBPA Quarterly/ Prepayments Kyle
|
|
Anatolian Kitchen Quarterly/ Prepayments Kyle
|
|
Campbell Creamery - Shree Sairam LLC Annual 6/30 Kyle
|
|
Lean Feast Humble Hustler Annual Kyle
|
|
Bella Saratoga Quarterly/ Prepayments Kyle
|
|
Brown Chicken Brown Cow Quarterly/ Prepayments Kyle
|
|
Frost Cupcake Factory Quarterly Only Kyle
|
|
Hiro Mura Quarterly/ Prepayments Kyle
|
|
Mio Vicino - SC Quarterly/ Prepayments Kyle
|
|
Orale Mex Grill Quarterly/ Prepayments Kyle
|
|
Piatto Piccolo LLC (Vin Santo) Quarterly/ Prepayments Kyle
|
|
Poke Poke Fish Bar LLC Quarterly/ Prepayments Kyle
|
|
Roberto's Cantina Quarterly/ Prepayments Kyle
|
|
Savory Kitchen Quarterly/ Prepayments Kyle
|
|
Sorelle Italian Bistro Quarterly/ Prepayments Kyle
|
|
Warm Elements Quarterly/ Prepayments Kyle
|
|
Willow Glen Creamery Quarterly Only Kyle"
|
|
)
|
|
|
|
(def parsed
|
|
(->> (clojure.data.csv/read-csv in :separator \tab)
|
|
(map (fn [[client-stuff _ person]]
|
|
{:search client-stuff
|
|
:client-id (some->> {"query" (format "_text_:\"%s \"" (->> (-> client-stuff
|
|
(str/replace "NTG" "Nick the Greek")
|
|
(str/replace "Sushi Con" "Sushi Confidential")
|
|
(str/split #" "))
|
|
(str/join " ")))
|
|
"fields" "id"}
|
|
(solr/query solr/impl "clients")
|
|
(map :id)
|
|
first
|
|
Long/parseLong)
|
|
:person person
|
|
:user-id ({"Gina" 17592278867066
|
|
"Kyle" 17592196388717
|
|
"Ashlee" 17592255266681
|
|
"Ben" 17592186109010} person)}
|
|
))))
|
|
|
|
@(dc/transact conn
|
|
(->> parsed
|
|
(filter :client-id)
|
|
(filter :user-id)
|
|
(map (fn [x]
|
|
[:db/add (:user-id x) :user/clients (:client-id x)]))))
|
|
|
|
(->> parsed
|
|
(filter (fn [x]
|
|
(or (not (:client-id x))
|
|
(not (:user-id x)))))
|
|
(group-by :person)
|
|
(map (fn [[p v]]
|
|
[p (map :search v)]))
|
|
(into {}))
|
|
|
|
(user/init-repl)
|
|
|