Corrige chaves de tradução para Pipo Saude

README.md

@@ -6,8 +6,7 @@ Vagas de empresas que ativamente contratam pessoas desenvolvedoras Clojure no Br
 
 ## Vagas
 
-
-|                                                  Vaga |      Empresa |     Local | Remoto? |                                                                                       Onde aplicar |
+|                                                  Vaga |      Empresa |     Local | Remoto? |                                                                                 Onde se candidatar |
 |-------------------------------------------------------|--------------|-----------|---------|----------------------------------------------------------------------------------------------------|
 |                                  Full Stack Developer | Flow Finance |           |     Sim | https://airtable.com/embed/shrG8DnjAdAOAZm9h/tble1ghQMefhblMVK/viwOzu3raZSmdxK7Z/recGtRyuHlvFhUV0v |
 |                             Business Security Manager |       Nubank | São Paulo |     Não |                                                   https://boards.greenhouse.io/nubank/jobs/3400816 |

deps.edn

@@ -1,4 +1,6 @@
 {:deps
  {org.clojure/clojure {:mvn/version "1.10.1"}
   enlive/enlive       {:mvn/version "1.1.6"}
-  selmer/selmer       {:mvn/version "1.12.31"}}}
+  selmer/selmer       {:mvn/version "1.12.31"}
+  org.mozilla/rhino   {:mvn/version "1.7.13"}
+  clj-http/clj-http   {:mvn/version "3.12.3"}}}

src/clojure_empregos_brasil/boards.clj

@@ -1,6 +1,7 @@
 (ns clojure-empregos-brasil.boards
   (:require [net.cgrand.enlive-html :as html]
-            [clojure-empregos-brasil.scrap :as scrap]))
+            [clojure-empregos-brasil.scrap :as scrap]
+            [clojure-empregos-brasil.breezy :as breezy]))
 
 (def gupy
   {:title      [:.title html/text-node]
@@ -21,6 +22,14 @@
 (def breezy
   {:title      [:h2 html/text-node]
    :url        #(-> % (html/select [:a]) first :attrs :href)
-   :location   [:ul.meta :li.location html/text-node]
+   :location   #(-> %
+                    (html/select [:ul.meta :li.location html/text-node])
+                    first
+                    breezy/i18n)
    :department [:ul.meta :li.department html/text-node]
-   :type       [:ul.meta :li.type html/text-node]})
+   :type       [:ul.meta :li.type html/text-node]
+   :remote     #(-> %
+                    (html/select [:ul.meta :li.location html/text-node])
+                    (->> first (contains? #{"%LABEL_POSITION_TYPE_REMOTE%"
+                                            "%LABEL_POSITION_TYPE_Worldwide%"
+                                            "%LABEL_POSITION_TYPE_WORLDWIDE%"})))})

src/clojure_empregos_brasil/breezy.clj

@@ -0,0 +1,89 @@
+(ns clojure-empregos-brasil.breezy
+  (:require [net.cgrand.enlive-html :as html]
+            [clj-http.client :as http])
+  (:import  [org.mozilla.javascript CompilerEnvirons Context Parser Token]
+            [org.mozilla.javascript.ast NodeVisitor]))
+
+(def ^:private i18n-map (atom nil))
+
+(defn- parse-js
+  [source uri]
+  (let [env (new CompilerEnvirons)]
+    (.setLanguageVersion env Context/VERSION_ES6)
+
+    (-> (Parser. env)
+        (.parse source uri 0))))
+
+(defn- translation-var?
+  [node]
+  (let [node (.getTarget node)]
+    (and (= (.getType node) Token/NAME)
+         (= (.getIdentifier node) "TRANSLATIONS"))))
+
+(defn- make-visitor
+  [target]
+  (reify NodeVisitor
+    (visit [this node]
+      (if (= (.getType node) Token/VAR)
+        (do
+          (when-let [node (first (filter translation-var? (.getVariables node)))]
+            (reset! target (.getInitializer node)))
+          false)
+        true))))
+
+(defn- find-translation-node
+  [ast]
+  (let [translation-node (atom nil)
+        visitor (make-visitor translation-node)]
+    (.visitAll ast visitor)
+    @translation-node))
+
+(defn- node->str
+  [node]
+  (let [type (.getType node)]
+    (cond
+      (= type Token/NAME) (.getIdentifier node)
+      (= type Token/STRING) (.getValue node)
+      (= type Token/NUMBER) (.getValue node)
+      :else nil)))
+
+(def object-literal->hashmap)
+
+(defn- element->pair
+  [element]
+  (let [left (.getLeft element)
+        right (.getRight element)]
+    [(node->str left) (if (= (.getType right) Token/OBJECTLIT)
+                        (object-literal->hashmap right)
+                        (node->str right))]))
+
+(defn- object-literal->hashmap
+  [literal]
+  (if (not= (.getType literal) Token/OBJECTLIT)
+    nil
+    (into {} (map element->pair (.getElements literal)))))
+
+(defn- translate-script-src
+  [page]
+  (-> page (html/select [:#translateScript]) first :attrs :src))
+
+(defn- fetch-script
+  [url]
+  (-> url http/get :body))
+
+(defn load-i18n
+  [page]
+  (let [translate-script (translate-script-src page)]
+    (reset! i18n-map
+            (-> translate-script
+                fetch-script
+                (parse-js translate-script)
+                find-translation-node
+                object-literal->hashmap
+                (get "pt-br")))))
+
+
+(defn i18n
+  [key]
+  (get @i18n-map key key))
+

src/clojure_empregos_brasil/companies.clj

@@ -1,6 +1,7 @@
 (ns clojure-empregos-brasil.companies
   (:require [clojure.string :as string]
-           [clojure-empregos-brasil.boards :as boards]))
+            [clojure-empregos-brasil.boards :as boards]
+            [clojure-empregos-brasil.breezy :as breezy]))
 
 (def nubank
   {:name      "Nubank"
@@ -9,8 +10,7 @@
    :scrap     boards/greenhouse
    :engineer? (comp (partial = "60350") :department)
    :brazil?   (comp (partial = "58102") :office_id)
-   :clojure?  boolean
-   :enrich    identity})
+   :clojure?  boolean})
 
 (def paygo
   {:name      "PayGo"
@@ -41,7 +41,8 @@
    :scrap     boards/breezy
    :engineer? #(= (:department %) "Engenharia")
    :brazil?   boolean
-   :clojure?  boolean})
+   :clojure?  boolean
+   :pre-html  #(do (breezy/load-i18n %) %)})
 
 (def i80-seguros
   {:name      "180° Seguros"
@@ -50,4 +51,4 @@
    :scrap     boards/breezy
    :engineer? #(= (:department %) "Tecnologia")
    :brazil?   boolean
-   :clojure?  boolean})
+   :clojure?  boolean})

src/clojure_empregos_brasil/scrap.clj

@@ -43,9 +43,9 @@
    sequence."
   [& companies]
   (flatten
-    (for [{:keys [engineer? brazil? clojure? enrich name page] :as company} companies]
+    (for [{:keys [engineer? brazil? clojure? pre-html name page] :as company} companies]
       (let [html (html/html-resource (URL. page))
-            positions (scrap html
+            positions (scrap (if (fn? pre-html) (pre-html html) html)
                              (:path company)
                              (:scrap company))]
         (->> positions