Merge branch 'clojure-emacs:master' into fix-remote-enrich-classpath-init

Author: vroide

.github/stale.yml

@@ -0,0 +1,36 @@
+name: Close inactive issues and pull requests
+on:
+  schedule:
+    - cron: "30 1 * * *"
+
+jobs:
+  close-issues:
+    runs-on: ubuntu-latest
+    permissions:
+      issues: write
+      pull-requests: write
+    steps:
+      - uses: actions/stale@v9
+        with:
+          days-before-issue-stale: 30
+          days-before-issue-close: 30
+          stale-issue-label: "stale"
+          exempt-issue-labels: "high priority, good first issue, pinned"
+          stale-issue-message: >-
+            This issue has been automatically marked as stale because it has not
+            had any recent activity. It will be closed soon if no further
+            activity occurs. Thank you for your contribution and understanding!
+          close-issue-message: >-
+            This issue been automatically closed due to lack of activity. Feel free to re-open it
+            if you ever come back to it.
+          days-before-pr-stale: 30
+          days-before-pr-close: 30
+          exempt-pr-labels: "high priority, good first issue, pinned"
+          stale-pr-message: >-
+            This pull request has been automatically marked as stale because it has not
+            had any recent activity. It will be closed soon if no further
+            activity occurs. Thank you for your contribution and understanding!
+          close-pr-message: >-
+            This issue been automatically closed due to lack of activity. Feel free to re-open it
+            if you ever come back to it.
+          repo-token: ${{ secrets.GITHUB_TOKEN }}

.github/workflows/stale.yml

@@ -3,12 +3,14 @@
 ## master (unreleased)
 
 ### New features
+
+- Automatic downloading of third-party Java sources for better Java documentation and jump-to-definition functionality. See [Obtaining source JARs](https://docs.cider.mx/cider/usage/working_with_documentation.html#obtaining-source-jars).
 - CIDER [History](https://docs.cider.mx/cider/repl/history.html): Add a command to delete history item at point.
 
 ### Changes
 
 - Bump the injected nREPL version to [1.3.1](https://github.com/nrepl/nrepl/blob/master/CHANGELOG.md#131-2025-01-01).
-- Bump the injected `cider-nrepl` to [0.51.0](https://github.com/clojure-emacs/cider-nrepl/blob/master/CHANGELOG.md#0510-2025-01-01).
+- Bump the injected `cider-nrepl` to [0.52.0](https://github.com/clojure-emacs/cider-nrepl/blob/master/CHANGELOG.md#0520-2025-01-10).
 - [#3574](https://github.com/clojure-emacs/cider/issues/3574): New value `per-project` for `cider-repl-history-file` to save the history on a per-project basis.
 
 ### Bugs fixed

CHANGELOG.md

@@ -263,7 +263,7 @@ site. [[Become a sponsor](https://opencollective.com/cider#sponsor)]
 
 CIDER is distributed under the GNU General Public License, version 3.
 
-Copyright © 2012-2024 Bozhidar Batsov, Artur Malabarba, Tim King, Phil Hagelberg and
+Copyright © 2012-2025 Bozhidar Batsov, Artur Malabarba, Tim King, Phil Hagelberg and
 [contributors](https://github.com/clojure-emacs/cider/contributors).
 
 [badge-license]: https://img.shields.io/badge/license-GPL_3-green.svg

README.md

@@ -1,6 +1,6 @@
 ;;; cider-apropos.el --- Apropos functionality for Clojure -*- lexical-binding: t -*-
 
-;; Copyright © 2014-2024 Jeff Valk, Bozhidar Batsov and CIDER contributors
+;; Copyright © 2014-2025 Jeff Valk, Bozhidar Batsov and CIDER contributors
 ;;
 ;; Author: Jeff Valk <[email protected]>
 

cider-apropos.el

@@ -1,6 +1,6 @@
 ;;; cider-browse-ns.el --- CIDER namespace browser  -*- lexical-binding: t; -*-
 
-;; Copyright © 2014-2024 John Andrews, Bozhidar Batsov and CIDER contributors
+;; Copyright © 2014-2025 John Andrews, Bozhidar Batsov and CIDER contributors
 
 ;; Author: John Andrews <[email protected]>
 

cider-browse-ns.el

@@ -1,6 +1,6 @@
 ;;; cider-browse-spec.el --- CIDER spec browser  -*- lexical-binding: t; -*-
 
-;; Copyright © 2017-2024 Juan Monetta, Bozhidar Batsov and CIDER contributors
+;; Copyright © 2017-2025 Juan Monetta, Bozhidar Batsov and CIDER contributors
 
 ;; Author: Juan Monetta <[email protected]>
 

cider-browse-spec.el

@@ -1,6 +1,6 @@
 ;;; cider-cheatsheet.el --- Quick reference for Clojure        -*- lexical-binding: t -*-
 
-;; Copyright © 2019-2024 Kris Jenkins, Bozhidar Batsov and CIDER contributors
+;; Copyright © 2019-2025 Kris Jenkins, Bozhidar Batsov and CIDER contributors
 ;;
 ;; Author: Kris Jenkins <[email protected]>
 ;;         Kato Muso <[email protected]>

cider-cheatsheet.el

@@ -1,6 +1,6 @@
 ;;; cider-classpath.el --- Basic Java classpath browser  -*- lexical-binding: t; -*-
 
-;; Copyright © 2014-2024 Bozhidar Batsov and CIDER contributors
+;; Copyright © 2014-2025 Bozhidar Batsov and CIDER contributors
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

cider-classpath.el

@@ -1,6 +1,6 @@
 ;;; cider-client.el --- A layer of abstraction above low-level nREPL client code. -*- lexical-binding: t -*-
 
-;; Copyright © 2013-2024 Bozhidar Batsov
+;; Copyright © 2013-2025 Bozhidar Batsov
 ;;
 ;; Author: Bozhidar Batsov <[email protected]>
 
@@ -189,16 +189,20 @@ the current connection.  Return the id of the sent message.
 If TOOLING is truthy then the tooling session is used."
   (nrepl-send-request request callback (or connection (cider-current-repl 'any 'ensure)) tooling))
 
-(defun cider-nrepl-send-sync-request (request &optional connection abort-on-input)
+(defun cider-nrepl-send-sync-request (request &optional connection
+                                              abort-on-input callback)
   "Send REQUEST to the nREPL server synchronously using CONNECTION.
 Hold till final \"done\" message has arrived and join all response messages
 of the same \"op\" that came along and return the accumulated response.
 If ABORT-ON-INPUT is non-nil, the function will return nil
 at the first sign of user input, so as not to hang the
-interface."
+interface.
+if CALLBACK is non-nil, it will additionally be called on all received messages."
   (nrepl-send-sync-request request
                            (or connection (cider-current-repl 'any 'ensure))
-                           abort-on-input))
+                           abort-on-input
+                           nil
+                           callback))
 
 (defun cider-nrepl-send-unhandled-request (request &optional connection)
   "Send REQUEST to the nREPL CONNECTION and ignore any responses.
@@ -342,6 +346,17 @@ The default value in nREPL is 1024."
   :group 'cider
   :package-version '(cider . "0.25.0"))
 
+(defcustom cider-download-java-sources nil
+  "Whether to automatically download source artifacts for 3rd-party Java classes.
+
+When enabled, CIDER will attempt to download source JARs from Maven for
+Java classes if the source file is not found locally.  This downloading only
+happens once per artifact, and only when the user jumps to definition or
+requests `cider-doc' on a Java class or a member of the class."
+  :type 'boolean
+  :group 'cider
+  :package-version '(cider . "1.17.0"))
+
 (defun cider--print-fn ()
   "Return the value to send in the nrepl.middleware.print/print slot."
   (pcase cider-print-fn
@@ -681,13 +696,25 @@ CONTEXT represents a completion context for compliment."
 
 (defun cider-sync-request:info (symbol &optional class member context)
   "Send \"info\" op with parameters SYMBOL or CLASS and MEMBER, honor CONTEXT."
-  (let ((var-info (thread-first `("op" "info"
-                                  "ns" ,(cider-current-ns)
-                                  ,@(when symbol `("sym" ,symbol))
-                                  ,@(when class `("class" ,class))
-                                  ,@(when member `("member" ,member))
-                                  ,@(when context `("context" ,context)))
-                                (cider-nrepl-send-sync-request (cider-current-repl)))))
+  (let* ((req
+          `("op" "info"
+            "ns" ,(cider-current-ns)
+            ,@(when symbol `("sym" ,symbol))
+            ,@(when class `("class" ,class))
+            ,@(when member `("member" ,member))
+            ,@(when context `("context" ,context))
+            ,@(when cider-download-java-sources `("download-sources-jar" "1"))))
+         (callback
+          (lambda (resp)
+            (let ((status (nrepl-dict-get resp "status"))
+                  (coords (nrepl-dict-get resp "coords")))
+              (when (member "download-sources-jar" status)
+                (message "Local source not found, downloading Java sources for artifact %s/%s %s..."
+                         (nrepl-dict-get coords "group")
+                         (nrepl-dict-get coords "artifact")
+                         (nrepl-dict-get coords "version"))))))
+         (var-info
+          (cider-nrepl-send-sync-request req (cider-current-repl) nil callback)))
     (if (member "no-info" (nrepl-dict-get var-info "status"))
         nil
       var-info)))