74 lines
3 KiB
EmacsLisp
74 lines
3 KiB
EmacsLisp
;;; phobos.el --- view Phobos documentation from within Emacs -*- lexical-binding:t -*-
|
|
|
|
;; Copyright (C) 2024 Jeremy Baxter
|
|
|
|
;; Author: Jeremy Baxter <jeremy@baxters.nz>
|
|
;; Created: July 2024
|
|
;; Keywords: d
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
;; phobos.el is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
;;
|
|
;; phobos.el is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with phobos.el. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; 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'.")
|
|
|
|
(defun phobos (symbol)
|
|
"View the documentation on SYMBOL from the Phobos documentation.
|
|
|
|
SYMBOL can be a module (e.g. std.sumtype), a submodule (e.g.
|
|
std.algorithm.searching), a function or type (e.g. std.stdio.File)
|
|
or any other symbol part of a standard module, such as object.Exception.
|
|
|
|
Phobos is the standard library for the D programming language. For more
|
|
information on Phobos and the D programming language, see <https://dlang.org>."
|
|
(interactive "MModule or symbol: ")
|
|
(shell-command (format "%s %s/%s.html"
|
|
phobos-browser phobos-root
|
|
(string-replace "." "/" symbol))))
|
|
|
|
(defun dub-doc (package &optional symbol)
|
|
"View the documentation on SYMBOL from the dub package PACKAGE.
|
|
|
|
PACKAGE is the name of a package listed on the code.dlang.org registry.
|
|
For more information on SYMBOL, see the documentation for `phobos'. If
|
|
SYMBOL is not provided, the contents of PACKAGE is displayed instead.
|
|
|
|
Support for dub package documentation is provided by Adam Ruppe's
|
|
site hosted at <https://dpldocs.info>."
|
|
(interactive "MPackage name: \nMModule or symbol: ")
|
|
(or symbol (setq symbol "index")) ; index.html
|
|
(shell-command (format "%s https://%s.%s/%s.html"
|
|
phobos-browser package phobos-dpldocs-domain symbol)))
|
|
|
|
(defalias 'view-dub-documentation 'dub-doc)
|
|
|
|
(defun describe-dub-package (package)
|
|
"View the home page for dub package PACKAGE.
|
|
|
|
PACKAGE is the name of a package listed on the code.dlang.org registry.
|
|
Also see `dub-doc' for retrieving documentation for a specific symbol."
|
|
(interactive "MPackage name: ")
|
|
(shell-command (format "%s %s/packages/%s"
|
|
phobos-browser phobos-registry-root package)))
|
|
|
|
(provide 'phobos)
|