feat: update

Author: davidpham87

personal/clomacs/bb.edn

@@ -1,5 +1,6 @@
 {:paths ["src"]
  :deps
- {medley/medley {:mvn/version "1.3.0"}
-  djblue/portal {:mvn/version "0.19.2"}
-  camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.2"}}}
+ {medley/medley                       {:mvn/version "1.3.0"}
+  djblue/portal                       {:mvn/version "0.22.1"}
+  camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.2"}
+  refactor-nrepl/refactor-nrepl       {:mvn/version "3.5.2"}}}

personal/clomacs/deps.edn

@@ -1,6 +1,7 @@
 {:paths ["src"]
  :deps
- {medley/medley {:mvn/version "1.3.0"}
-  hickory/hickory {:mvn/version "LATEST"}
-  djblue/portal {:mvn/version "0.19.2"}
-  camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.2"}}}
+ {medley/medley                       {:mvn/version "1.3.0"}
+  hickory/hickory                     {:mvn/version "LATEST"}
+  djblue/portal                       {:mvn/version "0.22.1"}
+  camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.2"}
+  refactor-nrepl/refactor-nrepl       {:mvn/version "3.5.2"}}}

personal/clomacs/src/playwright/core.clj

@@ -19,13 +19,21 @@
 (defn find-method [s]
   (str/replace (re-find #"^[^\(]+" s) #"^page\." ""))
 
+(defn find-methods [s]
+  (vec (drop 1 (str/split s #"\." ))))
+
+(defn swap-paren-position [s]
+  (let [method-name (re-find #"^[^\(]+" s)]
+    (-> (str "(." method-name " " (str/replace s (re-pattern (str"^" method-name "\\(")) ""))
+        (str/replace #" \)" ")"))))
+
 (defn parse-page-method [s]
   (if (str/starts-with? s "page")
-    (let [method (find-method s)]
-      (-> s
-          (str/replace (re-pattern (str "page." method "\\((.+)\\)")) "$1")
-          js-quote->cl-string
-          (as-> $ (clojure.pprint/cl-format nil "(.~A page ~A)" method $))))
+    (let [method (find-method s)
+          methods (mapv (comp swap-paren-position js-quote->cl-string) (find-methods s))]
+
+     (-> s
+         (as-> $ (clojure.pprint/cl-format nil "(-> page ~A)" (str/join " " methods)))))
     s))
 
 (defn expect-page-url? [s]
@@ -44,32 +52,13 @@
          (str/join "\n"))))
 
 (comment
-  (let [s "// Go to http://localhost:8000/
-  await page.goto('http://localhost:8000/');
-  // Click text=Wealth Management
-  await page.click('text=Wealth Management');
-  // Click text=Swiss Francs CHF
-  await page.click('text=Swiss Francs CHF');
-  // Click text=Performance CurrencyUS $Euro €Swiss Francs CHFFund Selection >> p
-  await page.click('text=Performance CurrencyUS $Euro €Swiss Francs CHFFund Selection >> p');
-  await expect(page).toHaveURL('http://localhost:8000/#/funds');
-  // Click [aria-label=\"next page\"]
-  await page.click('[aria-label=\"next page\"]');
-  // Click text=Vontobel Asia Pacific Equity
-  await page.click('text=Vontobel Asia Pacific Equity');
-  await expect(page).toHaveURL('http://localhost:8000/#/fund/30102303100_1_10311111_1/overview');
-  // Click button[role=\"tab\"]:has-text(\"Insights\")
-  await page.click('button[role=\"tab\"]:has-text(\"Insights\")');
-  await expect(page).toHaveURL('http://localhost:8000/#/fund/30102303100_1_10311111_1/insights');
-  // Click button[role=\"tab\"]:has-text(\"ESG\")
-  await page.click('button[role=\"tab\"]:has-text(\"ESG\")');
-  await expect(page).toHaveURL('http://localhost:8000/#/fund/30102303100_1_10311111_1/esg');
-  // Click button[role=\"tab\"]:has-text(\"Risk\")
-  await page.click('button[role=\"tab\"]:has-text(\"Risk\")');
-  await expect(page).toHaveURL('http://localhost:8000/#/fund/30102303100_1_10311111_1/analytics');
-  // Click button:has-text(\"Selection\")
-  await page.click('button:has-text(\"Selection\")');
-  await expect(page).toHaveURL('http://localhost:8000/#/funds');"]
-    (println (str/join "\n" (code->clj s))))
+  (let [s "
+  await page.locator('button[role=\"tab\"]:has-text(\"Style\")').click();
+  await page.locator('button[role=\"tab\"]:has-text(\"Style\")').first().click();
+"]
+    #_(println (str/join "\n" (code->clj s)))
+    (println (code->clj s))
+    )
+
   (clojure.pprint/cl-format nil "(.click page ~A)" "hello")
   (clojure.pprint/cl-format nil "(.~A page ~A)" "hello" "world"))

personal/lsp.el

@@ -64,10 +64,14 @@
    ((t (:inherit nil :background nil :foreground nil :weight semi-bold
                  :box (:line-width -1))))))
 
-(use-package lsp-grammarly
-  :after lsp-mode
-  :ensure t)
+;; (use-package lsp-grammarly
+;;   :after lsp-mode
+;;   :ensure t
+;;   :hook ((latex-mode . lsp)
+;;          (markdown-mode . lsp)
+;;          (org-mode . lsp)))
 
 ;; (setq lsp-ui-doc-position 'at-point)
 ;; (setq lsp-ui-doc-delay 10.0)
+
 ;; (setq lsp-ui-sideline-delay 10.0)