diff options
| -rw-r--r-- | elisp/geiser-plt.el | 39 |
1 files changed, 38 insertions, 1 deletions
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index 44312b9..6c50c99 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -24,6 +24,8 @@ ;;; Code: +(require 'geiser-edit) +(require 'geiser-doc) (require 'geiser-eval) (require 'geiser-syntax) (require 'geiser-custom) @@ -121,13 +123,48 @@ This function uses `geiser-plt-init-file' if it exists." ;;; External help + (defun geiser-plt-external-help (symbol module) (message "Requesting help for '%s'..." symbol) - (geiser-eval--send/wait `(:eval (get-help ',symbol (:module ,module)) geiser/autodoc)) + (geiser-eval--send/wait + `(:eval (get-help ',symbol (:module ,module)) geiser/autodoc)) (minibuffer-message "%s done" (current-message)) t) +;;; Error display + +(defconst geiser-plt--file-rx-0 "^\\([^:\n\"]+\\):\\([0-9]+\\):\\([0-9]+\\)") +(defconst geiser-plt--file-rx-1 "path:\"?\\([^>\"\n]+\\)\"?>") +(defconst geiser-plt--file-rx-2 "module: \"\\([^>\"\n]+\\)\"") + +(defun geiser-plt--find-files (rx) + (save-excursion + (while (re-search-forward rx nil t) + (geiser-edit--make-link (match-beginning 1) + (match-end 1) + (match-string 1) + (match-string 2) + (match-string 3))))) + +(defun geiser-plt-display-error (module key msg) + (insert "Error: ") + (when key (geiser-doc--insert-button key nil 'plt)) + (newline 2) + (when msg + (let ((p (point))) + (insert msg) + (let ((end (point))) + (goto-char p) + (geiser-plt--find-files geiser-plt--file-rx-0) + (geiser-plt--find-files geiser-plt--file-rx-1) + (geiser-plt--find-files geiser-plt--file-rx-2) + (goto-char end) + (fill-region p end) + (newline)))) + t) + + ;;; Trying to ascertain whether a buffer is mzscheme scheme: (defun geiser-plt-guess () |