make article tabable

Author: hlageek

R/mod_document_code.R

@@ -67,6 +67,7 @@ mod_document_code_ui <- function(id) {
               tags$article(
                 id = "article",
                 class = "scrollable80",
+                tabindex = 0,
                 .noWS = "outside"
               ),
               .noWS = "outside"

inst/app/www/document_code_js.js

@@ -38,7 +38,7 @@ function getCaretCharacterOffsetWithin(element) {
 
 function updateSelection() {
   var sel = window.getSelection();
-    // if(window.getSelection().baseNode.parentNode.id != "document_code_ui_1-focal_text") return;
+    if(window.getSelection().anchorNode.parentNode.closest('article') == null) return;
 
     if(sel.rangeCount > 0){
       var range = sel.getRangeAt(0);