From a50c278fa33149f8ad07c2d287b4c29374bef2f8 Mon Sep 17 00:00:00 2001 From: Jeremy Baxter Date: Wed, 17 Jul 2024 19:25:55 +1200 Subject: [PATCH] phobos.el: declare a customization group --- phobos.el | 29 +++++++++++++++++++++-------- 1 file changed, 21 insertions(+), 8 deletions(-) diff --git a/phobos.el b/phobos.el index 3e65f1c..e2726b3 100644 --- a/phobos.el +++ b/phobos.el @@ -23,14 +23,27 @@ ;;; Code: -(defvar phobos-browser "xdg-open" - "Web browser to use when opening documentation with `phobos'.") -(defvar phobos-root "https://dlang.org/library" - "Root URL to use when viewing documentation with `phobos'.") -(defvar phobos-dpldocs-domain "dpldocs.info" - "Root domain to use when viewing documentation on dub packages with `dub-doc'.") -(defvar phobos-registry-root "https://code.dlang.org" - "Root URL of the D package registry used with `describe-dub-package'.") +(defgroup phobos nil + "View D documentation from within Emacs." + :prefix "phobos-" + :group 'languages) + +(defcustom phobos-browser "xdg-open" + "Web browser to use when opening documentation with `phobos'." + :group 'phobos + :type 'string) +(defcustom phobos-root "https://dlang.org/library" + "Root URL to use when viewing documentation with `phobos'." + :group 'phobos + :type 'string) +(defcustom phobos-dpldocs-domain "dpldocs.info" + "Root domain to use when viewing documentation on dub packages with `dub-doc'." + :group 'phobos + :type 'string) +(defcustom phobos-registry-root "https://code.dlang.org" + "Root URL of the D package registry used with `describe-dub-package'." + :group 'phobos + :type 'string) (defun phobos--visit (&rest format-args) (let ((url (apply #'format format-args)))