[nongnu] elpa/devhelp 3a31a672f4 13/13: Add Guix-specific search directories by default

[ELPA Syncer]

branch: elpa/devhelp
commit 3a31a672f43a89c51d8991ac27870181591ffaf3
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Add Guix-specific search directories by default
---
 devhelp.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/devhelp.el b/devhelp.el
index f523c408ab..43b928d74f 100644
--- a/devhelp.el
+++ b/devhelp.el
@@ -85,8 +85,16 @@ width."
   :type 'boolean)
 
 (defcustom devhelp-search-directories
-  '("/usr/share/doc/" "/usr/share/gtk-doc/html/"
-    "/usr/local/share/doc/"  "/usr/local/share/gtk-doc/html/")
+  `("/usr/share/doc/" "/usr/share/gtk-doc/html/"
+    "/usr/local/share/doc/"  "/usr/local/share/gtk-doc/html/"
+    ,@(mapcan (lambda (dir)
+                (when (and (file-exists-p dir)
+                           (file-directory-p dir))
+                  (list dir)))
+              '("/run/current-system/profile/share/doc/"
+                "/run/current-system/profile/share/gtk-doc/html/"
+                "~/.guix-profile/share/doc/"
+                "~/.guix-profile/share/gtk-doc/html/")))
   "List of directories to search for Devhelp books.
 
 Note that on GNU Guix, Nix or other FHS (Filesystem Hierarchy