kj/confi-emacs-actual
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improve devdocs config and re-enable it.

Browse Source
This commit is contained in:
kj
2025-08-07 23:07:48 -03:00
parent fac74ab714
commit 9727ed4949
1 changed files with 24 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
configs/init-prog.el
View File

@ -96,55 +96,31 @@
(sit-for 0.75))))) (sit-for 0.75)))))
;; Browse devdocs.io documents using EWW ;; Browse devdocs.io documents using EWW
;; (use-package devdocs (use-package devdocs
;; :autoload (devdocs--installed-docs devdocs--available-docs) :autoload (devdocs--installed-docs devdocs--available-docs)
;; :commands (devdocs-install devdocs-lookup) :commands (devdocs-install devdocs-lookup)
;; :bind (:map prog-mode-map :bind (:map prog-mode-map
;; ("M-<f1>" . devdocs-dwim)) ("M-<f1>" . devdocs-dwim))
;; :init :init
;; (defconst devdocs-major-mode-docs-alist (setq devdocs-data-dir (expand-file-name "devdocs" user-emacs-directory))
;; '((c-mode . ("c")) (defun devdocs-dwim()
;; (c++-mode . ("cpp")) "Look up a DevDocs documentation entry.
;; (python-mode . ("python~3.10" "python~2.7")) Install the doc if it's not installed."
;; (ruby-mode . ("ruby~3.1")) (interactive)
;; (rustic-mode . ("rust")) ;; Install the doc if it's not installed
;; (css-mode . ("css")) (lambda (slug)
;; (html-mode . ("html")) (unless (member slug (let ((default-directory devdocs-data-dir))
;; (julia-mode . ("julia~1.8")) (seq-filter #'file-directory-p
;; (js-mode . ("javascript" "jquery")) (when (file-directory-p devdocs-data-dir)
;; (emacs-lisp-mode . ("elisp"))) (directory-files "." nil "^[^.]")))))
;; "Alist of major-mode and docs.") (mapc
(lambda (doc)
(when (string= (alist-get 'slug doc) slug)
(devdocs-install doc)))
(devdocs--available-docs))))
;; (mapc ;; Lookup the symbol at point
;; (lambda (mode) (devdocs-lookup nil (thing-at-point 'symbol t))))
;; (add-hook (intern (format "%s-hook" (car mode)))
;; (lambda ()
;; (setq-local devdocs-current-docs (cdr mode)))))
;; devdocs-major-mode-docs-alist)
;; (setq devdocs-data-dir (expand-file-name "devdocs" user-emacs-directory))
;; (defun devdocs-dwim()
;; "Look up a DevDocs documentation entry.
;; Install the doc if it's not installed."
;; (interactive)
;; ;; Install the doc if it's not installed
;; (mapc
;; (lambda (slug)
;; (unless (member slug (let ((default-directory devdocs-data-dir))
;; (seq-filter #'file-directory-p
;; (when (file-directory-p devdocs-data-dir)
;; (directory-files "." nil "^[^.]")))))
;; (mapc
;; (lambda (doc)
;; (when (string= (alist-get 'slug doc) slug)
;; (devdocs-install doc)))
;; (devdocs--available-docs))))
;; (alist-get major-mode devdocs-major-mode-docs-alist))
;; ;; Lookup the symbol at point
;; (devdocs-lookup nil (thing-at-point 'symbol t))))
;; --------------------------------------------------------------------------- ;; ---------------------------------------------------------------------------
;; Miscellaneous Programming Modes ;; Miscellaneous Programming Modes