factor/misc/fuel/fuel-autodoc.el

93 lines
2.5 KiB
EmacsLisp
Raw Normal View History

2008-12-20 10:51:05 -05:00
;;; fuel-autodoc.el -- doc snippets in the echo area
2009-01-03 10:37:28 -05:00
;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz
2008-12-20 10:51:05 -05:00
;; See http://factorcode.org/license.txt for BSD license.
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
;; Keywords: languages, fuel, factor
;; Start date: Sat Dec 20, 2008 00:50
;;; Comentary:
;; Utilities for displaying information automatically in the echo
;; area.
;;; Code:
(require 'fuel-eval)
(require 'fuel-base)
(require 'factor-mode)
2008-12-20 10:51:05 -05:00
;;; Customization:
;;;###autoload
2008-12-20 10:51:05 -05:00
(defgroup fuel-autodoc nil
"Options controlling FUEL's autodoc system."
2008-12-20 10:51:05 -05:00
:group 'fuel)
(defcustom fuel-autodoc-minibuffer-font-lock t
"Whether to use font lock for info messages in the minibuffer."
:group 'fuel-autodoc
:type 'boolean)
2008-12-30 18:23:44 -05:00
;;; Eldoc function:
(defvar fuel-autodoc--timeout 200)
2008-12-20 10:51:05 -05:00
(defun fuel-autodoc--word-synopsis (&optional word)
(let ((word (or word (factor-symbol-at-point)))
2008-12-20 10:51:05 -05:00
(fuel-log--inhibit-p t))
(when word
(let ((cmd `(:fuel* (,word ,'fuel-word-synopsis)
,(factor-current-vocab)
,(factor-usings))))
(let* ((ret (fuel-eval--send/wait cmd fuel-autodoc--timeout))
(res (fuel-eval--retort-result ret)))
(if (not res)
(message "No synposis for '%s'" word)
(if fuel-autodoc-minibuffer-font-lock
(factor-font-lock-string res)
res)))))))
2008-12-20 10:51:05 -05:00
(defvar-local fuel-autodoc--fallback-function nil)
2008-12-20 10:51:05 -05:00
(defun fuel-autodoc--eldoc-function ()
(or (and fuel-autodoc--fallback-function
(funcall fuel-autodoc--fallback-function))
2009-01-08 21:45:04 -05:00
(condition-case e
(fuel-autodoc--word-synopsis)
(error (format "Autodoc not available (%s)"
(error-message-string e))))))
2008-12-20 10:51:05 -05:00
2008-12-30 18:23:44 -05:00
;;; Autodoc mode:
(defvar-local fuel-autodoc-mode-string " A"
"Modeline indicator for fuel-autodoc-mode")
2008-12-20 10:51:05 -05:00
;;;###autoload
2008-12-20 10:51:05 -05:00
(define-minor-mode fuel-autodoc-mode
"Toggle Fuel's Autodoc mode.
With no argument, this command toggles the mode.
Non-null prefix argument turns on the mode.
Null prefix argument turns off the mode.
When Autodoc mode is enabled, a synopsis of the word at point is
displayed in the minibuffer."
:init-value nil
:lighter fuel-autodoc-mode-string
:group 'fuel-autodoc
(setq-local eldoc-documentation-function
2008-12-20 10:51:05 -05:00
(when fuel-autodoc-mode 'fuel-autodoc--eldoc-function))
(setq-local eldoc-minor-mode-string nil)
2008-12-20 10:51:05 -05:00
(eldoc-mode fuel-autodoc-mode)
(message "Fuel Autodoc %s" (if fuel-autodoc-mode "enabled" "disabled")))
(provide 'fuel-autodoc)
2008-12-20 10:51:05 -05:00
;;; fuel-autodoc.el ends here