[nongnu] elpa/geiser-chicken c77a8d3 021/102: Adds the ability to have sub-word delimiters

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit c77a8d3b88e5813a310711338e22600007f02be0
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    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.
---
 elisp/geiser-chicken.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

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