From 1e4a9a99c6eb35bb333f6312d2dc63c23ed39630 Mon Sep 17 00:00:00 2001
From: Antonin Hildebrand <antonin@hildebrand.cz>
Date: Wed, 14 Mar 2018 23:01:20 +0100
Subject: [PATCH] implant: add :scope-content scraper

---
 .../dirac/implant/automation/scrapers.cljs    | 31 ++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/src/implant/dirac/implant/automation/scrapers.cljs b/src/implant/dirac/implant/automation/scrapers.cljs
index 01e2121867..69071ce905 100644
--- a/src/implant/dirac/implant/automation/scrapers.cljs
+++ b/src/implant/dirac/implant/automation/scrapers.cljs
@@ -4,7 +4,6 @@
             [chromex.logging :refer-macros [log warn error info]]
             [cljs.core.async :refer [put! <! chan timeout alts! close! go go-loop]]
             [cljs.pprint :refer [pprint]]
-            [com.rpl.specter :refer [ALL select-first]]
             [dirac.implant.automation.reps :refer [select-subrep select-subreps build-rep]]
             [clojure.walk :refer [prewalk postwalk]]
             [dirac.dom :as dom]
@@ -47,6 +46,26 @@
   (let [{:keys [title content]} rep]
     (str content (if title (str " / " title)))))
 
+; -- scope UI ----------------------------------------------------------------------------------------------------------
+
+(defn find-scope-section-elements []
+  (dom/query-selector "html /deep/ .scope-chain-sidebar-pane-section /deep/ .object-properties-section"))
+
+(defn interesting-scope-tree-item-rep? [rep]
+  (let [class (str (:class rep))]
+    (or (re-find #"name" class)
+        (re-find #"value" class)
+        (re-find #"object-properties-section-custom-section" class))))
+
+(defn extract-scope-info [[rep-name rep-value]]
+  (let [name (str (:content rep-name))
+        value (str (:content rep-value))
+        class (str (:class rep-value))
+        display-value (if (re-find #"object-properties-section-custom-section" class)
+                        "<custom>"
+                        value)]
+    (str name ": " display-value)))
+
 ; -- suggest box UI (code completions) --------------------------------------------------------------------------------------
 
 (defn find-suggest-box-element []
@@ -196,6 +215,16 @@
            (map print-callstack-location)
            (print-list)))
 
+(defmethod scrape :scope-content [_ & _]
+  (safe->> (find-scope-section-elements)
+           (first)
+           (build-rep)
+           (select-subreps interesting-scope-tree-item-rep?)
+           (partition-all 2)
+           (map extract-scope-info)
+           (print-list)
+           ))
+
 (defmethod scrape :suggest-box [_ & _]
   (if-let [suggest-box-el (find-suggest-box-element)]
     (safe->> suggest-box-el