Implement more handlers

.Rbuildignore

@@ -9,3 +9,4 @@ man-roxygen
 ^.lintr$
 ^CRAN-SUBMISSION$
 ^\.devcontainer$
+^\.github$

.github/.gitignore

@@ -0,0 +1 @@
+*.html

.github/workflows/coverage.yml

@@ -1,86 +1,70 @@
-name: Coverage
-
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
-    branches:
-      - master
+    branches: [main, master]
   pull_request:
-    branches:
-      - master
+    branches: [main, master]
 
-jobs:
-  cleanup:
-    name: Cancel Previous Runs
-    runs-on: ubuntu-latest
-    steps:
-      - uses: styfle/cancel-workflow-action@0.12.1
-        with:
-          access_token: ${{ github.token }}
+name: Coverage
+
+permissions: read-all
 
-  codecov:
+jobs:
+  test-coverage:
     if: contains(github.event.head_commit.message, '[ci skip]') == false
-    name: codecov ${{ matrix.os }}
-    strategy:
-      fail-fast: false
-      matrix:
-        include:
-          # - os: ubuntu-latest
-            # log_file: /tmp/languageserver/ubuntu-log
-          - os: macos-latest
-            log_file: /tmp/languageserver/macos-log
-          # - os: windows-latest
-            # log_file: C:/tmp/languageserver/windows-log
-    runs-on: ${{ matrix.os }}
+    runs-on: ubuntu-latest
     env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
       NOT_CRAN: true
       _R_CHECK_CRAN_INCOMING_: false
       R_LANGSVR_LOG: ${{ matrix.log_file }}
       R_LANGSVR_POOL_SIZE: 1
       R_LANGSVR_TEST_FAST: NO
+
     steps:
       - uses: actions/checkout@v4
+
       - uses: r-lib/actions/setup-r@v2
         with:
+          use-public-rspm: true
           r-version: release
-      - name: Create log directory on Linux or macOS
-        if: runner.os != 'Windows'
-        run: mkdir -p $(dirname ${{ env.R_LANGSVR_LOG }})
-      - name: Create log directory on Windows
-        if: runner.os == 'Windows'
-        run: New-Item -ItemType directory -Path (Split-Path -Parent ${{ env.R_LANGSVR_LOG }})
-      - name: Query dependencies
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::covr, any::xml2
+          needs: coverage
+
+      - name: Test coverage
         run: |
-          install.packages('remotes')
-          saveRDS(remotes::dev_package_deps(dependencies = TRUE), ".github/depends.Rds", version = 2)
-          writeLines(sprintf("R-%i.%i", getRversion()$major, getRversion()$minor), ".github/R-version")
+          cov <- covr::package_coverage(
+            quiet = FALSE,
+            clean = FALSE,
+            install_path = file.path(normalizePath(Sys.getenv("RUNNER_TEMP"), winslash = "/"), "package")
+          )
+          print(cov)
+          covr::to_cobertura(cov)
         shell: Rscript {0}
-      - name: Restore R package cache
-        uses: actions/cache@v4
+
+      - uses: codecov/codecov-action@v5
         with:
-          path: ${{ env.R_LIBS_USER }}
-          key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('.github/depends.Rds') }}
-          restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-
-      - name: Install system dependencies
-        if: runner.os == 'Linux'
-        run: |
-          while read -r cmd
-          do
-            eval sudo $cmd
-          done < <(Rscript -e 'writeLines(remotes::system_requirements("ubuntu", "20.04"))')
-      - name: Install dependencies
-        run: |
-          Rscript -e "remotes::install_deps(dependencies = TRUE)"
-          Rscript -e "remotes::install_cran('covr')"
-      - name: Install a sperate copy on Windows
-        if:  runner.os == 'Windows'
+          # Fail if error if not on PR, or if on PR and token is given
+          fail_ci_if_error: ${{ github.event_name != 'pull_request' || secrets.CODECOV_TOKEN }}
+          files: ./cobertura.xml
+          plugins: noop
+          disable_search: true
+          token: ${{ secrets.CODECOV_TOKEN }}
+
+      - name: Show testthat output
+        if: always()
         run: |
-          Rscript -e "remotes::install_local()"
-      - name: Codecov
-        run: Rscript -e "covr::codecov()"
-        env:
-          CODECOV_TOKEN: ${{secrets.CODECOV_TOKEN}}
-      - uses: actions/upload-artifact@v4
+          ## --------------------------------------------------------------------
+          find '${{ runner.temp }}/package' -name 'testthat.Rout*' -exec cat '{}' \; || true
+        shell: bash
+
+      - name: Upload test results
         if: failure()
+        uses: actions/upload-artifact@v4
         with:
-          name: ${{ runner.os }}-log
-          path: ${{ env.R_LANGSVR_LOG }}
+          name: coverage-test-failures
+          path: ${{ runner.temp }}/package

.lintr

@@ -5,4 +5,6 @@ linters: linters_with_defaults(
     object_name_linter = NULL,
     commented_code_linter = NULL,
     cyclocomp_linter = NULL,
+    pipe_consistency_linter = NULL,
+    trailing_whitespace_linter = NULL,
     indentation_linter(indent = 4, hanging_indent_style = "never"))

DESCRIPTION

@@ -2,7 +2,7 @@ Type: Package
 Package: languageserver
 Title: Language Server Protocol
 Version: 0.3.16.9001
-Date: 2023-08-17
+Date: 2026-02-20
 Authors@R: 
     c(person(given = "Randy",
              family = "Lai",
@@ -23,6 +23,7 @@ Depends:
 Imports:
     callr (>= 3.0.0),
     collections (>= 0.3.0),
+    digest,
     fs (>= 1.3.1),
     jsonlite (>= 1.6),
     lintr (>= 3.0.0),
@@ -49,6 +50,6 @@ ByteCompile: yes
 Encoding: UTF-8
 NeedsCompilation: yes
 Roxygen: list(markdown = TRUE, r6 = FALSE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.3.3
 Config/testthat/edition: 3
 Config/Needs/development: testthat, magrittr, mockery, purrr, withr, rmarkdown

NAMESPACE

@@ -4,5 +4,6 @@ export(run)
 import(callr)
 import(xml2)
 importFrom(R6,R6Class)
+importFrom(digest,digest)
 importFrom(parallel,detectCores)
 useDynLib(languageserver)

R/capabilities.R

@@ -46,6 +46,23 @@ ExecuteCommandOptions <- list(
     commands = NULL
 )
 
+SemanticTokensOptions <- list(
+    legend = list(
+        tokenTypes = c(
+            "namespace", "type", "class", "enum", "interface", "struct",
+            "typeParameter", "parameter", "variable", "property", "enumMember",
+            "event", "function", "method", "macro", "keyword", "modifier",
+            "comment", "string", "number", "regexp", "operator", "decorator"
+        ),
+        tokenModifiers = c(
+            "declaration", "definition", "readonly", "static", "deprecated",
+            "abstract", "async", "modification", "documentation", "defaultLibrary"
+        )
+    ),
+    full = TRUE,
+    range = TRUE
+)
+
 ServerCapabilities <- list(
     textDocumentSync = TextDocumentSyncOptions,
     hoverProvider = TRUE,
@@ -68,9 +85,10 @@ ServerCapabilities <- list(
     colorProvider = TRUE,
     foldingRangeProvider = TRUE,
     selectionRangeProvider = TRUE,
-    callHierarchyProvider = TRUE
+    callHierarchyProvider = TRUE,
+    typeHierarchyProvider = TRUE,
+    semanticTokensProvider = SemanticTokensOptions
     # linkedEditingRangeProvider = FALSE,
-    # semanticTokensProvider = FALSE,
     # monikerProvider = FALSE,
     # executeCommandProvider = ExecuteCommandOptions,
     # workspace = list()

R/code_action.R

@@ -13,7 +13,8 @@ CodeActionKind <- list(
 #'
 #' @keywords internal
 document_code_action_reply <- function(id, uri, workspace, document, range, context) {
-    result <- list()
+    result <- vector("list", length(context$diagnostics) * 2)
+    idx <- 0L
     listed_linters <- character()
 
     for (item in context$diagnostics) {
@@ -72,7 +73,8 @@ document_code_action_reply <- function(id, uri, workspace, document, range, cont
                     )
                 )
 
-                result <- c(result, list(action))
+                idx <- idx + 1L
+                result[[idx]] <- action
                 listed_linters <- c(listed_linters, "*")
             }
 
@@ -113,12 +115,19 @@ document_code_action_reply <- function(id, uri, workspace, document, range, cont
                     )
                 )
 
-                result <- c(result, list(action))
+                idx <- idx + 1L
+                result[[idx]] <- action
                 listed_linters <- c(listed_linters, item$code)
             }
         }
     }
 
+    if (idx == 0L) {
+        result <- list()
+    } else if (idx < length(result)) {
+        result <- result[seq_len(idx)]
+    }
+
     logger$info("document_code_action_reply: ", list(
         uri = uri,
         range = range,