FUEL: this defcustom is unused
parent
fa91537935
commit
780bbd49cf
|
@ -22,7 +22,6 @@
|
||||||
|
|
||||||
(require 'comint)
|
(require 'comint)
|
||||||
|
|
||||||
|
|
||||||
;;; Customization:
|
;;; Customization:
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
@ -52,12 +51,6 @@ the factor-listener buffer."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'fuel-listener)
|
:group 'fuel-listener)
|
||||||
|
|
||||||
(defcustom fuel-listener-window-allow-split t
|
|
||||||
"Allow window splitting when switching to the fuel listener
|
|
||||||
buffer."
|
|
||||||
:type 'boolean
|
|
||||||
:group 'fuel-listener)
|
|
||||||
|
|
||||||
(defcustom fuel-listener-history-filename
|
(defcustom fuel-listener-history-filename
|
||||||
(expand-file-name "~/.fuel_history.eld")
|
(expand-file-name "~/.fuel_history.eld")
|
||||||
"File where listener input history is saved, so that it persists between
|
"File where listener input history is saved, so that it persists between
|
||||||
|
@ -181,8 +174,7 @@ sessions."
|
||||||
(defun run-factor (&optional arg)
|
(defun run-factor (&optional arg)
|
||||||
"Show the fuel-listener buffer, starting the process if needed."
|
"Show the fuel-listener buffer, starting the process if needed."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((buf (process-buffer (fuel-listener--process t)))
|
(let ((buf (process-buffer (fuel-listener--process t))))
|
||||||
(pop-up-windows fuel-listener-window-allow-split))
|
|
||||||
(if fuel-listener-use-other-window
|
(if fuel-listener-use-other-window
|
||||||
(pop-to-buffer buf)
|
(pop-to-buffer buf)
|
||||||
(switch-to-buffer buf))
|
(switch-to-buffer buf))
|
||||||
|
@ -259,7 +251,7 @@ the vocabulary name."
|
||||||
(when (= (point) (comint-bol)) (beginning-of-line)))
|
(when (= (point) (comint-bol)) (beginning-of-line)))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(define-derived-mode fuel-listener-mode comint-mode "Fuel Listener"
|
(define-derived-mode fuel-listener-mode comint-mode "FUEL Listener"
|
||||||
"Major mode for interacting with an inferior Factor listener process.
|
"Major mode for interacting with an inferior Factor listener process.
|
||||||
\\{fuel-listener-mode-map}"
|
\\{fuel-listener-mode-map}"
|
||||||
(setq-local comint-prompt-regexp fuel-con--prompt-regex)
|
(setq-local comint-prompt-regexp fuel-con--prompt-regex)
|
||||||
|
@ -274,14 +266,20 @@ the vocabulary name."
|
||||||
(fuel-menu--defmenu listener fuel-listener-mode-map
|
(fuel-menu--defmenu listener fuel-listener-mode-map
|
||||||
("Complete symbol" ((kbd "TAB") (kbd "M-TAB"))
|
("Complete symbol" ((kbd "TAB") (kbd "M-TAB"))
|
||||||
fuel-completion--complete-symbol :enable (symbol-at-point))
|
fuel-completion--complete-symbol :enable (symbol-at-point))
|
||||||
|
--
|
||||||
("Edit word or vocab at point" "\M-." fuel-edit-word-at-point)
|
("Edit word or vocab at point" "\M-." fuel-edit-word-at-point)
|
||||||
("Edit vocabulary" "\C-c\C-v" fuel-edit-vocabulary)
|
("Edit vocabulary" "\C-c\C-v" fuel-edit-vocabulary)
|
||||||
--
|
--
|
||||||
("Word help" "\C-c\C-w" fuel-help)
|
("Help on word" "\C-c\C-w" fuel-help)
|
||||||
("Apropos" "\C-c\C-p" fuel-apropos)
|
("Apropos..." "\C-c\C-p" fuel-apropos)
|
||||||
(mode "Autodoc mode" "\C-c\C-a" fuel-autodoc-mode)
|
|
||||||
(mode "Show stack mode" "\C-c\C-s" fuel-stack-mode)
|
(mode "Show stack mode" "\C-c\C-s" fuel-stack-mode)
|
||||||
--
|
--
|
||||||
|
(menu "Crossref"
|
||||||
|
("Word callers" "\C-c\M-<"
|
||||||
|
fuel-show-callers :enable (symbol-at-point))
|
||||||
|
("Word callees" "\C-c\M->"
|
||||||
|
fuel-show-callees :enable (symbol-at-point))
|
||||||
|
(mode "Autodoc mode" "\C-c\C-a" fuel-autodoc-mode))
|
||||||
("Run file" "\C-c\C-k" fuel-run-file)
|
("Run file" "\C-c\C-k" fuel-run-file)
|
||||||
("Refresh vocabs" "\C-c\C-r" fuel-refresh-all))
|
("Refresh vocabs" "\C-c\C-r" fuel-refresh-all))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue