diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2015-09-25 21:14:21 -0700 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2015-09-25 21:16:13 -0700 |
| commit | 59f140f19b36ce273e3a0f955597469d5192c209 (patch) | |
| tree | f4e7e26286a764336038ddf5ba8dd0209ed0e87b | |
| parent | 9a3d363ee0b2921a5f1479a06deab9bb26b9bee9 (diff) | |
| download | geiser-chez-59f140f19b36ce273e3a0f955597469d5192c209.tar.gz geiser-chez-59f140f19b36ce273e3a0f955597469d5192c209.tar.bz2 | |
Adds the ability to have sub-word delimiters
Many chickeners use prefixes when importing eggs, which breaks
completions. This commit adds the ability to define custom prefix
delimiters, with : and # pre-defined due to their common usage.
| -rw-r--r-- | elisp/geiser-chicken.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index 5bf45f2..c086b17 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -46,6 +46,12 @@ "Customization for Geiser's Chicken flavour." :group 'geiser) +(geiser-custom--defcustom geiser-chicken-prefix-delimiters + '("^:" "^#") + "Regex to match symbol prefix delimiters." + :type '(repeat string) + :group 'geiser-chicken) + (geiser-custom--defcustom geiser-chicken-binary (cond ((eq system-type 'windows-nt) '("csi.exe" "-:c")) ((eq system-type 'darwin) "csi") @@ -165,7 +171,15 @@ This function uses `geiser-chicken-init-file' if it exists." (defun geiser-chicken--exit-command () ",q") (defun geiser-chicken--symbol-begin (module) - (save-excursion (skip-syntax-backward "^-()>") (point))) + (apply + 'max + (append + (list (save-excursion (beginning-of-line) (point)) + (save-excursion (skip-syntax-backward "^-()>") (point))) + (mapcar + (lambda (match-string) + (save-excursion (skip-chars-backward match-string) (point))) + geiser-chicken-prefix-delimiters)))) ;;; Error display |