rde: rde: Add feature-emacs-devdocs v1 APPLIED

Nicolas Graves: 1
 rde: Add feature-emacs-devdocs

 1 files changed, 31 insertions(+), 1 deletions(-)

[PATCH rde] rde: Add feature-emacs-devdocs Export this patch

---
 src/rde/features/emacs-xyz.scm | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/src/rde/features/emacs-xyz.scm b/src/rde/features/emacs-xyz.scm
index b52f1e46c..5bf2fa5f6 100644
--- a/src/rde/features/emacs-xyz.scm
+++ b/src/rde/features/emacs-xyz.scm
@@ -3,7 +3,7 @@
 ;;; Copyright © 2022, 2023, 2024 Andrew Tropin <andrew@trop.in>
 ;;; Copyright © 2022 Samuel Culpepper <samuel@samuelculpepper.com>
 ;;; Copyright © 2022 Demis Balbach <db@minikn.xyz>
-;;; Copyright © 2022, 2023 Nicolas Graves <ngraves@ngraves.fr>
+;;; Copyright © 2022, 2023, 2024 Nicolas Graves <ngraves@ngraves.fr>
 ;;; Copyright © 2022, 2023 Miguel Ángel Moreno <me@mianmoreno.com>
 ;;; Copyright © 2023 Benoit Joly <benoit@benoitj.ca>
 ;;;
@@ -107,6 +107,7 @@
             feature-emacs-nov-el
             feature-emacs-elfeed
             feature-emacs-info
+            feature-emacs-devdocs
 
             ;; Notetaking
             feature-emacs-org
@@ -4027,6 +4028,35 @@ built-in help that provides much more contextual information."
    (values `((,f-name . ,emacs-info-plus)))
    (home-services-getter get-home-services)))
 
+(define* (feature-emacs-devdocs
+          #:key
+          (emacs-devdocs emacs-devdocs))
+  "Configure Info-like documentation viewer for reading various
+DevDocs documentations."
+  (ensure-pred file-like? emacs-devdocs)
+
+  (define emacs-f-name 'devdocs)
+  (define f-name (symbol-append 'emacs- emacs-f-name))
+
+  (define (get-home-services config)
+    "Return home services related to DevDocs."
+    (list
+     (rde-elisp-configuration-service
+      emacs-f-name
+      config
+      `((global-set-key (kbd "C-h D") 'devdocs-lookup)
+        (autoload 'devdocs-lookup "devdocs")
+        (with-eval-after-load 'devdocs
+          (setq devdocs-data-dir
+                (concat (getenv "XDG_STATE_HOME")
+                        "/devdocs"))))
+      #:elisp-packages (list emacs-devdocs))))
+
+  (feature
+   (name f-name)
+   (values `((,f-name . ,emacs-devdocs)))
+   (home-services-getter get-home-services)))
+
 

 ;;;
 ;;; Notetaking.
-- 
2.46.0

builds.sr.ht <builds@sr.ht>

7 months ago

rde/patches/.build.yml: SUCCESS in 11m55s

[rde: Add feature-emacs-devdocs][0] from [Nicolas Graves][1]

[0]: https://lists.sr.ht/~abcdw/rde-devel/patches/54979
[1]: mailto:ngraves@ngraves.fr

✓ #1324305 SUCCESS rde/patches/.build.yml https://builds.sr.ht/~abcdw/job/1324305