feature/lookup: remove devdocs support (for now)

devdocs-lookup is broken at the moment. devdocs search is still
available through +lookup/online as a provider however. This may be
reversed later, when (and if) we find a better devdocs backend.
This commit is contained in:
Henrik Lissner 2018-08-28 20:48:49 +02:00
parent 5021b0dbb6
commit a57c0fbede
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
7 changed files with 2 additions and 61 deletions

View file

@ -1,22 +0,0 @@
;;; feature/lookup/autoload/devdocs.el -*- lexical-binding: t; -*-
;;;###if (featurep! +devdocs)
;;;###autodef
(defun set-devdocs! (modes docset)
"Map major MODES (one major-mode symbol or a list of them) to a devdocs
DOCSET (a string).
See `devdocs-alist' for the defaults. "
(defer-until! (boundp 'devdocs-alist)
(dolist (mode (doom-enlist modes))
(setf (alist-get mode devdocs-alist) docset))))
;; FIXME obsolete :devdocs
;;;###autoload
(def-setting! :devdocs (modes docset)
"Map major MODES (one major-mode symbol or a list of them) to a devdocs
DOCSET (a string).
See `devdocs-alist' for the defaults. "
:obsolete set-devdocs!
`(set-devdocs! ,modes ,docset))

View file

@ -14,9 +14,3 @@ engine."
"TODO"
(interactive "<a><!>")
(+lookup/in-docsets query (if bang 'blank)))
;;;###autoload (autoload '+lookup:devdocs "feature/lookup/autoload/evil" nil t)
(evil-define-command +lookup:devdocs (query &optional bang)
"TODO"
(interactive "<a><!>")
(+lookup/in-devdocs query (if bang 'blank)))

View file

@ -198,8 +198,7 @@ Goes down a list of possible backends:
1. The :documentation spec defined with by `set-lookup-handlers!'
2. If the +docsets flag is active for :feature lookup, use `+lookup/in-docsets'
3. If the +devdocs flag is active for :feature lookup, run `+lookup/in-devdocs'
4. Fall back to an online search, with `+lookup/online'"
3. Fall back to an online search, with `+lookup/online'"
(interactive
(list (+lookup--symbol-or-region)))
(cond ((and +lookup-documentation-functions
@ -214,9 +213,6 @@ Goes down a list of possible backends:
(helm-dash-installed-docsets))
(+lookup/in-docsets identifier))
((featurep! +devdocs)
(call-interactively #'+lookup/in-devdocs))
((+lookup/online
identifier
(+lookup--online-provider (not current-prefix-arg))))))
@ -272,9 +268,6 @@ Otherwise, falls back on `find-file-at-point'."
;; Source-specific commands
;;
;;;###autoload
(defalias #'+lookup/in-devdocs #'devdocs-lookup)
(defvar counsel-dash-docsets)
(defvar helm-dash-docsets)
;;;###autoload