1 ;;; fuel-autodoc.el -- doc snippets in the echo area
3 ;; Copyright (C) 2008 Jose Antonio Ortega Ruiz
4 ;; See http://factorcode.org/license.txt for BSD license.
6 ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
7 ;; Keywords: languages, fuel, factor
8 ;; Start date: Sat Dec 20, 2008 00:50
12 ;; Utilities for displaying information automatically in the echo
18 (require 'fuel-font-lock)
19 (require 'fuel-syntax)
25 (defgroup fuel-autodoc nil
26 "Options controlling FUEL's autodoc system."
29 (defcustom fuel-autodoc-minibuffer-font-lock t
30 "Whether to use font lock for info messages in the minibuffer."
36 ;;; Highlighting for autodoc messages:
38 (defvar fuel-autodoc--font-lock-buffer
39 (let ((buffer (get-buffer-create " *fuel help minibuffer messages*")))
41 (set-syntax-table fuel-syntax--syntax-table)
42 (fuel-font-lock--font-lock-setup)
45 (defun fuel-autodoc--font-lock-str (str)
46 (set-buffer fuel-autodoc--font-lock-buffer)
49 (let ((font-lock-verbose nil)) (font-lock-fontify-buffer))
55 (defvar fuel-autodoc--timeout 200)
57 (defun fuel-autodoc--word-synopsis (&optional word)
58 (let ((word (or word (fuel-syntax-symbol-at-point)))
59 (fuel-log--inhibit-p t))
61 (let* ((cmd (if (fuel-syntax--in-using)
62 `(:fuel* (,word fuel-vocab-summary) :in t)
63 `(:fuel* (((:quote ,word) synopsis :get)) :in)))
64 (ret (fuel-eval--send/wait cmd fuel-autodoc--timeout))
65 (res (fuel-eval--retort-result ret)))
66 (when (and ret (not (fuel-eval--retort-error ret)) (stringp res))
67 (if fuel-autodoc-minibuffer-font-lock
68 (fuel-autodoc--font-lock-str res)
71 (make-variable-buffer-local
72 (defvar fuel-autodoc--fallback-function nil))
74 (defun fuel-autodoc--eldoc-function ()
75 (or (and fuel-autodoc--fallback-function
76 (funcall fuel-autodoc--fallback-function))
77 (fuel-autodoc--word-synopsis)))
82 (make-variable-buffer-local
83 (defvar fuel-autodoc-mode-string " A"
84 "Modeline indicator for fuel-autodoc-mode"))
86 (define-minor-mode fuel-autodoc-mode
87 "Toggle Fuel's Autodoc mode.
88 With no argument, this command toggles the mode.
89 Non-null prefix argument turns on the mode.
90 Null prefix argument turns off the mode.
92 When Autodoc mode is enabled, a synopsis of the word at point is
93 displayed in the minibuffer."
95 :lighter fuel-autodoc-mode-string
98 (set (make-local-variable 'eldoc-documentation-function)
99 (when fuel-autodoc-mode 'fuel-autodoc--eldoc-function))
100 (set (make-local-variable 'eldoc-minor-mode-string) nil)
101 (eldoc-mode fuel-autodoc-mode)
102 (message "Fuel Autodoc %s" (if fuel-autodoc-mode "enabled" "disabled")))
105 (provide 'fuel-autodoc)
106 ;;; fuel-autodoc.el ends here