Collapse on Ctrl+Click only

raku-community-modules · Jan 14, 2018 · 4cedaeb · 4cedaeb
1 parent bddb8ab
commit 4cedaeb
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 84 deletions.
diff --git a/bin/q-corehackers.p6 → bin/q b/bin/q-corehackers.p6 → bin/q
@@ -3,14 +3,19 @@
 use lib $*PROGRAM.sibling: '../lib';
 use CoreHackers::Q;
 
+my $out := (%*ENV<COREHACKERS_Q_FILE> // 'out.html').IO.open: :w;
+
 multi MAIN('a', *@args) {
+    my $*OUT := $out;
     CoreHackers::Q.new.run: @args;
 }
 
 multi MAIN('o', *@args) {
+    my $*OUT := $out;
     CoreHackers::Q.new.run: @args, :opt;
 }
 
 multi MAIN('z', *@args) {
+    my $*OUT := $out;
     CoreHackers::Q.new.zero-run: @args, :opt;
 }
diff --git a/lib/CoreHackers/Q/Parser/Actions.pm6 b/lib/CoreHackers/Q/Parser/Actions.pm6
@@ -10,89 +10,20 @@ method TOP($/) {
       <meta http-equiv="X-UA-Compatible" content="IE=edge">
       <meta name="viewport" content="width=device-width, initial-scale=1">
       <title>Perl 6 QAST Viewer</title>
-      <!-- CSS INSERT START --><style>
-      * {
-          margin: 0;
-          padding: 0;
-      }
-
-      html {
-          background: #ddc;
-          color: #333;
-      }
-
-      body {
-          width: 1200px;
-          margin: 20px auto;
-      }
-
-      li {
-          list-style: none;
-      }
-      li li {
-          padding-left: 2em;
-          border-left: 1px dotted #333;
-      }
-
-      .node-with-kids:before {
-          content: "[-]";
-          font-size: 80%;
-          font-family: monospace;
-          color: #66c;
-      }
-      .node-with-kids.collapsed:before {
-          content: "[+]";
-      }
-
-      .qast-sunk {
-          background: rgba(150, 150, 200, .1);
-      }
-      .qast-sunk .qast-sunk .qast-sunk .qast-sunk .qast-sunk {
-          background: none;
-      }
-
-      .qast-name-vm {
-          opacity: .5;
-      }
-      .qast-name-var {
-          color: #d0d;
-      }
-      .qast-name-wval {
-          color: #00a;
-      }
-      .qast-static-call {
-          color: green;
-      }
-      .qast-call {
-          color: red;
-      }
-      .qast-want-v {
-          color: #999;
-          opacity: .5;
-      }
-
-      </style><!-- CSS INSERT END -->
+      <!-- CSS INSERT START -->
+      <link rel="stylesheet" href="/home/zoffix/q/main.css">
+      <!-- CSS INSERT END -->
       <script
           src="https://code.jquery.com/jquery-3.2.1.min.js"
           integrity="sha256-hwg4gsxgFZhOsEEamdOYGBf13FyQuiTwlAQgxVSNgt4="
           crossorigin="anonymous"></script>
-      <!-- JS INSERT START --><script>
-      jQuery(function ($) {
-          setup_nodes();
-      });
-
-      function setup_nodes() {
-          $('body').css({'height': document.body.scrollHeight + 'px'});
-          $('.node-with-kids').on('click', function(e) {
-              e.stopPropagation();
-              console.log("meow");
-              $(this).find('> ul').toggle('fast', function() {
-                  $(this).parent('.node-with-kids').toggleClass('collapsed');
-              });
-          });
-      }
+      <!-- JS INSERT START -->
+      <script src="/home/zoffix/q/main.js"></script>
+      <!-- JS INSERT END -->
 
-      </script><!-- JS INSERT END -->
+      <div id="info-panel">
+        <p><kbd>Ctrl+Click</kbd> to collapse/uncollapse nodes</p>
+      </diV>
       ♥
 }
 

diff --git a/main.css b/main.css
@@ -4,7 +4,7 @@
 }
 
 html {
-    background: #ddc;
+    background: #ddddd2;
     color: #333;
 }
 
@@ -21,6 +21,13 @@ li li {
     border-left: 1px dotted #333;
 }
 
+#info-panel {
+    padding: 20px;
+    border: 1px solid #444;
+    margin-bottom: 20px;
+    background: #ddc;
+}
+
 .node-with-kids:before {
     content: "[-]";
     font-size: 80%;

diff --git a/main.js b/main.js
@@ -4,11 +4,13 @@ jQuery(function ($) {
 
 function setup_nodes() {
     $('body').css({'height': document.body.scrollHeight + 'px'});
+
     $('.node-with-kids').on('click', function(e) {
-        e.stopPropagation();
-        console.log("meow");
-        $(this).find('> ul').toggle('fast', function() {
-            $(this).parent('.node-with-kids').toggleClass('collapsed');
-        });
+        if (e.ctrlKey) {
+            e.stopPropagation();
+            $(this).find('> ul').toggle('fast', function() {
+                $(this).parent('.node-with-kids').toggleClass('collapsed');
+            });
+        }
     });
 }