|
|
|
|
@@ -2,15 +2,13 @@
|
|
|
|
|
|
|
|
|
|
;; Copyright (C) 1998, 2011 Phil Type and Bruce Ravel, 1999-2012 Bruce Ravel
|
|
|
|
|
|
|
|
|
|
;; Author: Jon Oddie
|
|
|
|
|
;; Bruce Ravel
|
|
|
|
|
;; Phil Type
|
|
|
|
|
;; Maintainer: Bruce Ravel <bruceravel1@gmail.com>
|
|
|
|
|
;; Created: June 28 1998
|
|
|
|
|
;; Version: 0.8.0
|
|
|
|
|
;; Keywords: data gnuplot plotting
|
|
|
|
|
;; URL: https://github.com/emacsorphanage/gnuplot
|
|
|
|
|
;; Package-Requires: ((emacs "24.3"))
|
|
|
|
|
;; Author: Jon Oddie, Bruce Ravel, Phil Type
|
|
|
|
|
;; Maintainer: Maxime Tréca <maxime@gmail.com>, Daniel Mendler <mail@daniel-mendler.de>
|
|
|
|
|
;; Created: 1998
|
|
|
|
|
;; Version: 0.8.0
|
|
|
|
|
;; Keywords: data gnuplot plotting
|
|
|
|
|
;; URL: https://github.com/emacs-gnuplot/gnuplot
|
|
|
|
|
;; Package-Requires: ((emacs "25.1"))
|
|
|
|
|
|
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
@@ -85,8 +83,6 @@
|
|
|
|
|
|
|
|
|
|
(declare-function 'eldoc-add-command "eldoc")
|
|
|
|
|
|
|
|
|
|
(defconst gnuplot-ntemacs-p (string-match "msvc" (emacs-version)))
|
|
|
|
|
|
|
|
|
|
(defgroup gnuplot nil
|
|
|
|
|
"Gnuplot-mode for Emacs."
|
|
|
|
|
:prefix "gnuplot-"
|
|
|
|
|
@@ -95,7 +91,7 @@
|
|
|
|
|
:group 'local
|
|
|
|
|
:link '(emacs-library-link :tag "Lisp File" "gnuplot.el")
|
|
|
|
|
:link '(url-link :tag "Homepage"
|
|
|
|
|
"https://github.com/emacsorphanage/gnuplot/")
|
|
|
|
|
"https://github.com/emacs-gnuplot/gnuplot/")
|
|
|
|
|
:link '(custom-manual "(gnuplot)Top")
|
|
|
|
|
:link '(emacs-commentary-link :tag "Commentary" "gnuplot.el"))
|
|
|
|
|
|
|
|
|
|
@@ -114,12 +110,6 @@
|
|
|
|
|
:group 'gnuplot-hooks
|
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
|
|
(defvar gnuplot-load-hook nil)
|
|
|
|
|
(make-obsolete-variable
|
|
|
|
|
'gnuplot-load-hook
|
|
|
|
|
"The package loading hook has been removed, use `with-eval-after-load' instead."
|
|
|
|
|
"8.0")
|
|
|
|
|
|
|
|
|
|
(defcustom gnuplot-after-plot-hook (list #'gnuplot-trim-gnuplot-buffer)
|
|
|
|
|
"Hook run after gnuplot plots something.
|
|
|
|
|
This is the last thing done by the functions for plotting a line, a
|
|
|
|
|
@@ -127,50 +117,6 @@ region, a buffer, or a file."
|
|
|
|
|
:group 'gnuplot-hooks
|
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
|
|
(defcustom gnuplot-info-hook nil
|
|
|
|
|
"Hook run before setting up the info-look interface.
|
|
|
|
|
This hook is necessary to handle inconsistencies in versions of and
|
|
|
|
|
sources of the gnuplot info file. If Gnuplot-mode can find the info
|
|
|
|
|
file generated from the 3.6beta patchlevel 347 (or later) release of
|
|
|
|
|
Gnuplot, then this hook probably is not necessary. Some versions of
|
|
|
|
|
the info file may have a General Index session, which can be used by
|
|
|
|
|
info-look. In that case the following (or something similar with the
|
|
|
|
|
value of `info-lookup-symbol-alist' altered appropriately) should be
|
|
|
|
|
placed in the .emacs file.
|
|
|
|
|
|
|
|
|
|
Emacs version 20.2 ships with a different version of info-look that
|
|
|
|
|
does 20.3. If you use any version of Emacs 19, you must use the
|
|
|
|
|
version from 20.2. Any version of XEmacs 20 or 21 should use the
|
|
|
|
|
version from 20.3 but can use either. XEmacs 19 should use the
|
|
|
|
|
version 20.2.
|
|
|
|
|
|
|
|
|
|
For the newer version of info-look, do this:
|
|
|
|
|
|
|
|
|
|
(add-hook \'gnuplot-info-hook
|
|
|
|
|
\'(lambda ()
|
|
|
|
|
(let ((elem (assoc \'gnuplot-mode info-lookup-alist)))
|
|
|
|
|
(delete elem info-lookup-alist)
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'gnuplot-mode :topic 'symbol
|
|
|
|
|
:regexp \"[a-zA-Z][_a-zA-Z0-9]*\"
|
|
|
|
|
:doc-spec '((\"(gnuplot)General Index\" nil
|
|
|
|
|
\"[_a-zA-Z0-9]+\"))))))
|
|
|
|
|
|
|
|
|
|
For the older version of info-look, do this:
|
|
|
|
|
|
|
|
|
|
(add-hook \'gnuplot-info-hook
|
|
|
|
|
\'(lambda ()
|
|
|
|
|
(let ((elem (assoc \'gnuplot-mode info-lookup-alist)))
|
|
|
|
|
(delete elem info-lookup-alist)
|
|
|
|
|
(setq info-lookup-alist
|
|
|
|
|
(append info-lookup-alist
|
|
|
|
|
\'((gnuplot-mode
|
|
|
|
|
\"[a-zA-Z][_a-zA-Z0-9]*\" nil
|
|
|
|
|
((\"(gnuplot)General Index\" nil
|
|
|
|
|
\"[_a-zA-Z0-9]+\" )))))))))"
|
|
|
|
|
:group 'gnuplot-hooks
|
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
|
|
;; comint hook suggested by <DB>
|
|
|
|
|
(defcustom gnuplot-comint-setup-hook nil
|
|
|
|
|
"Hook run after setting up the gnuplot buffer in comint mode.
|
|
|
|
|
@@ -179,7 +125,7 @@ So the configuration can be customised by the user."
|
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
|
|
(defcustom gnuplot-comint-mode-hook nil
|
|
|
|
|
"Hook run after setting up the gnuplot buffer in gnuplot-comint-mode.
|
|
|
|
|
"Hook run after setting up the gnuplot buffer in `gnuplot-comint-mode'.
|
|
|
|
|
By default this runs the hook named `gnuplot-comint-setup-hook',
|
|
|
|
|
for backward compatibility."
|
|
|
|
|
:group 'gnuplot-hooks
|
|
|
|
|
@@ -247,7 +193,8 @@ The values are
|
|
|
|
|
(const :tag "Separate window" window)
|
|
|
|
|
(const :tag "This window" nil)))
|
|
|
|
|
|
|
|
|
|
(defcustom gnuplot-echo-command-line-flag (not gnuplot-ntemacs-p)
|
|
|
|
|
(defcustom gnuplot-echo-command-line-flag
|
|
|
|
|
(not (string-match "msvc" (emacs-version)))
|
|
|
|
|
"Non-nil means the gnuplot subprocess echoes any input.
|
|
|
|
|
This sets the fall-back value of `comint-process-echoes'.
|
|
|
|
|
If `gnuplot-mode' cannot figure out what version number of gnuplot
|
|
|
|
|
@@ -316,7 +263,7 @@ These are set by `gnuplot-set-keywords-list' from the values in
|
|
|
|
|
"A boolean which gets toggled when the info file is probed.")
|
|
|
|
|
(defcustom gnuplot-keywords-when 'deferred ;; 'immediately
|
|
|
|
|
"This variable controls when the info file is parsed.
|
|
|
|
|
The choices are immediately upon starting gnuplot-mode or the first
|
|
|
|
|
The choices are immediately upon starting `gnuplot-mode' or the first
|
|
|
|
|
time that data is needed."
|
|
|
|
|
:group 'gnuplot
|
|
|
|
|
:type
|
|
|
|
|
@@ -326,7 +273,7 @@ time that data is needed."
|
|
|
|
|
(defcustom gnuplot-use-context-sensitive-completion t
|
|
|
|
|
"Non-nil if `gnuplot-context-sensitive-mode' should be enabled by default.
|
|
|
|
|
|
|
|
|
|
In context-sensitive mode, gnuplot-mode parses the current
|
|
|
|
|
In context-sensitive mode, `gnuplot-mode' parses the current
|
|
|
|
|
command line to provide smarter completion and documentation
|
|
|
|
|
suggestions."
|
|
|
|
|
:group 'gnuplot
|
|
|
|
|
@@ -355,10 +302,10 @@ on."
|
|
|
|
|
:type 'boolean)
|
|
|
|
|
|
|
|
|
|
(defcustom gnuplot-tab-completion nil
|
|
|
|
|
"Non-nil if TAB should perform completion in gnuplot-mode buffers.
|
|
|
|
|
"Non-nil if TAB should perform completion in `gnuplot-mode' buffers.
|
|
|
|
|
|
|
|
|
|
Setting this to non-nil sets the `tab-always-indent' variable to the
|
|
|
|
|
symbol `complete' in gnuplot-mode buffers."
|
|
|
|
|
symbol `complete' in `gnuplot-mode' buffers."
|
|
|
|
|
:group 'gnuplot
|
|
|
|
|
:type 'boolean)
|
|
|
|
|
|
|
|
|
|
@@ -411,7 +358,7 @@ non-nil."
|
|
|
|
|
:set #'gnuplot-set-display-mode)
|
|
|
|
|
|
|
|
|
|
(defgroup gnuplot-faces nil
|
|
|
|
|
"Text faces used by gnuplot-mode."
|
|
|
|
|
"Text faces used by `gnuplot-mode'."
|
|
|
|
|
:prefix "gnuplot-"
|
|
|
|
|
:group 'gnuplot)
|
|
|
|
|
|
|
|
|
|
@@ -494,7 +441,6 @@ non-nil."
|
|
|
|
|
"---"
|
|
|
|
|
["Insert filename at point" gnuplot-insert-filename t]
|
|
|
|
|
["Negate set option" gnuplot-negate-option t]
|
|
|
|
|
;;["Set key binding" gnuplot-set-binding t]
|
|
|
|
|
["Keyword help" gnuplot-info-lookup-symbol
|
|
|
|
|
(or gnuplot-keywords gnuplot-keywords-pending)]
|
|
|
|
|
["Quick help for thing at point" gnuplot-help-function
|
|
|
|
|
@@ -871,12 +817,10 @@ opening an argument-setting popup.")
|
|
|
|
|
gnuplot-insertions-bottom))
|
|
|
|
|
(easy-menu-define gnuplot-mode-insertions-menu gnuplot-mode-map
|
|
|
|
|
"Insertions menu used in Gnuplot-mode"
|
|
|
|
|
gnuplot-insertions-menu)
|
|
|
|
|
(easy-menu-add gnuplot-mode-insertions-menu gnuplot-mode-map)))
|
|
|
|
|
gnuplot-insertions-menu)))
|
|
|
|
|
(easy-menu-define ; set up gnuplot menu
|
|
|
|
|
gnuplot-mode-menu gnuplot-mode-map "Menu used in gnuplot-mode"
|
|
|
|
|
gnuplot-menu)
|
|
|
|
|
(easy-menu-add gnuplot-mode-menu gnuplot-mode-map))
|
|
|
|
|
gnuplot-menu))
|
|
|
|
|
|
|
|
|
|
(defun gnuplot-mark-active ()
|
|
|
|
|
"Return non-nil if the mark is active and it is not equal to point."
|
|
|
|
|
@@ -1042,10 +986,7 @@ These are highlighted using `font-lock-constant-face'.")
|
|
|
|
|
;;
|
|
|
|
|
;; The following syntax-propertize rules should accurately mark string
|
|
|
|
|
;; and comment boundaries using the "generic string fence" and
|
|
|
|
|
;; "generic comment fence" syntax properties. When syntax-propertize
|
|
|
|
|
;; is unavailable (on Emacs versions <24), we fall back to using the
|
|
|
|
|
;; normal syntax-table parser, which is accurate enough for most
|
|
|
|
|
;; normal cases. (See the definition of `gnuplot-mode-syntax-table'.)
|
|
|
|
|
;; "generic comment fence" syntax properties.
|
|
|
|
|
(defalias 'gnuplot-syntax-propertize
|
|
|
|
|
(syntax-propertize-rules
|
|
|
|
|
;; Double quoted strings
|
|
|
|
|
@@ -1081,7 +1022,7 @@ Ensures that the region being searched begins and ends outside of
|
|
|
|
|
any lines continued with a backslash.
|
|
|
|
|
|
|
|
|
|
This function is added to `syntax-propertize-extend-region-functions'
|
|
|
|
|
in gnuplot-mode buffers."
|
|
|
|
|
in `gnuplot-mode' buffers."
|
|
|
|
|
(let ((continuation-start
|
|
|
|
|
(min start
|
|
|
|
|
(gnuplot-point-at-beginning-of-continuation start)))
|
|
|
|
|
@@ -1416,8 +1357,7 @@ buffer."
|
|
|
|
|
;; Set up menu (see below)
|
|
|
|
|
(easy-menu-define
|
|
|
|
|
gnuplot-comint-mode-menu gnuplot-comint-mode-map "Menu used in gnuplot-comint-mode"
|
|
|
|
|
gnuplot-comint-menu)
|
|
|
|
|
(easy-menu-add gnuplot-comint-mode-menu gnuplot-comint-mode-map))
|
|
|
|
|
gnuplot-comint-menu))
|
|
|
|
|
|
|
|
|
|
;; Key bindings for gnuplot-comint-mode
|
|
|
|
|
(define-key gnuplot-comint-mode-map "\M-\C-p" #'gnuplot-plot-from-comint)
|
|
|
|
|
@@ -1850,29 +1790,6 @@ Negatable options are defined in `gnuplot-keywords-negatable-options'."
|
|
|
|
|
(message "There is not a negatable set option on this line")))
|
|
|
|
|
(message "There is not a set option on this line")))))
|
|
|
|
|
|
|
|
|
|
;; (defun gnuplot-set-binding ()
|
|
|
|
|
;; "Interactively select a key sequence for binding to a plot function.
|
|
|
|
|
;; This is only useful in gnuplot 3.8 and for plot terminals which support
|
|
|
|
|
;; key bindings (i.e. those covered by pm3d)."
|
|
|
|
|
;; (interactive)
|
|
|
|
|
;; (let ((keyseq (read-key-sequence "Choose a key sequence now"))
|
|
|
|
|
;; (command (read-string "Bind to this command > ")))
|
|
|
|
|
;; (setq keyseq (format "%S" keyseq))
|
|
|
|
|
;; (string-match "keypress-event\\s-+" keyseq)
|
|
|
|
|
;; (setq keyseq (substring keyseq (match-end 0) -2))
|
|
|
|
|
;; ;; need to convert from emacs nomenclature to gnuplot. what a pain.
|
|
|
|
|
;; (let* ((alist '(("backspace" . "Backspace") ("tab" . "Tab") ("linefeed" . "Linefeed")
|
|
|
|
|
;; ("clear" . "Clear") ("return" . "Return") ("pause" . "Pause")
|
|
|
|
|
;; ("scroll-lock" . "Scroll_Lock") ("SysReq" . "sys-req")
|
|
|
|
|
;; ("escape" . "Escape") ("delete" . "Delete") ("home" . "Home")
|
|
|
|
|
;; ("left" . "Left") ("right" . "Right") ("up" . "Up") ("down" . "Down")
|
|
|
|
|
;; ("prior" . "PageUp") ("next" . "PageDown") ("end" . "End")
|
|
|
|
|
;; ("begin". "Begin")))
|
|
|
|
|
;; (match (assoc keyseq alist)))
|
|
|
|
|
;; (if match (setq keyseq (cdr match)))
|
|
|
|
|
;;
|
|
|
|
|
;; (insert (format "bind \"%s\" \"%s\"" keyseq command)))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun gnuplot-customize ()
|
|
|
|
|
"Customize `gnuplot-mode'."
|
|
|
|
|
@@ -1890,8 +1807,7 @@ Negatable options are defined in `gnuplot-keywords-negatable-options'."
|
|
|
|
|
"Setup info-look in the gnuplot buffer.
|
|
|
|
|
|
|
|
|
|
Also set the variable `gnuplot-keywords' and do something sensible if
|
|
|
|
|
info-look was not available.
|
|
|
|
|
See the comments in `gnuplot-info-hook'."
|
|
|
|
|
info-look was not available."
|
|
|
|
|
(interactive)
|
|
|
|
|
(setq gnuplot-keywords-pending nil)
|
|
|
|
|
;; TODO Update info layout
|
|
|
|
|
@@ -1909,11 +1825,6 @@ See the comments in `gnuplot-info-hook'."
|
|
|
|
|
:regexp "[a-zA-Z][_a-zA-Z0-9]*"
|
|
|
|
|
:doc-spec doc-spec))
|
|
|
|
|
|
|
|
|
|
;; TODO Clean this up
|
|
|
|
|
;; this hook is my best way of working with info-look and
|
|
|
|
|
;; allowing multiple versions of the gnuplot-info file.
|
|
|
|
|
;; yes, this is a hassle.
|
|
|
|
|
(run-hooks 'gnuplot-info-hook)
|
|
|
|
|
(let ((there (bufferp (get-buffer "*info*"))))
|
|
|
|
|
(info-lookup-setup-mode 'symbol 'gnuplot-mode)
|
|
|
|
|
(or there (and (get-buffer "*info*") (kill-buffer "*info*")))
|
|
|
|
|
@@ -2068,7 +1979,7 @@ shown."
|
|
|
|
|
This was written with version 4.6 of gnuplot in mind, but should
|
|
|
|
|
work with newer and older versions.
|
|
|
|
|
|
|
|
|
|
Report bugs at https://github.com/emacsorphanage/gnuplot/issues
|
|
|
|
|
Report bugs at https://github.com/emacs-gnuplot/gnuplot/issues
|
|
|
|
|
|
|
|
|
|
------O------
|
|
|
|
|
|
|
|
|
|
@@ -2082,9 +1993,9 @@ to make a list of keywords.
|
|
|
|
|
|
|
|
|
|
The info file should be installed by default with the Gnuplot
|
|
|
|
|
distribution, or is available at the `gnuplot-mode' web page:
|
|
|
|
|
https://github.com/emacsorphanage/gnuplot/
|
|
|
|
|
https://github.com/emacs-gnuplot/gnuplot/
|
|
|
|
|
|
|
|
|
|
With the new context-sensitive mode active, gnuplot-mode can also
|
|
|
|
|
With the new context-sensitive mode active, `gnuplot-mode' can also
|
|
|
|
|
provide function/`eldoc-mode' syntax hints as you type. This requires a
|
|
|
|
|
separate file of strings, `gnuplot-eldoc.el', which is also
|
|
|
|
|
provided by recent Gnuplot distributions.
|
|
|
|
|
@@ -2168,13 +2079,15 @@ following in your .emacs file:
|
|
|
|
|
(gnuplot-mode))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
;;; TODO Rename to gnuplot-run-gnuplot
|
|
|
|
|
(defun run-gnuplot ()
|
|
|
|
|
(defun gnuplot-run ()
|
|
|
|
|
"Run an inferior Gnuplot process."
|
|
|
|
|
(interactive)
|
|
|
|
|
(gnuplot-make-gnuplot-buffer)
|
|
|
|
|
(pop-to-buffer gnuplot-buffer))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(define-obsolete-function-alias 'run-gnuplot 'gnuplot-run "0.8.0")
|
|
|
|
|
|
|
|
|
|
;;; That's it! ----------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
(provide 'gnuplot)
|
|
|
|
|
|
